Newsletter
<%
'BEGIN FUNCTION AREA
Function Max(aNumberArray)
Dim I
Dim dblHighestSoFar
dblHighestSoFar = Null
For I = LBound(aNumberArray) to UBound(aNumberArray)
' Testing line left in for debugging if needed
'Response.Write aNumberArray(I) & "
"
If IsNumeric(aNumberArray(I)) Then
If CDbl(aNumberArray(I)) > dblHighestSoFar Or IsNull(dblHighestSoFar) Then
dblHighestSoFar = CDbl(aNumberArray(I))
End If
End If
Next 'I
Max = dblHighestSoFar
End Function
' END FUNCTION AREA
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = &H0001
Const adAffectAll = 3
Const adExecuteNoRecords = &H00000080
Const adLockOptimistic = 3
Set CONN_STRING = Server.CreateObject("ADODB.Connection")
CONN_STRING.Open "DBQ=" & Server.MapPath("/data/newsletter.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;MaxBufferSize=8192;Threads=20;", "admin", "hhm"
Dim SCRIPT_NAME
SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME")
' Declare our standard variables.
Dim cnnDBEdit, rstDBEdit ' ADO objects
Dim strSQL ' To hold various SQL Strings
Dim iRecordId ' Used to keep track of the record in play
strSQL = "SELECT * FROM Newsletter ORDER BY ID;"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset")
rstDBEdit.Open strSQL, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText
strValues = ""
Do While Not rstDBEdit.EOF
strValues = strValues & rstDBEdit.Fields("ID").Value & ", "
rstDBEdit.MoveNext
Loop
strValues = strValues & "0"
aValues = Split(strValues, ",", -1, 1)
MaxNewsletter = Max(aValues)
strSQL = "SELECT * FROM Newsletter WHERE ID=" & MaxNewsletter & ";"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset")
rstDBEdit.Open strSQL, CONN_STRING, adOpenKeyset, adLockOptimistic, adCmdText
If Not rstDBEdit.EOF Then
%>
|
Newsletter Archives
<%
response.write "Volume " & Server.HTMLEncode(rstDBEdit.Fields("Volume").Value) & " "
response.write "Issue " & Server.HTMLEncode(rstDBEdit.Fields("Issue").Value) & "
"
response.write Server.HTMLEncode(rstDBEdit.Fields("DateMonth").Value) & " "
response.write Server.HTMLEncode(rstDBEdit.Fields("DateYear").Value) & "
"
response.write "In This Issue: - "
Summary = rstDBEdit.Fields("Summary")
Summary = Replace(Summary, vbTab, " ")
Summary = Replace(Summary, vbCrLf, "
- ")
response.write Summary
%>
|
|
<%
response.write Server.HTMLEncode(rstDBEdit.Fields("Headline1").Value) & "
"
%>
|
<%
Newsletter1 = rstDBEdit.Fields("Newsletter1")
Newsletter1 = Replace(Newsletter1, vbTab, " ")
Newsletter1 = Replace(Newsletter1, vbCrLf, "
")
response.write Newsletter1
%>
|
|
<%
if rstDBEdit.Fields("Headline2") <> "
" then
%>
<%
response.write Server.HTMLEncode(rstDBEdit.Fields("Headline2").Value) & "
"
%>
|
<%
Newsletter2 = rstDBEdit.Fields("Newsletter2")
Newsletter2 = Replace(Newsletter2, vbTab, " ")
Newsletter2 = Replace(Newsletter2, vbCrLf, "
")
response.write Newsletter2
%>
|
|
<%
end if
if rstDBEdit.Fields("Headline3") <> "
" then
%>
<%
response.write Server.HTMLEncode(rstDBEdit.Fields("Headline3").Value) & "
"
%>
|
<%
Newsletter3 = rstDBEdit.Fields("Newsletter3")
Newsletter3 = Replace(Newsletter3, vbTab, " ")
Newsletter3 = Replace(Newsletter3, vbCrLf, "
")
response.write Newsletter3
%>
|
|
<%
end if
if rstDBEdit.Fields("Headline4") <> "
" then
%>
<%
response.write Server.HTMLEncode(rstDBEdit.Fields("Headline4").Value) & "
"
%>
|
<%
Newsletter4 = rstDBEdit.Fields("Newsletter4")
Newsletter4 = Replace(Newsletter4, vbTab, " ")
Newsletter4 = Replace(Newsletter4, vbCrLf, "
")
response.write Newsletter4
%>
|
|
<%
end if
if rstDBEdit.Fields("Headline5") <> "
" then
%>
<%
response.write Server.HTMLEncode(rstDBEdit.Fields("Headline5").Value) & "
"
%>
|
<%
Newsletter5 = rstDBEdit.Fields("Newsletter5")
Newsletter5 = Replace(Newsletter5, vbTab, " ")
Newsletter5 = Replace(Newsletter5, vbCrLf, "
")
response.write Newsletter5
%>
|
|
<%
end if
if rstDBEdit.Fields("Headline6") <> "
" then
%>
<%
response.write Server.HTMLEncode(rstDBEdit.Fields("Headline6").Value) & "
"
%>
|
<%
Newsletter6 = rstDBEdit.Fields("Newsletter6")
Newsletter6 = Replace(Newsletter6, vbTab, " ")
Newsletter6 = Replace(Newsletter6, vbCrLf, "
")
response.write Newsletter6
%>
|
|
<%
end if
if rstDBEdit.Fields("Headline7") <> "
" then
%>
<%
response.write Server.HTMLEncode(rstDBEdit.Fields("Headline7").Value) & "
"
%>
|
<%
Newsletter7 = rstDBEdit.Fields("Newsletter7")
Newsletter7 = Replace(Newsletter7, vbTab, " ")
Newsletter7 = Replace(Newsletter7, vbCrLf, "
")
response.write Newsletter7
%>
|
|
<%
end if
%>
<%
Else
Response.Write "Record not found!"
End If
rstDBEdit.Close
Set rstDBEdit = Nothing
Response.Write(BACK_TO_LIST_TEXT)
Dim cnnCleanUp, rstCleanUp, iRecordCount
Set cnnCleanUp = Server.CreateObject("ADODB.Connection")
cnnCleanUp.Open CONN_STRING
strSQL = "SELECT COUNT(*) FROM Newsletter;"
Set rstCleanUp = cnnCleanUp.Execute(strSQL, , adCmdText)
iRecordCount = rstCleanUp.Fields(0).Value
rstCleanUp.Close
Set rstCleanUp = Nothing
cnnCleanUp.Close
Set cnnCleanUp = Nothing
%>
|
