% @Language = "VBScript" %> <% Option explicit %> <% Dim gAdoCon, gAdoRec Dim connStr, strtSQL Dim todaysDate Set gAdoCon = Server.CreateObject("ADODB.Connection") Set gAdoRec = Server.CreateObject("ADODB.RecordSet") 'Open connection to the data base gAdoCon.Open Application("auction_input_ConnectionString") todaysDate = Date() todaysDate=DateAdd("d", -1, todaysDate) 'Subtract a day to keep displayed for present day strtSQL = "SELECT * FROM Results WHERE AuctionDate>#" & todaysDate & "# ORDER BY AuctionDate ASC" Set gAdoRec = gAdoCon.Execute(strtSQL) %>
Agent for Carlyle Van Lines | "THE SMOOTHER MOVER" |
301-868-0320
301-894-4215 202-582-8292 (D.C.) 1-888-379-MOVE (6683) 7436 Alexandria Ferry Road Clinton, MD 20735 ICC MC# 350433 E-mail: jms778@live.com |
AuctionsUpcoming Auctions<% Do While Not gAdoRec.EOF %><%= FormatDateTime(gAdoRec.Fields("AuctionDate").Value,vbLongDate) %>
<%= gAdoRec.Fields("StartTime").Value %>
<%= gAdoRec.Fields("ExtraInfo").Value %>
<%
gAdoRec.MoveNext
Loop
gAdoRec.Close
gAdoCon.Close
Set gAdoRec = Nothing
Set gAdoCon = Nothing
%>
|
copyright © 2008, Johnson Moving & Storage, all rights reserved