<% category = Request("category") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Session("DataConn_ConnectionString") sql = "SELECT * from immagini where categoria='" & category & "'" Set foto = Conn.Execute(sql) select case lcase(category) case "views" postcards = "Cathedral, Sunset on Ponte Vecchio, David in Piazzale Michelangelo, Florence from the Hills, Bridges" case "churches" postcards = "Dome of Santa Maria del Fiore, Santa Croce Chapel, San Miniato, Santa Maria Novella" case "drawings" postcards = "Dome of Santa Maria del Fiore, Giglio" case "monuments" postcards = "Baptistery, Michelangelo's David, Palazzo Vecchio, Palazzo Medici Riccardi, Orsanmichele" case "paintings" postcards = "Botticelli's Primavera, Botticelli's Venere, Cimabue's Holy Mother, Michelangelo's Tondo Doni" end select %> Free Virtual Postcards from Florence, Italy » <%= category %>

free virtual postcards from florence italy - <%= lcase(category) %>: <%= replace(lcase(postcards),", ",",") %>


  FREE VIRTUAL POSTCARDS FROM FLORENCE, ITALY » <%= ucase(category) %>  


» Choose your postcard by clicking on the radio button and fill in the form at the bottom of the page:

<% count = 0 %> <% Do While not foto.EOF %> <% foto.MoveNext Loop %>


<% count = count + 1 %>
','<% = count %>',<% = foto("width")+20%>,<% = foto("height")+20%>)">" border=0>
checked<% end if %> value="<% = foto("urlfoto") %>"> <%= foto("didascalia") %>

Original size: <%= foto("width") %>x<% = foto("height")%> pixel

Click on the picture to see the original
(JavaScript required)



» Please fill in the form:


Your Name:
    Your E-mail:
      (username@domainname)
Recipient Name:
    Recipient E-mail:
      (username@domainname)
Type your message:

(Max 200 chr.)

<% set foto = nothing conn.close set conn = nothing %>