Ver Mensaje Individual
  #1 (permalink)  
Antiguo 12/02/2012, 12:18
RMCdotNet
 
Fecha de Ingreso: junio-2010
Mensajes: 11
Antigüedad: 14 años, 10 meses
Puntos: 1
Exclamación Insert en ASP. no me da error pero tampoco inserta nada!

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 &"'