<%
IPADDR = Request.ServerVariables("REMOTE_ADDR")
If IPADDR = MyIPAddr then OverflowURL = MyServerAddr
%>
<% rem display page title
Response.Write title
%>
<% rem determine how many index files there are!
Dim I, ThumbnailURL, StartPicNum, EndPicNum, IPADDR
Rem A(StartPicNum) B(EndPicNum) C(ImageNum) or (I) D(ThumbRet) or (CurrentThumb) E(ThumbnailURL) F(PictureURL) G(NumOfThumbPages) H(HiResAvailable)
rem <--------ONLY NEED TO CHANGE BELOW HERE ----------->
Response.Write"
"
Response.Write Page1Comment
Response.Write"
"
CurrentThumb = Indexpath & "index00.asp"
StartPicNum = Page1StartPicture
EndPicNum = Page1EndPicture
rem <--------ONLY NEED TO CHANGE ABOVE HERE ----------->
%>