<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%
uid=request.Form("uname")
pwd=request.Form("pwd")
regtype=request.Form("regtype")
hall=request.Form("selhall")
course=request.Form("course")
session("user")=uid
Dim sConnection1, objConn1 , rs,sql1,rs1
sConnection1 = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=solo; UID=root;PASSWORD=admin; OPTION=3"
Set objConn1 = Server.CreateObject("ADODB.Connection")
Set objConn2 = Server.CreateObject("ADODB.Connection")
Set objConn3 = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs1 = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
'**********code for checking the username and password***************'
if regtype="paid" then
Dim sConnection, objConn , objRS
sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=10.146.128.210; DATABASE=epayment; UID=cdeep;PASSWORD=epay; OPTION=3"
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.Open(sConnection)
sql="select * from student where uname='"&uid&"' and fpwd='"&pwd&"'"
Set objRS1 = objConn.Execute(sql)
If (not objRS1.BOF) and (not objRS1.EOF) then
response.Write("Registered user")
rflag=1
else
response.Write("")
response.Write("")
end if
objRS1.close
else
objConn1.open(sConnection1)
query1="select * from reguser where email='"&uid&"' and pass='"&pwd&"'"
Set rs = objConn1.Execute(query1)
if(not rs.BOF) and (not rs.EOF) then
response.Write("Registered user")
rflag=1
else
response.Write("")
response.Write("")
end if
rs.close
end if
'response.Write("flag value is"&rflag)
'***********if auth user den first find current running course and den insert the log entry******'
'response.Write("Registered user")'
if rflag=1 then
dim hr
hr=hour(now)
response.write(hr)
'if hr >= 20 then
'response.Write("")
response.Write("")
end if
' end if
end if
%>
