<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/yo.mdb") sql = "SELECT * FROM Tabella1 WHERE Tipo=2 And Visibile=1" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn i=0 %>

Youth Hostel Firenze 2000

Information/Booking

Arrival Date *

Departure Date *

 

            

 

Number of people  

Number of rooms required
         
 

Separate beds   

Double bed 

 

<% Do Until rs.EOF i=i+1 %> <% rs.MoveNext Loop 'Chiudo il recordset e libero la memoria rs.Close Set rs = Nothing 'Chiudo la connessione al database e libero la memoria conn.Close Set conn = Nothing %>

No Offer
Offer <%=i%> >

 

 

Special Facilities / Information Requested

  

Personal Information  

Name Surname *  
     
Email *  
     
Address  
     
Country  
     
Telephone  
     
Fax  
     

      

You’ll receive a response in 48h

* Information Required