Campos de formulario, en blanco

[Maxon]

TODOS MIS CAMPOS EN LA bd SON DE TEXTO

<%
Dim Con, rs, SQL
set Con = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&("\\premfs3\sites\premium8\autosite\database \sat.mdb")
SQL=" SELECT * FROM ordenes "
rs.Open SQL, Con, 1, 2


rs.AddNew
rs("fecha")=date
rs("vendedor")=Request.Form("vendedor")
rs("empresa")=Request.Form("empresa")
rs("contacto")=Request.Form("contacto")
rs("domicilio")=Request.Form("domicilio")
rs("telefono")=Request.Form("telefono")
rs("cant")=Request.Form("cant")
rs("descripcion")=Request.Form("descripcion")
rs("costo")=Request.Form("costo")
rs("precio")=Request.Form("precio")
rs("comision")=Request.Form("comision")
rs("proveedor")=Request.Form("proveedor")
rs("comentarios")=Request.Form("comentarios")
rs("estatus")=Request.Form("estatus")
rs("pago")=Request.Form("pago")



rs.Update
rs.Close
set rs = nothing
Con.Close
set Con = nothing

response.redirect ("index.asp")

%>