gabb and co solicitors - newsletter's detail

<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" 'Dim MM_GabbString_STRING 'Dim MM_GabbString_Newsletter_STRING MM_GabbString_STRING = "dsn=GabbString;uid=;pwd=;" MM_GabbString_Newsletter_STRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\domains\g\gabbsolicitors.co.uk\user\htdocs\siteadmin\newsletteradmin\RTE\newsletterdb\admindb.mdb" & ";" %> <% Dim rsNewsletters__MMColParam rsNewsletters__MMColParam = "1" If (Request.QueryString("Newsletter_id") <> "") Then rsNewsletters__MMColParam = Request.QueryString("Newsletter_id") End If %> <% Dim rsNewsletters Dim rsNewsletters_numRows Set rsNewsletters = Server.CreateObject("ADODB.Recordset") rsNewsletters.ActiveConnection = MM_GabbString_Newsletter_STRING rsNewsletters.Source = "SELECT * FROM NewsletterTable WHERE Newsletter_id = " + Replace(rsNewsletters__MMColParam, "'", "''") + "" rsNewsletters.CursorType = 0 rsNewsletters.CursorLocation = 2 rsNewsletters.LockType = 1 rsNewsletters.Open() rsNewsletters_numRows = 0 %> gabb and co solicitors - newsletter's detail

www.gabb.co.uk

gabb and co newsletter's detail >>

Newsletter No.<%=(rsNewsletters.Fields.Item("Newsletter_ID").Value)%> : <%=(rsNewsletters.Fields.Item("Newsletter_Title").Value)%>

Summary :
<%=(rsNewsletters.Fields.Item("Newsletter_Summary").Value)%>

Contents :
<%=(rsNewsletters.Fields.Item("Newsletter_Details").Value)%>

<%=FormatDateTime(rsNewsletters.Fields.Item("Newsletter_Date").Value,1)%>

Back

<% rsNewsletters.Close() Set rsNewsletters = Nothing %>