Need help with SQLstr

Have a classic ASP form that needs to send information to two different tables. I have the insert working all but one thing. The first table I need to reff or pass that ID which was created for that record to my next insert statement?
Was thinking may a @@identity but not to sure where to put this or how to code it out.

Code:

---

        Set cnnFormToDB = Server.CreateObject("ADODB.Connection")
                cnnFormToDB.Open strConnString
               
                'Build our SQL String
                strSQL = ""
                strSQL = strSQL & "INSERT INTO Survey "
                strSQL = strSQL & "(SurveyCreateUser, SurveyCreateDate) " & vbCrLf
            strSQL = strSQL & "VALUES ("
                strSQL = strSQL & DATE_DELIMITER & Request.ServerVariables("AUTH_USER") & DATE_DELIMITER
                strSQL = strSQL & ", "
                strSQL = strSQL & DATE_DELIMITER & FormatDateTime(Now(),0) & DATE_DELIMITER
                strSQL = strSQL & ");"
                 
        cnnFormToDB.Execute strSQL, lngRecsAffected, adCmdText Or adExecuteNoRecords

                ' Dispose of the CONN object
                cnnFormToDB.Close
                Set cnnFormToDB = Nothing                       
               
    %>
   
    <h2>Thanks for submitting your information to us!</h2>
               
                <p>
                <strong>The resulting SQL statement was:</strong>
                <pre><%= strSQL %></pre>
                </p>
               
                <p>
                <strong>Number of records affected:</strong> <%= lngRecsAffected %>
                </p>
   
    <%
    For lGroup = 0 to oXml.SelectNodes("//root/group").Length - 1
                Set oGroup = oXml.SelectNodes("//root/group").Item(lGroup)
                       
            For lQuestion = 0 to oGroup.SelectNodes("question").Length - 1
                Set oQuestion = oGroup.SelectNodes("question").Item(lQuestion)
               

                ' Open connection to the DB
                Set cnnFormToDB1 = Server.CreateObject("ADODB.Connection")
                cnnFormToDB1.Open strConnString
               
                'Select Survey Where @@Identiy
       
        intIntegerField  = Request.Form("question_" & lGroup & "_" & lQuestion)
       
                'Build our SQL String
                strSQL = ""
                strSQL = strSQL & "INSERT INTO Answer "
                strSQL = strSQL & "(AnswerValue) " & vbCrLf
                strSQL = strSQL & "VALUES ("
                strSQL = strSQL & intIntegerField
                strSQL = strSQL & ");"
       
        cnnFormToDB1.Execute strSQL, lngRecsAffected, adCmdText Or adExecuteNoRecords

                ' Dispose of the CONN object
                cnnFormToDB1.Close
                Set cnnFormToDB1 = Nothing
               
        %>
       
       
        <h2>Thanks for submitting your information to us!</h2>
               
                <p>
                <strong>The resulting SQL statement was:</strong>
                <pre><%= strSQL %></pre>
                </p>
               
                <p>
                <strong>Number of records affected:</strong> <%= lngRecsAffected %>
                </p>

---

-Jonsey