Newsletter
<%
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")
Dim BACK_TO_LIST_TEXT
BACK_TO_LIST_TEXT = " Click " _
& "here to go back to record list. "
' 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
' Choose what to do by looking at the action parameter
Select Case LCase(Trim(Request.QueryString("action")))
Case "view"
iRecordId = Request.QueryString("ID")
If IsNumeric(iRecordId) Then
iRecordId = CLng(iRecordId)
Else
iRecordId = 0
End If
strSQL = "SELECT * FROM Newsletter WHERE ID=" & iRecordId & ";"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset")
rstDBEdit.Open strSQL, CONN_STRING, adOpenKeyset, adLockOptimistic, adCmdText
If Not rstDBEdit.EOF Then
%>
|
Back to 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)
Case Else
strSQL = "SELECT * FROM Newsletter ORDER BY Volume, Issue DESC;"
Set rstDBEdit = Server.CreateObject("ADODB.Recordset")
rstDBEdit.Open strSQL, CONN_STRING, adOpenForwardOnly, adLockReadOnly, adCmdText
i = 0
%>
<%
rstDBEdit.Close
Set rstDBEdit = Nothing
End Select
%>
<%
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
%>
|
