<%
'Sitemap by Altus AB
Response.Buffer = True
Response.Charset="iso-8859-1"
'-------------------------------'
Dim kund_id, lang, kund_namn
kund_id = "1702"
lang = "sv"
'-------------------------------'
Set SiteMap = Server.CreateObject("Microsoft.XMLHTTP")
randomize
random_number2=int(rnd*1000)+1
SiteMap.Open "GET", "http://altus.se/sitemap/header.inc?"&random_number2, False
SiteMap.Send
SiteMap_Body = BinToText(SiteMap.responsebody, 32000)
Response.Write SiteMap_body
%>
<%
randomize
random_number=int(rnd*1000)+1
Set SiteMap = Server.CreateObject("Microsoft.XMLHTTP")
IF Request.Querystring("s") = 2 THEN
SiteMap.Open "GET", "http://altus.se/sitemap/print_sitemap.php?id="&kund_id&"&rand="&random_number&"&s=2&lang="&lang, False
ELSE
SiteMap.Open "GET", "http://altus.se/sitemap/print_sitemap.php?id="&kund_id&"&rand="&random_number&"&lang="&lang, False
END IF
SiteMap.Send
SiteMap_Body = BinToText(SiteMap.responsebody, 32000)
Response.Write SiteMap_body
Set SiteMap = Nothing
Function BinToText(varBinData, intDataSizeInBytes)
Dim objRs
Const adFldLong = &H00000080
Const adVarChar = 200
Set objRS = CreateObject("ADODB.Recordset")
objRS.Fields.AppEnd "txt", adVarChar, intDataSizeInBytes, adFldLong
objRS.Open
objRS.AddNew
objRS.Fields("txt").AppEndChunk varBinData
BinToText = objRS("txt").Value
objRS.Close
Set objRS = Nothing
End Function
%>