<%@ Language=VBScript %> <% Dim rs dim kount dim strq dim strpict dim strRootPath strRootpath = left(server.MapPath("home.htm"),len(server.MapPath("home.htm"))-8) set conn=Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.recordset") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open strrootpath & "db\GrammarWeb.mdb" 'strq = "SELECT DISTINCT PhotoKeys.ID, PhotoKeys.[ATL Ref], [Year] & ' ' & [Theme] & ' ' & [detail] AS Description " 'strq = strq & " FROM PhotoKeys INNER JOIN PhotoNames ON PhotoKeys.[New Ref] = PhotoNames.Ref" 'strq = "SELECT DISTINCT photono,name, [Year] & ' ' & [section] & ' ' & [title] AS Description from photos" strq = "SELECT DISTINCT photos.PhotoNo, photos.photoName , [Year] & ' ' & [category] & ' ' & [header] AS Description " strq = strq & " FROM photos INNER JOIN [PhotoNames] ON photos.PhotoNo = [PhotoNames].Photo" if request("tag") = 1 then strq = strq & " where category <> 'zzzzz' " else strq = strq & " where category = 'zzzzz' " end if if Request("yrFrom")<> "" then strq = strq & " and year between " & Request("yrFrom") & " and " & Request("yrTo") end if if Request("selSection")<> "All" then strq = strq & " and category = '" & request("selsection") & "'" end if if Request("fldName")<> "" then strq = strq & " and surname = '" & request("fldname") & "'" end if rs.open strq ,conn %> Untitled Document
Wigan Grammar School
Photograph Search
   
 
<% if not rs.eof then %> <%rs.movefirst do while not rs.eof%> <%strPict = "dataImages/" & rs("photoname") & "_small.jpg" %> <%rs.movenext loop%> <%end if%>
" target="new">

<%= rs("description")%>

[ " target="new" >View

Photo Search
Section

Year From

Year To

Name