title image


Smiley Variable ist nicht definiert
Liebe Profis



Ich habe ein Fehlermeldung wie folgt.

Könnte jemand mir sagen wie ich das Korrigieren kann?

Voraus 1000 Dank





Laufzeitfehler in Microsoft VBScript- Fehler '800a01f4'

Variable ist nicht definiert: 'ausgeliehen'

/B_ausl.asp, line 35



Meine Coden:









Ausleihe









 

<%

Dim SQL, BNr, Weiterl





Select case request.querystring("modus")





case "check"







if ausgeliehen = true then

weiterl = "B_ausl.asp?modus=aende&BuchID=" & request("BuchID")

else

weiterl = "B_ausl.asp?modus=astart&BuchID=" & request("BuchID")

end if



response.redirect weiterl





case "astart"



'neuer User oder ung³ltige Eingabe

if request.form("User") = "new" then response.redirect "B_ausl.asp?modus=newb"

if request.form("User") = "0" then response.redirect "B_ausl.asp?modus=nausgl"





Set con = Server.CreateObject("ADODB.Connection")

con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/biblio.mdb")

Set rs = CreateObject("ADODB.Recordset")





if request.form("Info") = "nb" then 'Neuer Benutzer hinzuf³gen



SQL = "SELECT * FROM benutzer WHERE 1=2"



rs.Open SQL, con, 3,3

rs.addnew

rs.fields("name") = request.form("feld0")

rs.fields("vorname") = request.form("feld1")

rs.fields("strasse") = request.form("feld2")

rs.fields("PLZ") = request.form("feld3")

rs.fields("Ort") = request.form("feld4")

rs.fields("Telefon") = request.form("feld5")

rs.fields("Email") = request.form("feld6")



rs.Update



BNr = rs.fields("BNr")





rs.close



else



BNr = request.form("User")



end if





SQL = "SELECT * FROM Ausleihe WHERE 1=2"

rs.Open SQL, con, 3,3



rs.addnew

rs.fields("Ausgeliehen") = true

rs.fields("BuchID") = request.form("BuchID")

rs.fields("BNr") = BNr

rs.update



con.close

set con = nothing





'Info:

'nb = neuer Benutzer

'bb = bestehender Benutzer



case "aende" 'Ausleihe beenden



'Abfrage aller bestehenden Biblothek-BenutzerInnen

Set con = Server.CreateObject("ADODB.Connection")

con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/biblio.mdb")

SQL = "SELECT Ausleihe.BuchID, Ausleihe.Ausgeliehen FROM Ausleihe WHERE " &_

"Ausleihe.BuchID = " & request.querystring("BuchID") & " AND Ausleihe.Ausgeliehen = true"

Set rs = CreateObject("ADODB.Recordset")

rs.Open SQL, con, 3, 3

If NOT rs.EOF Then

rs.fields("Ausleihe") = false

end if

rs.close

set rs=nothing

con.close

set con = nothing



response.redirect "B_ausl.asp?modus=check"





case "ausgl" 'Infos f³r ausgeliehenes Buch



'Abfrage aller bestehenden Biblothek-BenutzerInnen

Set con = Server.CreateObject("ADODB.Connection")

con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/biblio.mdb")

SQL = "SELECT Ausleihe.Ausleihdatum, Ausleihe.AusID, Ausleihe.Ausgeliehen, Benutzer.Vorname, Benutzer.Name " &_

"FROM Benutzer INNER JOIN Ausleihe ON Benutzer.BNr = Ausleihe.BNr WHERE " &_

"BuchID = " & request.querystring("BuchID")

Set rs = CreateObject("ADODB.Recordset")

rs.Open SQL, con

If NOT rs.EOF Then

%>







Das Buch ist ausgeliehen.







Weitere Informationen:







Ausgeliehen von:







R³ckgabedatum:















">

" name="BuchId">

Ausleihe beenden







<%

end if

rs.close

set rs=nothing

con.close

set con = nothing

%>



















Das Buch ist am Standort.







Buch ausleihen:









Bitte auswõhlen

____________________________

neue Benutzerin

<%

'Abfrage aller bestehenden Biblothek-BenutzerInnen

Set con = Server.CreateObject("ADODB.Connection")

con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/biblio.mdb")

SQL = "SELECT * FROM benutzer ORDER by Name, Vorname"

Set rs = CreateObject("ADODB.Recordset")

rs.Open SQL, con

If NOT rs.EOF Then

Do While NOT rs.EOF

response.write "" & rs("Vorname") & " " & rs("Name") & "" & vbCrLf

rs.movenext

loop

end if

rs.close

set rs=nothing

con.close

set con = nothing



%>

















" name="BuchId">



























Buch ausleihen

(neue Benutzerin erfassen)









extrene Benutzerin

____________________________

<%

'Abfrage alle MitarbeiterInnen SFS

Set con = Server.CreateObject("ADODB.Connection")

con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/adressen.mdb")

SQL = "SELECT * FROM adressen ORDER by Name, Vorname"

Set rs = CreateObject("ADODB.Recordset")

rs.Open SQL, con

If NOT rs.EOF Then

Do While NOT rs.EOF

response.write "" & rs("vorname") & " " & rs("name") & "" &vbCrLf

rs.movenext

loop

end if

rs.close

set rs=nothing

con.close

set con = nothing

%>









Name:







Vorname







Adresse









PLZ









Ort









Telefon









Email















" name="BuchId">











 

Fenster schliessen





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: