|
<%
Dim i
DIM RS
set Conn = server.createobject("adodb.connection")
strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/data/piba_mem.mdb")
Conn.open strConn
SQLstmt = "SELECT members.member, members.member_type, members.website FROM members ORDER BY members.id DESC;"
Set RS = conn.execute(SQLstmt)
If err.number>0 then
response.write "VBScript Errors Occured:" & " "
response.write "Error Number=" & err.number & " "
response.write "Error Descr.=" & err.description & " "
response.write "Help Context=" & err.helpcontext & " "
response.write "Help Path=" & err.helppath & " "
response.write "Native Error=" & err.nativeerror & " "
response.write "Source=" & err.source & " "
response.write "SQLState=" & err.sqlstate & " "
end if
IF conn.errors.count> 0 then
response.write "Database Errors Occured" & " "
response.write SQLstmt & " "
for counter= 0 to conn.errors.count
response.write "Error #" & conn.errors(counter).number & " "
response.write "Error desc. -> " & conn.errors(counter).description & " "
next
else
For i = 0 To 5
Response.Write(" ")
Response.Write RS(0)
Response.Write(" - ")
Response.Write RS(1)
Response.Write ("
")
Response.Write RS(2)
Response.Write ("")
RS.MoveNext
Next
end if
%>
|
