Dopo 4 anni che uso questa procedura... oggi improvvisamente mi dà questo errore:

Response object error 'ASP 0251 : 80004005'

Response Buffer Limit Exceeded

/admin/clienti.asp, line 0

Execution of the ASP page caused the Response Buffer to exceed its configured limit.


Ho guardato nella pagina Asp e la frase in line 0 è: <%Response.Expires = 0%>

Io so pochissimo di ste cose purtroppo, qualcuno può darmi una mano ?? GRAZIE MILLE !!!!!!!!!!!!!!!!!!!!!!!!

-----------------------------------------------------------------------
ECCO IL CODICE:
<%Response.Expires = 0%>
<!-- #INCLUDE FILE = "../percorso.asp" -->
<%
'UserX = Request.Cookies ("Alexj")("Adminx")
'if UserX <> "Alexj" then response.Redirect "sorry.asp"
%>
<%
IDCL = Request("IDCL")
'==========Constants=============
'---- CursorTypeEnum Values ----
pippo = true
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
'=========End of Section===========

'----------Parameters section------------

if Request("Xagg")= "" Then
ParAA = "" 'Default value
else
ParAA = Request("Xagg")
end if
%>
<%
if Request("Upg")= "" Then
Par00 = "" 'Default value
else
Par00 = Request("Upg")
end if
if Request("CatY")= "" Then
CatXY = "" 'Default value
else
CatXY = Request("CatY")
end if
if Request("Mail")= "" Then
ParMM = "" 'Default value
else
ParMM = Request("Mail")
end if
if Request("Conf")= "" Then
Par01 = "" 'Default value
else
Par01 = Request("Conf")
end if
if Request("Del")= "" Then
Par02 = "" 'Default value
else
Par02 = Request("Del")
end if
if Request("Agg")= "" Then
Par05 = "" 'Default value
else
Par05 = Request("Agg")
end if
if Request("UID")= "" Then
UIDX = "" 'Default value
else
UIDX = Request("UID")
end if
if Request("PWD")= "" Then
PWDX = "" 'Default value
else
PWDX = Request("PWD")
end if
if Request("UPGX")= "" Then
ParAA = "" 'Default value
else
ParAA = Request("UPGX")
end if

Par03 = "1"

if Request("Azienda")= "" Then
Azienda = "" 'Default value
else
Azienda = Request("Azienda")
end if
if Request("Nome")= "" Then
Nome = "" 'Default value
else
Nome = Request("Nome")
end if
if Request("Cognome")= "" Then
Cognome = "" 'Default value
else
Cognome = Request("Cognome")
end if
if Request("Indirizzo")= "" Then
Ind = "" 'Default value
else
Ind = Request("Indirizzo")
end if
if Request("Cap")= "" Then
Cap = "" 'Default value
else
Cap = Request("Cap")
end if
if Request("City")= "" Then
City = "" 'Default value
else
City = Request("City")
end if
if Request("Prov")= "" Then
Prov = "" 'Default value
else
Prov = Request("Prov")
end if

if Request("Naz")= "" Then
Naz = "" 'Default value
else
Naz = Request("Naz")
end if

if Request("Mailto")= "" Then
Mailto = "" 'Default value
else
Mailto = Request("Mailto")
end if

if Request("Tel")= "" Then
Tel = "" 'Default value
else
Tel = Request("Tel")
end if

if Request("Email")= "" Then
Email = "" 'Default value
else
Email = Request("Email")
end if
if Request("Destinazione")= "" Then
Destinazione = "" 'Default value
else
Destinazione = Request("Destinazione")
end if
if Request("Servizio")= "" Then
Servizio = "" 'Default value
else
Servizio = Request("Servizio")
end if




'Functions that in the future should be placed in stanalone .INC File
'Function to format date string
Function format_date(date,dataformat)
months =Array("January","February","March","April","May","June","July","August","September","October","November","December")
mon = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
'dd-MMM-yyyy = 0
'MM/dd/yyyy = 1
'dd MMMM,yyyy = 2
'MMMM dd,yyyy = 3
daypart = Day(date)
monthpart = Month(date)
yearpart = Year(date)
monthpart = monthpart -1
if(dataformat = 0) then
format_date = daypart & " " & mon(monthpart) & "," & yearpart
end if
if(dataformat = 1) then
format_date = monthpart & "-" & daypart & "-" & yearpart
end if
if(dataformat = 2) then
format_date = daypart & " " & months(monthpart) & "," & yearpart
end if
if(dataformat = 3) then
format_date = months(monthpart) & " " & daypart & "," & yearpart
end if
end Function
'Function to format time string
Function format_time(date,dataformat)
hourpart = Hour(date)
minutepart = Minute(date)
secondpart = Second(date)
format_time = hourpart & ":" & minutepart & ":" & secondpart
end Function

