home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2003 July / INTERNET105.ISO / pc / experthelp_flash / getquotes.asp < prev    next >
Encoding:
Text File  |  2003-04-07  |  645 b   |  26 lines
  1. <%@ Language="VBScript" %>
  2. <%
  3.     strSQL = "SELECT * FROM tblQuotes"
  4.  
  5.     ConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("flash.mdb")
  6.     Set objConn = Server.CreateObject("ADODB.Connection")
  7.     objConn.Open ConnString
  8.  
  9.     Set objRS = Server.CreateObject("ADODB.Recordset")
  10.     objRS.Open strSQL, objConn
  11.  
  12.     intNumRS = 0
  13.     Do Until objRS.EOF
  14.         intNumRS = intNumRS + 1
  15.         Response.Write "theQuote" & intNumRS
  16.         Response.Write "=" & objRS("theQuote")
  17.         Response.Write "&"
  18.         objRS.MoveNext
  19.     Loop
  20.     Response.Write "intNumRS=" & intNumRS
  21.  
  22.     objRS.Close
  23.     Set objRS = Nothing
  24.     objConn.Close
  25.     Set objConn = Nothing
  26. %>