| <%If request.querystring("t") <>"" then
Session("slideno") = 28
End if
Select Case (request.querystring("b"))
Case "n"
If Session("slideno") = strtotslides then
Session("slideno") = strtotslides
Else
Session("slideno") = Session("slideno") + 1
End If
Case "p"
If Session("slideno") = 1 then
Session("slideno") = 1
Else
Session("slideno") = Session("slideno") - 1
End If
Case Else
If request.querystring("b") = "p" then
Else
If request.querystring("b") = "n" then
else
Session("tempReferer") = Request.ServerVariables("HTTP_REFERER")
End if
End If
If Session("slideno") >= strtotslides then
Session("slideno") = 1
Else
Session("slideno") = Session("slideno") + 1
End If
End Select%>
<%select case session("slideno")
Case "1"
strText = ""
strTitle = ""
Case "2"
strText = ""
strTitle = ""
Case "3"
strText=""
strTitle = ""
Case "4"
strText= ""
strTitle = ""
Case "5"
strText= ""
strTitle = ""
Case "6"
strText= ""
strTitle = ""
Case "7"
strText= ""
strTitle = ""
Case "8"
strText= ""
strTitle = ""
Case "9"
strText= ""
strTitle = ""
Case "10"
strText= ""
strTitle = ""
Case "11"
strText= ""
strTitle = ""
Case "12"
strText= ""
strTitle = ""
Case "13"
strText= ""
strTitle = ""
Case "14"
strText= ""
strTitle = ""
Case "15"
strText= ""
strTitle = ""
Case "16"
strText= ""
strTitle = ""
Case "17"
strText= ""
strTitle = ""
Case "18"
strText= ""
strTitle = ""
Case "19"
strText= ""
strTitle = ""
Case "20"
strText= ""
strTitle = ""
Case "21"
strText= ""
strTitle = ""
Case "22"
strText= ""
strTitle = ""
Case "23"
strText= ""
strTitle = ""
Case "24"
strText= ""
strTitle = ""
Case "25"
strText= ""
strTitle = ""
Case "26"
strText= ""
strTitle = ""
Case "27"
strText= ""
strTitle = ""
Case "28"
strText= ""
strTitle = "Enjoy the beautiful Adirondacks."
Case Else
End Select%>
|
