[ASP] Gastenboek

[jvaneijk]

Ik ben bezig met het maken van een gasten boek in ASP het moet heel erg simpel blijven want ik ben nog maar een beginnende ASPer
Nu ben ik op de overizichtspagina wat aan het tonen maar dat doet het niet..

en wat het is zou ik niet weten hij toont het gewoon niet en krijg ook geen foutmelding.

dit is mijn code

connectie

code:

<%

    dim oCon
    set oCon = Server.CreateObject("ADODB.Connection")
    oCon.Provider="Microsoft.Jet.OLEDB.4.0"
    oCon.Open "c:/inetpub/wwwroot/databases/guestbook.mdb"

    sQry = "SELECT Naam, Email, Website, Bericht, Datum, Tijd " & _
            "FROM Tbl_Berichten" 
            
    set oRec = Server.CreateObject("ADODB.recordset")
    oRec.Open sQry, oCon
%>

naar buiten schrijven

code:

<table border="1" cellpadding="4" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#888888">
<%
    While not oRec.EOF%>
    <tr>
        <td vAlign="top" width="100"><b><%=oRec("Naam")%></b></td>
        <td vAlign="top" width="100%">
            <table cellSpacing="0" cellPadding="0" width="100%" border="0" style="border-collapse: collapse" bordercolor="#111111">
                <tr>
                    <td width="100%"><%=oRec("Bericht")%></td>
                </tr>
            </table>
        </td>
    </tr>
    <tr>
        <td vAlign="center" noWrap><%=oRec("Datum") & " - " & oRec("Tijd")%></td>
        <td vAlign="center" width="100%">
            <table cellSpacing="0" cellPadding="0" width="100%" border="0">
                <tr>
                    <td vAlign="top" align="left&nbsp</td>
                </tr>
            </table>
        </td>
    </tr>
    <%oRec.MoveNext%>
    <%WEnd%>
</table>

[ Voor 59% gewijzigd door jvaneijk op 10-06-2004 12:52 ]

[mulder]

Zitten er wel records in?

Of zit er misschien een error in als je de de HTML source bekijkt?

[ Voor 59% gewijzigd door mulder op 10-06-2004 12:52 ]

[NMe]

Welke foutmelding krijg je? Doet je query het in Access wel? Krijg je überhaupt wel records terug? Wees iets duidelijker a.u.b.

[jvaneijk]

Haha ja idd das een goede was ik even vergeten te zeggen die zitter er idd in maar toch bedankt.

[j_du_pee]

doen andere ASP pagina's het wel of werkt ASP geheel niet? in dat geval misschien een scriptblokker in je virusscanner?

[André]

De slashes moeten ook andersom:

code:

oCon.Open "c:\inetpub\wwwroot\databases\guestbook.mdb"

' Beter is nog:

oCon.Open server.mappath("guestbook.mdb")

En de database moet je niet in je gepubliceerde gedeelte zetten.

[ Voor 17% gewijzigd door André op 10-06-2004 12:55 ]

[jvaneijk]

NMe84 schreef op 10 juni 2004 @ 12:52:
Welke foutmelding krijg je? Doet je query het in Access wel? Krijg je überhaupt wel records terug? Wees iets duidelijker a.u.b.

Die doet het wel dat is ook niet het probleem

[jvaneijk]

j_du_pee schreef op 10 juni 2004 @ 12:53:
doen andere ASP pagina's het wel of werkt ASP geheel niet? in dat geval misschien een scriptblokker in je virusscanner?

Doet het gewoon

[krisis1]

dim oRec zal wel helpen

