seoInclude.asp

[marix76]

chi mi sa dire cosa significa questo codice inserito nel mio sito alla pagina seoInclude.asp?

<%
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
%>

[filippo.toso]

In base ad alcuni dati ricevuti tramite la query string, accede ad un server remoto (http://pserv.promozione-online.it/), esegue una richiesta HTTP e valorizza alcune variabili (seoTitle, seoDescription, seoKeyword, etc.) in base a quanto restituito dal server remoto.

[marix76]

grazie per la tua spiegazione semplice e lineare.avevo il dubbio. infatti adesso che non risponde più a quel server remoto i risultati delle mie pagine sono nettamente diverse e devo rimostare tutto da PROFANA!
aiuto.........