banner
 
 

   


<% '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 %>

 

© 2006