Function GetPhisicalPath(string_to_transform)
pos=InstrRev(LCase(Request.ServerVariables("PATH_TRANSLATED")),LCase(FormAction))
GetPhisicalPath = Left(Request.ServerVariables("PATH_TRANSLATED"), pos-1 )&string_to_transform
end Function


Function escape_symbols(string_to_escape)
string_to_escape_ret=Replace(string_to_escape,"'","''")
escape_symbols=string_to_escape_ret
end Function

'----------Start Algorithm section------------
%>
<%if(Par00 = "Aggiungi Cliente") Then%>

<%
response.redirect "inscliente.asp"
%>

<%end if%>



<%if(Par00 = "E-mail Inviate") Then%>

<%
response.redirect "MailInviate.asp"
%>

<%end if%>
<%if(Par00 = "Invia Nuova E-mail") Then%>

<%
response.redirect "Mailgroup.asp"
%>

<%end if%>
<%if(ParMM = "Invia Mail") Then%>

<%
response.redirect "Mailcliente.asp?IDCL="&IDCL
%>

<%end if%>

<%if(Par00 = "In E-Group") Then%>

<%
DataSource3 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path

PageSize3 = 1
ParW = -1
Par04=escape_symbols(Idcl)
Par03_A=escape_symbols(ParW)%>
<%
GeneratedSQL= "UPDATE [Clienti]"_
&" SET [Inviamail]='"&Par03_A&"'"_
&" WHERE [Clienti].[Idcount] = "&Par04&""
%>
<%'===============Execute Query And Get Total Count========================
Set Conn3 = Server.CreateObject("ADODB.Connection")
Set RS3 = Server.CreateObject("ADODB.RecordSet")
RS3.CursorType = adOpenStatic
Conn3.Open DataSource3
RS3.Open GeneratedSQL,Conn3,adOpenKeyset,adLockReadOnly 'both keys are to be variables
%><%
Conn3.Close
set rs3 = nothing
set Conn3 = nothing
%>
<%end if%>
<%if(Par00 = "Out E-Group") Then%>

<%
DataSource3 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path

PageSize3 = 1
ParW = 0
Par04=escape_symbols(Idcl)
Par03_A=escape_symbols(ParW)%>
<%
GeneratedSQL= "UPDATE [Clienti]"_
&" SET [Inviamail]='"&Par03_A&"'"_
&" WHERE [Clienti].[Idcount] = "&Par04&""
%>
<%'===============Execute Query And Get Total Count========================
Set Conn3 = Server.CreateObject("ADODB.Connection")
Set RS3 = Server.CreateObject("ADODB.RecordSet")
RS3.CursorType = adOpenStatic
Conn3.Open DataSource3
RS3.Open GeneratedSQL,Conn3,adOpenKeyset,adLockReadOnly 'both keys are to be variables
%><%
Conn3.Close
set rs3 = nothing
set Conn3 = nothing
%>
<%end if%>
<%if(Par01 = "Conferma") Then%>

<%
DataSource3 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path

PageSize3 = 1
PWDX_A=escape_symbols(PWDX)
UIDX_A=escape_symbols(UIDX)
Mailto_A=escape_symbols(Mailto)
Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path
SQL = "Update Clienti "
SQL = SQL & "Set Pwd ='" & (PWDX_A) & "'"
SQL = SQL & ", Uid ='" & (UIDX_A) & "'"
SQL = SQL & ", Mailto ='" & (Mailto_A) & "'"
SQL = SQL & " where IDCount=" & (IDCL)
'Response.Write SQL 'riga di codice da
objConn1.Execute(SQL)
objConn1.Close

IOME =Request.ServerVariables("SERVER_NAME")
if iome = "www.zarantonelloviaggi.com" then

if CatXY = 32 or CatXY = 42 or CatXY = 1 then ' primo step quelli chwe vogliono registrarsi
shtml = sHtml & "<HTML>"
shtml = shtml & "<HEAD>"
shtml = shtml & "<meta http-equiv='content-type' content='text/html; charset=iso-8859-1'>"
shtml = shtml & "<title>Zarantonello Viaggi on-Line</title>"
shtml = shtml & "</head>"
shtml = shtml & "<BODY style='margin-left:0 ; margin-top:0; margin-right:0; margin-bottom:0;' ><div align=center>"
shtml = shtml & "<TABLE width=100% valign=middle align=center border=0 bgcolor='#ffd9b7' height='100%'cellspacing=0 cellpadding=0>"
shtml = shtml & " <TR>"
shtml = shtml & " <Td align=center valign=middle width='100%'>"
shtml = shtml & "<TABLE width=200 align=center border=0 background='http://www.zarantonelloviaggi.com/admin/Sfondo1.jpg' >"
shtml = shtml & " <TR>"
shtml = shtml & " <Td align=center valign=middle width='100%'>"
shtml = shtml & "<img src='http://www.zarantonelloviaggi.com/admin/Alexj.gif' border=0>"
shtml = shtml & " </td></tr></table>"

