<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/mdb-database/gruppischeda.mdb") ) Set Rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM gruppischeda WHERE gruppo = "& request.querystring("id") Rs.Open sql, Conn, 1, 3 If Rs.EOF then response.write "
" else response.write ""& replace(Ucase(Rs("titolo")),"##","'") &"" foto1 = Rs("foto1") foto3 = Rs("foto3") foto2 = Rs("foto2") foto4 = Rs("foto4") foto5 = Rs("foto5") foto6 = Rs("foto6") foto7 = Rs("foto7") foto8 = Rs("foto8") foto9 = Rs("foto9") foto10 = Rs("foto10") if Rs("didfoto1") <> "0" then didfoto1 = replace(Rs("didfoto1"),"##","'") else didfoto1 = "" end if if Rs("didfoto2") <> "0" then didfoto2 = replace(Rs("didfoto2"),"##","'") else didfoto2 = "" end if if Rs("didfoto3") <> "0" then didfoto3 = replace(Rs("didfoto3"),"##","'") else didfoto3 = "" end if if Rs("didfoto4") <> "0" then didfoto4 = replace(Rs("didfoto4"),"##","'") else didfoto4 = "" end if if Rs("didfoto5") <> "0" then didfoto5 = replace(Rs("didfoto5"),"##","'") else didfoto5 = "" end if if Rs("didfoto6") <> "0" then didfoto6 = replace(Rs("didfoto6"),"##","'") else didfoto6 = "" end if if Rs("didfoto7") <> "0" then didfoto7 = replace(Rs("didfoto7"),"##","'") else didfoto7 = "" end if if Rs("didfoto8") <> "0" then didfoto8 = replace(Rs("didfoto8"),"##","'") else didfoto8 = "" end if if Rs("didfoto9") <> "0" then didfoto9 = replace(Rs("didfoto9"),"##","'") else didfoto9 = "" end if if Rs("didfoto10") <> "0" then didfoto10 = replace(Rs("didfoto10"),"##","'") else didfoto10 = "" end if testo = replace(Rs("testo"),"##","'") end if Rs.Close Set Rs = Nothing Conn.Close Set Conn = Nothing %>

<% if foto1 <> "0" then %>


<%=didfoto1%>
(clicca per ingrandire)



<%end if%><% if foto2 <> "0" then %>


<%=didfoto2%>
(clicca per ingrandire)



<%end if%> <% if foto3 <> "0" then %>


<%=didfoto3%>
(clicca per ingrandire)



<%end if%><% if foto4 <> "0" then %>


<%=didfoto4%>
(clicca per ingrandire)



<%end if%> <% if foto5 <> "0" then %>


<%=didfoto5%>
(clicca per ingrandire)



<%end if%> <% if foto6 <> "0" then %>


<%=didfoto6%>
(clicca per ingrandire)



<%end if%> <% if foto7 <> "0" then %>


<%=didfoto7%>
(clicca per ingrandire)



<%end if%> <% if foto8 <> "0" then %>


<%=didfoto8%>
(clicca per ingrandire)



<%end if%> <% if foto9 <> "0" then %>


<%=didfoto9%>
(clicca per ingrandire)



<%end if%> <% if foto10 <> "0" then %>


<%=didfoto10%>
(clicca per ingrandire)



<%end if%>
<%=testo%>

 

 

 

 
 

powered by first web - segnalato su www.viveretrapani.it

Cookie policy | Privacy policy