<%@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 rsReference__MMColParam rsReference__MMColParam = "4" If (Request("MM_EmptyValue") <> "") Then rsReference__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsReference Dim rsReference_numRows Set rsReference = Server.CreateObject("ADODB.Recordset") rsReference.ActiveConnection = MM_GabbString_STRING rsReference.Source = "SELECT * FROM Page_Info WHERE Page_No = " + Replace(rsReference__MMColParam, "'", "''") + " ORDER BY Page_Info_No ASC" rsReference.CursorType = 0 rsReference.CursorLocation = 2 rsReference.LockType = 1 rsReference.Open() rsReference_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsReferences_numRows = rsReferences_numRows + Repeat1__numRows %> Recruitment Services from gabb and co
gabb and co solicitors
home  |  info  |  services  |  links  |  recruitment  |  newsletters  |  testimonials  |  contact us
www.gabb.co.uk
 
recruitment at gabb and co >>  
<% While ((Repeat1__numRows <> 0) AND (NOT rsReference.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsReference.MoveNext() Wend %>

<% If (rsReference.Fields.Item("Page_Info_Title").Value) <> "" Then Response.Write(rsReference.Fields.Item("Page_Info_Title").Value & "
" & "
") End If%> <%=Replace(rsReference.Fields.Item("Page_Info_Details").Value,Chr(13), "
")%>

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