Buster's Source Code Samples :: Buster's Blog :: TicketCity.com RSS Feeds :: TicketCity Blog
Here is a Classic ASP source code example that can be used to retrieve data
from a Webservice (this example uses one from TicketCity.com)

Copy all the code below the line and paste into an page on your web server
with the extenstioin ".asp" (for example "GetEvents.asp"). You will also
need the "events.xsl" file on your server for transformation.

You can download a zip file with all the source code needed, if you prefer.

<html>
<head>
<title>XML Webservice Request Using ASP Classic - For Upcoming Events Available from TicketCity.com</title>
<style>
*{font-family:verdana;}
td{vertical-align:top;padding:5px 5px 5px 5px;}
</style>
</head>
<body>
<%
' set your personal TicketCity API Key variable to pass on each request
APIKEY = "######### YOUR APIKEY GOES HERE!!! ##########"

' change the WSURL variable to the exact URL of the Webservice method you want to request
WSURL = "http://www.ticketcity.com/ws/XMLTicketAPIv3/XMLTicketAPIv3.asmx/GetEvents?APIKEY="&APIKEY

Dim objHTTP ' this object is used to call the RSS Feed remotely
Dim WSURL,WSXML ' these variables hold the Webservice URL and the returned XML data
Dim xmlWSXML ' this variable hold the XML data in a DOM Object

' this code requests the raw RSS/XML and saves the response as a string <WSXML>
Set objHTTP = Server.CreateObject("Msxml2.ServerXMLHTTP")
objHTTP.open "GET",WSURL,false
objHTTP.send
WSXML = objHTTP.responseText

%>
<!-- output the raw XML return -->
<textarea cols="80" rows="15"><%=WSXML%></textarea><hr />
<%

' this code takes the raw WSXML string and loads it into an XML Object
Set xmlWSXML = Server.CreateObject("Msxml2.DOMDocument.5.0")
xmlWSXML.async = false
xmlWSXML.LoadXml(WSXML)

Set xsl = Server.CreateObject("Msxml2.DOMDocument.5.0")
xsl.async = false
xsl.Load(Server.MapPath("events.xsl"))

' ouput the transformed HTML
Response.Write(xmlWSXML.transformNode(xsl))
%>

</body>
</html>