No Inserta En La Bd

[jordan]

Hola a todos, estoy intentando grabar un registro en la tabla de la BD y no me lo graba.

Pero tampoco me da ningún error.

Creo que puede ser por dos cosas:

1> que esto no esté bien escrito

<%@ LANGUAGE=VBScript %>
<% 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 <> "" then
set fami = Request.Form("familia1")

SQL2 = "SELECT * FROM per_ped"
RS2.Open SQL2, BD

For p = 1 to posi
If Request.form.cantidad&p <> "" then
RS2.AddNew
RS2.Fields("Codigo") = 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")
end if

SQL1 = "SELECT * FROM per_art where familia='" & fami & "'"

RS1.Open SQL1, BD
%>

o

2> tengo una variable posi, en la cual sumo los registros cuando los pongo en el formulario. es posible que al hacer el link otra vez a la página, el valor lo pierda y entonces no hace el for y por eso no me graba?

<table border="0">
<tr>
<td width="55"></td>
<td width="100"><font color="#FF0000">Referencia</font></td>
<td width="300"><font color="#FF0000">Descripción</font></td>
<td width="50"><p align="center"><font color="#FF0000">C/Caja</font></td>
<td width="50"><p align="center"><font color="#FF0000">P/Unid</font></td>
<td width="50"><p align="center"><font color="#FF0000">Cajas</font></td>
</tr>
</table>

<form method="post" name="control" action="pag1.asp" >

<table border="0">
<% Do While Not rs1.EOF %>
<tr>
<% if RS1("foto") <> "" then %>
<td width="55"><img src="./images/<%=RS1("Foto")%>" name=imagen></td>
<%else%>
<td width="55"><font color="#000080" size="1">NO FOTO</font></td>
<%end if%>
<%posi = posi + 1%>
<input type="hidden" name="Referencia<%=posi%>" value="<%Response.Write RS1("referencia")%>">
<input type="hidden" name="familia<%=posi%>" value="<%Response.Write RS1("familia")%>">
<input type="hidden" name="pedido" value="1">

<td width="100" valign="top" bgcolor="#FFFFE1"><font color="#336699"><b><% Response.Write RS1("Referencia")%></b></font></td>
<td width="300" valign="top" bgcolor="#FFFFE1"><font color="#336699"><% Response.Write RS1("Descripcion")%>&nbsp;</font></td>
<td width="50" valign="top" bgcolor="#FFFFE1"><p align="right"><font color="#336699"><% Response.Write RS1("Cantidad")%>&nbsp;</font></td>
<td width="50" valign="top" bgcolor="#FFFFE1"><p align="right"><font color="#336699"><% Response.Write RS1("Precio")%>&nbsp;</font></td>
<td width="50" valign="top" ><input name="cantidad<%=posi%>" size=3 style="float: right"></td>
<td widht="10" valign="top">
<% RS1.Movenext %>
</tr>
<% Loop %>
</table>
<input type="submit" value=">>" style="font-size: 8pt; color: #FFFFFF; background-color: #336699"></a><tr>

</form>