|
|
<%
Response.Buffer = True
Dim Requester
Set Requester = Server.CreateObject("MSXML2.ServerXMLHTTP")
Dim DispenserURL
DispenserURL = “http://idx3.gsmls.com/idxsite/idxtoken.do?method=generaterIdxToken&idxId=4101”
Requester.Open "GET", DispenserURL, False
Requester.Send
While NOT Requester.readyState = 4
Requester.waitForResponse(1000)
Wend
RecdToken = Requester.responseText
Set Requester = Nothing
%>
Sample Frameset
<%
If RecdToken = "-1" Then
%>
Error
Please contact system administrator.
We apologize for the inconvenience.
<%
Else
%>
| |