<%
'URl für die aktuelle Seite
u = Server.URLEncode("http://" & Application("WWWDomain")& Request.ServerVariables("PATH_INFO") &"?"& Request.ServerVariables("QUERY_STRING"))
'Ressort-ID wird ermittelt
If ymSessionGetVar("re")<>"" then re=ymSessionGetVar("re") Else re="3210" End if
'Rubrik-ID - Default Wert
ru = "100000"
'Story-ID wird dynamisch ermittelt
If LA= "2" then
st = "104000" 'Ergebniskarte
Else
st = "10100" & PG '1. Resultatseite
End if
'Page-ID - Default Wert
pa = "1"
'Subpage-ID - Default Wert
sp = "1"
'Titel der Seite wird dynamisch gesetzt
If LA= "2" then
ti = Server.URLEncode("Ihr Berater vor Ort - Karte der Resultate")
Else
ti = Server.URLEncode("Ihr Berater vor Ort - Resultatseite " & PG)
End if
'Zufallswert wird berechnet
Randomize
ra = Int((1000 * Rnd) + 1)
'Regionen-Flag - Default Wert
glb = "1"
'Cookie-ID wird ermittelt
If ymSessionGetVar("uv")<>"" then uv=ymSessionGetVar("uv") Else uv="1" End if
'Referer wird ermittelt
If Request.ServerVariables("HTTP_REFERER")<>"" then rf = Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) Else rf = "noref" End if
LBSPixel = "http://c.lbs.de/cgi-bin/blanky?si=3200&u=" & u &_
"&re=" & re & "&ru=" & ru & "&st=" & st & "&pa=" & pa &_
"&sp=" & sp & "&ti=" & ti & "&ra=" & ra & "&glb=" & glb &_
"&uv=" & uv & "&rf=" & rf
Response.Write ""
%>
