<% '********************************************************************************************************************** 'Start write the page streaming section: DO NOT TOUCH THIS CODE '********************************************************************************************************************** PageID = request("PageID") Action = request("Action") PageNumber = request("page") blnComplete=Trim(request("blnComplete")) if blnComplete = "" then blnComplete = False else blnComplete = True end if Function CheckErr (ByRef msg) CheckErr = False If (Err <> 0) Then msg = "Error - " & Err.Description CheckErr = True End If End Function Function SendXML (address, data, timeout, isPost) On Error Resume Next Dim method : method = "GET" If (isPost) Then method = "POST" Dim oXML : Set oXML = Server.CreateObject("MSXML2.ServerXMLHTTP") If (CheckErr (SendXML)) Then Exit Function oXML.setTimeouts timeout*7, timeout*7, timeout*15, timeout*15 oXML.Open method, address, False If (CheckErr (SendXML)) Then Exit Function oXML.setRequestHeader "Content-Type", "text/xml" oXML.Send data If (CheckErr (SendXML)) Then Exit Function If (oXML.status = 200) Then SendXML = oXML.responseText Else SendXML = "" End If If (CheckErr (SendXML)) Then Exit Function oXML = Nothing End Function 'on error resume next cDomain = trim(lcase(Replace(Request.ServerVariables("HTTP_HOST"),"local.", ""))) if left(cDomain,4)="www." then cDomain = right(cDomain,(len(cDomain)-4)) end if cParm = "?domain=" & cDomain cParm = cParm & "&agent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) cParm = cParm & "&referer=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) cParm = cParm & "&address=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) cParm = cParm & "&uri=" & Server.URLEncode(Request.ServerVariables("URL")) cParm = cParm & "&query=" & Server.URLEncode(Request.ServerVariables("QUERY_STRING")) cParm = cParm & "&blnComplete=" & blnComplete & "&page=" & PageNumber cParm = cParm & "&cScript=asp" data = "" timeout = 1000 isPost = false %> <% 'get the meta tags section: '================================================ if not trim(PageID)="" then 'get meta tags from articles: address = "http://www.mysearchexchange.com/ArticleMeta.asp" & cParm & "&PageID=" & PageID strTemp = (SendXML (address, data, timeout, isPost)) strTemp = split(strTemp,"~") SiteTitle = strTemp(0) 'This var need to be inside the Title Meta Tag of header part SiteDesc = strTemp(1) 'This var need to be inside the Description Meta Tag of header part SiteKeyWords = strTemp(2) 'This var need to be inside the Keywords Meta Tag of header part else 'get meta tags from domain: address = "http://www.mysearchexchange.com/ArticleMeta.asp" & cParm strTemp = (SendXML (address, data, timeout, isPost)) strTemp = split(strTemp,"~") SiteTitle = strTemp(0) 'This var need to be inside the Title Meta Tag of header part SiteDesc = strTemp(1) 'This var need to be inside the Description Meta Tag of header part SiteKeyWords = strTemp(2) 'This var need to be inside the Keywords Meta Tag of header part end if if PageNumber <> "" and Action = "Links" then ' we add it to title: SiteTitle = SiteTitle & " - " & PageNumber end if '********************************************************************************************************************** ' end streaming code. DO NOT modify code below '********************************************************************************************************************** %> <%=SiteTitle%> <% 'NOTE:::: Header tag will be closed! Do not modify above code! '======================================================================================================= ' end hard code header for that site: '======================================================================================================= %> <% '********************************************************************************************************************** 'Stsrt write the page content section: DO NOT TOUCH THIS PART OF CODE '====================================================================================================================== address = "http://www.mysearchexchange.com/Article.asp" & cParm & "&PageID=" & PageID & "&Action=" & Action Response.write(SendXML (address, data, timeout, isPost)) '====================================================================================================================== 'End write the page content section: DO NOT TOUCH THIS PART OF CODE '********************************************************************************************************************** %> <% '======================================================================================================= ' end hard code footer for that site: '======================================================================================================= %>