| <%
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("text/navigation.txt"), 1)
Response.Write(f.ReadAll)
f.Close
Set f=Nothing
Set fs=Nothing
%> |
Available now for rental:
Two self-contained apartments in a stone barn.
All accomodation has excellent facilities including barbecue and al fresco dining.
Breakfast provided on request.
Group packages - tell us what you want and we will organise it for you!
Spring to Autumn, the area is a green, vibrant landscape of high peaks, rushing streams, lakes and flora.
In Winter time, this area of the Pyrenees offers excellent seasonal sports.
The famous pilgrimage town of Lourdes is 20 minutes away.
|
<%
Randomize
dim max,min,cheese
max=10
min=1
cheese = (Int((max-min+1)*Rnd+min))
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../databases/LPRandom.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT ID, RandCode, RandDesc FROM RandomRight WHERE ID Like " & cheese , conn
%>
<%
response.write ("" & rs.fields("RandCode") & "
" & rs.fields("RandDesc") )
rs.close
conn.Close
%>
|