(edit: hangt er natuurlijk van af of je "option explicit" gebruikt... maar aangezien je oCon dim't lijkt het me logisch dat je dat voor die oRec ook doet... en sQry ondergaat dan hetzelfde lot)

[ Voor 91% gewijzigd door krisis1 op 10-06-2004 13:09 ]

[jvaneijk]

ja idd ik heb mijn option Explicit uit staan maar is wel zo netjes om hem te dimmen.
maar het maakt allemaal niets uit..
ik vind het vreemd dat hij het niet doet terwijl

code:

<table cellspacing="0" cellpadding="0" border="0" width="100%">
        <tr>
            <td>[img]"../images/dummy.gif"[/img]</td>
            <td width="100%">
                <table cellspacing="0" cellpadding="0" border="0" width="600">

                <%
                    While not oRec.EOF%>
                        <tr>
                            <td>&nbsp;</td>
                        <tr>
                            <td width="100%"><b><a href="mailto:<%=oRec("Email")%>"><%=oRec("Naam")%></a></b></td>
                        </tr>
                        <tr>
                            <td><%=oRec("Bericht")%>
                        </tr>
                        <tr>
                            <td><i><%=oRec("Datum") & " - " & oRec("Tijd")%></i></td>
                        </tr>
                        <tr>
                            <td><hr class="isGeel"></td>
                        </tr>
                    <%oRec.MoveNext%>
                    <%WEnd%>
                </table>
            </td>
        </tr>
    </table>

het wel gewoon doet

[TeeDee]

Krisis1 schreef op 10 juni 2004 @ 13:03:
dim oRec zal wel helpen
(edit: hangt er natuurlijk van af of je "option explicit" gebruikt... maar aangezien je oCon dim't lijkt het me logisch dat je dat voor die oRec ook doet)

Als hij option explicit gebruikt krijgt ie een foutmelding. Die krijgt TS niet.
Het mooie (hangt ervan af hoe ertegen aan kijkt ) van asp is dat je niet hoeft te "dimmen" als je geen option explicit gebruikt.

Kijk eens in de source van je html output.
Doe eens bijvoorbeeld in een nieuwe page:

ASP:

    dim oCon
    set oCon = Server.CreateObject("ADODB.Connection")
    oCon.Provider="Microsoft.Jet.OLEDB.4.0"
    oCon.Open "c:/inetpub/wwwroot/databases/guestbook.mdb"

    sQry = "SELECT Naam FROM Tbl_Berichten" 
            
    set oRec = Server.CreateObject("ADODB.recordset")
    oRec.Open sQry, oCon

    response.write oRec("naam")

Kijk of er dan iets op het scherm komt, zoja, dan werkt het gewoon allemaal. Zo niet, dan moet ik(wij) gaan nadenken

[4of9]

wat staat er in je source? (van de gegenereerde pagina?)

En in je eerste geposte stukkie code zou ik even goed naar je HTML source kijken want er staat en fout in....

(kan je later een hoop zoekwerk schelen...)

[jvaneijk]

Als ik naar de source kijk krijg ik alleen

code:

<html>
<head>
    <title></title>
    <link rel="stylesheet" type="text/css" href="../includes/css/style.css">
</head>
<body class="isMain">
<table border="1" cellpadding="4" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#888888">

</table>
                
<table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
        <td nowrap >De tijd is nu:&nbsp;14:15</td>
    </tr>
</table>
                
</body>
</html>

dit te zien..
en er zit naar mijns inzien geen fout in de HTML

[jvaneijk]

4of9 schreef op 10 juni 2004 @ 13:41:
wat staat er in je source? (van de gegenereerde pagina?)

En in je eerste geposte stukkie code zou ik even goed naar je HTML source kijken want er staat en fout in....

(kan je later een hoop zoekwerk schelen...)

Je bedoeld die TD die geen > heeft ja dat zie ik maar daat heb ik stukje tussen uit gehaald is in mijn code niet meer zo als het goed is

[TeeDee]

Ik neem aan dat in je geposte HTML op regel 8 de tabel met berichten e.d. komt te staan?

Kijk eens of je recordset EOF is?

Visual Basic .NET:

if oRec.EOF then
   response.write "LEEEEEEGGGGG!!!!"
end if

[jvaneijk]

als ik dit laat zien dan schrijft het idd LEEG naar buiten maar dat zou dus betekenen dat er niets in mijn oRec zit?

[TeeDee]

Juistem. Er komt niks in je recordset. Of er staat niks in je database.

[jvaneijk]

Mijn database staat wat in..

en ik sluit mijn rs ook nergens ofzo?

[gorgi_19]

Maak je uberhaupt wel connectie met de goede database?

[jvaneijk]

ja want er stond eerst een andere Table die deed het goed en nu heb ik de table geedit en nu lijkt het nergens meer op

Ik ben noob maar ik ben nog niet gek

[André]

En als je het zonder ADODB.recordset doet?:

ASP:

set conn = server.createobject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("guestbook.mdb")

set oRec = conn.execute("SELECT Naam FROM Tbl_Berichten")

response.write oRec("naam")

[jvaneijk]

dat doet het gewoon

[jvaneijk]

Maar als ik hem dus uitvoer lijkt het wel alsof hij niet mijn RS kan vullenwant die oRec.eof als hij daar nog niet aan voldoet schrijft hij dat deel naar buiten en zowel dan stopt hij maar hij stopt meteen terwijl er wel wat in de DB zit? RARA hoe zit dat

[bigbeng]

Ik check altijd op EOF en BOF, want als beide waar zijn is de recordset leeg.
Vervolgens doe ik een MoveFirst en daarna pas mn while lus.

Misschien dat dat helpt.

[NMe]

@bigbeng: die MoveFirst is geheel overbodig.
@TS: als het zonder recordset wel werkt, dan zit het probleem kennelijk in die recordset. Probeer eens te openen met dit:

Visual Basic .NET:

oRec.Open sQry, oCon, 1, 2, 1

edit:
Er is ook een edit knopje op GoT trouwens.

[ Voor 13% gewijzigd door NMe op 10-06-2004 15:09 ]

[jvaneijk]

NMe84 schreef op 10 juni 2004 @ 15:08:
@bigbeng: die MoveFirst is geheel overbodig.
@TS: als het zonder recordset wel werkt, dan zit het probleem kennelijk in die recordset. Probeer eens te openen met dit:

Visual Basic .NET:

oRec.Open sQry, oCon, 1, 2, 1

edit:
Er is ook een edit knopje op GoT trouwens.

Het is gee rechten kwestie ofzo hij doet het gewoon echt helemaal niet maja ik snap er geen snars van

[bigbeng]

@NME84: Maar als je het steevast gebruikt dan kun je bij meerdere keren dezelfde recordset doorlopen in elk geval niet fout gaan

[NMe]

bigbeng schreef op 10 juni 2004 @ 15:12:
@NME84: Maar als je het steevast gebruikt dan kun je bij meerdere keren dezelfde recordset doorlopen in elk geval niet fout gaan

offtopic:
Als je je loops goed opbouwt hoef je maar 1x door iedere RS te loopen. Maar ik begrijp je punt wel, het is wel good practice, liever een keer teveel dan een keer te weinig.