<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%
uid=request.Form("uname")
pwd=request.Form("pwd")
session("user")=uid
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 objRS1 = 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("")
response.Write("")
else
response.Write("")
response.Write("")
end if
'if objRS1("email")="" then'
'response.Write("Not authorised user.")'
'else'
'response.Write("Authorised user.")'
'end if'
objConn.Close
Set objConn = Nothing
%>
