 |
israel 2007 - map of israel
|
|||
|
israel 2007 - map of israel |
|||
|
<%
dim s,p,n,pmenutype,nmenutype
s = request.servervariables("SCRIPT_NAME")
s = replace(s,"/linearconcepts","") ' keep for compatability on development box
s = replace(s,".asp","")
'response.write "1:[" & s & "] " s = replace(s,"/photos/2007-israel-","") 'response.write "1:[" & s & "] " pmenutype = 1 nmenutype = 1 if IsNumeric(s) then 'response.write s & "|" s = cInt(s) select case s case 1 pmenutype = 0 case 18 pmenutype = 1 nmenutype = 2 case 19 pmenutype = 1 nmenutype = 2 case else if s > 19 then pmenutype = 2 nmenutype = 2 end if end select 'response.write s & "{{" & pmenutype & nmenutype & "}}" p = s - 1 p = right("00" & p,2) p = "2007-israel-" & p & ".asp?m=" & pmenutype if s = 1 then p = "#PageTop" n = s + 1 n = right("00" & n,2) n = "2007-israel-" & n & ".asp?m=" & nmenutype if s = 39 then n = "#PageTop" end if %> Home | «Prev | Top | Next» |
