no ingresa y tampoco arroja error

[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