%@ 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 |
713-623-2111
|
Livestock For Small Acreage Land Owners |
|
|
|
|