%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Dim i
Dim DB_CONNECTIONSTRING
Dim rsQuotes
DB_CONNECTIONSTRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\clfs\customers\webroot\b\a\barlo001\db\BarlowProjects.mdb; Persist Security Info=False"
i = 0
Set rsQuotes = Server.CreateObject("ADODB.Recordset")
%>
Barlow Projects, Inc. - Waste-to-Energy Solutions
<%
rsQuotes.Open "SELECT * FROM quotes Order By vorder", DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic
Response.Write("
")
Do Until rsQuotes.EOF
i = i + 1
Response.Write("