Utskrift fra en database ved hjelp av ODBC

<%@Language="VBScript"%>

<%
Session.LCID=1033
Function fradatabase()
Set connPubs = Server.CreateObject("ADODB.Connection")
'Under skal du skrive inn navnet på ODBC-koblinga'
connPubs.Open "DSN=access;"
'Her skriver du spørringa di'
SQLstr = "Select * from person"
'Utskrift i en tabell'
Response.write"<table border='1' width='100 %' cellspacing='0'
cellpadding='0'><tr><td>"
Set rsLogo = connPubs.Execute(SQLstr)
while not rsLogo.Eof
Response.Write "<tr><td>" & rsLogo("fornavn") &"</td>"
Response.Write "<td>" & rsLogo("etternavn") &"</td></tr>"
Response.Write "<td>" & rsLogo("alder") &"</td></tr>"

RsLogo.MoveNext
Wend
Response.Write "</table>"
End function

'Vi kaller opp databasen vår på denne måten:'
fradatabase() 
%>

Skrevet av Sindre Mathisen 2000