<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsLinks Dim rsLinks_numRows Set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.ActiveConnection = MM_oviatt_STRING rsLinks.Source = "SELECT * FROM tbl_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 %> Want to Rent Spain - Other links of Interest
 
 
 
 
 
 
 

Want to Rent Spain?
 
Search for a Spanish rental property
register your property for rental
members login area
Want to Rent Spain Home Page
How to Contact Us
Car Hire in Spain
Flights to Spain
The Links Page
 
Other Links of Interest
<% If Not rsLinks.EOF Or 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 %>
Link Description
<%=(rsLinks.Fields.Item("link").Value)%>
<%=(rsLinks.Fields.Item("linktext").Value)%>
<% End If ' end Not rsLinks.EOF Or NOT rsLinks.BOF %>
 

 

© Copyright 2004 all rights reserved wanttorentspain.com - design and hosting www.pipm.com
<% rsLinks.Close() Set rsLinks = Nothing %>