<% Session.Timeout = 120 %> <% Server.ScriptTimeout = 120 %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% displayRecs = 20 recRange = 10 %> <% dbwhere = "" masterdetailwhere = "" searchwhere = "" a_search = "" b_search = "" whereClause = "" %> <% ' Get search criteria for advance search x_Plaats = Request.QueryString("x_Plaats") z_Plaats = Request.QueryString("z_Plaats") arrfieldopr = Split(z_Plaats,",") If x_Plaats <> "" Then x_Plaats = Replace(x_Plaats,"'","''") x_Plaats = Replace(x_Plaats,"[","[[]") a_search = a_search & "[Plaats] " 'add field a_search = a_search & arrfieldopr(0) & " " ' add operator If Ubound(arrfieldopr) >= 1 Then a_search = a_search & arrfieldopr(1) 'add search prefix End If a_search = a_search & x_Plaats 'add input parameter If Ubound(arrfieldopr) >=2 Then a_search = a_search & arrfieldopr(2) 'add search suffix End If a_search = a_search & " AND " End If x_Omschrijving = Request.QueryString("x_Omschrijving") z_Omschrijving = Request.QueryString("z_Omschrijving") arrfieldopr = Split(z_Omschrijving,",") If x_Omschrijving <> "" Then x_Omschrijving = Replace(x_Omschrijving,"'","''") x_Omschrijving = Replace(x_Omschrijving,"[","[[]") a_search = a_search & "[Omschrijving] " 'add field a_search = a_search & arrfieldopr(0) & " " ' add operator If Ubound(arrfieldopr) >= 1 Then a_search = a_search & arrfieldopr(1) 'add search prefix End If a_search = a_search & x_Omschrijving 'add input parameter If Ubound(arrfieldopr) >=2 Then a_search = a_search & arrfieldopr(2) 'add search suffix End If a_search = a_search & " AND " End If x_Opmerkingen = Request.QueryString("x_Opmerkingen") z_Opmerkingen = Request.QueryString("z_Opmerkingen") arrfieldopr = Split(z_Opmerkingen,",") If x_Opmerkingen <> "" Then x_Opmerkingen = Replace(x_Opmerkingen,"'","''") x_Opmerkingen = Replace(x_Opmerkingen,"[","[[]") a_search = a_search & "[Opmerkingen] " 'add field a_search = a_search & arrfieldopr(0) & " " ' add operator If Ubound(arrfieldopr) >= 1 Then a_search = a_search & arrfieldopr(1) 'add search prefix End If a_search = a_search & x_Opmerkingen 'add input parameter If Ubound(arrfieldopr) >=2 Then a_search = a_search & arrfieldopr(2) 'add search suffix End If a_search = a_search & " AND " End If x_Jaar = Request.QueryString("x_Jaar") z_Jaar = Request.QueryString("z_Jaar") arrfieldopr = Split(z_Jaar,",") If x_Jaar <> "" Then x_Jaar = Replace(x_Jaar,"'","''") x_Jaar = Replace(x_Jaar,"[","[[]") a_search = a_search & "[Jaar] " 'add field a_search = a_search & arrfieldopr(0) & " " ' add operator If Ubound(arrfieldopr) >= 1 Then a_search = a_search & arrfieldopr(1) 'add search prefix End If a_search = a_search & x_Jaar 'add input parameter If Ubound(arrfieldopr) >=2 Then a_search = a_search & arrfieldopr(2) 'add search suffix End If a_search = a_search & " AND " End If x_REGIO_code = Request.QueryString("x_REGIO_code") z_REGIO_code = Request.QueryString("z_REGIO_code") arrfieldopr = Split(z_REGIO_code,",") If x_REGIO_code <> "" Then x_REGIO_code = Replace(x_REGIO_code,"'","''") x_REGIO_code = Replace(x_REGIO_code,"[","[[]") a_search = a_search & "[REGIO_code] " 'add field a_search = a_search & arrfieldopr(0) & " " ' add operator If Ubound(arrfieldopr) >= 1 Then a_search = a_search & arrfieldopr(1) 'add search prefix End If a_search = a_search & x_REGIO_code 'add input parameter If Ubound(arrfieldopr) >=2 Then a_search = a_search & arrfieldopr(2) 'add search suffix End If a_search = a_search & " AND " End If x_Bron = Request.QueryString("x_Bron") z_Bron = Request.QueryString("z_Bron") arrfieldopr = Split(z_Bron,",") If x_Bron <> "" Then x_Bron = Replace(x_Bron,"'","''") x_Bron = Replace(x_Bron,"[","[[]") a_search = a_search & "[Bron] " 'add field a_search = a_search & arrfieldopr(0) & " " ' add operator If Ubound(arrfieldopr) >= 1 Then a_search = a_search & arrfieldopr(1) 'add search prefix End If a_search = a_search & x_Bron 'add input parameter If Ubound(arrfieldopr) >=2 Then a_search = a_search & arrfieldopr(2) 'add search suffix End If a_search = a_search & " AND " End If x_cdrom = Request.QueryString("x_cdrom") z_cdrom = Request.QueryString("z_cdrom") arrfieldopr = Split(z_cdrom,",") If x_cdrom <> "" Then x_cdrom = Replace(x_cdrom,"'","''") x_cdrom = Replace(x_cdrom,"[","[[]") a_search = a_search & "[cdrom] " 'add field a_search = a_search & arrfieldopr(0) & " " ' add operator If Ubound(arrfieldopr) >= 1 Then a_search = a_search & arrfieldopr(1) 'add search prefix End If a_search = a_search & x_cdrom 'add input parameter If Ubound(arrfieldopr) >=2 Then a_search = a_search & arrfieldopr(2) 'add search suffix End If a_search = a_search & " AND " End If If Len(a_search) > 4 Then a_search = Mid(a_search,1,Len(a_search)-4) End If %> <% ' Get search criteria for basic search pSearch = Request.QueryString("psearch") pSearchType = Request.QueryString("psearchType") If pSearch <> "" Then pSearch = Replace(pSearch,"'","''") pSearch = Replace(pSearch,"[","[[]") If pSearchType <> "" Then While InStr(pSearch, " ") > 0 pSearch = Replace(pSearch, " ", " ") Wend arpSearch = Split(Trim(pSearch), " ") For Each kw In arpSearch b_search = b_search & "(" b_search = b_search & "[URL] LIKE '%" & Trim(kw) & "%' OR " b_search = b_search & "[Plaats] LIKE '%" & Trim(kw) & "%' OR " b_search = b_search & "[Omschrijving] LIKE '%" & Trim(kw) & "%' OR " b_search = b_search & "[Jaar] LIKE '%" & Trim(kw) & "%' OR " b_search = b_search & "[REGIO_code] LIKE '%" & Trim(kw) & "%' OR " b_search = b_search & "[cdrom] LIKE '%" & Trim(kw) & "%' OR " b_search = b_search & "[tekst] LIKE '%" & Trim(kw) & "%' OR " b_search = b_search & "[Opmerkingen] LIKE '%" & Trim(kw) & "%' OR " b_search = b_search & "[Naam_bestand] LIKE '%" & Trim(kw) & "%' OR " If Right(b_search, 4)=" OR " Then b_search = Left(b_search, Len(b_search)-4) b_search = b_search & ") " & pSearchType & " " Next Else b_search = b_search & "[URL] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Plaats] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Omschrijving] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Jaar] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[REGIO_code] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[cdrom] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[tekst] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Opmerkingen] LIKE '%" & pSearch & "%' OR " b_search = b_search & "[Naam_bestand] LIKE '%" & pSearch & "%' OR " End If End If If Right(b_search, 4)=" OR " Then b_search = Left(b_search, Len(b_search)-4) If Right(b_search, 5)=" AND " Then b_search = Left(b_search, Len(b_search)-5) %> <% 'Build search criteria If a_search <> "" Then searchwhere = a_search 'advance search ElseIf b_search <> "" Then searchwhere = b_search 'basic search End If 'Save search criteria If searchwhere <> "" Then Session("OZfoto2Dasp_searchwhere") = searchwhere 'reset start record counter (new search) startRec = 1 Session("OZfoto2Dasp_REC") = startRec Else searchwhere = Session("OZfoto2Dasp_searchwhere") End If %> <% 'Get clear search cmd If Request.QueryString("cmd").Count > 0 Then cmd = Request.QueryString("cmd") If UCase(cmd) = "RESET" Then 'reset search criteria searchwhere = "" Session("OZfoto2Dasp_searchwhere") =searchwhere ElseIf UCase(cmd) = "RESETALL" Then 'reset search criteria searchwhere = "" Session("OZfoto2Dasp_searchwhere") =searchwhere End If 'reset start record counter (reset command) startRec = 1 Session("OZfoto2Dasp_REC") = startRec End If 'construct dbwhere If masterdetailwhere <> "" Then dbwhere = dbwhere & "(" & masterdetailwhere & ") AND " End If If searchwhere <> "" Then dbwhere = dbwhere & "(" & searchwhere & ") AND " End If If Len(dbwhere) > 5 Then dbwhere = Mid(dbwhere, 1, Len(dbwhere)-5) 'trim right most AND End If %> <% ' Load Default Order DefaultOrder = "" DefaultOrderType = "" 'No Default Filter DefaultFilter = "" ' Check for an Order parameter OrderBy = "" If Request.QueryString("order").Count > 0 Then OrderBy = Request.QueryString("order") ' Check If an ASC/DESC toggle is required If Session("OZfoto2Dasp_OB") = OrderBy Then If Session("OZfoto2Dasp_OT") = "ASC" Then Session("OZfoto2Dasp_OT") = "DESC" Else Session("OZfoto2Dasp_OT") = "ASC" End if Else Session("OZfoto2Dasp_OT") = "ASC" End If Session("OZfoto2Dasp_OB") = OrderBy Session("OZfoto2Dasp_REC") = 1 Else OrderBy = Session("OZfoto2Dasp_OB") If OrderBy = "" Then OrderBy = DefaultOrder Session("OZfoto2Dasp_OB") = OrderBy Session("OZfoto2Dasp_OT") = DefaultOrderType End If End If ' Open Connection to the database Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str ' Build SQL strsql = "SELECT * FROM [BUITEN-FOTOS]" If DefaultFilter <> "" Then whereClause = whereClause & "(" & DefaultFilter & ") AND " End If If dbwhere <> "" Then whereClause = whereClause & "(" & dbwhere & ") AND " End If If Right(whereClause, 5)=" AND " Then whereClause = Left(whereClause, Len(whereClause)-5) If whereClause <> "" Then strsql = strsql & " WHERE " & whereClause End If If OrderBy <> "" Then strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("OZfoto2Dasp_OT") End If 'Response.Write strsql Set rs = Server.CreateObject("ADODB.Recordset") rs.cursorlocation = 3 rs.Open strsql, conn, 1, 2 totalRecs = rs.RecordCount ' Check for a START parameter If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("OZfoto2Dasp_REC") = startRec ElseIf Request.QueryString("pageno").Count > 0 Then pageno = Request.QueryString("pageno") If IsNumeric(pageno) Then startRec = (pageno-1)*displayRecs+1 If startRec <= 0 Then startRec = 1 ElseIf startRec >= ((totalRecs-1)\displayRecs)*displayRecs+1 Then startRec = ((totalRecs-1)\displayRecs)*displayRecs+1 End If Session("OZfoto2Dasp_REC") = startRec Else startRec = Session("OZfoto2Dasp_REC") If Not IsNumeric(startRec) Or startRec = "" Then 'reset start record counter startRec = 1 Session("OZfoto2Dasp_REC") = startRec End If End If Else startRec = Session("OZfoto2Dasp_REC") If Not IsNumeric(startRec) Or startRec = "" Then 'reSet start record counter startRec = 1 Session("OZfoto2Dasp_REC") = startRec End If End If %>
Snel zoeken (*)   Alle records |  Uitgebreid zoeken |  Bladeren |  Start
 De preciese omschrijving  Alle woorden  Een van de woorden
<% ' Display page numbers If totalRecs > 0 Then rsEof = (totalRecs < (startRec + displayRecs)) ' Find out if there should be Backward or Forward Buttons on the table. If startRec = 1 Then isPrev = False Else isPrev = True PrevStart = startRec - displayRecs If PrevStart < 1 Then PrevStart = 1 %> Vorige <% End If If (isPrev OR (NOT rsEof)) Then x = 1 y = 1 dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1 dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1 If (dx1+displayRecs*recRange-1) > totalRecs Then dx2 = (totalRecs\displayRecs)*displayRecs+1 dy2 = (totalRecs\displayRecs)+1 Else dx2 = dx1+displayRecs*recRange-1 dy2 = dy1+recRange-1 End If While x <= totalRecs If x >= dx1 AND x <= dx2 Then If CLng(startRec) = CLng(x) Then %> <%=y%> <% Else %> <%=y%> <% End If x = x + displayRecs y = y + 1 ElseIf x >= (dx1-displayRecs*recRange) AND x <= (dx2+displayRecs*recRange) Then If x+recRange*displayRecs < totalRecs Then %> <%=y%>-<%=y+recRange-1%> <% Else ny=(totalRecs-1)\displayRecs+1 If ny = y Then %> <%=y%> <% Else %> <%=y%>-<%=ny%> <% End If End If x=x+recRange*displayRecs y=y+recRange Else x=x+recRange*displayRecs y=y+recRange End If Wend End If ' Next link If NOT rsEof Then NextStart = startRec + displayRecs isMore = True %> Volgende <% Else isMore = False End If %>
<% If CLng(startRec) > CLng(totalRecs) Then startRec = totalRecs stopRec = startRec + displayRecs - 1 recCount = totalRecs - 1 If rsEOF Then recCount = totalRecs If stopRec > recCount Then stopRec = recCount %> Records <%= startRec %> tot <%= stopRec %> van <%= totalRecs %> <% Else %> Niets gevonden <% End If %>
<% 'Avoid starting record > total records If CLng(startRec) > CLng(totalRecs) Then startRec = totalRecs End If 'Set the last record to display stopRec = startRec + displayRecs - 1 'Move to first record directly for performance reason recCount = startRec - 1 If NOT rs.EOF Then rs.MoveFirst rs.Move startRec - 1 End If recActual = 0 Do While (NOT rs.EOF) AND (recCount < stopRec) recCount = recCount + 1 If CLng(recCount) >= CLng(startRec) Then recActual = recActual + 1 %> <% 'Set row color bgcolor="#FFFFFF" %> <% 'Load Key for record key = rs("Id") x_Id = rs("Id") x_URL = rs("URL") x_Plaats = rs("Plaats") x_Omschrijving = rs("Omschrijving") x_Jaar = rs("Jaar") x_REGIO_code = rs("REGIO_code") x_cdrom = rs("cdrom") x_tekst = rs("tekst") x_Naam_bestand = rs("Naam_bestand") x_Opmerkingen = rs("Opmerkingen") %> <% End If rs.MoveNext Loop %>
" Title="Sorteren op naam bestand">Foto <% If OrderBy = "Naam_bestand" Then %><% If Session("OZfoto2Dasp_OT") = "ASC" Then %>(Oplopend)<% ElseIf Session("OZfoto2Dasp_OT") = "DESC" Then %>(Aflopend)<% End If %><% End If %> " Title="Sorteren op jaar">Plaats, gebied, jaar, bijschrift en opmerkingen (*)<% If OrderBy = "Jaar" Then %><% If Session("OZfoto2Dasp_OT") = "ASC" Then %>(Oplopend)<% ElseIf Session("OZfoto2Dasp_OT") = "DESC" Then %>(Aflopend)<% End If %><% End If %>
<%= x_REGIO_code %>, <%= x_Jaar %>, <%= x_Plaats %>, <%= x_Omschrijving %>  

<% response.write x_Plaats %> 

<% response.write x_REGIO_code %> 

<% response.write x_Jaar %> 

<%= replace(x_Omschrijving & "",chr(10),"
") %>
 

<% response.write x_Opmerkingen %> 

<% ' Display page numbers If totalRecs > 0 Then rsEof = (totalRecs < (startRec + displayRecs)) ' Find out if there should be Backward or Forward Buttons on the table. If startRec = 1 Then isPrev = False Else isPrev = True PrevStart = startRec - displayRecs If PrevStart < 1 Then PrevStart = 1 %> Vorige <% End If If (isPrev OR (NOT rsEof)) Then x = 1 y = 1 dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1 dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1 If (dx1+displayRecs*recRange-1) > totalRecs Then dx2 = (totalRecs\displayRecs)*displayRecs+1 dy2 = (totalRecs\displayRecs)+1 Else dx2 = dx1+displayRecs*recRange-1 dy2 = dy1+recRange-1 End If While x <= totalRecs If x >= dx1 AND x <= dx2 Then If CLng(startRec) = CLng(x) Then %> <%=y%> <% Else %> <%=y%> <% End If x = x + displayRecs y = y + 1 ElseIf x >= (dx1-displayRecs*recRange) AND x <= (dx2+displayRecs*recRange) Then If x+recRange*displayRecs < totalRecs Then %> <%=y%>-<%=y+recRange-1%> <% Else ny=(totalRecs-1)\displayRecs+1 If ny = y Then %> <%=y%> <% Else %> <%=y%>-<%=ny%> <% End If End If x=x+recRange*displayRecs y=y+recRange Else x=x+recRange*displayRecs y=y+recRange End If Wend End If ' Next link If NOT rsEof Then NextStart = startRec + displayRecs isMore = True %>



Volgende



<% Else isMore = False End If %>
<% If CLng(startRec) > CLng(totalRecs) Then startRec = totalRecs stopRec = startRec + displayRecs - 1 recCount = totalRecs - 1 If rsEOF Then recCount = totalRecs If stopRec > recCount Then stopRec = recCount %> Records <%= startRec %> tot <%= stopRec %> van <%= totalRecs %> <% Else %> Niets gevonden <% End If %> <% ' Close recordSet and connection rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>