<% 'Define main variants and call the subroutine Dim strLine1, strLine2, strLine3, strSource GetQuote strLine1, strLine2, strLine3, strSource %> <% =strLine1 %><% =strLine2 %><% =strLine3 %><% =strSource %>

Hit the "refresh" button on your browser to get a new quote.