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")%> </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()
%>