<% response.buffer=true %> <% If Request.QueryString("articleid") <> "" Then mySQL="SELECT * FROM ArticlesTB WHERE (ArticleID='" & Request.QueryString("articleid") & "')" Else mySQL="SELECT TOP 1 * FROM ArticlesTB WHERE Category = 'Scene' ORDER BY ArticleDate DESC" End If Set query=Server.CreateObject("ADODB.Recordset") query.Open mySQL, Connect, adOpenStatic, adLockOptimistic articleID = query("ArticleID") %> <% ' PAGE VARIABLES title=query("Title") & " : Lake Magazine" prefix="/" bg="" ad="none" %> <%= title %> onLoad="window.open('/promo_subscribe.asp','test','height=285,width=500,titlebar=no,status=no,toolbar=no,menubar=no,location=no');"<% end if %>> <% varSpaces=0 varTitle=query("Title") y=1 intSpace=1 For intCounter=1 to len(varTitle) +1 If mid(varTitle,intCounter,1)=" " Or intCounter=len(varTitle)+1 Then varSpaces=varSpaces+1 end if Next varSpaces=INT(varSpaces/2) For intCounter=1 to len(varTitle) +1 If mid(varTitle,intCounter,1)=" " Then varSpaceCount=varSpaceCount+1 if varSpaceCount=varSpaces then varUnboldTitle=left(varTitle,intCounter) varBoldTitle=mid(varTitle,intCounter,(len(varTitle)+1)-intCounter) end if end if Next %>
<%= UCASE(varUnBoldTitle) %> <%= UCASE(varBoldTitle) %>
<%= query("Summary") %> (<%= query("ArticleDate") %>)
<%= query("Article") %>

<% mySQL="SELECT * FROM PhotoTB WHERE ArticleID='" & articleID & "'" Set photoquery=Server.CreateObject("ADODB.Recordset") photoquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic y=0 %> <% if photoquery.EOF then %> <% else do until photoquery.EOF %> <% if x=3 OR x=0 then %><% end if %><% x=x+1%><% if x=3 then %> <% x=0 %> <% end if %> <% y=y+1 photoquery.MoveNext Loop y=0 x=0 %> <% end if %>
No photos entered
&x=<%= y %>>" border=1 width=50 style="border-color: #BFBFBF;">

<% mySQL="SELECT * FROM ArticlesTB WHERE (ArticleID<>'" & articleID & "') AND (Status<>'Unpublished') AND (Category='Scene') AND (Issue='" & varCurrentIssue & "')" Set query=Server.CreateObject("ADODB.Recordset") query.Open mySQL, Connect, adOpenStatic, adLockOptimistic if NOT query.EOF then %> More Scenes
<% do until query.EOF or y=4 %>

><%= query("Title") %>
<%= query("Summary") %> (<%= query("ArticleDate") %>)
<% query.MoveNext y=y+1 if x=0 then x=1 else x=0 end if %> <% loop %> <% end if %> 		<% mySQL="SELECT * FROM PhotoTB WHERE ArticleID='" & articleID & "'" Set photoquery=Server.CreateObject("ADODB.Recordset") photoquery.Open mySQL, Connect, adOpenStatic, adLockOptimistic if NOT query.EOF then photoquery.Move(Request.QueryString("x")) %> " border=1 style="margin-bottom: 10px;">
<%= photoquery("Caption") %>
<% if Request.QueryString("x")<>0 then %>&x=<%= Request.QueryString("x")-1 %>>Previous Photo<% end if %><% if INT(Request.QueryString("x"))&x=<%= Request.QueryString("x")+1 %>>Next Photo<% end if %>
<% End If %>