<%
if request.querystring("getpage") <> "" then
response.redirect(request.querystring("getpage"))
response.end
end if
dim nl, go2url, imgurl1, imgurl2
set nl = Server.CreateObject("MSWC.NextLink")
imgurl1 = request.form("imgurl")
imgurl2 = request.form("imgurl2")
if session("randomrefresh") = "true" then
session("randomrefresh") = "false"
response.redirect("splash.asp?imgurl=" & imgurl1)
response.end
else
if imgurl1 <> "" then
go2url = nl.getNthURL("randomlinks.txt", imgurl1)
set nl = nothing
session("randomrefresh") = "true"
response.redirect(go2url & "/index.asp")
response.end
else
if imgurl2 <> "" then
go2url = nl.getNthURL("randomlinks.txt", imgurl2)
set nl = nothing
session("randomrefresh") = "false"
response.redirect(go2url)
response.end
end if
end if
end if
set nl = nothing
%>
Jami and Frank's Adventure Pages
<%
Dim c1, c2, count
count = 1
c1 = 1
c2 = 1
for c2 = 1 to 4
response.write("
")
for c1 = 1 to 6
response.write("")
count = count + 1
next
response.write("
