<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Untitled Document <% Const adOpenStatic = 3 Const adOpenDynamic=2 Const adLockOptimistic = 3 Const adUseClient = 3 Dim cnn 'A variable that references the connection 'object Dim rs Dim str, DBConnect 'A variable that references the connection 'string Dim SQLstring, strSQL Dim displayOrder, image, thumb, title, designer, story, credits, imageID, photographer Dim picture Dim lngRecsAffected, iRecordID Dim SCRIPT_NAME SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME") Dim BACK_TO_LIST_TEXT BACK_TO_LIST_TEXT = "

Click " _ & "here to go back to record list.

" DBConnect = "Driver={MySQL ODBC 3.51 Driver}; Server= localhost; Database=datacollector; User Id=root; Password=s@monbay;" Set cnn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cnn.ConnectionString = DBConnect cnn.open() imageID = Request.QueryString("pic") If IsNumeric(imageID) Then imageID = CLng(imageID) Else imageID = 0 End If SQLstring = "SELECT id, thumb, title, image, designer, story, credits, photographer FROM archive WHERE id = " & imageID & ";" rs.Open SQLstring, cnn %>
 
<%= rs.Fields("title").value %>
" />
Phototgraph by <%= rs.Fields("photographer").value %>
<%= rs.Fields("designer").value %>
<%= rs.Fields("story").value %>
 
 
      
<%= rs.Fields("credits").value %>