%
Dim code
Dim Page_Now
Dim Page_Start
Dim Page_End
code = "0001"
Page_Start = 1
Page_End = 128
if not Session("Message") = "" then
message = Session("Message")
Session("Message") = ""
else
message = ""
end if
if Session("0001_Page") = "" or Session("0001_Page") = 0 then
if Request.Cookies("0001") = "" then
' Response.Redirect "Regist.php?code=" & code
end if
end if
'---------------------------------------------------
' 現在のページのGIF
'---------------------------------------------------
Page_Now = Mid(Cstr(Cint(Session("0001_Page")) + 1000),2,3)
'---------------------------------------------------
' 前のページ
'---------------------------------------------------
if CStr(Session("0001_Page")) = CStr(Page_Start) then
Page_Prev = Page_Start
else
Page_Prev = Session("0001_Page") - 1
end if
'---------------------------------------------------
' 次のページ
'---------------------------------------------------
if CStr(Session("0001_Page")) = CStr(Page_End) then
Page_Next = Page_End
else
Page_Next = Session("0001_Page") + 1
end if
'---------------------------------------------------
' ページの書き出し
'---------------------------------------------------
Call pageWrite
'--------------------------------------------
' ページの書き出し
'--------------------------------------------
sub pageWrite
%>