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:
    http://docs.yahoo.com/info/terms/
 



Reply via email to