3
Hi guys, i need help with the following code. It didnot give me any error, but it just doesnot go to the verify function.Since i am a newbie, i need help with it.
*********************************************Messa geBoard.asp*************************
<% @Language=VBScript %>
<% Option Explicit %>
<body bgcolor="#6666CC">
<%
dim strThisPage
strThisPage = "MessageBoard.asp"
%>
<form action="<%=strThisPage%>?action=verify" method="post"><br>
Your Topic:<br>
<input type="text" SIZE="75" name="topic">
<BR>
<br />
Name: &nb sp;   ; Password :<br />
<input type="name" name="username" />
<input type="password" name="password" />
<br />
<br />
Your Message: <br>
<TEXTAREA name="message" rows=20 cols=60></TEXTAREA>
<br>
<input type="reset" name="rest" value="Reset" />
<input type="submit" name="post" value="Post"/>
</form>
<%
Sub verify()
%>
<!--#include file="connection.asp"-->
<%
Dim username, password, foundIt, RS
username=trim(request.form("username"))
password=trim(request.form("password"))
If username = "" or password = "" then
response.redirect ("login.asp?error=3")
End If
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "Login", objConn
foundIt=False
Do Until RS.EOF OR foundIt
If (StrComp(RS("username"), username, vbTextCompare) = 0) Then
foundIt=True
Else
RS.MoveNext
End If
Loop
If Not foundIt Then
RS.Close
Set RS = Nothing
objConn.Close
Set objConn = Nothing
response.redirect("login.asp?error=1")
End If
If Not (StrComp(RS("password"), password, vbBinaryCompare) = 0) Then
RS.Close
Set RS = Nothing
objConn.Close
Set objConn = Nothing
Response.Redirect("login.asp?error=2")
Else Session("Valid") = Request("username")
Response.Redirect("newphoto.asp")
End If
end sub
%>
*****************************************connectio n.asp*****************************
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=C:\Inetpub\wwwroot\FanWeb\ADO\Fan\DataBase\my db.mdb"
objConn.open
%>
************************************************** *****************************************
