[ASP] - database.EOF werkt niet? ...toch?

[Verwijderd]

ASP:

<%@ Language=VBScript %>
 
<%
'on error resume next
Response.Buffer=true
 
Dim Connection
Dim SQL
Dim KlantDB
Dim Wachtwoord
Dim UserName
Wachtwoord = Server.HTMLEncode(trim(Request.Form("pass")))
UserName = Request.Form("username")
 
Connection = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=sdafjlkasdfadsfasd; DBQ=d:\db\kalaboe.mdb"
 
Set KlantDB = Server.CreateObject("ADODB.Recordset")
 
SQL = "SELECT tblKlant.* From tblKlant WHERE tblKlant.Mail ='"& UserName &"';"
 

KlantDB.Open SQL, Connection
 
      If KlantDB.EOF = false then
            If wachtwoord = klantDB("wachtwoord") Then 

                  Session("TT") = klantdb("mail")
                  Response.Redirect("../default.asp")

            else
                  %><!--#include file="fout.asp"--><%
            end if
                  Response.Expires = 0  
    
      else 
            response.write(klantdb("mail"))%><!--#include file="fout.asp"--><%
      end if
 
%>
 

Nu is het probleem, als er een username is dat niet bestaad geeft ie een lelijke fout. Hoe kan ik dat afvangen met een mooie fouten page?

Superbedankt al vast... ik kom er tot nu nie uit (Weer zo'n herssenpan-brekend-ik-zie-niet-wat-de-fout-is fout... )

[ Voor 0% gewijzigd door Verwijderd op 18-10-2002 21:35 . Reden: mooiere duidelijkere opmaak ]

[Verwijderd]

PS, de fout die hij geeft als er een username is die niet bestaad:

ASP:

ADODB.Field error '80020009' 

Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current record. 

? 

Sorry voor het verpesten van de topic-opmaak!

[j_du_pee]

if klantdb.eof =false then
....
else
'hier is de recordset dus eof en moet je niet iets daaruit opvragen
response.write(klantdb("mail"))
end if

[Verwijderd]

Als de record niet leeg is vraag je gegevens op uit de record set. Dat is goed. Echter, bij else (dus recordset is WEL leeg), vraag je OOK gegevens op uit de recordset. (mail). Dat is niet goed.

Ronald

[Verwijderd]

Hmmpf, m'n muisknop bleef hangen, vandaar..

[Verwijderd]

Nou zeg, nu jullie het zeggen!

Super bedankt voor de oplossing van de "herssenpan-brekend-ik-zie-niet-wat-de-fout-is" fout!!!!

Kees...

[Verwijderd]

Mijn standaard iteratie:

If(KlantDB.eof and KlantDB.bof) Then
response.write ("Empty")
Else
Do While Not KlantDB.eof
...
rs.MoveNext
Loop
End If

[Verwijderd]

..
rs.close
set rs=nothing
..

(i hope)

[Verwijderd]

after I'm done, yes. ;-)