Browse For Pictures
<%
' Prints a link for copying the path to some form field
Sub PrintCopyLink(strPath, strName)
'URLs are different from DOS directory seps
'strPath = request.ServerVariables("APPL_PHYSICAL_PATH") & "/goprint/includes-resources" & "/" & Replace(CutRootFolder(strPath), "\", "/")
' after strpath you have to put where the last directoy is and in this case its in the /goprint directory
'strPath = "/goprint" & "/" & Replace(CutRootFolder(strPath), "\", "/")
strPath = "/" & Replace(CutRootFolder(strPath), "\", "/")
Response.Write "" & strName & ""
End Sub
' We want to see only graphic files, so restrict it here
arrValidFileTypes = Array("jpg","gif","swf","pdf","txt")
MainProcess
%>