 |
 |
|
<%
dim conn as New SqlConnection(connectionstr)
If LetterID = -1 Then ' list archives
dim mycommand as New SqlCommand
mycommand.connection = conn
mycommand.commandtext = "PP_archivelist"
mycommand.CommandType = CommandType.StoredProcedure
dim rdr as SqlDataReader
conn.open()
rdr = mycommand.ExecuteReader()
%>
Past Newsletters
<%
While rdr.Read()
Dim id as Integer = rdr.GetInt32(0)
Dim Dt as string = rdr.GetString(1)
'Dt = Cint(Dt.Substring(5,2)) & "/" & Cint(Dt.Substring(0,4))
Dt = Left(Dt,10)
Response.Write("| ")
Response.Write(" " & Dt & "
" & rdr.GetString(2) & " ")
Response.Write(" | ")
End While
%>
<% Else
dim mycommand as New SqlCommand
mycommand.connection = conn
mycommand.commandtext = "PP_FetchNewsletter"
mycommand.Parameters.Add( "@id" , LetterID)
mycommand.CommandType = CommandType.StoredProcedure
dim rdr as SqlDataReader
conn.open()
rdr = mycommand.ExecuteReader()
If rdr.Read()
%>
<% Response.Write(rdr.GetString(0)) %>
<% Response.Write(rdr.GetString(1)) %>
<% End If %>
Return to Archives
<% End If
conn.close()
%>
Sign Up To Recieve The Email Newsletter
|
|
 |