shtml = shtml & " <TR><Td align=center valign=middle width='100%'>"

shtml = shtml & "<P align=center><FONT face=Verdana size=4><B>Registrazione On-line </FONT></B></P>"
shtml = shtml & "<P align=center><B><FONT face=Verdana size=3>Buongiorno da Zarantonelloviaggi.com </b>"
shtml = shtml & "<P align=center><FONT face=Verdana size=3 style='TEXT-TRANSFORM: capitalize;'>" & Nome & " " & Cognome &"</FONT></B><br><br>"
if mailto <> "" then
shtml = shtml & "" & Mailto & "</p>"
end if
shtml = shtml & "<P align=center><FONT face=Verdana size=2 >Sei stato inserito nella nostra Mailing-List. <br>"
shtml = shtml & "Ti inviamo Username e Password per accedere alla zona riservata del sito:<br><br>"
shtml = shtml & " <b>USER: &nbsp; " & UIDX & "<br>PASSWORD &nbsp; " & PWDX &"</FONT><br></P>"
shtml = shtml & "<P align=center><FONT face=Verdana size=2>Arrivederci a presto on-line !"
shtml = shtml & " - Cordiali Saluti e Grazie - </FONT><br><br><i><a href='http://www.zarantonelloviaggi.com'><FONT face='Times New Roman' size=3>http://www.zarantonelloviaggi.com</B></a></i><br></P>"

shtml = shtml & "<p><center>&nbsp;<br><font face='Verdana' size=1>Per non ricevere ulteriori News scrivete a <a href='mailto:info@zarantonelloviaggi.com'>info@zarantonelloviaggi.com</a></font></P>"
shtml = shtml & "</td></tr>"
shtml = shtml & "</TABLE>"

shtml = shtml & "</BODY>"
shtml = shtml & "</HTML>"

'inizio config mail
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "localhost"
.Item(sch & "smtpserverport") = "27"
.update
End With

' fine config inizio mail

Set cdoMail = CreateObject("CDO.Message")

Set cdoMail.Configuration = cdoConfig

CDOMail.From = "e-viaggi@zarantonelloviaggi.com"
CDOMail.To = Email 'Email 'nomecampo mail cliente
'CDOMail.CC = "info@alexjweb.com"
CDOMail.Subject = "Benvenuto nel nostro sito - www.zarantonelloviaggi.com"
CDOMail.HTMLBody = shtml
CDOMail.Send()

shtml = ""
Set cdoMail = Nothing
Set cdoConfig = Nothing

' fine procedura mail 01
end if

if CatXY = 0 then
' senza impazzire a correggere tutti i moduli per default potrei lasciare le catXY a 0 e
' quindi modificare solo nsviaggi - gite - registrati.
' inizio procedura mail 02
shtml = sHtml & "<HTML>"
shtml = shtml & "<HEAD>"
shtml = shtml & "<meta http-equiv='content-type' content='text/html; charset=iso-8859-1'>"
shtml = shtml & "<title>Zarantonello Viaggi on-Line</title>"
shtml = shtml & "</head>"
shtml = shtml & "<BODY style='margin-left:0 ; margin-top:0; margin-right:0; margin-bottom:0;' ><div align=center>"
shtml = shtml & "<TABLE width=100% valign=middle align=center border=0 bgcolor='#ffd9b7' height='100%'cellspacing=0 cellpadding=0>"
shtml = shtml & " <TR>"
shtml = shtml & " <Td align=center valign=middle width='100%'>"
shtml = shtml & "<TABLE width=200 align=center border=0 background='http://www.zarantonelloviaggi.com/admin/Sfondo1.jpg' >"
shtml = shtml & " <TR>"
shtml = shtml & " <Td align=center valign=middle width='100%'>"
shtml = shtml & "<img src='http://www.zarantonelloviaggi.com/admin/Alexj.gif' border=0>"
shtml = shtml & " </td></tr></table>"

shtml = shtml & " <TR><Td align=center valign=middle width='100%'>"
shtml = shtml & "<TABLE width=500 valign=middle align=center border=0 >"
shtml = shtml & " <TR>"
shtml = shtml & " <Td align=center valign=middle width='100%'>"

