Photo Search Detail

<% strID = Request.QueryString("id") If (strID = "") Then Response.Write "We've encountered an error. Please try another search." Else Dim Conn Dim picRS Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("\database\bhs_photo.mdb") Set picRS = Server.CreateObject("ADODB.Recordset") picRS.ActiveConnection = Conn picRS.Open "SELECT * " &_ "FROM tblMain " &_ "WHERE tblMain.ID = " & strID & ";" Response.Write "
" if NOT picRS.EOF AND NOT picRS.BOF then If isNull (picRS("imagefile")) Then Response.Write " No image available.
" & vbcrlf Else Response.Write "
" & vbcrlf &_ ""& vbcrlf &_ ""& vbcrlf &_ "
View full size image
"& vbcrlf &_ " Start new search
" End If Response.Write "
" Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
Image: " If isNull (picRS("imagefile")) Then Response.Write "N/A" else Response.Write picRS("imagefile") end if Response.Write "
Caption: " If isNull (picRS("caption")) Then Response.Write "N/A" else Response.Write picRS("caption") end if Response.Write "
Title: " If isNull (picRS("title")) Then Response.Write "N/A" else Response.Write picRS("title") end if Response.Write "
Description: " If isNull (picRS("descrip_")) Then Response.Write "N/A" else Response.Write picRS("descrip_") end if Response.Write "
Collection: " If isNull (picRS("collection")) Then Response.Write "N/A" else Response.Write picRS("collection") end if Response.Write "
Condition: " If isNull (picRS("condition")) Then Response.Write "N/A" else Response.Write picRS("condition") end if Response.Write "
Early Date: " If isNull (picRS("earlydate")) Then Response.Write "N/A" else Response.Write picRS("earlydate") end if Response.Write "
Size: " If isNull (picRS("printsize")) Then Response.Write "N/A" else Response.Write picRS("printsize") end if Response.Write "
Object Name: " If isNull (picRS("objname")) Then Response.Write "N/A" else Response.Write picRS("objname") end if Response.Write "
Photographer: " If isNull (picRS("phtgrapher")) Then Response.Write "N/A" else Response.Write picRS("phtgrapher") end if Response.Write "
People: " If isNull (picRS("people_")) Then Response.Write "N/A" else Response.Write picRS("people_") end if Response.Write "
Search Terms: " If isNull (picRS("sterms_")) Then Response.Write "N/A" else Response.Write picRS("sterms_") end if Response.Write "
Subjects: " If isNull (picRS("subjects_")) Then Response.Write "N/A" else Response.Write picRS("subjects_") end if Response.Write "
" else Response.Write "No photo found. Please try again." end if Response.Write "
" Response.Write "
" Set picRS = Nothing Conn.Close Set Conn = Nothing End If %>