<%
' /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
' * *
' * ERA Real Estate - URL Driver Program - v.1.0 *
' * *
' *----------------------------------------------------------------------*
' * Installation Instructions: *
' * This script should be installed on your public web server, in a *
' * directory that has been given priveledges to run scripts. *
' * *
' * You should then link to this page from your web site. By placing *
' * this page on your web site, and linking to it, you will help to *
' * increase exposure to your web site by increasing your site's *
' * search engine page rank. *
' * *
' * When you downloaded this script, your company id, office id and *
' * a password assigned to your office were automatically embedded *
' * into the source code below. If you received this script from *
' * another office, please download your own copy from the teamera.com *
' * web site instead of using this copy. *
' * *
' * Formatting the page / CSS Notes: *
' * The following CSS classes are used: *
' * - eraofficename *
' * - eraofficelocation *
' * The following stylable HTML elements are used: *
' * - body *
' * - p *
' * - a *
' * - br *
' * Typical script output will contain several links similar to: *
' * *
' * *
' * An ERA Office *
' * *
' * *
' * - SomeCity, ST *
' * *
' *
*
' * *
' * websiteofthisoffice.com *
' * *
' *
*
' * *
' * You should modify this script to include your standard site header *
' * and footer information as appropriate. *
' * *
' * Advanced Users: *
' * For users who wish to use this office information on their site *
' * in different ways, or wish to radically customize the display, *
' * office information is also available in the XML format. To access *
' * this information in XML format, make a GET or POST request to the *
' * following URL: *
' * *
' * http://www.era.com/ad/serveurldriver.php?c=000364&o=0001&p=f51f416b5711b01d3f6c112580cc72c6&xml=true
' * *
' * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
' This section defines constansts provided by ERA. This section was prepopulated when this package
' was downloaded.
Dim strBaseURL
Dim strCompanyID
Dim strOfficeID
Dim strPassword
strBaseURL = "http://www.era.com/ad/serveurldriver.php"
strCompanyID = "000364"
strOfficeID = "0001"
strPassword = "f51f416b5711b01d3f6c112580cc72c6"
' Build Request URL
Dim strURL
strURL = strBaseURL & "?c=" & strCompanyID & "&p=" & strPassword & "&o=" & strOfficeID
' Connect to ERA and retrieve URL Driver Data
Dim objXmlHttp
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "GET", strURL, False
objXmlHttp.send
' Handle errors
If objXmlHttp.status <> 200 Then
' Additional Error Handling Code can be inserted here
Response.Write "Server Error: " & objXmlHttp.status & " - " & objXmlHttp.statusText
Else
' Build Output
' Additional Output can optionally be assigned to strHTML
strHTML = objXmlHttp.responseText
End If
' Cleanup
Set objXmlHttp = Nothing
%> <%= strHTML %>