<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim objFS
Dim objTS
Dim color, font, size, text, scrollamount, counter, load, direction, scrolldelay
set objFS = CreateObject("Scripting.FileSystemObject")
set objTS = objFS.OpenTextFile(Server.MapPath("../database/prefs.txt"))
color = objTS.ReadLine
font = objTS.ReadLine
size = objTS.ReadLine
text = objTS.ReadLIne
scrollamount = objTS.ReadLine
counter = objTS.ReadLine
load = objTS.ReadLine
direction = objTS.ReadLine
scrolldelay = "5"
'Database
Dim objDB, dbpath, dbtable, dbrow, dbrow2
Set objDB = objFS.OpenTextFile(Server.MapPath("../database/db.txt"))
While Not objDB.AtEndOfStream
dbpath = objDB.ReadLine
dbtable = objDB.ReadLine
dbrow = objDB.ReadLine
dbrow2 = objDB.ReadLine
Wend
If len(dbpath) <> 0 then
Dim DBText(626)
Dim Link(626), sHtml1,sHtml2,sHtml3,sHtml4, Con, Connection
Set Con = Server.CreateObject("ADODB.Connection")
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath(dbpath) & ";" & _
"Persist Security Info=False"
Con.Open(Connection)
Dim rsQuery
Set rsQuery = Con.Execute("Select * From " & dbtable &"")
sHtml1 = "
"
sHtml2 = ""
sHtml4 = ""
t = 1
While Not rsQuery.EOF AND t <= 626
DBText(t) = rsQuery(dbrow)
Link(t) = rsQuery(dbrow2)
t = t + 1
rsQuery.MoveNext
Wend
End If
For i = 1 to t
DB = sHtml2 & Link(t) & sHtml3 & DB & sHtml4 & " --- " & sHtml2 & Link(i) & sHtml3 & DBText(i) & sHtml4
Next
%>
Deckbuilder Hall of Fame Photo Contest
Enter our "Deckbuilder Hall of Fame Photo Contest”
and you could win four tickets to a Browns, Steelers or Lions home football
game. Not to mention a $200 gift certificate for the restaurant of your
choice. Second place winner gets $500 of our Leisure Furniture™
to dress up your own deck. And third gets a $100 gift certificate worth
of Montana Range All-Natural Beef. Just follow our entry rules, and your
perfect escape could be just one Leisure Deck away.
