[ASP] iets opzoeken uit een database deel2

[Alpha-sphere]

[topic=444528/1/25]
waarom is deze topic gesloten? omdat ik volgens jou niet weet dat er een recordset.close in zou moeten zitten? Ik heb er niet eens een recordset close in zitten

Op woensdag 20 maart 2002 10:55 schreef oZy het volgende:
dan moet je ff zoeken waar je "recordset.close" zegt en dat naar beneden zetten (onder regel 45 dus).

Je moet je recordset niet sluiten als je hem daarna nog gaat gebruiken.

ik heb nergens een recordset.close zitten alleen een connectionToDatabase.Close maar die staat helemaal beneden aan de pagina.

Hier is de pagina en de include file waarmee ik het wil gaan doen.
Zoek.asp

code:

<%
dim tabel1, kolom1, kolom2
tabel1 = voorstellingen
kolom1 = naam
frmInvoerA = request.form("invoerA")
frmInvoerB = request.form("invoerB")
frmInvoerC = request.form("invoerC")
frmInvoerD = request.form("invoerD")
frmInvoerE = request.form("invoerE")
frmInvoerF = request.form("invoerF")
frmInvoerG = request.form("invoerG")
frmInvoerH = request.form("invoerH")
frmInvoerI = request.form("invoerI")
frmInvoerJ = request.form("invoerJ")
frmInvoerK = request.form("invoerK")
frmInvoerL = request.form("invoerL")
frmSubmit = request.form("submit")

Set connectionToDatabase=Server.CreateObject("ADODB.Connection")
connectionToDatabase.ConnectionTimeout=60
connectionToDatabase.Open "DSN=test"
Set recordSet=Server.CreateObject("ADODB.Recordset")

If frmInvoerA = "" then
    response.write ("<form action='zoek.asp' method='post'>")
    response.write ("<table cellspacing='2' cellpadding='2' border='0' bgcolor='Gray'>")
    response.write ("<tr>")
    response.write ("<td colspan='7' bgcolor='Black'><font color='White'><b>Include test</b></td>")
    response.write ("</tr>")
    response.write ("<tr>")
    response.write ("<td colspan='7' align='center'><input type='text' name='InvoerA'></td>")
    response.write ("</tr>")
    response.write ("<td><input type='submit' name='submit' value='knop1'></td>")
    response.write ("</table>")
    response.write ("</form>")
else 
    <!-- #include file="dbmanager.inc"-->
    if recordSet.bof and recordset.eof then
          response.Write "Niet gevonden."
    else
        Response.Write("<center><table border=1><tr><th>Voorstelling</th><th>Datum</th><th>Tijd</th></tr>")
        response.Write("<tr>")
          response.Write("<td>" & recordSet("NAAM") & "</td>")
        Response.write("<TD>" & recordSet("Datum") & "</TD>")
        Response.write("<TD>" & recordSet("Tijd") & "</TD>")
        response.Write("</tr>")
        response.Write("</table></center>")
    end if
end if

connectionToDatabase.Close
Set connectionToDatabase=Nothing
%>

dbmanager.inc

code:

<%
if frmSubmit = "knop1" then
if frmInvoerA <> "" and frmInvoerB = "" then
zoekOpdracht = "SELECT * FROM tabel1 WHERE kolom1 = '" & frmInvoerA & "'"
Set recordset = connectionToDatabase.execute(zoekOpdracht)
elseif frmInvoerA <> "" and frmInvoerB <> "" then
zoekOpdracht = "SELECT * FROM tabel1 WHERE kolom1 = '" & frmInvoerA & "'"
Set recordset = connectionToDatabase.execute(zoekOpdracht)

if not recordSet.EOF then
if recordSet("wachtwoord") = frmInvoerB and recordSet("admin") = "true" then
session.content("admin") = "True"
session.content("ID_gebruiker") = recordSet("ID_gebruiker")
session.content("Gebruikersnaam") = recordSet("gebruikersnaam")
Response.redirect "sitemap.asp"
elseif recordSet("wachtwoord") = frmInvoerB and recordSet("admin") = "not true" then
session.content("admin") = "not true"
session.content("ID_gebruiker") = recordSet("ID_gebruiker")
session.content("Gebruikersnaam") = recordSet("gebruikersnaam")
Response.redirect "sitemap.asp"
else Response.write "Het inloggen is niet gelukt. Uw wachtwoord is niet juist"
 Response.write ("<br> Probeer het nogmaals. Klik <a href='login.asp'>Hier</a> om terug te gaan naar het inlogpagina")
end if
else Response.write "Uw gebruikersnaam klopt niet."
 Response.write ("<br> Probeer het nogmaals. Klik <a href='login.asp'>Hier</a> om terug te gaan naar het inlogpagina")
end if
end if
end if
%>

[raptorix]

Je begint irritant te worden, het is niet voor niets dat je topic gesloten wordt, als je daar niet mee eens bent moet je gaan klagen in LA, het zou misschien aardig zijn als je gewoon es bezig ging houden met hoe je een simpel antwoord zelf op zoekt in plaats van telkens topics te openen zonder maar enigzins te kijken of iemand anders misschien ook al die vraag gestelt heeft.

[dusty]

Slot deel 2.