SQL Server Timeout Expired When Running 3 Transactions

Can anyone help me to point the error in the following code? I have 3 transactions to 2 different database server. All transactions have to be TRUE before their committed, if no all the previous modifications will be roll back. However, when i try to run the code, I'm getting the following error even though I'm just testing it on 2 rows of sample data. This process is supposed to handle hundreds of records, please help.

Microsoft OLE DB Provider for SQL Server error '80040e31'

Timeout expired




<%
Dim CharCon

Set CharCon=Server.CreateObject("Adodb.Connection")

CharCon.open CharConString

strSql="Select * from Character_Info where Trans_Status='1'"

Set Rs=CharCon.Execute(strSql)


If Rs.Eof<> True Then
 
  While Rs.Eof<> True
     
         Receiver=Trim(Rs("Receiver"))
         
         Sender       =Trim(Rs("Sender"))
       
         Server_Name  =Trim(Rs("Server"))
       
         Nation_Name  =Trim(Rs("Nation"))
       
         Character_Name=Trim(Rs("Character"))
             
     
     

     
            Set myCon=Server.CreateObject("Adodb.Connection")
         
            myCon.Open CharConString
           
            myCon.BeginTrans
           
            myCon.Execute "Update Character_Info set Trans_Status='9' where Trans_Status='1' And Sender='" & Sender & "' And Receiver='" & Receiver &"' And Character='" & Character_Name &"'And Nation='" & Nation_Name &"' And Server='" & Server_Name & "'",ingrecs
           
            If myCon.Errors.count>0 or IngRecs=0  Then
             
              myconres=false
             
              myCon.RollbackTrans
              set mycon=nothing
 
            Else
 
             myConres=true
 
            End If
           
                  If  myconres=true then
               
                      Set myCon1=createobject("adodb.connection")
                 
                      myCon1.ConnectionString= Connection_String
                 
                      myCon1.Open
                 
                      myCon1.BeginTrans
                   
                                Set cmdDB = Server.CreateObject("ADODB.Command")
                         With cmdDB
                        .ActiveConnection = myCon1
                        .CommandText = "ACCOUNT_CHAR_INSERT_CHAR"
                        .CommandType = adCmdStoredProc

                        .Parameters.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
                        .Parameters.Append .CreateParameter("@Receiver", adVarChar, adParamInput, 50,Receiver)
                        .Parameters.Append .CreateParameter("@Character_Name ", adVarChar, adParamInput, 50,Character_Name)
                        .Execute,,adExecuteNoRecords
                  
      
                        RetVal = Trim(.Parameters("RETURN_VALUE"))
      
                  
                        Set .ActiveConnection = Nothing
                        End With
                       
             
                    Else
             
                      myCon1res=False
                  End If  
           
                                   
              if myCon1.Errors.count>0 Then
                myCon1res=False
             
              Else
               
                 If myCon1res<>False or myCon1res ="" Then
                     
                   myCon1res=True
                 
                                                               
                                   
                Else
                       
                   myCon1res=False
                   mycon1.RollbackTrans
                   set mycon1=nothing
                                   
                       
                End If                
                     
                     
             End If
           
     
           
            If mycon1res=True then
           Response.Write mycon1res
                           
         Set myCon2=createobject("adodb.connection")
                 
                 myCon2.ConnectionString= Connection_String
                 
                 myCon2.Open
                 
                 myCon2.BeginTrans
                   
                Set cmdDB = Server.CreateObject("ADODB.Command")
     With cmdDB
      .ActiveConnection = myCon2
      .CommandText = "ACCOUNT_CHAR_REMOVE_SENT_CHAR"
      .CommandType = adCmdStoredProc

      .Parameters.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
      .Parameters.Append .CreateParameter("@Sender", adVarChar, adParamInput, 50,Sender)
      .Parameters.Append .CreateParameter("@Character_Name ", adVarChar, adParamInput, 50,Character_Name)

      

      .Execute,,adExecuteNoRecords <---- timeout expired at this line ------ >
                  
      
      RetVal = Trim(.Parameters("RETURN_VALUE"))
      
                  
      Set .ActiveConnection = Nothing
End With
                           
                 
                 
              Else
                    Response.Write "<br>Not Entered<br>"
                   
                    myconres2=False
             
             End If
                 
             If myCon2.Errors.count>0   Then
             
                    myconres2=false
                    mycon2.RollbackTrans
                    set mycon2=nothing
                 
                                       
   
             Else
               
                 If myConres2<>False or myConres2 ="" Then
                     
                   myConres2=True
                   
                                                               
                                   
                Else
                       
                   myConres2=False
                   mycon2.RollbackTrans
                   set mycon2=nothing
                                   
                       
                End If                
                       
            if myconres=true and mycon1res=true and myconres2=true then
           
            mycon.committrans
            set mycon=nothing
            mycon1.CommitTrans
            set mycon1=nothing
            mycon2.CommitTrans
            set mycon2=nothing

           else

           mycon.rollbacktrans
           set mycon=nothing
           mycon1.rollbacktrans
           mycon1.rollbacktrans
           set mycon1=nothing
           mycon2.rollbacktrans
           set mycon2=nothing
           
           end if
       
       End If      
             
     
         
         
               

RS.MoveNext  
WEND

END If

%>