Seasonal Specials
Enchanted Hands Day Spa has put together a fabulous array of spa packages designed for appreciated gift giving and wonderful
personal pampering.
<%
dim mdbfile
mdbfile = "../db/EHDS.mdb"
set connEHDS = server.createobject("ADODB.Connection")
connEHDS.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( mdbfile ) & ";"
%>
<%
Dim connEHDS
Dim str1
Dim rs1
Dim str2
Dim rs2
Dim ImageFile
Set rs2 = Server.CreateObject("ADODB.Recordset")
str2 = "SELECT * FROM Choice WHERE ID = 1;"
Set rs2 = connEHDS.Execute(str2)
ImageFile = rs2("ChoiceNo")
IF ImageFile = 0 THEN
ELSE %>
<%
END IF
rs2.Close
SET rs1 = Nothing
%>
<%
str1 = "SELECT * FROM Specials ORDER BY SpecialPrice"
Set rs1 = connEHDS.Execute(str1)
rs1.MoveFirst
Do While Not rs1.EOF %>
<% =rs1("specialName") %> |
<% =FormatCurrency(rs1("SpecialPrice")) %> |
<% =rs1("SpecialDesc") %> |
 |
<% rs1.MoveNext %>
<% Loop
rs1.Close
SET rs1 = Nothing
connEHDS.Close
SET connEHDS = Nothing
%>
Prices shown do not include applicable sales
taxes
Order on a Gift
Card today!
|
