<% 'paginaprecedente = request.servervariables("HTTP_REFERER") idcliente=request("idcliente") set cnn = server.createobject("ADODB.connection") cnn.open "inser" set rs = server.createobject("ADODB.recordset") sql="SELECT scadenza FROM clienti WHERE IDcliente=" & idcliente & " ;" rs.open sql , cnn , adOpenStatic , adLockReadOnly rs.movefirst scadenza=rs("scadenza").value rs.close set rs=nothing if scadenza < now() then response.redirect "scaduta.html" %> paesi.com <% '//////////////////carica le impostazioni set cnn = server.createobject("ADODB.connection") cnn.open "inser" set rs1 = server.createobject("ADODB.recordset") sql="SELECT Impostazioni.IDcliente, Impostazioni.testata, Impostazioni.larghezza1, " & _ "Impostazioni.larghezza2, Impostazioni.larghezza3, Impostazioni.larghezza4, Impostazioni.larghezza5, " & _ "Impostazioni.larghezza6, Impostazioni.intestazione1, Impostazioni.intestazione2, Impostazioni.intestazione3, " & _ "Impostazioni.intestazione4, Impostazioni.intestazione5, Impostazioni.intestazione6, Impostazioni.sfondotabella, " & _ "Impostazioni.sfondotitoli, Impostazioni.sfondopagina, Impostazioni.colorecaratterititoli, Impostazioni.colorecaratteriinserzioni, " & _ "Impostazioni.grigliaintestazioni, Impostazioni.grigliainserzioni, Impostazioni.email, Impostazioni.descrizioneemail " & _ "FROM Impostazioni WHERE (((Impostazioni.IDcliente)=" & idcliente & "));" rs1.open sql , cnn , adOpenStatic , adLockReadOnly rs1.movefirst larg1=rs1("larghezza1").value larg2=rs1("larghezza2").value larg3=rs1("larghezza3").value larg4=rs1("larghezza4").value larg5=rs1("larghezza5").value larg6=rs1("larghezza6").value sfondotabella=rs1("sfondotabella").value sfondotitoli=rs1("sfondotitoli").value sfondopagina=rs1("sfondopagina").value colorecaratterititoli=rs1("colorecaratterititoli").value colorecaratteriinserzioni =rs1("colorecaratteriinserzioni").value gint=rs1("grigliaintestazioni").value gins=rs1("grigliainserzioni").value email=rs1("email").value descrizioneemail=rs1("descrizioneemail").value response.write "" response.write "
" response.write "
" response.write "
" '//////////////////TESTATA response.write "" response.write "" response.write "" response.write "" response.write "

" '//////////////////INTESTAZIONI if gint=-1 then response.write "" else response.write "
" end if response.write "" if larg1>0 then response.write "" if larg2>0 then response.write "" if larg3>0 then response.write "" if larg4>0 then response.write "" if larg5>0 then response.write "" if larg6>0 then response.write "" response.write "" 'response.write "
" & rs1("intestazione1").value & " " & rs1("intestazione2").value & " " & rs1("intestazione3").value & " " & rs1("intestazione4").value & " " & rs1("intestazione5").value & " " & rs1("intestazione6").value & " 
" '//////////////////INSERZIONI '//////////////////carica le inserzioni set rs2 = server.createobject("ADODB.recordset") sql="SELECT Clienti.IDcliente, Inserzioni.Coll1, Inserzioni.Coll2, Inserzioni.Coll3, Inserzioni.Coll4, " & _ "Inserzioni.Coll5, Inserzioni.Coll6, Inserzioni.IDinserzione " & _ "FROM (Clienti LEFT JOIN Impostazioni ON Clienti.IDcliente = Impostazioni.IDcliente) LEFT JOIN Inserzioni ON Clienti.IDcliente = Inserzioni.IDcliente " & _ "WHERE ((Clienti.IDcliente)=" & idcliente & ") ORDER BY Inserzioni.IDinserzione desc;" rs2.open sql , cnn , adOpenStatic , adLockReadOnly rs2.movefirst 'if gins=-1 then ' response.write "" 'else ' response.write "
" 'end if do while not rs2.eof response.write "" lc=0 if larg1>0 then response.write "" lc=lc+1 end if if larg2>0 then response.write "" lc=lc+1 end if if larg3>0 then response.write "" lc=lc+1 end if if larg4>0 then response.write "" lc=lc+1 end if if larg5>0 then response.write "" lc=lc+1 end if if larg6>0 then response.write "" lc=lc+1 end if response.write "" rs2.movenext loop '////////////////////////////////////////////////////////////// inizio gestione mail if (email <> "") AND (descrizioneemail <> "") then response.write "" response.write "" response.write "" response.write "" response.write "" end if '////////////////////////////////////////////////////////////////fine gestione mail response.write "
" & acapo(rs2("coll1").value) & " " & acapo(rs2("coll2").value) & " " & acapo(rs2("coll3").value) & " " & acapo(rs2("coll4").value) & " " & acapo(rs2("coll5").value) & " " & acapo(rs2("coll6").value) & " 
" response.write "
" response.write "" & descrizioneemail & "" response.write "
" response.write "
" response.write "
" rs1.close set rs1=nothing rs2.close set rs2=nothing cnn.close set cnn=nothing %>