<%@ LANGUAGE="VBSCRIPT"%>
<%
Dim sqlText
dim sqlChk
dim ConnString
dim objRec
dim tmp
dim tmpStat
dim bubba
dim cntr
cntr = 1
'Create and open the database object
Set objConn = Server.CreateObject("ADODB.Connection")
connstring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DataWeb.mdb")
objConn.Open connstring
set objRec = server.createobject ("ADODB.Recordset")
sqlText = "SELECT Links.link, Links.display, " & _
"Links.description " & _
"FROM Links"
objrec.open sqlText, objConn
if objrec.eof = false then
objrec.movefirst
do until objrec.eof = true
response.write "