<%= WeekDayName(WeekDay(Date)) %> <%= MonthName(month(date())) %> <%= Day(date) %>, <%= Year(Date) %> <%= varIssueBlurb %>
<%
mySQL="SELECT * FROM ArticlesTB WHERE (Category='Features') AND (Status='Publish' OR Status='Featured' OR Status='Online Only') AND (Issue='" & varCurrentIssue & "')"
Set query=Server.CreateObject("ADODB.Recordset")
query.Open mySQL, Connect, adOpenStatic, adLockOptimistic
if NOT query.EOF then
%><% do until query.EOF OR x=4 %><%= query("Title") %> <%= query("Summary") %>
<% query.MoveNext x=x+1 loop x=0 %><% end if %>   |
|
|
<%
mySQL="SELECT * FROM ArticlesTB WHERE (Category='Departments') AND (Status='Publish' OR Status='Featured' OR Status='Online Only') AND (Issue='" & varCurrentIssue & "')"
Set query=Server.CreateObject("ADODB.Recordset")
query.Open mySQL, Connect, adOpenStatic, adLockOptimistic
if NOT query.EOF then
%>
 <% do until query.EOF %><%= query("Title") %><% if query("Summary")<>"" then %> <%= query("Summary") %><% end if %> <% query.MoveNext loop %><% end if %> |
|
 <% mySQL="SELECT * FROM ArticlesTB WHERE (Category='Dune Ledger') AND (Status='Publish' OR Status='Featured' OR Status='Online Only') AND (Issue='" & varCurrentIssue & "')" Set query=Server.CreateObject("ADODB.Recordset") query.Open mySQL, Connect, adOpenStatic, adLockOptimistic if NOT query.EOF then %><% do until query.EOF OR x=4 %><%= query("Title") %> <%= query("Summary") %> <% query.MoveNext x=x+1 loop x=0 %><% end if %> |
<%
mySQL="SELECT * FROM RecipesTB"
Set query=Server.CreateObject("ADODB.Recordset")
query.Open mySQL, Connect, adOpenStatic, adLockOptimistic
if NOT query.EOF then
' CREATE RANDOM NUMBER
Randomize Timer / RND
intRangeSize=query.RecordCount
sngRandomValue = intRangeSize * RND()
varRandomNumber=Int(sngRandomValue) + 1
query.Move varRandomNumber-1
%>
<%= query("Name") %>
Another tasty recipe from the Lake Cookbook.
<% end if %>
<%= query("Name") %>
Another tasty recipe from the Lake Cookbook.
<% end if %>
view recipe
<%
mySQL="SELECT TOP 1 * FROM ads WHERE adZone = 2 AND adEndDate > GETDATE() ORDER BY NEWID()"
Set query=Server.CreateObject("ADODB.Recordset")
query.Open mySQL, Connect, adOpenStatic, adLockOptimistic
if NOT query.EOF then %>![](/banners/<%=query("adImage")%>)
<%
updateSQL="UPDATE ads SET adViews=adViews+1 WHERE adID = "&query("adID")
Connect.Execute(updateSQL)
end if%>