miren el codigo es algo enredado por que se hacen varias cosas dentro de el.
esta es la parte que deseo insertar... Esta es la parte en donde despliego los datos del select.
Código PHP:
Sql="SELECT ART_DB3.PROV,ART_DB3.NOMBRE, ART_DB3.CODIGO, ART_DB3.CODIGO3, ART_DB3.PRECVTA, ART_DB3.PULTCOM,STOCK_DB.STK_OPTIMO, STOCK_DB.STK_CRITIC, STOCK_DB.STK_FISICO FROM C:\INETPUB\WWWROOT\bod\TESTER\ART_DB3.DBF ART_DB3 LEFT JOIN C:\INETPUB\WWWROOT\bod\TESTER\STOCK_DB.DBF STOCK_DB ON ART_DB3.NREGUIST = STOCK_DB.NUMREGSTK WHERE "& artFilter &" ORDER BY ART_DB3.CODIGO ASC"
Reg.Open Sql, DBConn
swColor=1
Dim cont
Dim intCantidadSugerida
cont=0
Do Until Reg.EOF
cont = cont + 1
MyColor="#FFFFFF"
if Reg.Fields("STK_CRITIC") >= Reg.Fields("STK_FISICO") then
MyColor="#0099FF"
end if
%>
<tr bgcolor="<% response.Write(MyColor) %>">
<td><div align="center">
<input type="text" name="Proveedor" value="<% Response.Write(Reg.Fields("PROV"))%>">
</div></td>
<td><div align="center">
<input type="text" name="Producto" value="<% Response.Write(Reg.Fields("NOMBRE"))%>">
</div></td>
<td><div align="center">
<input name="CodProd" type="text" value="<% Response.Write(Reg.Fields("CODIGO3")) %>" size="20">
</div></td>
<td><div align="center">
<input name="textPventa_<% Response.Write(cont) %>" type="text" id="textPVenta_<% Response.Write(cont) %>" value="<% Response.Write(Reg.Fields("PRECVTA")) %>" size="15" readonly="readonly">
</div></td>
<td><div align="center">
<% Response.Write(Reg.Fields("STK_FISICO")) %>
</div></td>
<td><div align="center">
<%
if Reg.Fields("STK_OPTIMO") > Reg.Fields("STK_FISICO") THEN
intCantidadSugerida = Reg.Fields("STK_OPTIMO") - Reg.Fields("STK_FISICO")
else
intCantidadSugerida = 0
End if
%>
<input name="<% Response.Write(cont) %>" type="text" id="textCant_<% Response.Write(cont) %>" size="4" onBlur="MultiplicarRow(this);" value="<%Response.Write(intCantidadSugerida)%>">
</div></td>
<td><div align="center">
<% Response.Write(Reg.Fields("STK_OPTIMO"))%>
</div></td>
<td><input name="subtotal_<% Response.Write(cont) %>" type="text" id="subtotal_<% Response.Write(cont) %>" size="15" readonly="readonly"></td>
</tr>
<%
Reg.MoveNext
Loop
%>
<input type="hidden" name="hddTotalFilas" id="hddTotalFilas" value="<% Response.Write(cont) %>">
<%
DBConn.Close
set DBConn = nothing