<% Dim filePath Dim oConn Dim oRs Dim wholeSet Dim threadList Dim linkList Dim imagenumber Dim imagenumberStr Dim description Dim plainNumber Dim prevNum Dim prevPage Dim nextNum Dim nextPage ' Get the imagenumber from the URL Set imagenumber = Request.QueryString("number") ' Map graphpaper database to physical path filePath = Server.MapPath("graphpaper.mdb") ' Create ADO Connection Component to connect with database Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath ' Execute a SQL query and store the results within recordset Set oRs = oConn.Execute("SELECT * FROM Images WHERE NumberString='" & imagenumber & "'") ' Extract this image's info from the recordset Set description = oRs("Description") Set imagenumberStr = oRs("NumberString") Set plainNumber = oRs("Number") Set imageTitle = oRs("Title") %> <% ' Previous and Next %> <% ' Separate 126a from other numbers %> <% If imagenumber="126" or imagenumber="126a" or imagenumber="127" Then %> <% ' 126a If imagenumber="126" Then prevNum="125" nextNum="126a" End If If imagenumber="126a" Then prevNum="126" nextNum="127" End If If imagenumber="127" Then prevNum="126a" nextNum="128" End If%> <% Else %> <% ' Previous If imagenumber="000" Then prevNum=138 End If If imagenumber>"000" Then prevNum= imagenumberStr-1 End If ' Fix Numbers If prevNum<10 and prevNum=>0 and plainNumber>"000" then prevNum="00"&prevNum End If If prevNum<100 and prevNum>9 then prevNum="0"&prevNum End If If prevNum=0 then prevNum="000" End If%> <% ' Next If imagenumber>"000" Then nextNum= imagenumberStr+1 End If If imagenumber="000" Then nextNum="001" End If ' Fix Numbers If nextNum<10 and nextNum=>0 and plainNumber>"000" then nextNum="00"&nextNum End If If nextNum<100 and nextNum>9 then nextNum="0"&nextNum End If If nextNum=139 then nextNum="000" End If%> <% End If%>

view image detail

<%= imagenumberStr %>

<% ' Looping Through all the threads belonging to THIS PAGE, one thread at a time %> <% oRs.MoveFirst %> <% Do while (Not oRs.eof) %> <% For threadList=4 to (oRs.fields.count-1)%> <% If oRs(threadList) <> "" Then %> <% curThread=oRs(threadList) %> <% If threadList<>4 Then %> <% End If %> <% ' This QUERY will build a collection containing all the other page records in which any of the thread fields contain the current thread %> <% Set wholeSet = oConn.Execute("SELECT * FROM Images WHERE (Thread1='" & curThread & "') or (Thread2='" & curThread & "') or (Thread3='" & curThread & "') or (Thread4='" & curThread & "')") %> <% ' Step through that set of relevant records from the beginning to find the next one %> <% nextInThread = "000" %> <% Do while (Not wholeSet.eof) %> <% ' Stop when we get to a record that is greater than the current image number %> <% tempNumber = wholeSet("Number")%> <% tempInteger = CInt(tempNumber) %> <% plainNumber = CInt(plainNumber) %> <% If tempInteger>plainNumber Then %> <% nextInThread = wholeSet("NumberString") %> <% Exit Do %> <% End If %> <% wholeSet.MoveNext %> <% Loop %> <% ' If we don't have a record at this point, then that means the next matching record is near the beginning of the list %> <% If nextInThread="000" Then %> <% wholeSet.MoveFirst %> <% nextInThread = wholeSet("NumberString") %> <% End If %> <% ' NOW PRINT THE LINK %> <% = curThread %> <% ' Go back and find another link %> <% End If %> <% Next %> <% oRs.MoveNext %> <% Loop %>

<% oRs.MoveFirst %>

<% = imageTitle %>

<% = description %>

<% If len(description) > 245 Then %>

<% End If %> <% oRs.close oConn.close %>