Insertar varios registros simultaneos en una tabla Ayuda Urgente!!!

[Santiago Dichiera]

Hola amigos tengo un problemita con mi código necesito cargar datos en una tabla pero no funciona y tampoco me da error.

La estructura de la tabla es la siguiente:
MAP_IDGupo_Material
MAP_IDMaterial
MAP_Cant_Material
MAP_Fecha_Alta
MAP_Usuario_Alta

Los datos los tomo haciendo una consulta en otra tabla:

Código PHP:

  <% 
                sq = "Select * from PDV_Materiales"                
                set rs = oConGral.execute(sq)                 
                While not rs.eof                    
                %> 
                <tr>                
                  <td class="td01" align="right"><%=rs("MA_Descripcion")%>&nbsp</td> 
                  <td width="100" class="td01"> 
                  <input type="text" class="inputChico" id="noDecoracion_<%=rs("MA_IDMateriales")%>" name="noDecoracion_<%=rs("MA_IDMateriales")%>" value="" size=30 maxlength=50> 
                  </td>                        
                  <td class="td01"></td> 
                  <td class="td01"></td> 
                  <td class="td01"></td> 
                  <td class="td01"></td> 
                  <td class="td01"></td> 
                  <td class="td01"></td> 
                </tr>                  
                 <% 
                 rs.moveNext 
                 wend 
                 %>  
   

Y esta es la pagina que deveria insertar los datos:

Código PHP:

  <% 
Function SimulaSecuencia (TablaSec, CampoID, strWhere) 
Dim rs 
    Set rs = server.CreateObject("ADODB.Recordset") 
    Set rs = oConGral.execute  ("SELECT MAX(" & CampoID & ") as maximo FROM " & TablaSec & " " & strWhere)     
    if IsNull(rs(0)) or rs(0)="" Then  
        SimulaSecuencia = 1 
    Else 
        SimulaSecuencia = Clng(rs(0)) + 1 
    End If 
    rs.close 
    Set rs = Nothing 
end function 
Dim MAP_IDGupo_Material 
MAP_IDGupo_Material = SimulaSecuencia ("PDV_MaterialesXPlanilla", "MAP_IDGupo_Material", "") 
 
Sub Inserta(var,val) 
Dim sq 
 
    sq = "INSERT INTO PDV_MaterialesXPlanilla" 
    sq = sq & "(MAP_IDGupo_Material, " & _ 
    "MAP_IDMaterial, MAP_Cant_Material, " & _ 
    "MAP_Fecha_Alta, MAP_Usuario_Alta)" 
 
    sq = sq & " VALUES (" & _ 
    MAP_IDGupo_Material & ", " & _  
    var & ", " & _  
    val & ", " & GrabaFecha(Date()) & ", " & _ 
    Session("Nombre") & ")"  
 
Response.Write sq 
  
    oConGral.execute (sq) 
     
    If oConGral.Errors.Count > 0  Then 
        errMsg = "Errores tratando de guardar los datos: <br>" 
        For Each er In oConGral.errors 
            errMsg = errMsg & er.Description & "<br>" 
        Next 
        oConGral.Close 
        Set oConGral = Nothing 
        Response.Redirect "../mensaje.asp?men=" & Server.URLEncode(errMsg) & "&opcion=0" 
    End if     
End Sub 
%> 
<% 
Dim i 
Dim Tipo, campo 
    For each i in Request.Form 
        campo = cstr(i) 
        tipo = Left(campo, 3) 
        Select Case tipo  
            Case "noDecoracion" 
                Inserta Mid(campo,5), "'" & Request.Form(campo) & "'", 0 
            'Case "noDecoracion" 
            '    If Trim(Request.Form(campo)) = "" Then 
            '        Inserta Mid(campo,5), 0, 0 
            '    Else 
            '        Inserta Mid(campo,5), Request.Form(campo), Request.Form(campo) 
            '    End If 
            'Case "CHK" 
            '    Response.Write "CCH_" & Mid(campo,5) 
            '    If Request.Form("CCH_" & Mid(campo,5)) = "on" Then 
            '        Inserta Mid(campo,5), "'Si'", 1 
            '    Else 
            '        Inserta Mid(campo,5), "'No'", 0 
                End If 
        End Select 
    Next 
 
    Response.End() 
%>