Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/09/2006, 15:26
cxbxvx
 
Fecha de Ingreso: agosto-2006
Ubicación: chile
Mensajes: 21
Antigüedad: 18 años, 8 meses
Puntos: 0
Pregunta no ingresa y tampoco arroja error

holas yo de nuevo , lo que paso del porque pregunto tanto es que estoy haciendo un trabajo , y lo necesito terminar luego por eso lo de mis consultas tan repetidas , y se que uds me pueden ayudar y confio en uds por eso lo hago...
bueno mi consulta es la siguiente quiero ingresarles datos a una tabla y lo que pasa que no me arroja ningun error y tampoco los ingresas , haber si me lo pueden revisar y dar alguna solucion ,gracias de ante mano
aqui esta mi codigo:

<%
'Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("inventario.mdb")

'Recogemos los datos y validamos que no haya ningun campo vacio
dim rutproveedor,razonsocial,fono,correo
rutproveedor = Request.Form("rutproveedor")
razonsocial = Request.Form("razonsocial")
fono = Request.Form("fono")
correo = Request.Form("correo")

if rutproveedor = "" or razonsocial ="" or fono ="" or correo =""then
error = "Debe completar todos los datos."
Response.Write error
Response.End
Else
Sqlstring ="Insert Into proveedor (rut_proveedor,razon_social_proveedor,fono_proveed or,correo_electronico_proveedor) values('"&rutproveedor&"',"&razonsocial&",'"&fono& "','"&correo&"')"

'Terminamos e imprimimos un mensaje
Response.Write " "
end if
%>