<%
Dim cn,rs Set cn=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.RecordSet") cn.open "Provider='Microsoft.Jet.OleDb.4.0';Data Source=" & Server.MapPath("../data/IdanK.mdb") rs.open "Select * from signup where Nickname='"+Request.form("Nickname")+"'",cn,3,3
if rs.eof then rs.addnew rs(1).value=Request.form("Pname") rs(2).value=Request.form("Fname") rs(3).value=Request.form("Email") rs(4).value=Request.form("yahas") rs(5).value=Request.form("ID") rs(6).value=Request.form("Nickname") rs(7).value=Request.form("pass") rs.update Response.redirect "http://localhost/IdanKizel/html/index.htm" else %>
|