دوست عزیز سوالتون تکراری است :
<html>
<%response.flush
name = Trim(Request("name"))
email = Trim(Request("email"))
mes = Trim(Request("mes"))
set cn = server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};;DBQ=" & Server.Mappath("news.mdb")&";"
set rst = Server.CreateObject("ADODB.Recordset")
rst.Open " SELECT * FROM contact ", cn
if rst.eof then
with rst
.close
.Open "contact", cn,3,3
.AddNew
.Fields("name") = name
.Fields("email") = email
.Fields("mes") = mes
.Update
end with
rst.Close
Set rst=Nothing
response.write "<Font Color=red><B> رکورد ("
response.write ") ثبت شد</B></Font>"
else
with rst
' .delete
.close
.Open "contact", cn,3,3
.AddNew
.Fields("name") = name
.Fields("email") = email
.Fields("mes") = mes
.Update
end with
rst.Close
%>
response.write "send shod"
<%
End if
%>
</body>
</html>
