Use while loop instead of Do--While with rs.movenext it will work fine.
On 6/15/05, Charles Carroll <[EMAIL PROTECTED]> wrote:
> 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 the Yahoo! Terms of Service.
--
Balaji V
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/
