<% 'sds verzia lang=TRIM(request.querystring("lang")) IF lang ="sk" THEN lang="sk" ELSE lang="en" END IF 'sds verzia serverID=request.querystring("sv") IF serverID=2 THEN serverID=2 ELSE serverID=1 END IF kam=TRIM(request.querystring("kam")) IF kam="" THEN kam = "/go/news/index.asp" End If dr=TRIM(request.querystring("dr")) If ( IsNumeric(dr) = False ) OR ( cstr(dr) = "") Then dr = 0 End If IID=request.querystring("id") If ( IsNumeric(IID) = False ) OR ( cstr(IID) = "") Then IID = 0 END IF mc = Request.QueryString("mc") If ( IsNumeric(mc) = False ) OR ( cstr(mc) = "") Then mc = 0 End If 'vyrez mapy img=TRIM(request.querystring("img")) If ( IsNumeric(img) = False ) OR ( cstr(img) = "") Then img = 0 End If 'sip na mape mp=TRIM(request.querystring("mp")) If ( IsNumeric(mp) = False ) OR ( cstr(mp) = "") Then mp = 0 End If MIID = Request.QueryString("mid") If ( IsNumeric(MIID) = False ) OR ( cstr(MIID) = "") Then MIID = 0 End If 'pre Austr. a Pacifik rusim svetadiel IF MIID=5 THEN MIID=517 END IF uroven = Request.QueryString("ur") If ( IsNumeric(uroven) = False ) OR ( cstr(uroven) = "") Then uroven = 1 End If HID = Request.QueryString("hid") If ( IsNumeric(HID) = False ) OR ( cstr(HID) = "") Then HID = 1 End If KID = Request.QueryString("kid") If ( IsNumeric(KID) = False ) OR ( cstr(KID) = "") Then KID = 0 End If OID = Request.QueryString("oid") If ( IsNumeric(OID) = False ) OR ( cstr(OID) = "") Then OID = 0 End If TID = Request.QueryString("tid") If ( IsNumeric(TID) = False ) OR ( cstr(TID) = "") Then TID = 0 End If Response.write "" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF If lang="en" THEN Response.write "Panorama.sk - Slovakia Document Store" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF ElseIf lang="sk" THEN Response.write "Panoráma.sk - stránky pre ozajstných i virtuálnych cestovateľov" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF End IF Response.write "" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF Response.write "0 THEN Response.write "&id="&IID END IF IF len(request.querystring("oid"))>0 THEN Response.write "&oid="&OID END IF IF len(request.querystring("tid"))>0 THEN Response.write "&tid="&TID END IF 'mapa IF len(request.querystring("mc"))>0 THEN Response.write "&mc="&mc END IF 'druh mapy IF len(request.querystring("dr"))>0 THEN Response.write "&dr="&dr END IF IF len(request.querystring("img"))>0 THEN Response.write "&img="&img END IF IF len(request.querystring("mp"))>0 THEN Response.write "&mp="&mp END IF 'miesto IF (len(request.querystring("mid"))>0 AND len(request.querystring("kid"))=0) THEN Response.write "&mid="&MIID 'kategoria ELSEIF (len(request.querystring("kid"))>0 AND len(request.querystring("mid"))=0) THEN retazec="" If uroven <> 1 THEN retazec="&ur="&uroven END IF If HID<>1 THEN retazec=retazec&"&hid="&HID END IF Response.write retazec&"&kid="&KID 'kategoria - miesto ELSEIF (len(request.querystring("mid"))>0 AND len(request.querystring("kid"))>0) THEN Response.write "&mid="&MIID&"&kid="&KID END IF Response.write """>" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF Response.write "" & VBCRLF Response.write "<body>" & VBCRLF Response.write "<p>This page uses frames, but your browser doesn't support them.</p>" & VBCRLF Response.write "</body>" & VBCRLF Response.write "" & VBCRLF Response.write "" %>