<%@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")
hid=request.Form("hd")
if hid="edit" then
emailid=request.Form("emailid")
edmail=request.Form("edemail")
edname=request.Form("edname")
edpass=request.Form("edpass")
sql2="update reguser set name='"+edname+"', email='"+edmail+"', pass='"+edpass+"' where email='"+emailid+"'"
Set objRS3 = objConn.Execute(sql2)
else
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
end if
response.Write("You have been successfully registered.
Click here to login to view courses")
objConn.Close
Set objConn = Nothing
%>