shtml = shtml & "<P align=center><FONT face=Verdana size=4><B>Zarantonello Viaggi On-line </FONT></B></P>"
shtml = shtml & "<P align=left><B><FONT face=Verdana size=2>Gentile Cliente, </b><br>"
shtml = shtml & "La sua richiesta è stata ricevuta correttamente e"
shtml = shtml & " nel giro di poco tempo verrà ricontattato dai nostri operatori. </p>"
shtml = shtml & "<P align=left><FONT face=Verdana size=2>La avvisiamo che è stato inserito nella nostra mailing-list e da ora potrà accedere "
shtml = shtml & "alla zona riservata del nostro sito con le seguenti "
shtml = shtml & "chiavi di accesso a Lei riservate:</p>"
shtml = shtml & " <P align=center><b><FONT face=Verdana size=2>USER: &nbsp; " & UIDX & "<br>PASSWORD &nbsp; " & PWDX &"</FONT><br></P>"
shtml = shtml & "<P align=center><FONT face=Verdana size=2>Arrivederci a presto on-line !"
shtml = shtml & " - Cordiali Saluti e Grazie - </FONT><br><br><i><a href='http://www.zarantonelloviaggi.com'><FONT face='Times New Roman' size=3>http://www.zarantonelloviaggi.com</B></a></i><br></P>"

shtml = shtml & "<p><center>&nbsp;<br><font face='Verdana' size=1>Per non ricevere ulteriori News scrivete a <a href='mailto:info@zarantonelloviaggi.com'>info@zarantonelloviaggi.com</a></font></P>"
shtml = shtml & "</td></tr>"
shtml = shtml & "</td></tr>"
shtml = shtml & "</TABLE>"

shtml = shtml & "</BODY>"
'inizio config mail
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "localhost"
.Item(sch & "smtpserverport") = "27"
.update
End With

' fine config inizio mail

Set cdoMail = CreateObject("CDO.Message")

Set cdoMail.Configuration = cdoConfig

CDOMail.From = "e-viaggi@zarantonelloviaggi.com"
CDOMail.To = Email 'Email 'nomecampo mail cliente
'CDOMail.CC = "info@alexjweb.com"
CDOMail.Subject = "Benvenuto nel nostro sito - www.zarantonelloviaggi.com"
CDOMail.HTMLBody = shtml
CDOMail.Send()

shtml = ""
Set cdoMail = Nothing
Set cdoConfig = Nothing


end if ' di tipo mail da inviare
end if ' di IOME = www.etc
end if ' di Se par01 = Conferma
%>

<%if(Par02 = "Elimina") Then%>
<%
'==============Query_30("shopDB")================
set cn12 = Server.CreateObject("AdoDb.Connection")
set rs12 = Server.CreateObject("AdoDb.Recordset")
cn12.Open "driver={Microsoft Access Driver (*.mdb)};dbq= "& DB_Path
sql = "delete * FROM Preventivi where Preventivi.Idcliente = "&IDCL&""
rs12.Source = SQL
rs12.ActiveConnection = cn12
rs12.CursorType = 3 'adOpenStatic
rs12.CursorLocation = 3 'adUseClient
rs12.Open
Cn12.Close
set rs12 = nothing
set Cn12 = nothing
'==============Query_30("shopDB")================
set cn12 = Server.CreateObject("AdoDb.Connection")
set rs12 = Server.CreateObject("AdoDb.Recordset")
cn12.Open "driver={Microsoft Access Driver (*.mdb)};dbq= "& DB_Path
sql = "delete * FROM Clienti where Clienti.IDCount = "&IDCL&""
rs12.Source = SQL
rs12.ActiveConnection = cn12
rs12.CursorType = 3 'adOpenStatic
rs12.CursorLocation = 3 'adUseClient
rs12.Open
Cn12.Close
set rs12 = nothing
set Cn12 = nothing
pippo = true
%>
<%end if%>

<%if(Par05 = "Aggiungi") Then%>
<%
'==============Query_27("shopDB")================
DataSource3 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path
PageSize3 = 1
Par20_A=escape_symbols(Par20)
Par21_A=escape_symbols(Par21)
Par22_A=escape_symbols(Par22)
Par23_A=escape_symbols(Par23)
Par23_B=escape_symbols(Par23B)
Par23_C=escape_symbols(Par23C)
Par03_A=escape_symbols("1")
Par00_A=escape_symbols("0")
%>
<%


strProvider="Driver=Microsoft Access Driver (*.mdb); DBQ="& DB_Path
set objConn = server.createobject("ADODB.Connection")
objConn.Open strProvider
set cm = Server.CreateObject("ADODB.Command")
cm.ActiveConnection = objConn

cm.CommandText ="INSERT INTO CategorieViaggi(TipoViaggio,Descrizione,Tipo,Lay,CategoriaLunga,Mod) VALUES (?,?,?,?,?,?)"
set objparam=cm.createparameter(, 200, , 255, Par20_a)
cm.parameters.append objparam
set objparam=cm.createparameter(, 200, , 255, Par21_a)
cm.parameters.append objparam
set objparam=cm.createparameter(, 200, , 255, Par22_a)
cm.parameters.append objparam
set objparam=cm.createparameter(, 200, , 255, Par23_a)
cm.parameters.append objparam
set objparam=cm.createparameter(, 200, , 255, Par23_b)
cm.parameters.append objparam
set objparam=cm.createparameter(, 200, , 255, Par00_A)
cm.parameters.append objparam
cm.Execute
objconn.Close
set cm = nothing
set objconn = nothing
Par05 = ""
%>
<%end if%>

