Verbinding maken met de database
<%
On Error Resume Next ‘ASP kent geen foutafhandeling zoals Visual Basic
Dim adoCon ‘het object dat de verbinding maakt
Dim strCon ‘de string met de verbindingsinstellingen
strCon = “driver={Microsoft Access Driver (*.mdb)};dbq=MijnPadNaarMijnDatabase;uid=;pwd=”
‘MijnPadNaarMijnDatabase moet worden vervangen door jouw pad naar jouw database.
‘Het pad moet door de webserver gevonden worden; het mag geen url zijn.
‘Vergeet niet dat je ook de naam van de database moet ingeven.
‘Ga er even van uit dat er geen gebruikersbeveiliging is ingesteld in de database,
‘zodat uid (User Identification) en pwd (Password) leeg gelaten worden.
Set adoCon = Server.CreateObject(“ADODB.Connection”)
If adoCon Is Nothing Then
‘Er is geen verbindingsobject, vertel de gebruiker dat er geen data beschikbaar is:
Response.Write(“<p>Er kon geen verbinding worden gemaakt met de database.</p>”)
Response.Write(“<p>Neem in geval van herhaling contact op met de webmaster.</p>”)
Else
adoCon.Open (strCon)
If Err.Number = 0 Then
‘Geen fouten: de verbinding is gelukt.
‘De variabele adoCon is beschikbaar in de hele webpagina.
Else
‘Fouten gemaakt bij het openen van de databaseverbinding.
Response.Write(“<p>Er zijn fouten gemaakt tijdens het maken van de verbinding met de database.</p>”)
Response.Write(“<p>Neem in geval van herhaling contact op met de webmaster.</p>”)
End If
End If
%>