|
| •
appartamenti |
<%
Dim conn_lm, rs_lm, strSQL_lm
Set conn_lm = Server.CreateObject("ADODB.Connection")
conn_lm.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Inetpub\wwwroot\adriamare\takemdb\appartamenti.mdb;" & _
"Jet OLEDB:Database"
Set rs_lm = Server.CreateObject("ADODB.RecordSet")
strSQL_lm = "SELECT * FROM appartamenti where (NOT lastminute='' AND NOT numero=0) order by numero, tipo"
rs_lm.open strSQL_lm,conn_lm,1
num_rec = rs_lm.RecordCount
if not(num_rec=0) then
%>
| •
last minute |
<% end if
rs_lm.close
conn_lm.close
set rs_lm = nothing
set conn_lm = nothing
set strSQL_lm = nothing
%>
| •
piantina |
| •
promozioni |
| •
dove siamo |
| •
agenzia
|
| •
listino |
| •
ricerca
|
| •
contatti
|
|
|
