<%@ Language=VBScript %>
<%Response.Buffer=True%>
Wades - Monthly Specials
<%
OpenConnection1
Set rs=Server.CreateObject("ADODB.Recordset")
Sel="Select * From Monthly WHERE nDisplay=1 ORDER BY MonthlyID"
rs.Open Sel,DB,1,3
%>
<%If Not rs.EOF then
While Not rs.EOF %>
">
<%=rs("txtHeading")%>
<%=rs("txtDescription")%>
<%rs.MoveNext
Wend
rs.Close
Else
rs.Close%>
Our Monthly Specials are currently unavailable. Please check back soon!
">