<%@ Language=VBScript %>
Val di Fassa - Trentino - Dolomiti - Dolomites - Dolomiten - Italy
Listino
Prezzi
<%
Dim con
Dim rst
Dim strSQL
dim strConnString
set con = Server.CreateObject("ADODB.Connection")
strpath="./"
urlDB= server.mappath(strpath)
'urlDB=""
urlDB = urlDB & "\hoalpadm.mdb"
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&urlDB
'Response.Write urlDB
'strConnString="driver={Microsoft Access Driver (*.mdb)};dbq="& urlDB
'response.write "A:" & urlDB
con.Open strConnString
'con.Open("hotelaipini.net")
strSQL = "SELECT * FROM prezzi " & _
"ORDER BY idprezzi"
Set rst = Server.CreateObject("ADODB.Recordset")
rst.Open strSQL, con
If Not rst.EOF Then
%>
| |
DAL |
|
AL |
|
PENSIONE
COMPLETA |
|
MEZZA PENSIONE |
|
<%
Do While Not rst.EOF
%>
| |
<%= rst("dal1") %> |
|
<%= rst("al1") %> |
|
<%= rst("prezzo1") %> |
|
<%= rst("prezzo2") %> |
|
<%
rst.MoveNext
Loop
Else
%>
| No records in recordset <%
End If
rst.Close
con.Close
%> |
Riduzione 3° e 4° letto da 2/4 anni 50%
Riduzione 3° e 4° letto da 4/10 anni 20%
Riduzione 3° e 4° letto adulti 10%
Realizzato dalla Benfour arl