Consumo de memoria
Tengo un problema un pagina que estoy desarrollando me esta consumiendo muchisima memoria de mi servidor se conectan como 200 usuario pero no encuentro el problema y segun yo el problema esta en esta parte del codigo me podria ayudar??? se los agradeceria mucho
...
...
...
Const adCmdStoredProc=4
Const adInteger=3
Const adParamInput=1
Const adVarChar=200
Const adChar=129
lsConexion = cstr(session("Conexion"))
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = 1 '<==== aqui esta bien???
conn.CommandTimeout = 1 '<==== aqui esta bien???
conn.Open lsConexion
if conn.Errors.Count>0 then
Response.write("<script>alert('Problemas en la consulta ')</script>")
conn.Close ()
set conn=Nothing
%>
<script language="JavaScript">
top.location.href = "../default.asp";
</script>
<%
else
'DEFINICION DE UN STORE PROCEDURE
Set rsa=Server.CreateObject("ADODB.Command")
rsa.CommandText="SP_RECUPERADATOS "
rsa.CommandType = adCmdStoredProc
set parm= rsa.CreateParameter("StrLLAVE", adChar, adParamInput, 12,cstr(numContrato))
rsa.Parameters.Append parm
set parm= rsa.CreateParameter("intsuma", adChar, adParamInput, 4,cstr(numFolio))
rsa.Parameters.Append parm
set parm= rsa.CreateParameter("inttotal", adInteger, adParamInput, 1,cint(2))
rsa.Parameters.Append parm
rsa.CommandTimeout= 0 '<==== aqui esta bien????
rsa.ActiveConnection= conn
set rsCuentas=rsa.Execute
end if
%>
...
...
...
...
...
...
Const adCmdStoredProc=4
Const adInteger=3
Const adParamInput=1
Const adVarChar=200
Const adChar=129
lsConexion = cstr(session("Conexion"))
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionTimeout = 1 '<==== aqui esta bien???
conn.CommandTimeout = 1 '<==== aqui esta bien???
conn.Open lsConexion
if conn.Errors.Count>0 then
Response.write("<script>alert('Problemas en la consulta ')</script>")
conn.Close ()
set conn=Nothing
%>
<script language="JavaScript">
top.location.href = "../default.asp";
</script>
<%
else
'DEFINICION DE UN STORE PROCEDURE
Set rsa=Server.CreateObject("ADODB.Command")
rsa.CommandText="SP_RECUPERADATOS "
rsa.CommandType = adCmdStoredProc
set parm= rsa.CreateParameter("StrLLAVE", adChar, adParamInput, 12,cstr(numContrato))
rsa.Parameters.Append parm
set parm= rsa.CreateParameter("intsuma", adChar, adParamInput, 4,cstr(numFolio))
rsa.Parameters.Append parm
set parm= rsa.CreateParameter("inttotal", adInteger, adParamInput, 1,cint(2))
rsa.Parameters.Append parm
rsa.CommandTimeout= 0 '<==== aqui esta bien????
rsa.ActiveConnection= conn
set rsCuentas=rsa.Execute
end if
%>
...
...
...