<%@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 rsLinks Dim rsLinks_numRows Set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.ActiveConnection = MM_GabbString_STRING rsLinks.Source = "SELECT * FROM Links" rsLinks.CursorType = 0 rsLinks.CursorLocation = 2 rsLinks.LockType = 1 rsLinks.Open() rsLinks_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsLinks_numRows = rsLinks_numRows + Repeat1__numRows %> gabb and co links
gabb and co solicitors
home  |  info  |  services  |  links  |  recruitment  |  newsletters  |  testimonials  |  contact us
www.gabb.co.uk
 
gabb and co links >>
 
<% If (NOT rsLinks.EOF) AND (NOT rsLinks.BOF) Then While ((Repeat1__numRows <> 0) AND (NOT rsLinks.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsLinks.MoveNext() Wend Else Response.Write("") End If %>

<%=(rsLinks.Fields.Item("Link_Name").Value)%>

"><%=rsLinks.Fields.Item("Link_Link").Value%>
" & "Awaiting Information..." & "
<% rsLinks.close set rsLinks = Nothing %>