<%if(ParAA = "Aggiorna") Then%>
<%
Zmod = "0"
Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path
SQL = "Update Clienti "
SQL = SQL & "Set Nome ='" & (Nome) & "'"
SQL = SQL & " , Cognome= '" & (Cognome) & "'"
SQL = SQL & " , Rag_Soc='" & (Azienda) & "'"
SQL = SQL & " , Uid='" & (Uidx) & "'"
SQL = SQL & " , Pwd='" & (Pwdx) & "'"
SQL = SQL & " , Ind='" & (Ind) & "'"
SQL = SQL & " , Cap='" & (Cap) & "'"
SQL = SQL & " , City='" & (City) & "'"
SQL = SQL & " , Prov='" & (Prov) & "'"
SQL = SQL & " , Naz='" & (Naz) & "'"
SQL = SQL & " , Tel='" & (Tel) & "'"
SQL = SQL & " , Email='" & (Email) & "'"
SQL = SQL & " where IDCount=" & (IDCL)
'Response.Write SQL 'riga di codice da
objConn1.Execute(SQL)
objConn1.Close
Set objConn1 = Nothing
pippo = true

end if
%>



<HTML>
<HEAD>
<TITLE>Entrata</TITLE>
<LINK REL="StyleSheet" HREF="admin.css" TYPE="text/css">
<STYLE TYPE="text/css">
a:active { text-decoration: none}
a:hover { text-decoration: none}
a:link { text-decoration: none}
a:visited { text-decoration: none}
</STYLE>
</HEAD>
<BODY bgcolor="navy" style="margin-top:0;margin-left:0;margin-right:0;margin-bottom:0;">

<form action="Clienti.asp" method=post id=form1 name=form1>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 style="margin-top:0;margin-left:0;margin-top:0;">


<tr>
<td bgcolor="#ffcc66" align=center colspan=5><h6 style="MARGIN-TOP: 10px; MARGIN-BOTTOM: 10px">&nbsp;
<input type=submit Value="Aggiungi Cliente" style="WIDTH: 200px; HEIGHT: 22px" id=submit2 name=UPG>
<input type=submit Value="E-mail Inviate" style="WIDTH: 200px; HEIGHT: 22px" id=Submit3 name=UPG>
<input type=submit Value="Invia Nuova E-mail" style="WIDTH: 200px; HEIGHT: 22px" id=Submit4 name=UPG>
<input type=hidden name="plutox" value="1">
<input type=hidden name="IDCL" value="<%=IDCL%>"></h6> </td>
</tr>


</table>
</form>
<DIV align=center>

<%if(Par00 = "Cambia") Then%>

<%
Keyword= idcl
'==============Query_32("shopDB")================
DataSource5 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path
PageSize5 = 10
GeneratedSQL= "SELECT * "_
&" FROM [Clienti]"_
&" WHERE [Clienti].[Idcount] = "&Keyword&" "'_
'&" ORDER BY Idcat asc "

'===============Execute Query And Get Total Count========================


Set Conn5 = Server.CreateObject("ADODB.Connection")
Set RS5 = Server.CreateObject("ADODB.RecordSet")
RS5.CursorType = adOpenStatic
Conn5.Open DataSource5
RS5.Open GeneratedSQL,Conn5',adOpenKeyset,adLockReadOnly 'both keys are to be variables
TotalCount5= RS5.RecordCount

RowCount5 = rs5.PageSize
CurrentRecordNumber5 = 0
bSetBegin5 = TRUE
%>
<h6 style="MARGIN-TOP: 5px; MARGIN-BOTTOM: 5px">Modifica Clienti</h6> </td>

<%
Do While Not RS5.EOF
Idcl = rs5.fields("Idcount")
Azienda = rs5.fields("rag_soc")
nome = rs5.fields("nome")
Cognome = rs5.fields("Cognome")
Tel = rs5.fields("Tel")
Email = rs5.fields("EMail")
uid = rs5.fields("uid")
pwd = rs5.fields("pwd")
ind = rs5.fields("ind")
city = rs5.fields("City")
cap = rs5.fields("Cap")
Code = rs5.fields("Codice")
Cat = rs5.fields("CatX")
pwd = rs5.fields("pwd")
Nav = rs5.fields("Navigator")
Reg = rs5.fields("Register")
OK = rs5.fields("ok")
InviaMail = rs5.fields("InviaMail")
Destinazione = rs5.fields("Destinazione")

