ASP: lezen uit de database

In vorig hoofdstuk hebben we leren schrijven naar de database. Als we willen de gegevens bekijken kunnen we nu de Access database downloaden of de mySQL database on-line bekijken via een phpMyAdmin paneel. In sommige gevallen wil men ook de gegevens op een webpagina zien. Denk maar aan een gastenboekje waar je commentaar kunt zien van anderen. Wij gaan een pagina maken waar de boekingen worden getoond van ons pension 't Schoon Zicht.

Dim connStr Dim rs Set connStr = Server.CreateObject("ADODB.Connection") sConnection = "DBQ=" &_ Server.Mappath("databases\schoonzicht.mdb") &_ ";Driver={Microsoft Access Driver (*.mdb)};" connStr.open(Sconnection) Set rs = Server.CreateObject("ADODB.Recordset") sql="SELECT boekingstabel.* FROM boekingstabel ORDER BY boekingstabel.boekingsnummer;" rs.Open sql, connStr, 1, 1 If NOT rs.EOF then Do while NOT rs.EOF Response.Write "naam: " & rs("naam") & " " Response.Write "adres: " & rs("adres") & " " Response.Write "gemeente " & rs("gemeente") & " " Response.Write "e-mail: " & rs("email") & " " Response.Write "Rubens: " & rs("rubens") & " " Response.Write "Vaneyck: " & rs("vaneyck") & " " Response.Write "datum: " & rs("datum") & " " Response.Write "personen: " & rs("personen") & " " Response.Write "nachten: " & rs("nachten") & " " Response.Write "betalingswijze: " & rs("betalingswijze") & " " Response.Write "opmerking: " & rs("opmerking") & " " rs.MoveNext Loop End if rs.Close Set rs = Nothing connStr.Close set connStr = Nothing

We zien dat de connectie string weer dezelfde is. De recordset rs wordt geopend met "1'1". Dit wijst op enkel lezen. Met response.write worden de respectievelijke velden uit de database geschreven. Telkens met een ertussen om van lijn te veranderen. Merk het lusje op Do While en Loop met daartussen een rs.movenext om de lus te doorlopen. Zo wordt de totale database doorzocht. Voor de lus wordt nog met een If NOT rs.EOFt hen ..End If, gekeken of de database niet leeg is. Als er namelijk nog geen gegevens aanwezig zouden zijn, zou de lus een fout veroorzaken. Hieronder vind je één gedeelte uit de lijst:

Deze voorstellingswijze is niet echt professioneel. Kunnen we dit niet mooi in een tabelletje weergeven? Daarvoor gaan we HTML en ASP combineren. We kijken eens hoe een tabel is opgebouwd in HTML.

Onderstaand tabelletje veroorzaakt de bijhorende HTML code:

naam	ik
adres	markt
gemeente	Lokeren

Nu komt het er op neer om de ASP tussen de HTML aan te brengen.

De letters worden (op de juiste plaats) vervangen door <%=rs("veldnaam")%>. Vergeet ook het = teken niet! Bovenstaande code geeft bijvoorbeeld dit resultaat:

Aan u om dit nog te verfijnen...

In plaats van de ASP code tussen de HTML te zetten kan men ook de HTML tussen de ASP zetten:

Tussen aanhalingstekens kan zowel tekst (gemeente) als HTML() gebracht worden. Let op dat er geen verkeerd gebruik van dubbele aanhalingstekens plaatsgrijpt. Men moet zoals bij de '99' enkele aanhalingstekens gebruiken. Een ampersand (&) wordt gebruikt om de tekstgedeelten aan elkaar te hangen. Deze laatste methode is professioneler en sneller voor de server maar moeilijk voor een beginner...

Ten slotte: de ASP code is nooit leesbaar in de broncode. Wat de gebruiker krijgt is HTML. Je ziet dat rs("gemeente") door de server mooi door Erps Kwerps werd vervangen.

Stel dat we willen een prijs berekenen van de boekingen die gebeurd zijn. De persoon die de boeking gedaan heeft, zal waarschijnlijk door Javascript op de hoogte gebracht zijn van de prijs (zie vroeger). Wij moeten echter de prijs weer zelf gaan uitrekenen aan de hand van de gegevens uit de database.

Ter info: De Rubens kamer = 60 € / nacht, de Van Eyck kamer = 50 € / nacht

We moeten dus kijken welke kamers werden gereserveerd en voor hoeveel nachten.

Beide kamers werden gereserveerd: 60 + 50 =110 € voor drie nachten = 330 €

In een vervolg op deze cursus gaan we dieper in op programmeren in ASP en SQL. Dolle pret.