<%
Response.Buffer = True
'Create an instance of the ServerXMLHTTP class to make the token request
Dim Requester
Set Requester = Server.CreateObject("MSXML2.ServerXMLHTTP")
'The URL for the token request. Note the "pid=" parameter.
'Use the Profile ID supplied to you by your IDX coordinator.
Dim DispenserURL
DispenserURL = "http://token.hhi.marketlinx.com/TokenInit.asp?pid=508"
'Open and send the request. Use the ID and Password supplied to you.
Requester.Open "Get", DispenserURL, False
Requester.Send
'This loop allows some time for a response.
While NOT Requester.readyState = 4
Requester.waitForResponse(1000)
Wend
'Sets a variable to the output of the token page.
RecdToken = Requester.responseText
'Cleans up the Requester object.
Set Requester = Nothing
%>
Sample Client 1 Frameset
<%
'The token page returns a -1 error if a request is invalid.
'This HTML text provides a message in case a token can't be retrieved.
If RecdToken = "-1" Then
%>
Error
<%=RecdToken%>
There is a temporary problem with the search features of this site. Please try again later or contact us at 111-222-3333.
We apologize for this inconvenience.
<%
'If the request is valid, build a standard frameset page.
'Append the token to the URL of the SRC attribute of the IDX frame.
Else
%>