You forgot a .movenext at bottom of loop
On 6/15/05, 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.
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/
