Classic ASP

REST Auto Reconnect for Multiple Requests (dev.markitondemand.com)

Demonstrates how the autoReconnect argument to the Connect method is used.

Chilkat Classic ASP Downloads

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set rest = Server.CreateObject("Chilkat.Rest")

' This example demonstrates the usage of the autoReconnect argument to the Connect method.
' When autoReconnect is on, subsequent REST method calls will automatically re-connect
' if necessary, using the same information (domain/IP address, port number, and TLS).
bTls = 0
port = 80
bAutoReconnect = 1
success = rest.Connect("dev.markitondemand.com",port,bTls,bAutoReconnect)

' Get a stock quote:
success = rest.AddQueryParam("symbol","AAPL")
responseXml = rest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
If (rest.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

set xml = Server.CreateObject("Chilkat.Xml")
success = xml.LoadXml(responseXml)
Response.Write "<pre>" & Server.HTMLEncode( "AAPL LastPrice: " & xml.GetChildContent("LastPrice")) & "</pre>"

' Get another stock quote.  If a new HTTP connection is required,
' the REST object will automatically connect using the same parameters.
success = rest.AddQueryParam("symbol","AMZN")
responseXml = rest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
If (rest.LastMethodSuccess <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>"
    Response.End
End If

success = xml.LoadXml(responseXml)
Response.Write "<pre>" & Server.HTMLEncode( "AMZN LastPrice: " & xml.GetChildContent("LastPrice")) & "</pre>"

%>
</body>
</html>