| |
<%
' ********************************************************************
' Paste this block of code on the web page where you would like your
' article directory to be displayed. This code will dynamically create
' your article directory based on your GetMyArticles.com settings.
' ********************************************************************
' ********************************************************************
' **********Please DO NOT modify anything below this line*************
' ********************************************************************
Dim GMAKey
Dim GMAPage
Dim GMAS
Dim GMAQ
Dim GMAError
Dim GMAResult
Dim Action
Dim ReqType
GMAKey = "MNP6-V6WL-556R"
GMAPage = Request.ServerVariables("SCRIPT_NAME")
ReqType = "GET"
' # Generate the data to post to the GetMyArticles.com server
GMAS = "&script=asp"
GMAS = GMAS & "&Key=" & GMAKey
GMAS = GMAS & "&ScriptName=" & GMAPage
' # pass through any querystring data to GetMyArticles.com to allow paging
If Request.Form("action") = "submitnewart" Then
GMAQ = Request.Form
Action = "submitnewart"
ReqType = "POST"
Else
GMAQ = Request.QueryString
Action = Request.QueryString("action")
End If
' ---------------------------------------------------------------------------------
Function GetMyArticlesData(HTTPQuery, PostStr, ByRef Resp, ByRef Er, ReqMet)
Dim HttpReqObj
Dim ComponentString
Set HttpReqObj = Nothing
On Error Resume Next
Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5.1")
On Error Resume Next
If HttpReqObj Is Nothing Then Set HttpReqObj = CreateObject("WinHttp.WinHttpRequest.5") End If
On Error Resume Next
If HttpReqObj Is Nothing Then
On Error Resume Next
Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP")
On Error Resume Next
If HttpReqObj Is Nothing Then
Set HttpReqObj = CreateObject("Msxml2.ServerXMLHTTP.4.0")
End If
On Error Resume Next
If HttpReqObj Is Nothing Then
Set HttpReqObj = CreateObject("Microsoft.XMLHTTP")
End If
On Error Resume Next
If HttpReqObj Is Nothing Then
Er = "HTTP requests not supported."
GetMyArticlesData = False
Else
HttpReqObj.open ReqMet, "http://getmyarticles.com/engine.php?" & HTTPQuery & PostStr, false
If ReqMet = "POST" Then
HttpReqObj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
End If
HttpReqObj.Send
If HttpReqObj.status <> 200 Then
Er = "Error: Status=" & HttpReqObj.status & " Text='" & HttpReqObj.responseText & "'"
GetMyArticlesData = False
Else
Resp = ComponentString & HttpReqObj.responseText
GetMyArticlesData = True
End If
Set HttpReqObj = Nothing
End If
Else
HttpReqObj.Open ReqMet, "http://getmyarticles.com/engine.php?" & HTTPQuery & PostStr, False
If ReqMet = "POST" Then
HttpReqObj.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
End If
HttpReqObj.Send
If HttpReqObj.Status <> 200 Then
Er = "Error: Status=" & HttpReqObj.Status & " Text=" & HttpReqObj.ResponseText
GetMyArticlesData = False
Else
Resp = HttpReqObj.responseText
GetMyArticlesData = True
End If
End If
End Function
If GetMyArticlesData(GMAQ, GMAS, GMAResult, GMAError, ReqType) Then
If Action = "rss" Then
Response.ContentType = "application/xml"
End If
Response.Write GMAResult
Else
' here we are just dumping error info to the page. You can clean this up to
' fit your site
Response.Write GMAError
End If
' # //FINSIHED GetMyArticles.com SCRIPT BLOCK
%>
|
Today's Real Estate News Headlines |
| IE 7.0 users: if you cannot view these headlines, please click the security bar that appeared at the top of this window, or add www.areamaps.us to your list of trusted sites, to allow the content to be shown. |
Headlines by Fresh
Content.net |
|
|
