% dim conn,connstr on error resume next connstr="DBQ="+server.mappath("guestbook/gb/gbook.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" Set conn=Server.CreateObject("ADODB.CONNECTION") conn.open connstr %> <% dim totalPut dim rstart dim category dim CurrentPage dim TotalPages dim i dim categoryid set myself=request.servervaribles("path_info") %>
![]() |
||
![]() |
![]() |
|