When you think ASP, think...
Recent Articles
All Articles
ASP.NET Articles
ASPFAQs.com
Message Board
Related Web Technologies
User Tips!
Coding Tips

Sections:
Sample Chapters
Commonly Asked Message Board Questions
JavaScript Tutorials
MSDN Communities Hub
Official Docs
Security
Stump the SQL Guru!
XML Info
Information:
Feedback
Author an Article
ASP ASP.NET ASP FAQs Message Board Feedback
Print this page.
Published: Sunday, July 11, 1999

Grabbing Information from other Servers


Have you ever wanted to write an ASP page that did the following: execute an ASP script on another webserver; retrieve that remote ASP script's output; and act on that output? Or perhaps you've always wanted to be able to do remote Server Side Includes, like <!--#include file="http://www.someserver.com/somefile.txt"-->. ASP, alone, can't do that sort of thing. There are, however, third party components that will!

- continued -

'

There are two components that I am aware of. The first, AspHttp, costs $49.95 for a single CPU liscense. Being a cheap skate, I am not going to discuss this component, since I can't test it out without paying $50 bucks. Fortunately there is a free component, AspTear, from Softwing. :)

This component is easy to install, and even easier to use. Let's say that you want to execute an ASP script on another server that returns the current stock price for Microsoft. We could write our own ASP script on our own server that would show this value, by simply doing:

'AspTear constants
Const Request_POST = 1
Const Request_GET = 2

Set objTear = CreateObject("SOFTWING.ASPtear")
Response.ContentType = "text/html"

On Error Resume Next

Dim strRetval
' URL, action, payload, username, password
strRetval = objTear.Retrieve("http://www.stockquotes.com/msft.asp", Request_GET, "", "", "")

If Err.Number <> 0 Then
     Response.Write "<b>"
     If Err.Number >= 400 Then
         Response.Write "Server returned error: " & Err.Number
     Else
         Response.Write "Component/WinInet error: " & Err.Description
     End If
     Response.Write "</b>"
Response.End
End If

Response.Write "Microsoft currently selling at " & FormatCurrency(strRetval, 2)

Please note that I have no idea if there even exists an http://stockquotes.com, I just made up an example site/ASP script that might return Microsoft's current stock price.

It's pretty easy, eh? You can even send information in the QueryString or POST (to do so, you choose Request_GET or Request_POST, respectively). So, let's say that there was an ASP page that would return any stock quote. All you needed to do was specify the stock symbol in the QueryString. Let's look at how the code for that might look:

'AspTear constants
Const Request_POST = 1
Const Request_GET = 2

Set objTear = CreateObject("SOFTWING.ASPtear")
Response.ContentType = "text/html"

On Error Resume Next

Dim strRetval
' URL, action, payload, username, password
strRetval = objTear.Retrieve("http://www.stockquotes.com/getquote.asp", Request_GET, "symbol=MSFT", "", "")

' ... Error checking code omitted ...

Response.Write "Microsoft currently selling at " & FormatCurrency(strRetval, 2)

And you're not limited to executing just ASP scripts. You can grab raw HTML, or execute Perl or CGI scripts. Pretty neat, eh?

Happy Programming!



ASP.NET [1.x] [2.0] | ASPMessageboard.com | ASPFAQs.com | Advertise | Feedback | Author an Article