Consumo de memoria

cazell
17 de Junio del 2005
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
%>

...
...
...