Are you missing rs.MoveNext? You may be getting caught in an infinite loop.
Mark
kejeckam <[EMAIL PROTECTED]> wrote:
I have a page with the code below but when its openning up it gives
the error below
Response object error 'ASP 0251 : 80004005'
Response Buffer Limit Exceeded
/interswitch.asp, line 0
Execution of the ASP page caused the Response Buffer to exceed its
configured limit.
this is the code. Please what can I do. the
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<% Option Explicit %>
<%
dim txnref1
dim dclaccount
dim amt
dim mySQL
dim T1
dim T2
txnref1=request.form("value3")
dclaccount=request.form("value1")
amt=request.form("value2")
Dim ConnectionString
ConnectionString = "DRIVER={Microsoft Access Driver
(*.mdb)};Dbq=" & server.mappath("/inter.mdb") & ";UID=;PWD=;"
Dim Connection
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.ConnectionTimeout = 30
Connection.CommandTimeout = 80
Connection.Open ConnectionString
Dim rs
set rs = Server.CreateObject("ADODB.RecordSet")
mySQL="select * from dclinter"
' Retrieve the records
rs.Open mySQL, Connection, adOpenDynamic , adLockPessimistic
rs.movefirst
if not rs.bof or rs.eof then
do while not rs.eof
T1=rs("txnref")
T2=rs("rspcode")
if T1=txnref1 and T2="00" then
rs("dclaccount")=dclaccount
rs("amt")=amt
rs.update
strHost = "mail.dcltelecom.com"
Dim objNewMail 'As CDONTS.NewMail
Set objNewMail = Server.CreateObject
("CDONTS.NewMail")
ObjNewMail.To = "[EMAIL PROTECTED]"
ObjNewMail.From = "[EMAIL PROTECTED]"
ObjNewMail.Subject = "New Payment Information"
ObjNewMail.Body = "A cash payment of Naira NGN " &
amt & " " & "was paid in with DCL Account Number: " & dclaccount & "
with transaction reference number " & txnref1
ObjNewMail.Send
Set ObjNewMail = Nothing
response.write "successfull"
elseif rs("txnref")=txnref1 and rs("rspcode")
<>"00" then
rs("dclaccount")=dclaccount
rs("amt")=amt
rs.update
response.write "failed"
else
response.write "Please the transaction was
uncompleted"
end if
loop
else
response.write "transaction is uncompleted"
end if
rs.close
set rs=nothing
Connection.close
set Connection=nothing
%>
---------------------------------
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
