Houseboats
<%
Dim ImagetoDisp
dim ImageExt
dim NextUrl
Dim BackUrl
Dim ImageStart
Dim HomeUrl
ImageExt=".jpg"
ImageStart=Request.QueryString("imagename")
ImagetoDisp=Request.QueryString("imagename")
ImagetoDisp="images/"&ImagetoDisp&ImageExt
if imageStart >=25 then
HomeUrl="potogallery2.htm"
else
HomeUrl=Request.QueryString("home")
end if
if ImageStart = 48 then
NextUrl=HomeUrl
BackUrl="viewphoto.asp?home="&homeurl&"&imagename="&ImageStart-1
elseif ImageStart =1 then
NextUrl="viewphoto.asp?home="&homeurl&"&imagename="&ImageStart+1
BackUrl=HomeUrl
else
NextUrl="viewphoto.asp?home="&homeurl&"&imagename="&ImageStart+1
BackUrl="viewphoto.asp?home="&homeurl&"&imagename="&ImageStart-1
end if
%>