chi mi sa dire cosa significa questo codice inserito nel mio sito alla pagina seoInclude.asp?
codice:
<%
Dim seoActive, seoId, seoPath, seoPag, seoUrl, seoContent, seoAll, seoTitle, seoDescription, seoKeyword, seoBody1, seoBody2

seoActive = false

if (request.QueryString("Debug") = 1) then
for each name in request.servervariables
response.Write(name&"->"&request.servervariables(name)&"
")
next
end if

if seoActive = true then
seoId = 741494
seoPath = "/bimbinvacanza/sito/"
seoPag = seoUrlEncode(seoPag)
seoUrl = "http://pserv.promozione-online.it/"&seoPath&seoPag&"?id="&seoId
if (request.QueryString("Debug") = 1) then response.Write(seoUrl&"
")
set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objHttp.open "GET", seoUrl, false
objHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
objHttp.Send
if (objHttp.status <> 200 ) then
response.Write("")
else
seoContent = objHttp.responseText
if (request.QueryString("Debug") = 1) then response.Write(seoContent&"
")
end if
set objHttp = nothing
seoAll = split(seoContent, chr(10), -1, vbTextCompare)
if (request.QueryString("Debug") = 1) then response.Write(seoAll(0)&"
")
if UBound(seoAll) > 1 then
if (seoAll(0) <> "") then
seoTitle = seoAll(0)
seoDescription = seoAll(1)
seoKeyword = seoAll(2)
seoBody1 = seoAll(3)
seoBody2 = seoAll(4)
end if
end if
end if

function seoUrlEncode(seoPag)
seoPag = replace(seoPag, "?Debug=1", "")
seoPag = replace(seoPag, "&Debug=1", "")
seoPag = replace(seoPag, "?", "DOMANDA")
seoPag = replace(seoPag, "/", "__")
seoUrlEncode = seoPag
end function
%>