![]() |
|||
|
<%
Set newDB = Server.CreateObject("ADODB.Connection")
varDBString = "driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("ecommerce/features/CoachWorks/sitecontents.mdb")
newDB.Open varDBString
Set newRS = newDB.Execute("SELECT * FROM Coupons WHERE CouponId=1")
If (NOT(newRS.EOF)) Then
varTitle = newRS("CouponTitle")
varDescription = newRS("Description")
varExpiry = newRS("CouponExpiry")
End If
newDB.Close()
%>
|
||