<%@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 rsInfo__MMColParam rsInfo__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then rsInfo__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsInfo Dim rsInfo_numRows Set rsInfo = Server.CreateObject("ADODB.Recordset") rsInfo.ActiveConnection = MM_GabbString_STRING rsInfo.Source = "SELECT Page_Info_Title, Page_Info_Details, Page_No FROM Page_Info WHERE Page_No = " + Replace(rsInfo__MMColParam, "'", "''") + " ORDER BY Page_Info_No ASC" rsInfo.CursorType = 0 rsInfo.CursorLocation = 2 rsInfo.LockType = 1 rsInfo.Open() rsInfo_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsInfo_numRows = rsInfo_numRows + Repeat1__numRows %> Information about gabb and co solicitors
gabb and co solicitors
home  |  info  |  services  |  links  |  recruitment  |  newsletters  |  testimonials  |  contact us
www.gabb.co.uk
 
information about gabb and co >>  
<% While ((Repeat1__numRows <> 0) AND (NOT rsInfo.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsInfo.MoveNext() Wend %>
<% If (rsInfo.Fields.Item("Page_Info_Title").Value) <> "" Then Response.Write(rsInfo.Fields.Item("Page_Info_Title").Value & "
" & "
") End If%> <%=Replace(rsInfo.Fields.Item("Page_Info_Details").Value,Chr(13), "
")%>
<% rsInfo.Close() Set rsInfo = Nothing %>