Retrieving individual data

[pat luton]

Hi am trying to retrieve indivual data from a database and i keep getting the
following error.
Microsoft VBScript compilation (0x800A0401)
Expected end of statement

The following code is for verifying the user logged in
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data
Source=D:\web\projects\99098932\project\project.md b;"

username=trim(request.form("Username"))
password=trim(request.form("password"))
If username = "" or password = "" then
reponse.redirect
End If
Set RS= Server.CreateObject("ADODB.Recordset")
RS.Open
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
End If
If Not(StrComp(RS("password"), password, vbBinaryCompare) = 0) Then
RS.Close
Set RS = Nothing
objConn.Close
Set objConn = Nothing
Response.Redirect
Else Session("Valid") = Request("Username")
Response.Redirect
End If

The code for retrieving individual data is as follows
Set conn1= Server.CreateObject("ADODB.Connection")
conn1.open "Provider = Microsoft.Jet.OLEDB.4.0; Data
Source=D:\web\projects\99098932\project\project.md b;"
'--get statement recordset--
set rs1 = Server.CreateObject ("ADODB.Recordset")
rs1.open "select * from statement WHERE Username='<%=session("Valid")%>'",
conn1
Please somebody help

[Manuel Socarras]

for the error, check [url]http://aspfaq.com/show.asp?id=2363[/url]

anyway, i'm not clear why do you need the first code segment

pat luton wrote:

> Hi am trying to retrieve indivual data from a database and i keep getting the
> following error.
> Microsoft VBScript compilation (0x800A0401)
> Expected end of statement
>
> The following code is for verifying the user logged in
> Set objConn = Server.CreateObject("ADODB.Connection")
> objConn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data
> Source=D:\web\projects\99098932\project\project.md b;"
>
> username=trim(request.form("Username"))
> password=trim(request.form("password"))
> If username = "" or password = "" then
> reponse.redirect
> End If
> Set RS= Server.CreateObject("ADODB.Recordset")
> RS.Open
> 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
> End If
> If Not(StrComp(RS("password"), password, vbBinaryCompare) = 0) Then
> RS.Close
> Set RS = Nothing
> objConn.Close
> Set objConn = Nothing
> Response.Redirect
> Else Session("Valid") = Request("Username")
> Response.Redirect
> End If
>
> The code for retrieving individual data is as follows
> Set conn1= Server.CreateObject("ADODB.Connection")
> conn1.open "Provider = Microsoft.Jet.OLEDB.4.0; Data
> Source=D:\web\projects\99098932\project\project.md b;"
> '--get statement recordset--
> set rs1 = Server.CreateObject ("ADODB.Recordset")
> rs1.open "select * from statement WHERE Username='<%=session("Valid")%>'",
> conn1
> Please somebody help
>