<%
Dim MyConn, RS, i
accessdb="data/database.mdb"
myDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
myDSN=myDSN & "DBQ=" & server.mappath(accessdb)
dim conntemp, rstemp
set conntemp=server.createobject("ADODB.connection")
conntemp.open myDSN
mySQL1 = "Select * From News order By theDate DESC"
set rstemp=conntemp.execute(mySQL1)
if rstemp.eof then
call show_error()
else
howmanyfields=rstemp.fields.count -1%>
ePodiatry
