Figure 3   HTML for Multiple Quotes


 •••
 <form action="http://webservices.pcquote.com/cgi-bin/excel.exe" 
 method="POST">
 <p align=center>Enter up to 20 symbols separated by spaces.
 <br>
 
 <input type=text size=50 maxlength=256 name="QUOTE0"> 
 <br>
 
 <INPUT TYPE=submit VALUE="Submit these symbols"> 
 <input type=reset value="Clear">
 <a href="/cgi-bin/namelook.exe?CGI">Symbol Guide</a>
 
 </p>
 
 </form>
 •••

Figure 6   Retrieving a Last Name


 <HTML>
 
 <HEAD>
 <TITLE>qryTelExt</TITLE>
 
 <BODY>
 
 <FORM METHOD="GET" ACTION="qryTelExt_13.ASP">
 [Last Name: ] <INPUT TYPE="Text" NAME="LastName"><P>
 <INPUT TYPE="Submit" VALUE="Run Query">
 </FORM>
 
 </BODY>
 
 </HTML>

Figure 7   qryTelExt_13.asp


 <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
 <html>
 
 <head>
 <meta http-equiv="Content-Type"
 content="text/html; charset=iso-8859-1">
 <meta name="GENERATOR" content="Microsoft FrontPage 2.0">
 <title>qryTelExt
 </title>
 </head>
 
 <body>
 
 <%
 Param = Request.QueryString("Param")
 Data = Request.QueryString("Data")
 %>
 
 <%
 If IsObject(Session("Northwind_conn")) Then
     Set conn = Session("Northwind_conn")
 Else
     Set conn = Server.CreateObject("ADODB.Connection")
     conn.open "Northwind","",""
     Set Session("Northwind_conn") = conn
 End If
 %>
 
 <%
 sql = "SELECT Employees.LastName, Employees.FirstName, Employees.Extension
 FROM Employees  WHERE (((Employees.LastName) Like '" & Request.QueryString("LastName")
 & "%'))"
     If cstr(Param) <> "" And cstr(Data) <> "" Then
         sql = sql & " And [" & cstr(Param) & "] = " & cstr(Data)
     End If
     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.Open sql, conn, 3, 3
 %>
 
 <table border="1" cellspacing="0" bgcolor="#FFFFFF">
     <caption align="top">
     <font color="#000000" face="Arial"><b>qryTelExt</b>
     </font>
     </caption>
     <font color="#000000" face="Arial"><THEAD></font>
     <tr>
         <th bgcolor="#C0C0C0" bordercolor="#000000">
         <font color="#000000" size="2" face="Arial">Last Name</font></th>
         <th bgcolor="#C0C0C0" bordercolor="#000000">
         <font color="#000000" size="2" face="Arial">First Name</font></th>
         <th bgcolor="#C0C0C0" bordercolor="#000000">
         <font color="#000000" size="2" face="Arial">Extension</font></th>
     </tr>
     <font color="#000000" face="Arial"></THEAD></font>
     <font color="#000000" face="Arial"><TBODY></font>
     <font color="#000000" face="Arial">
 
 <%
 On Error Resume Next
 rs.MoveFirst
 do while Not rs.eof
 %>
 
 </font>
     <tr>
         <td valign="top" bordercolor="#C0C0C0">
         <font color="#000000" size="2" face="Arial">
         <%=Server.HTMLEncode(rs.Fields("LastName").Value)%><br>
         </font></td>
         <td valign="top" bordercolor="#C0C0C0">
         <font color="#000000" size="2" face="Arial">
         <%=Server.HTMLEncode(rs.Fields("FirstName").Value)%><br>
         </font></td>
         <td valign="top" bordercolor="#C0C0C0">
         <font color="#000000" size="2" face="Arial">
         <%=Server.HTMLEncode(rs.Fields("Extension").Value)%><br>
         </font></td>
     </tr>
 
 <font color="#000000" face="Arial">
 
 <%
 rs.MoveNext
 loop
 %>
 
 </font>
 <font color="#000000" face="Arial"></TBODY></font>
 <font color="#000000" face="Arial"><TFOOT></font>
 <font color="#000000" face="Arial"></TFOOT></font>
 </table>
 
 </body>
 </html>