<% @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) %> Johnson Moving and Storage, Clinton, MD
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

make payment

Auctions

Upcoming 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