<%@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***************'
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
'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
'if hr >= 20 then
'response.Write("")
response.Write("")
end if
' end if
end if
%>
