<%@ Language=VBScript %>
<%
'*************************************************************************
' DO NOT MODIFY THIS SCRIPT IF YOU WANT UPDATES TO WORK!
' Function : Newsletters and Mailing List
' Product : CandyPress Store Administration
' Version : 2.5
' Modified : February 2004
' Copyright: Copyright (C) 2004 CandyPress.Com
' See "license.txt" for this product for details regarding
' licensing, usage, disclaimers, distribution and general
' copyright requirements. If you don't have a copy of this
' file, you may request one at webmaster@candypress.com
'*************************************************************************
Option explicit
Response.Buffer = true
const adminLevel = 1
%>
<%
'Newsletters
dim idNews
dim newsBookmark
dim newsSubj
dim newsBody
'Database
dim mySQL, cn, rs, rs2
'*************************************************************************
'Open Database Connection
call openDB()
'Store Configuration
if loadConfig() = false then
response.redirect "sysMsg.asp?errMsg=" & server.URLEncode("Could not load Store Configuration settings.")
end if
'Check for most recent newsletter
mySQL="SELECT TOP 1 " _
& " idNews,newsBookmark,newsSubj,newsBody " _
& "FROM newsletters " _
& "ORDER BY idNews "
set rs = openRSexecute(mySQL)
if not rs.eof then
newsBody = trim(rs("newsBody"))
idNews = rs("idNews")
newsBookmark= trim(rs("newsBookmark"))
newsSubj = trim(rs("newsSubj"))
end if
call closeRS(rs)
'Close database connection
call closedb()
%>