no ingresa y tampoco arroja error

[cxbxvx]

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
%>

[JuanRAPerez]

te falto ejecutar el Sqlstring

[cxbxvx]

hola , hise lo que me dijiste de ejecutar el sqlstring , y me quedo de la siguiente forma , pero me arroja un error ,
el codigo quedo asi
<%
'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&"')"
Conexion.Execute sqlString

'Terminamos e imprimimos un mensaje
Response.Write " "
end if
%>
el error que me arroja es el siguiente:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'Conexion'
/respuesta_ingreso_proveedor.asp, línea 31


intente varias cosa y no lo pude resolver que me dicen uds

[orharo2003]

Iniciado por cxbxvx

hola , hise lo que me dijiste de ejecutar el sqlstring , y me quedo de la siguiente forma , pero me arroja un error ,
el codigo quedo asi
<%
'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&"')"
cnn.Execute sqlString

'Terminamos e imprimimos un mensaje
Response.Write " "
end if
%>
el error que me arroja es el siguiente:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: 'Conexion'
/respuesta_ingreso_proveedor.asp, línea 31


intente varias cosa y no lo pude resolver que me dicen uds

[cxbxvx]

cambie lo del sqlstring y me arroja este error ahora
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E0C)
No se estableció ningún texto de comando para el objeto de comando.
/respuesta_ingreso_proveedor.asp, línea 31

el codigo quedo asi
<%
'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
sqltext ="Insert Into proveedor (rut_proveedor,razon_social_proveedor,fono_proveed or,correo_electronico_proveedor) values('"&rutproveedor&"',"&razonsocial&",'"&fono& "','"&correo&"')"
cnn.Execute sqlString

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

[El_Metallick]

pues tu consulta se llama sqltext y ejecutas sqlString... saludos

[cxbxvx]

e cambiado todo lo que me han dicho y no e podido resolver el problema, locambie me quedo el codigo asi:
<%
'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
sqltext="Insert Into proveedor (rut_proveedor,razon_social_proveedor,fono_proveed or,correo_electronico_proveedor) values('"&rutproveedor&"',"&razonsocial&",'"&fono& "','"&correo&"')"
rst.Open sqltext,cnn,3,3 (linea 31)

'Terminamos e imprimimos un mensaje
Response.Write " "
end if
%>
y me vuelve arrojar error:
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 1.
/respuesta_ingreso_proveedor.asp, línea 31

[cxbxvx]

alguien me puede ayudar, que ya me esta colmando la pacienncia este codigo porfa , ojala me puedan dar una respuesta que no alla intentado , porque las otras no me han resuelto el problema , gracias se lo agradeceria si lo hacen

[monkyta]

Esto te puede dar una pista

http://support.microsoft.com/default.aspx/kb/207586