Comment for Preece

Posted on 2005-05-02
Last Modified: 2012-05-05
Comment from Preece
Date: 05/02/2005 10:12AM PDT

; - )
Comment from Mswetsky
Date: 05/02/2005 10:27AM PDT
 Your Comment  

Thanks for your comments. I think I see your points and am begining to understand, But I am new to ASP programming and am not sure what the resolution would be.
Do I need to move the Addnew statements after the first End If
Accepted Answer from TheLearnedOne
Date: 05/02/2005 10:33AM PDT
Grade: B
 Accepted Answer  

I could imagine something like this:

     Set conn = Server.CreateObject("ADODB.Connection")      
     cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Data\MIS\CSPM\CSPM.mdb" cst
' Define Record Set
     Set rsDetail = Server.CreateObject("ADODB.Recordset")                                              
' Define Second Record Set
     Set rsDetail2 = Server.CreateObject("ADODB.Recordset")                                                                                
FOR Each LogID in Request.FORM()
     IF Request.Form(LogID) <> "Enter" THEN
       ' IF there is data in Text box, then write to the record          
     strSQL = "SELECT * from TH6040 WHERE Log_ID = " & LogID & " AND LOG_ST_CD='48';"
          rsDetail.Open strSQL, conn,3, 3    

          strSQL2 = "SELECT * FROM Tbl_FollowUps ;"
          rsDetail2.Open strSQL2, conn,2,3    

          IF Request.Form(LogID) <> "" THEN
               rsDetail("Assigned_RSE")= Request.Form(LogID)                    rsDetail("Log_ID")= LogID                                                  
     ' Now I want to take the fields from RSdetails(th6040) and update the Tbl_FollowUps table
               rsDetail2("Assigned_RSE")= Request.Form(LogID)                                                    
               rsDetail2("RESP_Name")= rsDetail("RESP_Name")              
               rsDetail2("Employee")= rsDetail("Employee")
               rsDetail2("ICSSLog")= rsDetail("Log_ID")
               rsDetail2("Assigned_Date")= rsDetail("LAST_UPDT_")
               rsDetail2("Prob_Class")= rsDetail("Prob_Class")              
               rsDetail2("Problem_Ty")= rsDetail("Problem_Ty")    
               rsDetail2("Prod_Ser_No")= rsDetail("Prod_Ser_No")
               'Response.write rsDetail("LAST_UPDT_")


          END IF
     END IF


     SET rsDetail = Nothing
     SET rsDetail2 = Nothing



Comment from Mswetsky
Date: 05/02/2005 10:50AM PDT
 Your Comment  

I see your point,
Thanks Bob
Comment from Preece
Date: 05/02/2005 10:55AM PDT

Hmmmm....should the points be split on this one?
Question by:Mswetsky
    1 Comment
    LVL 12

    Accepted Solution


    Write Comment

    Please enter a first name

    Please enter a last name

    We will never share this with anyone.

    Featured Post

    Find Ransomware Secrets With All-Source Analysis

    Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

    Suggested Solutions

    This is an explanation of a simple data model to help parse a JSON feed
    A short article about problems I had with the new location API and permissions in Marshmallow
    An introduction to basic programming syntax in Java by creating a simple program. Viewers can follow the tutorial as they create their first class in Java. Definitions and explanations about each element are given to help prepare viewers for future …
    Viewers will learn how to properly install Eclipse with the necessary JDK, and will take a look at an introductory Java program. Download Eclipse installation zip file: Extract files from zip file: Download and install JDK 8: Open Eclipse and …

    779 members asked questions and received personalized solutions in the past 7 days.

    Join the community of 500,000 technology professionals and ask your questions.

    Join & Ask a Question

    Need Help in Real-Time?

    Connect with top rated Experts

    16 Experts available now in Live!

    Get 1:1 Help Now