axion2000
06 de Agosto del 2003

No se que pasa con este codigo, la pagina solo me dice NO SE PUEDE MOSTRAR LA PAGINA,
Hay un problema con la página solicitada y no puede ser mostrada..

Este es el codigo, Por favor ayudenme...la idea es que recogo los datos ingresados en un formulario, los paso a vectores, luego recorro los vectores y llamo a una sub pasandole el dato de turno para que lo grabe

Parece tambien que se puede grabar directamente el vector sin tener que recorrerlo o no???
Gracias por su sapiencia !!!

Este es el codigo :

<%
Private Function GUARDAR_REGISTRO(Codig,Produ,Preci,Canti)
Dim Conexion
Dim RS
Dim strSQL
Dim strConnectionString
strConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbCompra.mdb")
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open strConnectionString
strSQL = "INSERT INTO Compra(Usuario, Codigo, Producto, Precio, Compra) VALUES(" & _
PC(Quien_Es) & "," & PC(Codig) & "," & PC(Produ) & "," & Preci & "," & Canti & ")" 'Guarda el registro an la tabla
Set RS = Conexion.Execute(strSQL)
Conexion.Close
Set Conexion = Nothing
End Function

Private Function PC(Cadena)
Cadena = "'" & Cadena & "'"
PC = Cadena
End Function
%>

<%
Quien_Es=Request.ServerVariables("REMOTE_ADDR")
Codigo=Split(Request.Form("Codigo"), ", ")
Producto=Split(Request.Form("Producto"), ", ")
Precio=Split(Request.Form("Precio"), ", ")
Compra=Split(Request.Form("Cantidad"), ", ")

For t=0 To UBound(Codigo)
if Trim(Codigo(t))<>"" Then
Guardar_Registro(Quien_es, Codigo(t), Producto(t), Precio(t), Compra(t))
End if
Next

tamakun
06 de Agosto del 2003

Dentro del VALUES( ... ) tienes que asegurarte que los datos string (texto, no numericos) vayan delimitados; como estás utilizando las comillas dobles para definir strings, entonces para que la cadena contenga delimitadores debes usar comillas simples (también conocidos como apóstrofes) sólo en campos no numéricos ni lógicos.