För databaer använder vi ADO (Active data Objects). ADO kan hanteras på
många olika sätt. I dessa sidor presenteras en liten del av ADO. Så mycket att
vi klarar oss. Det antas att ni kan grunderna i SQL för att hantera data
Oftast gör man på detta sätt:
Först skapar vi en fil med namnet connection.asp som skall innehålla följande (OBS! En enda rad) 
<div class=code>
<% 
Const strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\databaser\aspkurs.mdb; DriverId=25; FIL=MS Access; MaxBufferSize=8192; MaxScanRows=8; PageTimeout=5; SafeTransactions=0; Threads=100;" 
%>
</div>

Allt med kursiv och grön stil kan bortlämnas om man snabbt vill testa och är nöjd med default värdena (som inte alltid är så lyckade)

Denna fil kan modifieras vid behov<ol>
<li>Ändra databasnamnet och katalogen enligt behov 
<li>Har du mindre än 64 MB ram så minska MaxBufferSize från 8192 till 4096 
<li>Räknar du med låg belastning kan Threads minskas
</ol>
(Inställningarna tagna från tester med det ökända VapVal systemet = tål hög momentan belasting. Egentligen vet jag väl inte vad allt betyder, men skit samma, det fungerar!)

Man kan då skriva följande kod:
<div class=code>
 
<% 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open strConn 
Set RS = Conn.Execute("SELECT * FROM EXEMPELDATA") 
 
Do While Not RS.EOF %> 
 
 <% =RS("aTEXT") %> 
 
 <% RS.MoveNext 
Loop 
 
RS.Close 
Conn.Close 
%></div>

Förklaring till ovanstående program:<hr>
<dl>
<dt>Set Conn = Server.CreateObject("ADODB.Connection")
<dd>Skapar ett objekt för databasens hantering. Detta betyder att vi efter detta kan använda
oss av Conn.metod eller egenskap för hanteringen av databasen
<dt>Conn.Open strConn
<dd>Vi säger att Conn objektet skall använda sig av databasen enligt de inställningar som finns i variabeln strConn 
<dt>Set RS = Conn.Execute("SELECT * FROM EXEMPELDATA")
<dd>Vi säger vilken tabell vi vill ha med hjälp av en vanlig SQL SELECT sats.
<dt>Do While Not RS.EOF 
<dd>Upprepa så länge vi har en post (EOF = End Of File)
<dt><% =RS("NAMN") %> 
<dd>Vi sätter in det värde som fältet NAMN har i nuvarande post. Efter detta byter vi rad.
<dt>RS.MoveNext
<dd>Vi flyttar till nästa post (rad)
<dt>Loop
<dd>Vi upprepar ovastående så länge som vi inte har kommit till slutet av tabellen
<dt>RS.Close
<dd>När vi är färdiga så stänger vi vårt recordset
<dt>Conn.Close
<dd>Och avbryter kontakten till databasen
</dl>

<dl>De centrala begreppen är således:<hr>
<dt>Connection
<dd>Upprätthåller kontakten till en databas. Kan jämföras med en Data kontroll i VB
<dt>Recordset
<dd>Upprätthåller kontakten till en tabell. Kan jämföras med en Data kontrollens Recordset property i VB.
</dl>
Resultatet av ovanstående program blir: 
<div class=res>
<% startTime = now %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn

Set RS = Conn.Execute("SELECT * FROM EXEMPELDATA")
%>
<% Do While Not RS.EOF %>
 <% =RS("aTEXT") %> 
 <% RS.MoveNext
Loop

RS.Close
Conn.Close
%>

<% ="Tid i sekunder att utföra koden: " & DateDiff("s", startTime, now) %>
</div>