%>

<input type=hidden name="IDCL" value="<%=IDCL%>"></h6> </td>
<TABLE WIDTH="600" border=1 align=center cellpadding=5 cellspacing=0>
<tr>
<td bgcolor=#8b0000 width="112">
<H1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"
align=right>Azienda</H1></td>
<td bgcolor=#8b0000 width="166">
<H1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">
<input style="WIDTH: 158px; HEIGHT: 22px" size=13 name="Azienda" value="<%=Azienda%>">
</H1></td>
<td bgcolor=#8b0000 width="89"><h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right>&nbsp;</h1></td>
<td bgcolor=#8b0000 width="201">
<H1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">&nbsp;</H1></td>
</tr>
<tr>
<td bgcolor=#8b0000 width="112"> <h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right
><h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right>
<H1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"
align=right>Nome</H1></h1></h1> </td>
<td bgcolor=#8b0000 width="166">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><INPUT style="WIDTH: 158px; HEIGHT: 22px" size=13
name=Nome value="<%=Nome%>"></h1></h1></td>
<td bgcolor=#8b0000 width="89"> <h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=left>
<H1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"
align=right>Cognome</H1></h1></td>
<td bgcolor=#8b0000 width="201">
<H1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=left><INPUT style="WIDTH: 163px; HEIGHT: 22px"
size=7 name=Cognome value="<%=Cognome%>"></H1></td>
</tr>
<tr>
<td bgcolor=#8b0000 width="112"> <h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right>UID</h1></td>
<td bgcolor=#8b0000 width="166">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"> <input
name=Uid style="WIDTH: 158px; HEIGHT: 22px" size=50 value="<%=Uid%>"></h1></td>
<td bgcolor=#8b0000 width="89"><h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right
>PWD</h1></td><td bgcolor=#8b0000 width="201">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"> <input name="Pwd"
style="WIDTH: 128px; HEIGHT: 22px" size=51 value="<%=Pwd%>"></h1></td>
</tr>
<tr>
<td bgcolor=#8b0000 width="112"> <h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right
>Indirizzo</h1></td>
<td bgcolor=#8b0000 width="166">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><input name="Indirizzo" style="WIDTH: 158px; HEIGHT: 22px" value="<%=Ind%>"></h1></td>
<td bgcolor=#8b0000 width="89"> <h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right
>Cap</h1> </td>
<td bgcolor=#8b0000 width="201">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><input name="Cap" style ="WIDTH: 128px; HEIGHT: 22px" value="<%=Cap%>"></h1></td>
</tr>
<tr>
<td bgcolor=#8b0000 width="112"><h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right
>Città</h1> </td>
<td bgcolor=#8b0000 width="166">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><input size=10 name="City"
style="WIDTH: 158px; HEIGHT: 22px" value="<%=City%>"></h1></td>
<td bgcolor=#8b0000 width="89"><h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right
>Provincia</h1> </td>
<td bgcolor=#8b0000 width="201">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><input size=8 name="Prov" style="WIDTH: 129px; HEIGHT: 22px" value="<%=Prov%>"></h1></td>
</tr>
<tr>
<td bgcolor=#8b0000 width="112"><h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right >
<H1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"
align=right>Email</H1></h1> </td>
<td bgcolor=#8b0000 width="166">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">
<H1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">
<INPUT style="WIDTH: 158px; HEIGHT: 22px" size=10 name=Email value="<%=Email%>"></H1></h1></td>
<td bgcolor=#8b0000 width="89"><h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" align=right >&nbsp;Telefono</h1></td>
<td bgcolor=#8b0000 width="201">
<h1 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><input size=8 name="Tel" style="WIDTH: 129px; HEIGHT: 22px" value="<%=Tel%>"></h1></td>
</tr>
<TR>

<td bgcolor=#8b0000 colspan=4></td></TR>
</TABLE>
</TD></TR></TABLE>
<INPUT TYPE="button" onClick="history.go(-1)" id=button1 name=button1 style="HEIGHT: 25px; WIDTH: 250px" value="Indietro"><input type=submit Value="Aggiorna" style="WIDTH: 250px; HEIGHT: 22px" id=submit2 name=UPGX>

</form>

<%
RS5.MoveNext
RowCount5 = RowCount5 - 1
CurrentRecordNumber5 = CurrentRecordNumber5 + 1
Loop 'torna a do e esegui codice
%>


<%
Conn5.Close
set rs5 = nothing
set Conn5 = nothing

pippo = false
%>

<%End if%>


<%
if pippo = true then
Keyword = request ("IDCL")
'==============Query_32("shopDB")================
DataSource5 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path
PageSize5 = 10
GeneratedSQL= "SELECT * "_
&" FROM [clienti]"_
&" ORDER BY IDcount DESC "


