[ASP/vb] EOF BOF Probleem *

[Verwijderd]

Dit is mijn code de bedoeling is dat geregistreerde users dmv een email en pw kunnen inloggen.
De waarde haal ik op uit form en dmv van een sql query selecteer dat record dat van die bestaande user is met zijn gegevens.

Nou is het probleem dat ie het GOED doet wanneer hij een record vind.

Maar hij doet het dus NIET GOED wanneer ie geen record vind want dan zegt ie EOF EN BOF. Dit gebeurt dus wanneer iemand bijvoorbeeld zijn pw of username fout typet of wanneer je zomaar wat in vult en das wel vervelend. Iemand een oplossing

dit dus
"ADODB.Field (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record."



<%
if request.querystring("id")="login" then

dim email
email = Request.Form("email")

dim pw
pw = Request.Form("pw")

dim user
set user=Server.CreateObject("ADODB.recordset")
user.Open "SELECT * FROM users WHERE email= '" & email & "' AND pw = '" & pw & "'", conn



Session("pw")=(user.Fields.Item("pw").Value)
Session("username")=(user.Fields.Item("voornaam").Value)&(user.Fields.Item("tussen").Value)&(user.Fields.Item("achternaam").Value)
Session("uid")=(user.Fields.Item("uid").Value)

Response.redirect("index.asp")
end if
%>

[whoami]

Voordat je de waardes opvraagt, eerst checken of er wel een record opgehaald is.

[robjanssen]

code:

<%
Dim email
Dim pw
Dim user
Dim strSQL

If request.querystring("id")="login" then
  email = Request.Form("email")
  pw = Request.Form("pw")

  strSQL = "SELECT * " _
       & "FROM users " _
       & "WHERE email = '" & email & "' " _
       & "AND pw = '" & pw & "'"
  Set user = Server.CreateObject("ADODB.recordset")
  user.Open strSQL, conn

  If Not user.EOF Then
    Session("pw")=user.Fields.Item("pw")
    Session("username")=user.Fields.Item("voornaam") & user.Fields.Item("tussen") & user.Fields.Item("achternaam")
    Session("uid")=user.Fields.Item("uid")
    Response.redirect("index.asp")
  Else
    Response.redirect("login.asp")
  End If

  user.Close
  Set user = Nothing
End If
%>

[Verwijderd]

THX hier heb ik wat aan!!!