a login procedure for a wap application
hi below is alist of code i bin staring at for 5 hours. anyone has any ideas as to why iot wont work. Im using VBscript to access database (ms access) for a wap applciation to verify student id and password. plzzzzzzzzzzzzzzzzz help(if ya can)
<% @LANGUAGE= "VBSCRIPT" %>
<% Option Explicit %>
<%Response.ContentType = "text/vnd.wap.wml"%>
<%Response.Buffer = True%>
<%
Response.Expires = 0
dim objrs, objconn, strQ, strConnection, StudentId
StudentId = Number(request("StudentId"))
strConnection = "DRIVER=Microsoft Access Driver(*.mdb);
DBQ="& Server.MapPath("mmu.mdb")
strConnection = Server.CreateObject("ADODB.Connection")
objconn.open strConnection
set objrs= Server.CreateObject("ADODB.Recordset")
set rs.ActiveConnection= objconn
strQ = "Select * from StudentId Where ID ="&StudentNumber&" ORDER BY ID and passCategory='99969820'"
objrs.Open strQ, objconn
%>
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card>
<% if objrs.EOF then%>
<do type="Main Menu">
<go href="main.wml#main" />
</do>
<do type="prev" label="Back">
<prev/>
</do>
<p align="left">
<br/>Invalid Login!
<br/>Please try again.
</p>
<%Else%>
<%
'Session ("99969820") = rs("passCategory")
'Session ("StudentId") = rs("StudentNumber")
%>
<onevent type="ontimer">
<go href="main.wml"/>
</onevent>
<timer value="20"/>
<p>Password Accepted</p>
<%End If%>
</card>
</wml>
<%
objrs.Close
objconn.Close
set objrs = nothing
set objconn = nothing
%>
|