Contact gabb and co solicitors

<%@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 rsContact Dim rsContact_numRows Set rsContact = Server.CreateObject("ADODB.Recordset") rsContact.ActiveConnection = MM_GabbString_STRING rsContact.Source = "SELECT Contact_Town, Contact_Address, Contact_Tel, Contact_Fax, Contact_DX, Contact_Email, Contact_Map FROM Contact" rsContact.CursorType = 0 rsContact.CursorLocation = 2 rsContact.LockType = 1 rsContact.Open() rsContact_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsContact_numRows = rsContact_numRows + Repeat1__numRows %> Contact gabb and co solicitors

www.gabb.co.uk

how to contact us at gabb and co >>

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

<%=(rsContact.Fields.Item("Contact_Town").Value)%>

<%=(rsContact.Fields.Item("Contact_Address").Value)%>

Tel:<%=(rsContact.Fields.Item("Contact_Tel").Value)%> Fax:<%=(rsContact.Fields.Item("Contact_Fax").Value)%>

DX:<%=(rsContact.Fields.Item("Contact_DX").Value)%>

Email:"><%=(rsContact.Fields.Item("Contact_Email").Value)%>

MAP: " target="_blank">Click here for a map to this address

Name:
Address:
Tel. No:
E.mail:
Area of Interest:
Enquiry:

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