<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" 'Dim MM_richardlewis_STRING 'MM_richardlewis_STRING = "dsn=richardlewis;" 'Dim MM_richardlewis_STRING MM_richardlewis_news_STRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\domains\r\richardsandlewissolicitors.com\user\htdocs\siteadmin\newsletteradmin\RTE\newsletterdb\admindb.mdb" & ";" %> <% Dim rsNews__MMColParam rsNews__MMColParam = "1" If (Request.QueryString("News_id") <> "") Then rsNews__MMColParam = Request.QueryString("News_id") End If %> <% Dim rsNews Dim rsNews_numRows Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.ActiveConnection = MM_richardlewis_news_STRING rsNews.Source = "SELECT * FROM NewsletterTable WHERE Newsletter_id = " + Replace(rsNews__MMColParam, "'", "''") + "" rsNews.CursorType = 0 rsNews.CursorLocation = 2 rsNews.LockType = 1 rsNews.Open() rsNews_numRows = 0 %> Richards and Lewis Solicitors

Richards & Lewis, Solicitors,
19 Market Street,
Ebbw Vale, Blaenau Gwent,
South Wales,
NP23 6HL
UK

Tel: 44(0)1495 350018
Fax: 44(0)1495 308116
DX: 43952 EBBW VALE

[an error occurred while processing this directive] <% Dim rsLatestNews Dim rsLatestNews_numRows Set rsLatestNews = Server.CreateObject("ADODB.Recordset") rsLatestNews.ActiveConnection = MM_richardlewis_news_STRING rsLatestNews.Source = "SELECT TOP 1 * FROM NewsletterTable WHERE Newsletter_MakeLive = True ORDER BY Newsletter_Date DESC" rsLatestNews.CursorType = 0 rsLatestNews.CursorLocation = 2 rsLatestNews.LockType = 1 rsLatestNews.Open() rsLatestNews_numRows = 0 %> <%if not rsLatestNews.eof then%>

"><%=(rsLatestNews.Fields.Item("Newsletter_Title").Value)%>

<%else%>

Latest news coming soon

<%end if%>

MORE NEWS

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

News

News No.<%=(rsNews.Fields.Item("Newsletter_ID").Value)%> : <%=(rsNews.Fields.Item("Newsletter_Title").Value)%>

<%=(rsNews.Fields.Item("Newsletter_Details").Value)%>

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

Back

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