BE THE FIRST TO LEARN ABOUT OUR UPCOMING SHOWS! Leave your information and e-mail address, and you will be among the first to learn about our upcoming shows. You'll receive information regarding dates, times and ticket prices and will be able to click a link to order tickets immediately. Just click here to signup.
<% dim intNewsletterId
intNewsletterId = request("newsletterid") + 0
if intNewsletterId>0 then
sql="Select* from Newsletters where newsletterid=" & intNewsletterId & ";"
else
sql="Select * From Newsletters Where Active=true order by DatePosted desc, newsletterId"
end if
Call objRecordSet.Open( sql, objConnection, adOpenForwardOnly, adLockOptimistic, adCmdText)
if not objRecordSet.eof Then
'does this article have a photo?
dim objFileScripting,blnPicture
Set objFileScripting = CreateObject("Scripting.FileSystemObject")
blnPicture= objFileScripting.FileExists(Application("MainDirectory") & "images\newsletterphoto" & intNewsletterId & ".jpg")
'response.write(objFileScripting.FileExists(Application("MainDirectory") & "images\newsletterphoto" & intNewsletterId & ".jpg"))
%>
<% 'get the id of the one showing for later use
intNewsletterId=objRecordset("NewsletterId")%>
| <% =objRecordSet("HeadLine")%> |
Posted: <%=objRecordSet("DatePosted")%> |
<% blnPicture=objFileScripting.FileExists(Application("MainDirectory") & "images\newsletterphoto" & intNewsletterId & ".jpg")%>
<% if blnPicture then%> <% end if%><% =objRecordSet("body")%>
|
Other Postings
Click on any of the news releases from the list below to read that release.
<% objRecordSet.Close
sql="Select * From Newsletters Where Active=true AND NewsletterId<>" & intNewsletterId & " order by DatePosted desc"
Call objRecordSet.Open( sql, objConnection, adOpenForwardOnly, adLockOptimistic, adCmdText)
do while not objRecordSet.eof
%>
"><% =objRecordSet("HeadLine")%> – Posted <% =objRecordSet("DatePosted")%>
<% objRecordSet.MoveNext
loop
else%>
Watch for our first newsletter coming soon.
<% end if
objRecordSet.Close
objConnection.Close%>
Thank you for supporting the arts in Door County.
