Como Insertar Datos???

[allhen]

Q hago ??

1.- Recojo todos los elementos del form y reemplazo los q estan vacios por el formato q yo desee.
2.- Si el valor q me interesa no esta vacio :
3.- Hago la conexión.
4.- Verifico si existe determinado valor.
5.- Si llega al fin de la tabla y no encuentra el determinado valor, lo Agrega.
6.- Si encuentra el determinado valor modifica el registro con los nuevos valores.

Código:

 
 
 
<%
varID = request.form("s_id")
var1 = request.form("box_number_e")
var2 = request.form("box_cc")
var3 = request.form("box_cf")
var4 = request.form("q_s")
     if var4 = "" then
     var4New = "0"
     else
     var4New = var4
     end if
var5 = request.form("q_e")
var6 = request.form("q_d")
     if var6 = "" then
     var6New = "000"
     else
     var6New = var6
     end if
var7 = request.form("d_e")
var77 = request.form("d_ee")
var8 = request.form("d_d")
var9 = request.form("status")
     if var9 = "" then
     var9New = "0"
     else
     var9New = var9
     end if
 
Const adOpenKeyset = 1
Const adLockOptimistic = 3
if var1 <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("distrib.mdb"))
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset 
rs.LockType = adLockOptimistic 
sqltxt="SELECT * from Plan where numberGuia='"&var1&"'"
rs.Open sqltxt, Conn 
if rs.eof then
     rs.Addnew
     rs("numberGuia")=var1
     rs("codeDistrib")=var2
     rs("codflexDistrib")=var3
     rs("saldoVenta")=var4New
     rs("entregadoVenta")=var5
     rs("devueltoVenta")=var6New
     rs("dateEmitidoVenta")=var7
     rs("dateEntregadoVenta")=var77
     rs("dateDevueltoVenta")=var8
     rs("statusDistrib")=var9New
     rs.update
     ShowCONFIRM = "AGREGADO"
else
     rs("numberGuia")=var1
     rs("codeDistrib")=var2
     rs("codflexDistrib")=var3
     rs("saldoVenta")=var4
     rs("entregadoVenta")=var5
     rs("devueltoVenta")=var6New
     rs("dateEmitidoVenta")=var7
     rs("dateEntregadoVenta")=var77
     rs("dateDevueltoVenta")=var8
     rs("statusDistrib")=var9New
     rs.update
     ShowCONFIRM = "MODIFICADO"
end if
rs.close
Conn.Close
set rs = Nothing
Set Conn = Nothing
 
else
    ShowCONFIRM = "Número de Guía no fue ingresado."
end if
response.redirect "?PageID_level=my_form-135-not-admin&userID="&var2&"&confirm="&ShowCONFIRM
%>