gabb and co solicitors - you're in safe hands

<%@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 rsHome__MMColParam rsHome__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rsHome__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsHome Dim rsHome_numRows Set rsHome = Server.CreateObject("ADODB.Recordset") rsHome.ActiveConnection = MM_GabbString_STRING rsHome.Source = "SELECT Page_Info_Title, Page_Info_Details, Page_No FROM Page_Info WHERE Page_No = " + Replace(rsHome__MMColParam, "'", "''") + " ORDER BY Page_Info_No ASC" rsHome.CursorType = 0 rsHome.CursorLocation = 2 rsHome.LockType = 1 rsHome.Open() rsHome_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsHome_numRows = rsHome_numRows + Repeat1__numRows %> gabb and co solicitors - you're in safe hands

www.gabb.co.uk

welcome to gabb and co >>

<% While ((Repeat1__numRows <> 0) AND (NOT rsHome.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsHome.MoveNext() Wend %>

<% If (rsHome.Fields.Item("Page_Info_Title").Value) <> "" Then Response.Write(rsHome.Fields.Item("Page_Info_Title").Value & "

" & "

") End If%> <%=Replace(rsHome.Fields.Item("Page_Info_Details").Value,Chr(13), "
")%>

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