| Weichert Realtors - Bedminster (908) 781-1000 |
|
|
|
|
|
|
|
|
|
<%
Response.Buffer = True
Dim Requester
Set Requester = Server.CreateObject("MSXML2.ServerXMLHTTP")
Dim DispenserURL
DispenserURL = "http://idx2.gsmls.com/idx/tokenGen.idx?idxId=3021"
Requester.Open "Get", DispenserURL, False
Requester.Send
While NOT Requester.readyState = 4
Requester.waitForResponse(1000)
Wend
RecdToken = Requester.responseText
Set Requester = Nothing
%><%
If RecdToken = "-1" Then
%>
<%
Else
%><%End If%>
|
|
|
|
|
|
|
|
|