|
|
<%
'open the database connection
Dim objConn
Dim objRs
Dim strSQL
'Maak Connection object
Set objConn = Server.CreateObject("ADODB.Connection")
'Maak Recordset object
Set objRs = Server.CreateObject("ADODB.Recordset")
'Open database
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=http://www.dedreef.be/test.mdb;"
'Maak SQL statement
dim ksql
ksql="SELECT Tekst FROM tblGastenboek"
objRs.open ksql, objConn
do while not objRs.EOF
Response.write "" & objRs("Tekst") & ""
objRs.MOVENEXT
loop
objRs.Close
objConn.Close
%>
|