thank you for interesting

<% If Session("project1_status") <> "login" Then Response.Redirect "admin.asp" %>

<!--#include file="header1.asp" -->
<div id="ContentHead"><b>Ajouter Actue:.</b></div>
<div id="Content"><center><br>
<!--#include file="connection.asp"-->
<!--#include file="dbnews.asp"-->
<%
add_dat=now()
section=request.form("section")
subject=request.form("subject")
subject= Replace(subject,"'","&#39;")
subject= Replace(subject,"<","")
subject= Replace(subject,">","")
subject= Replace(subject,"é","&eacute;")
subject= Replace(subject,"è","&egrave;")
subject= Replace(subject,"â","&acirc;")
subject= Replace(subject,"û","&ucirc;")
subject= Replace(subject,"î","&icirc;")
subject= Replace(subject,"ô","&ocirc;")
subject= Replace(subject,"à","&agrave;")
body=request.form("body")
body= Replace(body,"<img src='image url ici'width='550'></img><br>","")
body= Replace(body,"'","&#39;")
body= Replace(body,"é","&eacute;")
body= Replace(body,"è","&egrave;")
body= Replace(body,"â","&acirc;")
body= Replace(body,"û","&ucirc;")
body= Replace(body,"î","&icirc;")
body= Replace(body,"ô","&ocirc;")
body= Replace(body,"à","&agrave;")
photo=request.form("photo")
photo= Replace(photo,"'","&#39;")
photo= Replace(photo,"é","&eacute;")
photo= Replace(photo,"è","&egrave;")
photo= Replace(photo,"â","&acirc;")
photo= Replace(photo,"û","&ucirc;")
photo= Replace(photo,"î","&icirc;")
photo= Replace(photo,"ô","&ocirc;")
photo= Replace(photo,"à","&agrave;")
If subject="" or body="" or photo="" then
response.write "<font color=#ff8040>Please..vous devez remplir tous les champs</font><br>"
Else
addSQL= " insert into "&section&" ([subject],[body],[add_dat],[photo]) values ('"&subject&"','"&body&"','"&add_dat&"','"&photo&"')"
ADO.execute(addSQL)
response.write "<center><b><font color=#ff8040>" & "THANK YOU... L'information est bien ajout&eacute;e</font>"




Set ADO = Server.CreateObject("ADODB.Connection")
ADO.Open xDb_Conn_Str
strsql = "SELECT * FROM [emails]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, ADO




recActual = 0
Do While (NOT rs.EOF)
recCount = recCount + 1



on error resume next
Set oMail =CreateObject("CDO.Message")
oMail.From = "www.nkkin-web.co.cc"
oMail.To = rs("Email")
oMail.Subject = "Nkkin-web:" & subject
oMail.BodyPart.charset = "unicode-1-1-utf-8"
oMail.BodyPart.ContentTransferEncoding = "quoted-printable"
oMail.HTMLBody = "<html><body bgcolor='#000000'><a href=http://users1.jabry.com/nkkin3 target=_blank><img src=http://users1.jabry.com/nkkin3/Files/Images/90x940Header.jpg></img></a><br><font color=#800000 size=4><b><center>" & subject & "</b></font></center><br /><font color=#000000 size=2><center><b>" & body & "</b><br /></font></center><br></body></html>"
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
oMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxxxxxxxxxxxxxx"
oMail.Configuration.Fields.Update
oMail.Send
set oMail=nothing

rs.MoveNext
Loop
End If

%>
<form method="POST" action="add_news.asp">
<table border="0"width="100%"color="#446677">
<tr><td width=20% bgcolor="#334466">
<p><b><center><font color="#800000"> TYPE:</font></center></td><td width=80%> <select size="1" name="section"class='tbox'>
<option value="news_news"> &nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; Actue g&eacute;n&eacute;rale &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;</option>
<option value="amazigh_news"> Actue amazigh </option>
<option value="sport_news"> Actue sport </option>
</select></b></p></td></tr><tr><td width=20% bgcolor="#334466">
<p><b> <center><font color="#800000">subject:</font></center></td><td> <input type="text" name="subject"size="50"class='tbox'></b></p></td></tr><tr><td width=20% bgcolor="#334466">
<p><b><center><font color="#800000"> Photo url:</font> </center></td><td><input type="text" name="photo"size="50"class='tbox'></b></p></td></tr><tr><td width=20% bgcolor="#334466">
<p><b> <center><font color="#800000">body:</font></center></b></p></td><td><p><b>&nbsp;<textarea rows="6" name="body" cols="50"class='tbox'><img src='image url ici'width='550'></img><br></textarea></b></p></td></tr>
<tr><td>&nbsp;&nbsp;&nbsp;&nbsp;</span></td><td><p><input type="submit" value=" Add " name="add"class='button'><span lang="en-us">&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" value=" Reset " name="reset"class='button'></p></span></td></tr></table></form><br>



</div>

<!--#include file="footer.asp" -->