<%@ LANGUAGE = VBScript %> <% Option Explicit %>
<%response.write request("myLeader")%>
Relevant

">Full Story
 
More Stuff

Home
 
<% dim index,var, countImage, myTest, myImageArray, myHTML, myError dim mypath, homepath, filename dim fso, ForWriting, ForAppending, strName, file dim imgsrcArray, IMGSRC, myfileHTML, mybaseFile, myCaption 'template for page with image on it.' myBaseFile="Long Passage Photo" &vbcrlf & "
!TITLE!" & vbcrlf myBaseFile=myBaseFile & "
!BACKTEXT!
!NEXTTEXT!
" & vbcrlf & "
" ForWriting = 2 ForAppending = 8 homepath = request.servervariables("PATH_TRANSLATED") homepath = left(homepath, len(homepath)-12) 'nasty hack to get path' Set fso = Server.CreateObject("Scripting.FileSystemObject") 'response.write "

homepath " & homepath & "

"' countImage=request("countImage") if countImage >0 then mypath = request("thepath") 'response.write "Number of images: " & countImage & "
" myImageArray=session("imageArray") imgsrcArray=session("IMGSRCArray") if Ubound(myImageArray) > 0 then for index = 0 to countImage - 1 myfileHTML=mybaseFile & vbcrlf myTest = myImageArray(index+1) IMGSRC= imgsrcArray(index+1) ' open the file 'response.write "

scriptname " & request.servervariables("SCRIPT_NAME") & "

" 'response.write "

path_translated " & request.servervariables("PATH_TRANSLATED") & "

" 'response.write "

path_info" & request.servervariables("PATH_INFO") & "

" 'response.write "MYPATH " & mypath & " INDEX " & index filename = homepath & mypath & "pic" & index & ".html" filename = replace(filename, "/", "\") 'response.write "


filename " & filename & "

" 'on error resume next set file = fso.opentextfile(filename, ForWriting, TRUE) 'response.write err.number 'response.write err.description 'OK so we have the image, we have the shit, all we need is to put next and back buttons if index <> 0 then myfileHTML = replace(myfileHTML, "!PAGEBACK!", "pic" & index - 1 & ".html") myfileHTML = replace(myfileHTML, "!BACKTEXT!", "< Back") else myfileHTML = replace(myfileHTML, "!PAGEBACK!", "") myfileHTML = replace(myfileHTML, "!BACKTEXT!", " ") end if if index <> countImage - 1 then myfileHTML = replace(myfileHTML, "!PAGENEXT!", "pic" & index + 1 & ".html") myfileHTML = replace(myfileHTML, "!NEXTTEXT!", "Next >") else myfileHTML = replace(myfileHTML, "!PAGENEXT!", "") myfileHTML = replace(myfileHTML, "!NEXTTEXT!", " ") end if myfileHTML = replace(myfileHTML, "!IMAGEHERE!", IMGSRC) var="text" & index myCaption = request(var) myHTML = myHTML & myTest & """>
" & myCaption & "" & VBcrlf ' response.write var & "" & request(var) & " " & myTest & "
" myfileHTML = replace(myfileHTML, "!TITLE!", myCaption) file.write(myfileHTML) & vbcrlf file.close 'set file =nothing next response.write myHTML else myError = myError & "No image array
" end if else myError = myError & "No images
" end if response.write myError set file =nothing %>