<%data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("../database/Artisandata.mdb") Set con = Server.CreateObject ("ADODB.Connection") con.open data_source IDC = request("ID") If IDC="" Then Response.Redirect "blank.htm" end If sql = "select Rag_Soc_GB, Descr_GB, Oggetti_GB, Materiali_GB from Descrizioni WHERE C_Cliente= " & IDC & ";" Set RSD=con.execute(sql) If RSD.EOF Then Response.Redirect "blank.htm" end If sqlF = "select * from Foto WHERE C_Cliente= " & IDC & ";" Set RSF=con.execute(sqlF) sqlC = "select cl.Rag_Sociale, cl.Titolare, cm.Comune from Clienti cl, Comuni cm WHERE cl.Codice= " & IDC & " AND cl.C_Citta=cm.Codice;" Set RSC=con.execute(sqlC) If RSC.EOF Then Response.Redirect "blank.htm" end If %> Artisan
<%=RSC("Rag_Sociale")%> (<%=RSD("Rag_Soc_GB")%>)
<%=RSC("Titolare")%>
<%=RSC("Comune")%>
<%=RSD("Oggetti_GB")%>
<%=RSD("Materiali_GB")%>
Do you want to know more about these artistic works?
Click on the hand and contact the artisan!
<%=RSD("Descr_GB")%>
<% Righe=0 If Not RSF.EOF Then If RSF("Foto1_s") <> "" Then Righe = 1 If RSF("Foto4_s") <> "" Then Righe = 2 If RSF("Foto7_s") <> "" Then Righe = 3 If RSF("Foto10_s") <> "" Then Righe = 4 End If For riga = 1 To Righe%> <% Next%>
<% If (riga = 1) Then%> Click to enlarge','FOTO1','width=300,height=200')" src="../Images/<%=RSF("Foto1_s")%>"> <% End If%> <% If (riga = 2) Then%> Click to enlarge','FOTO4','width=300,height=200')" src="../Images/<%=RSF("Foto4_s")%>"> <% End If%> <% If (riga = 3) Then%> Click to enlarge','FOTO7','width=300,height=200')" src="../Images/<%=RSF("Foto7_s")%>"> <% End If%> <% If (riga = 4) Then%> Click to enlarge"> <% End If%>
<% If (riga = 1) AND (RSF("Foto2_s") <> "") Then%> Click to enlarge','FOTO2','width=300,height=200')" src="../Images/<%=RSF("Foto2_s")%>"> <% End If%> <% If (riga = 2) AND (RSF("Foto5_s") <> "") Then%> Click to enlarge','FOTO5','width=300,height=200')" src="../Images/<%=RSF("Foto5_s")%>"> <% End If%> <% If (riga = 3) AND (RSF("Foto8_s") <> "") Then%> Click to enlarge','FOTO8','width=300,height=200')" src="../Images/<%=RSF("Foto8_s")%>"> <% End If%> <% If (riga = 4) AND (RSF("Foto11_s") <> "") Then%> Click to enlarge','FOTO11','width=300,height=200')" src="../Images/<%=RSF("Foto11_s")%>"> <% End If%>
<% If (riga = 1) AND (RSF("Foto3_s") <> "") Then%> Click to enlarge','FOTO3','width=300,height=200')" src="../Images/<%=RSF("Foto3_s")%>"> <% End If%> <% If (riga = 2) AND (RSF("Foto6_s") <> "") Then%> Click to enlarge','FOTO6','width=300,height=200')" src="../Images/<%=RSF("Foto6_s")%>"> <% End If%> <% If (riga = 3) AND (RSF("Foto9_s") <> "") Then%> Click to enlarge','FOTO9','width=300,height=200')" src="../Images/<%=RSF("Foto9_s")%>"> <% End If%> <% If (riga = 4) AND (RSF("Foto12_s") <> "") Then%> Click to enlarge','FOTO12','width=300,height=200')" src="../Images/<%=RSF("Foto12_s")%>"> <% End If%>