13/12/2002, 06:50
|
| | | Fecha de Ingreso: noviembre-2002
Mensajes: 249
Antigüedad: 22 años, 6 meses Puntos: 0 | |
| ya esta!!!
La cosa queda así y va perfecto.
<% DIM BD, RS1, RS2, SQL1, SQL2
Set BD = Server.CreateObject("ADODB.Connection")
BD.Open "DSN=imateu.com.per"
Set RS1 = Server.CreateObject("ADODB.Recordset")
Set RS2 = Server.CreateObject("ADODB.Recordset")
if Request.form ("Referencia1") <> "" then
set fami = Request.Form("familia1")
SQL1 = "SELECT * FROM per_art where familia='" & fami & "'"
RS1.Open SQL1, BD, 1, 2
conta = RS1.RecordCount
Response.Write RS1.RecordCount
SQL2 = "SELECT * FROM per_ped"
RS2.Open SQL2, BD, 2, 3, 1
For p = 1 to conta
If Request.form ("cantidad"&p) <> "" then
RS2.AddNew
RS2.Fields("Cliente") = 4545
RS2.Fields("Referencia") = Request.Form ("Referencia"&p)
RS2.Fields("Cantidad") = Request.Form ("Cantidad"&p)
RS2.Update
End If
next
else
set fami = Request.QueryString("familia")
SQL1 = "SELECT * FROM per_art where familia='" & fami & "'"
RS1.Open SQL1, BD
end if
%>
Al final tenía el problama al abrir el recordset. al no poner ningún parametro me lo bloqueaba.
RS1.Open SQL1, BD, 1, 2
RS2.Open SQL2, BD, 2, 3, 1 |