<%
strTitel = "Meijendel | Foto's van leden"
Dim adoRs
Set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM tblFotos ORDER BY datum DESC"
adoRs.Open strSQL, adoCn
%>
| Onderwerp |
Fotograaf |
Datum |
<%
Dim i
i = 0
strZoek = Request.QueryString("zoek")
Do While Not adoRs.EOF
strAuteur = adoRs("auteur")
strLocatie = adoRs("locatie")
If strZoek <> "" Then
strAuteur = Replace(strAuteur,LCase(strZoek),"" & LCase(strZoek) & "")
strAuteur = Replace(strAuteur,PCase(strZoek),"" & PCase(strZoek) & "")
strAuteur = Replace(strAuteur,UCase(strZoek),"" & UCase(strZoek) & "")
strLocatie = Replace(strLocatie,LCase(strZoek),"" & LCase(strZoek) & "")
strLocatie = Replace(strLocatie,PCase(strZoek),"" & PCase(strZoek) & "")
strLocatie = Replace(strLocatie,UCase(strZoek),"" & UCase(strZoek) & "")
End If
%>
.submit(); return false;" title="Bekijk deze foto's van <%=strAuteur%>">
| <%=strLocatie%> |
<%=strAuteur%> |
<%=adoRs("datum")%> |
<%
adoRs.MoveNext
Loop
%>
Wie ziet wie het eerst?
Jan Westgeest maakte deze unieke foto in de zomer van 2012 in kavel 75.