<%
name=Request.Form("name")
email=Request.Form("email")
comment=replace(replace(replace(Request.Form("comment"),"<","&lt;"),">","&gt;"),chr(13),"<br>")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & Server.Mappath("ohlanladb.mdb")
Sql="Select * from ohlanla where name like '%"& name &"%' "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if not rs.eof then
response.write"<center> มี username นี้ในฐานข้อมูลแล้ว"
else
rs.Addnew
rs("name")=name
rs("email")=email
rs("comment")=comment
rs.Update
rs.close
conn.Close
end if
%>