<% Response.buffer = True %>
<%
If Request.QueryString("titel") = "" Then
stitel = "Korfbalvereniging ODO te Maasland"
Else
stitel = Request.QueryString("titel")
End if
If Request.QueryString("naam") = "" Then
snaam = "DCP_"
Else
snaam = Request.QueryString("naam")
End if
If Request.QueryString("min") = "" Then
min = 1
Else
min = CInt(Request.QueryString("min"))
End If
If Request.QueryString("max") = "" Then
max = 1
Else
max = CInt(Request.QueryString("max"))
End If
If Request.QueryString("size") = "" Then
size = "True"
Else
size = Request.QueryString("size")
End If
dim teller
%>
<%=stitel%>
<%
for teller = min to max
if teller < 10 then
naam = snaam & teller
else
naam = snaam & teller
end if
naam = naam + ".jpg"
%>
<% if size = "True" then %>
<% else %>
<% end if %>
<%
next
%>