% 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 = 200
recRange = 10
%>
<%
dbwhere = ""
masterdetailwhere = ""
searchwhere = ""
a_search = ""
b_search = ""
whereClause = ""
%>
<%
' 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
%>
Buiten 1934Buiten 1934
Klik op een afbeelding voor een grotere weergave.
Blad 1 |
Blad 2 |
Blad 3|
Blad 4 |
Blad 5 |
Start
<%
'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") = "ASC"
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
%>
<%
'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 %>
<%
'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")
x_prev = rs("prev")
x_next = rs("next")
%>
<%
End If
rs.MoveNext
Loop
%>
<%
' Close recordSet and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>