% response.buffer=true %> <% ' PAGE VARIABLES title="Lake Magazine, Resort Lifestyle on Lake Michigan" ad="none" %>
|
<%
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 %>
<%
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 %>
|