<% On Error Resume Next Err.Clear Set GetConnection = CreateObject("MSXML2.ServerXMLHTTP") lResolve = 5 * 1000 lConnect = 5 * 1000 lSend = 15 * 1000 lReceive = 15 * 1000 GetConnection.setTimeouts lResolve, lConnect, lSend, lReceive ' GetConnection.Open "get", "http://syndication.wmg.com:8766/stdpck/syndicationquery.html?col=elektra&qp=pagetype:tour&qt=artistname:damageplan&rf=3&dt=in&tourheading=date:date:100|venue:venue:250|city:city:140|state:state:90|country:country:100|notes:note:450", False GetConnection.Open "get", "http://www.elektra.com/syndicationquery.jsp?qp=pagetype:tour&qt=artistid:846193&rf=1&dt=in&tourheading=date:date:100|venue:venue:250|city:city:140|state:state:90|country:country:100|notes:note:450", False GetConnection.Send("64.12.34.233") ResponsePage = GetConnection.responseText If Err.Number <> 0 Then ResponsePage = "There is a problem with the tour information. Please check back again later." End If Response.write (ResponsePage) Set GetConnection = Nothing On Error Goto 0 %>