<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer = "True" User = trim(Request("txtUserName")) Password = trim(Request("txtPassword")) Set Con = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") Con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Association.mdb") rs.CursorType=adOpenDynamic rs.Open "Select * from UserLogin where UserName='" & User & "'", Con if Not rs.eof then Response.Redirect "http://www.igc-me.com/Reports/InvalidRegStep1.htm" else Con.Execute "Insert into UserLogin values ('" & User & "', '" & Password & "')" 'rs.addNew 'rs.Fields(1) = User 'rs.Fields(2) = Password 'rs.update end if rs.close Con.close Set rs = Nothing Set Con = Nothing Session("Username") = trim(User) Response.Redirect "http://www.igc-me.com/Reports/Registration.htm" %>