Insert en ASP. no me da error pero tampoco inserta nada!

[RMCdotNet]

Buenas a todos hace mucho que no pasaba por aqui, estoy practicando para mi examen que es dentro de 3 dias y la verdad no se porque!! no me sale este insert. me canse de ver ejemplos y foros pero no pasa nada, lo mejor de todo es que cuando lo ejecuto no me da ningun error el IIS asique no tengo como guiarme, me dan una mano??.
Es un insert con SQL les dejo el codigo:

Código:

 <td><h2><a href="Home.asp">Home</a></h2>
      <h2><a href="Baja.asp">Baja de Clientes</a></h2>
    <h2><a href="Modificacion.asp">Modificacion de datos de Clientes</a></h2></td>
    <td><form id="form1" name="form1" method="post" action="">
      <p>Nombre y Apellido: 
        <input type="text" name="txtnombreyapellido" id="txtnombreyapellido" />
        <br />
        <br />
        DNI   
        <input type="text" name="txtDNI" id="txtDNI" />
      </p>
      <p>
        Telefono: 
        <input type="text" name="txttel" id="txtel" />
      </p>
      <p>Calle: 
        <input type="text" name="txtcalle" id="txtcalle" />
        Nro:     
        <input type="text" name="txtnum" id="txtnum" />
      </p>
      <p>Localidad: 
        <input type="text" name="txtlocalidad" id="txtlocalidad" />
        Provincia:
        <input type="text" name="txtProv" id="txtProv" />
        <input type="submit" name="alta" id="alta" value="alta" />
      </p>
</form>      <h2>&nbsp;</h2></td>
<% 
	NombreyApellido = request.Form("txtnombreyapellido")
	DNI = request.Form("txtDNI")
	TEL = request.Form("txttel")
	Calle = request.Form("txtcalle")
	numero = request.Form("txtnum")
	localidad = request.Form("txtlocalidad")
	provincia = request.Form("txtProv")
	if request.Form("alta") = "alta" then
 		set cn = server.createobject ("adodb.connection")
 		set rs = server.createobject ("adodb.recordset")
 			cn.open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & server.MapPath("EnsayoABM.accdb")
sql = "insert into Clientes (NombreyApellido, DNI, Telefono, Calle, Numero, localidad, Provincia) VALUES ('"& NombreyApellido &"','"& DNI &"','"& TEL &"','"& calle &"','"& numero &"','"& localidad &"','"& provincia &"')"
 rs.Open sql,cn
	end if
%>

la base que uso es Access 2010 y los campos son todos TEXT por eso pongo en todos el -- '"& valor &"'

[Julcar]

me parece que el error está al llamar al rs.open, prueba con cn.execute(sql)

[RMCdotNet]

ya lo resolvi, funciona asi ahora:

<%
Dim sql, cn, RS
if request.Form("alta") = "alta" then
set cn = server.createobject ("adodb.connection")
set rs = server.createobject ("adodb.recordset")
cn.open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & server.MapPath("EnsayoABM.accdb")

sql = "insert into Clientes (NombreyApellido, DNI, Telefono, Calle, Numero, localidad, Provincia) VALUES ('" & REQUEST.FORM("txtnombreyapellido") &"' , '"& Request.form("txtDNI") &"' , '"& Request.form("txttel") &"' , '"& Request.form("txtcalle") &"','"& Request.form("txtnum") &"' , '"& Request.form("txtlocalidad") &"' , '"& Request.form("txtProv") &"')"
rs.Open sql, cn
end if
%>