Ophalen van de gegevens
<%
On Error Resume Next ‘ASP kent geen foutafhandeling zoals Visual Basic
Dim lngArtNr ‘Het gekozen artikelnummer (dat niet altijd gebruikt wordt).
Dim strSQL ‘de sql-opdracht die je nodig hebt om de gegevens te selecteren.
Dim adoRst ‘het object dat de gegevens gaat vasthouden.
Dim blnGegevens ‘Vertelt of er wel of geen gegevens zijn.
‘Voordat er iets anders gebeurt stel je in dat er standaard geen gegevens zijn.
‘De procedure die zometeen volgt kan dit gegeven wijzigen.
blnGegevens = False
‘Moeten controleren of er een artikel is gekozen.
‘De artikelindex die zometeen opgebouwd wordt, roept deze pagina opnieuw aan,
‘en geeft een artikelnummer aan de querystring (zichtbaar in de adresbalk) mee.
‘Die querystring wordt nu uitgelezen.
lngArtNr = (-1) ‘waarde ingeven die niet mogelijk is voor de autoteller-reeks
lngArtNr = CLng(Request.QueryString(“nr”))
‘De querystring moet omgezet worden naar een lange integer
If lngArtNr > (-1) Then ‘dan heeft de bezoeker een artikel gekozen
‘Het op te halen gegeven is het gekozen artikel
strSQL = “SELECT * FROM tblArtikel WHERE AIndex = ” & lngArtNr
Else ‘dan heeft de bezoeker geen (of een ongeldig) artikel gekozen
‘Het op te halen gegeven is de artikelindex
‘De sortering is volstrekt willekeurig gekozen. Als het een nieuwspagina moet zijn,
‘wil je waarschijnlijk een sortering op datum.
‘Je kunt ook de bezoeker een sorteermethode op laten geven.
strSQL = “SELECT AIndex, ATitel, AAuteur, ADatum, ACategorie FROM tblArtikel ORDER BY ADatum”
End If
Set adoRst = Server.CreateObject(“ADODB.Recordset”)
If adoRst Is Nothing Then
‘Er is geen gegevensobject, vertel de gebruiker dat er geen data beschikbaar is:
Response.Write(“<p>Er kon geen gegevensobject worden gemaakt.</p>”)
Response.Write(“<p>Neem in geval van herhaling contact op met de webmaster.</p>”)
Else
‘Open het gegevensobject en vul het met gegevens
‘standaard = RecordSet.Open Source, ActiveConnection, CursorType, LockType, Options
‘CursorType(1) = Static (default = 0 = ForwardOnly)
‘Options(1) = (Source = Text) (default = 8 = (Source = Unknown))
adoRst.Open strSQL, adoCon, 0, 1
‘controleer of er gegevens in het object zitten
If (adoRst.BOF = False) Or (adoRst.EOF = False) Then ‘Er zijn gegevens
‘Vaststellen dat er gegevens zijn:
blnGegevens = True
Else ‘Er zijn geen gegevens
blnGegevens = False
Response.Write(“<p>Er zijn geen gegevens gevonden.</p>”)
Response.Write(“<p>Neem in geval van herhaling contact op met de webmaster.</p>”)
End If
End If
%>