Cornerstone Publications

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Cornerstone Publications

Audio Messages...

To download the audio file onto your computer,
place the cursor over the Download link,
then click your right-mouse button and select "Save Target As..."

(These messages utilize
the FREE RealAudio player)

<% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsCSPmessages 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query to query the database dim s s = Server.HTMLEncode(Request.QueryString("Key")) 'Because we use this variable, and it might not be set... If "" = s Then s = "T20030113" End If 'Create an ADO connection object Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/bancodata.mdb") 'Create an ADO recordset object Set rsCSPmessages = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT tblCSPmessages.* FROM tblCSPmessages" strSQL = strSQL & " WHERE (((tblCSPmessages.MessageKey) = '" & s & "'));" 'Open the recordset with the SQL query rsCSPmessages.Open strSQL, adoCon %> <% On Error Resume Next Response.Write "" Response.Write "" %>

<% On Error Resume Next Response.Write "" %>

" & rsCSPmessages(2) & " " Response.Write FormatMediumDate(rsCSPmessages(3)) & "

" Response.Write "Play

" Response.Write "Download

<% Response.Write "" %>

Description:
" Response.Write rsCSPmessages(5) & "

<% Function FormatMediumDate(DateValue) Dim strYYYY Dim strMM Dim strDD strYYYY = CStr(DatePart("yyyy", DateValue)) 'strMM = MonthName(DatePart("m", DateValue),true) strMM = CStr(DatePart("m", DateValue)) If Len(strMM) = 1 Then strMM = "0" & strMM strDD = CStr(DatePart("d", DateValue)) If Len(strDD) = 1 Then strDD = "0" & strDD FormatMediumDate = strMM & "/" & strDD & "/" & strYYYY End Function %> <% 'Reset server objects rsCSPmessages.Close Set rsCSPmessages = Nothing Set adoCon = Nothing %>