%@ Language = "VBScript"%> <% 'Declare all local variables dim conn dim rs dim strID dim strconn dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter 'set a local variable to my DSN-less connection String strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("feature.mdb") 'Create the Connection object set conn = server.createobject("adodb.connection") conn.open strconn 'Create the recordset object set rs = server.createobject("adodb.recordset") 'This statement opens the table so we can add a record notice the addnew 'The 2, 2 is how the table is opened there are many ways it can be opened rs.open "feature", conn, 2, 2 strID = Request("req") strCriteria = "ID='" & strID & "'" rs.find strCriteria %>
<%=rs("img")%>
|