|
|
MNS CLIENTS
|
Medical Network
Services, Inc.
Located in the
Beautiful Texas Hill Country
<%
Dim Myconn, RS, SQL_query, MdbFilePath, recID
Set Myconn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.RecordSet")
MdbFilePath = Server.MapPath("app/fpdb/mednetser.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM tblClient order by fldID"
Set RS = MyConn.Execute(SQL_query)
'name = DBOUT(RS("fldName"))
'desc = DBOUT(RS("fldDesc"))
if RS.eof then
response.write ""
response.write "| "
response.write "No records found in the database"
response.write " | "
response.write " "
else
while not RS.eof
response.write ""
response.write "| "
response.write " "
response.write DBOUT(RS("fldName"))
response.write " | "
response.write " "
response.write ""
response.write "| "
response.write " "
response.write DBOUT(RS("fldDesc"))
response.write " | "
response.write " "
response.write ""
response.write "| "
response.write " | "
RS.movenext
Wend
end if
set RS = nothing
set Myconn = nothing
%>
|
|