<%@ Language=VBScript %>
<%
' Option Explicit
On Error Resume Next
Response.Expires = 0
'-- includes -----------------------------------------------------
'-----------------------------------------------------------------
Const sPageType = "Public"
Const sPageAccess = ""
%>
<%
'-- variables ----------------------------------------------------
'-----------------------------------------------------------------
Dim iID
Dim iNewsletterPublishDateMonth
Dim iNewsletterPublishDateDay
Dim iNewsletterPublishDateYear
Dim sNewsletterTitle
Dim sNewsletterBody
Dim objConn
Dim objRec
Dim sMessage
'-- parameters ---------------------------------------------------
'-----------------------------------------------------------------
iID = AdvQueryStringGet ("iID")
'-- constraints --------------------------------------------------
'-----------------------------------------------------------------
if iID = "" Then
sMessage = "No id was specified"
AdvMessageError sMessage
End If
'-- process ------------------------------------------------------
'-----------------------------------------------------------------
' open
if AdvDatabaseOpen (g_sDSNMain, "tblNewsletters", objConn, objRec) <> True Then
sMessage = "Unable to open database"
AdvMessageError sMessage
End If
' find
if AdvRecordFind (iID, objRec) <> True Then
sMessage = "Unable to find record"
AdvMessageError sMessage
End If
' read
iNewsletterPublishDateMonth = AdvDatabaseRead (objRec, "iNewsletterPublishDateMonth")
iNewsletterPublishDateDay = AdvDatabaseRead (objRec, "iNewsletterPublishDateDay")
iNewsletterPublishDateYear = AdvDatabaseRead (objRec, "iNewsletterPublishDateYear")
sNewsletterTitle = AdvDatabaseRead (objRec, "sNewsletterTitle")
sNewsletterBody = AdvDatabaseRead (objRec, "sNewsletterBody")
if Err.Number <> 0 Then
sMessage = "Unable to read fields"
AdvMessageError sMessage
End If
' close
if AdvDatabaseClose (objConn, objRec) <> True Then
sMessage = "Unable to close database"
AdvMessageError sMessage
End If
%>
Country Music Miniature Donkeys - <%Response.Write sNewsletterTitle%>
