<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%
Dim sConnection, objConn , objRS
sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=solo; UID=root;PASSWORD=admin; OPTION=3"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS1 = Server.CreateObject("ADODB.Recordset")
Set objRS2 = Server.CreateObject("ADODB.Recordset")
objConn.Open(sConnection)
email=request.Form("txtemail")
sql="select * from reguser where email='"+email+"'"
Set objRS1 = objConn.Execute(sql)
If (not objRS1.BOF) and (not objRS1.EOF) then
response.Write("")
response.Write("")
else
name1=request.Form("txtname")
email=request.Form("txtemail")
pass=request.Form("txtpass")
loc=request.Form("txtadd")
courses=request.Form("txtcr")'
age=request.Form("rdage")
sex=request.Form("rdsex")
stat=request.Form("chkstat")
high=request.Form("chkhigh")
dt=Date
sql1="insert into reguser(name,email,pass,location,age,sex,status,highdeg,time) values('"&name1&"','"&email&"','"&pass&"','"&loc&"','"&age&"','"&sex&"','"&stat&"','"&high&"','"&dt&"')"
Set objRS2 = objConn.Execute(sql1)
response.Write("You have been successfully registered.
Click here to login to view courses")
end if
objConn.Close
Set objConn = Nothing
%>