<%
function cHTMLa(pstr)
str = pstr
str = replace(str, chr(34), """)
cHTMLa = str
end function
if Request.QueryString("land") = "xx" then
lokal = ""
verden = "CHECKED"
else
lokal = "CHECKED"
verden = ""
end if
landboks = Request.QueryString("land")
%>