% 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 » <%= ucase(category) %> |
» Choose your postcard by clicking on the radio button and fill in the form at the bottom of the page: |