AFAIK while...wend loops are now deprecated in favour of do while...loop loops. Dan
________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Balaji vishnubhotla Sent: 16 June 2005 08:23 To: [email protected] Subject: Re: [AspClassicAnyQuestionIsOk] buffer error. Please urgent 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] <mailto:[EMAIL PROTECTED] subscribe> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service <http://docs.yahoo.com/info/terms/> . [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/
