<%Language = VBScript %>
<% Response.Buffer= True%>
<%
Dim bildnr, bilden, nbildnr, fbildnr, sida
bildnr = Request("bild")
if Request("bild") = "" then
bildnr = "1"
end if
nbildnr = bildnr + 1
fbildnr = bildnr - 1
Select Case nbildnr
Case 106
nbildnr = 101
End Select
Select Case fbildnr
Case 100
fbildnr = 105
End Select
sida = CStr(bildnr) + "."
ssida = "o" + CStr(sida) + "jpg"
Response.Write ("
")
Response.Write ("![](" & ssida & ")
")
%>