Set Conn5 = Server.CreateObject("ADODB.Connection")
Set RS5 = Server.CreateObject("ADODB.RecordSet")
RS5.CursorType = adOpenStatic
Conn5.Open DataSource5
RS5.Open GeneratedSQL,Conn5',adOpenKeyset,adLockReadOnly 'both keys are to be variables
TotalCount5= RS5.RecordCount

if rs5.EOF then
%>
<P color=gold>Non ci sono Utenti inseriti</P>

<%session.LCID=1040
else
%>

<%RowCount5 = rs5.PageSize
CurrentRecordNumber5 = 0
bSetBegin5 = TRUE
%>
<h6 style="MARGIN-TOP: 5px; MARGIN-BOTTOM: 5px">Gestione Clienti</h6> </td>

<%
Do While Not RS5.EOF
Idcl = rs5.fields("Idcount")
Nome = rs5.fields("nome")
Cognome = rs5.fields("Cognome")
Tel = rs5.fields("Tel")
Email = rs5.fields("EMail")
uid = rs5.fields("uid")
pwd = rs5.fields("pwd")
ind = rs5.fields("ind")
city = rs5.fields("City")
cap = rs5.fields("Cap")
Code = rs5.fields("Codice")
CatX = rs5.fields("CatX")
pwd = rs5.fields("pwd")
Nav = rs5.fields("Navigator")
Reg = rs5.fields("Register")
OK = rs5.fields("ok")
InviaMail = rs5.fields("InviaMail")
Destinazione = rs5.fields("Destinazione")

%>
<%VarX="DettReg.asp?idcliente="%>
<%VarX=VarX&Idcl%>



<a name="<%=idcl%>"></a>
<form action="Clienti.asp#<%=idcl%>" method=post id=form1 name=form1>
<input type=hidden value="Dettagli" name="Email" value="<%=Email%>" >
<TABLE cellSpacing=0 cellPadding=0 width="600" border=1>


<tr>
<%if inviamail = true then%>
<td align=center bgcolor="maroon" width=210><H6 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=Nome%>&nbsp;<%=Cognome%></h2></td>
<%else%>
<td align=center bgcolor="red" width=210><H6 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=Nome%>&nbsp;<%=Cognome%></h2></td>
<%end if%>
<td align=center bgcolor="maroon" width=250><H3 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=email%>&nbsp;</h2></td>
<td valign=middle bgcolor="maroon" width=140><H6 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=tel%>&nbsp;

</h2></td>
</tr>
</table>

<TABLE cellSpacing=0 cellPadding=0 width="600" border=0>


<%if uid = "300481dory" then%>
<tr>
<td align=left width=68 bgcolor="mocassin" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">&nbsp;&nbsp;Destin.:</h2></td>
<td align=center width=320 bgcolor="mocassin" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=Destinazione%>&nbsp;</h2></td>
<td align=left width=40 bgcolor="mocassin" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">Cod.:<%=Code%></h2></td>
<td align=center width=170 bgcolor="mocassin" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">CT&nbsp;<%=CatX%></h2></td>
</tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width="600" border=0>
<tr>
<td colspan=6 bgcolor="mocassin" ><IMG src="../zarantonello/immagini sistema/linea.gif" width=100%></td>
</tr>

<tr>
<td width=70 bgcolor="mocassin" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" >&nbsp;&nbsp;&nbsp;User:</td>
<td width=150 bgcolor="mocassin" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><input size=30 name="UID" value="<%=UID%>" style="WIDTH: 100px; HEIGHT: 22px"></h2></h4></td>
<td width=70 align=center bgcolor="mocassin" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">&nbsp;&nbsp;&nbsp;Password:</td>
<td width=150 bgcolor="mocassin" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><input size=30 name="Pwd" value="<%=Pwd%>" style="WIDTH: 100px; HEIGHT: 22px"></h2></h4></td>
<td width=70 align=center bgcolor="mocassin" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">&nbsp;&nbsp;&nbsp;Num_Pers.:</td>
<td width=90 bgcolor="mocassin" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=Idcl%></h2></h4></td>
</tr>
<tr>
<td colspan=6 bgcolor="mocassin" ><IMG src="../zarantonello/immagini sistema/linea.gif" width=100%></td>
</tr>
<tr>
<td colspan=6 bgcolor="mocassin" ><IMG src="../zarantonello/immagini sistema/linea.gif" width=100%></td>
</tr>
<tr>
<td bgcolor="mocassin" align=center colspan=6>
<input type=hidden Value="<%=CatX%>" name="CatY" >
<input type=hidden Value="<%=IDCL%>" name="IDCL" >
<input type=hidden Value="<%=Email%>" name="Email" >
<input type=hidden Value="<%=Nome%>" name="Nome" >
<input type=hidden Value="<%=Cognome%>" name="Cognome" >
<input type=submit value="Elimina" id=submit1 name="Del" style="WIDTH: 100px; HEIGHT: 22px">&nbsp;&nbsp;
<input type=submit value="Conferma" id=submit1 name="Conf" style="WIDTH: 100px; HEIGHT: 22px">&nbsp;&nbsp;
<input type=button value="Dettagli" id=submit1 name="Dett" ONCLICK="ingrandisci('<%=VarX%>'); return false;" style="WIDTH: 100px; HEIGHT: 22px">&nbsp;&nbsp;
</td>
</tr>
<%else%>
<tr>
<td align=left width=68 bgcolor="#ffcc66" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">&nbsp;&nbsp;Destin.:</h2></td>
<td align=center width=320 bgcolor="#ffcc66" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=Destinazione%>&nbsp;</h2></td>
<td align=left width=40 bgcolor="#ffcc66" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">Cat.:</h2></td>
<td align=center width=170 bgcolor="#ffcc66" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=Code%>&nbsp;</h2></td>
</tr>



