Que tiene mal este codigo de agregar datos?

[yampoo]

<%
Response.Buffer = true
dim cnn,rst
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("bsd.mdb"))
sqltext = "SELECT * FROM categorias"
rst.Open sqltext,cnn,3,3


dim titulo, copete, noticia
titulo = Request.Form("titulo")
descripcion = Request.Form("descripcion")
categoria = Request.Form("categoria")
texto = Request.Form("texto")
autor = Request.Form("autor")
mail = Request.Form("mail")

if titulo = "" or descripcion ="" or cetegoria = "" or texto = "" or texto = "" or autor = "" or mail = "" then
error = "Debe completar todos los datos."
Response.Write error
Response.End
end if



rst.AddNew
rst("titulo") = titulo
rst("descripcion") = descripcion
rst("categoria") = categoria
rst("texto") = texto
rst("autor") = autor
rst("mail") = mail
rst.update


Response.Write "La oferta se ha agregado."
%>
Pues eso k tiene mal k no agreega los datos d eun formulario y me sale k faltan datos por rellenar.