Error Not enough storage is available to complete this operation.

Kingkumar · Mar 9, 2005

Hi ,
i dont know hwat did i do ???
i connect to server running iis 5.0 . Everything was working fine suddenly even for pages which were working fine it started giving following error.

Not enough storage is available to complete this operation.

how can i check whats wrong? also how to rectify it.
All i did was while working on one of the pages check the page again again in view browser

if someone can tell me what can be the reason or direct me to something which can help more

i have already tried few things
1. in IE tools/options/advance/unchecked show friendly message
2. check the server it shows enough ram available
3. There are not many recordsets used on this page.

thanks.

snowboardr · Mar 9, 2005

code?

www.sitesd.com
ASP WEB DEVELOPMENT

Kingkumar · Mar 10, 2005

here is the code

<%@ Language=VBScript %>
<%
Option Explicit
on error resume next
Response.Buffer = true
Response.Expires = -1
dim strMarket,conn, objWebData, rs, strProc , intAgent

conn = Application("cnADSCDS")
strProc = "spUSER_GetUserGroups"

set objWebData = server.CreateObject("WebData.Reader")
set rs = server.CreateObject("ADODB.recordset")
set rs = objWebData.getRS(cstr(conn),strProc,1)

strMarket = Request.Form("selAgtGroup")

if Request.QueryString("selAgtGroup") <> "" then
strMarket = Request.QueryString("selAgtGroup")
end if
%>

<HTML>
<HEAD>
<link rel="stylesheet" type="text/css" href="/css/mpstyle2.css">
<TITLE>User Maintenance</TITLE>
</HEAD>

<body>

<table cellspacing="0" cellpadding="2" border="0" height="100%" valign="top">
<tr>
<td style="background-color: #92CCC3; width: 160px;" valign="top">

</td>
<td valign="top" width="100%">
<form name=frmGroup id=frmGroup method=post action="MemberUpdate.asp">
<br>
<div class="Lvl1Indent" style="width=600px;height=40px;">
<table width=580>
<tr>
<td width=120>
<b>Choose a Group</b>
</td>
<td>
<%
Response.Write "<select name=selAgtGroup id=selAgtGroup>"
While not rs.EOF
Response.Write "<option "
Response.Write "value='" & rs.Fields("GroupID") & "'"
if cint(strMarket) = cint(rs.Fields("GroupID")) then
Response.Write " Selected"
end if
Response.Write ">" & rs.Fields("GroupName") & "</option>"
rs.MoveNext
Wend
Response.Write "</select>"
rs.ActiveConnection = nothing
%>
</td>
<td align=right>
<input type=submit value='Get Agents' name=btnGetAgt id=btnGetAgt>
</td>
</tr>
</table>
</div>
<BR>
</form>

<form name=frmAssignRec id=frmAssignRec method=post action="performassign.asp">
<br>
<input type=hidden value='<%=strMarket%>' name=strMarket id=strMarket>

<%Response.Write("HOLA")

Response.Write(strmarket)%>
<%If strMarket <> "" then %>
<div class="Lvl1Indent" name=divAssigned id=divAssigned style="width=600px;">
<table width=570 class="Lvl1Indent">
<tr>
<td width=285><b>Agents To Add</b></td>
<td width=285><b>Agents To Remove</b></td>
</tr>
<tr>
<td width=285 align=center>
<%
strProc = "spUSER_GetAgentsAdd '" & strMarket & "'"
set rs = objWebData.getRS(cstr(conn),strProc,1)
Response.Write "<select name=selAgtAddList id=selAgtList MULTIPLE SIZE=7>"
While not rs.EOF
Response.Write "<option "

Response.Write "value=" & rs.Fields("AgentNo")

Response.Write ">" & rs.Fields("AgentName") & "</option>"
rs.MoveNext
Wend
Response.Write "</select>"
Response.Write ("<BR>")
%>

</td>
<td width = 285 align=center>

<%
strProc = "spUSER_GetAgentsRmv '" & strMarket & "'"
set rs = objWebData.getRS(cstr(conn),strProc,1)

Response.Write "<select name=selAgtAddList id=selAgtList MULTIPLE SIZE=7>"
While not rs.EOF
Response.Write "<option "

Response.Write "value=" & rs.Fields("AgentNo")

Response.Write ">" & rs.Fields("AgentName") & "</option>"
rs.MoveNext
Wend
Response.Write "</select>"
%>
</td>
</tr>

</table>
</div>
<%End If%>
<br>
</form>

<%
set objWebData = nothing
set rs = nothing
%>

</body>
</HTML>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Error Not enough storage is available to complete this operation.

Kingkumar

Programmer

snowboardr

Programmer

Kingkumar

Programmer

Similar threads

Part and Inventory Search

Sponsor