</table>
<TABLE cellSpacing=0 cellPadding=0 width="600" border=0>
<tr>
<td colspan=6 bgcolor="#ffcc66" ><IMG src="../zarantonello/immagini sistema/linea.gif" width=100%></td>
</tr>

<tr>
<td width=70 bgcolor="#ffcc66" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px" >&nbsp;&nbsp;&nbsp;User:</td>
<td width=150 bgcolor="#ffcc66" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=UID%></h2></h4></td>
<td width=70 align=center bgcolor="#ffcc66" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">&nbsp;&nbsp;&nbsp;Password:</td>
<td width=150 bgcolor="#ffcc66" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=pwd%></h2></h4></td>
<td width=70 align=center bgcolor="#ffcc66" ><H4 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px">&nbsp;&nbsp;&nbsp;Num_Pers.:</td>
<td width=90 bgcolor="#ffcc66" ><H2 style="MARGIN-TOP: 0px; MARGIN-BOTTOM: 0px"><%=Idcl%></h2></h4></td>
</tr>
<tr>
<td colspan=6 bgcolor="#ffcc66" ><IMG src="../zarantonello/immagini sistema/linea.gif" width=100%></td>
</tr>
<tr>
<td bgcolor="#ffcc66" align=center colspan=6>
<input type=hidden Value="<%=IDCL%>" name="IDCL" >
<input type=submit value="Elimina" id=submit1 name="Del" style="WIDTH: 100px; HEIGHT: 22px">&nbsp;
<input type=submit value="Cambia" id=submit1 name="Upg" style="WIDTH: 100px; HEIGHT: 22px">&nbsp;
<%if inviamail = true then%>
<input type=submit value="Out E-Group" id=submit1 name="Upg" style="background: black; color: white;WIDTH: 100px; HEIGHT: 22px">&nbsp;
<%else%>
<input type=submit value="In E-Group" id=submit1 name="Upg" style="background: red; color: white;WIDTH: 100px; HEIGHT: 22px">&nbsp;
<%end if%>
<input type=submit value="Invia Mail" id=submit1 name="Mail" style="WIDTH: 100px; HEIGHT: 22px">&nbsp;
<input type=button value="Dettagli" id=submit1 name="Dett" ONCLICK="ingrandisci('<%=VarX%>'); return false;" style="WIDTH: 100px; HEIGHT: 22px">&nbsp;&nbsp;
</td>
</tr>

<%end if%>



<tr>
<td colspan=6 bgcolor="#ffcc66" ><IMG src="../zarantonello/immagini sistema/linea.gif" width=100%></td>
</tr>


</table>
</form>

<%
RS5.MoveNext
RowCount5 = RowCount5 - 1
CurrentRecordNumber5 = CurrentRecordNumber5 + 1
Loop 'torna a do e esegui codice
%>

<%End if%>


<%

'======================================
%>

<%
Conn5.Close
set rs5 = nothing
set Conn5 = nothing
end if 'di pippo
%>


</body>
</html>
<SCRIPT LANGUAGE = "JavaScript">

function ingrandisci(html)
{
popup=window.open(html,"popupwin","directories=no,status=no,resizable=yes,menubar=no,scrollbars=yes,width=550,height=310").focus();
return false;
}

function ingrandisci1(html)
{
popup=window.open(html,"popupwin").focus();
return false;
}

</SCRIPT>

Perchè nessuno mi risponde????????!!!?!?!?!?!?!?!?!?!!?!

Provato, ma non funziona.

Io non me ne intendo molto, ma è una pagina questa che pesca da un database "Clienti"... è possibile che il buffer o la query sia piena... o una cosa del genere... perchè i clienti sono troppo ? visto che i clienti gestiti qui superaro forse i 2000 unità ???

dove lo aggiungo ?