no se que hacer

[cxbxvx]

holas, aqui estoy deneuvo con mi problema que no he podido solucionar, he tratado de varias formas y no pasa nada , lo unico que se que ingresa solamente a una tabla , aqui les dejo mi codigo nuevamente haber si me pueden ayudar , lo que esta sin negrita funciona lo mas bien y lo ingresa a la tabla pero el resto nop
<%

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")
sqltext = "SELECT * FROM producto"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
dim producto,cantidad,valor,factura,netofactura,totalf actura,rubro
producto = Request.Form("producto")
cantidad = Request.Form("cantidad")
valor = Request.Form("valor")
factura = Request.Form("factura")
netofactura= Request.Form("netofactura")
totalfactura= Request.Form("totalfactura")
rubro= Request.Form("rubro")

if producto = "" or cantidad ="" or valor ="" or factura ="" or netofactura="" or totalfactura="" or rubro="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End

end if
'Si está todo correcto, procedemos a ingresar los datos a la base de datos
rst.AddNew
rst("nombre_producto") = producto
rst("cantidad_producto") = cantidad
rst("valor_unitario") = valor
('rst("numero_factura")=factura)pertenece a la tabla factura
('rst("neto_factura")=netofactura)
('rst("total_facura")=totalfactura)
('rst("nombre_rubro")=rubro)pertenece a una tabla rubrorst.update
'Terminamos e imprimimos un mensaje
Response.Write " "

%>