¿cómo podría controlar los campos, si introducen números en vez de texto?
<!--#include file="comunes.asp"-->
<HTML>
<HEAD>
<TITLE>Insertar</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Insertar un registro</h1>
<br>
<FORM METHOD="POST" ACTION="insertar.asp">
Nombre<br>
<INPUT TYPE="TEXT" NAME="nombre"><br>
Teléfono<br>
<INPUT TYPE="TEXT" NAME="telefono"><br>
E-mail<br>
<INPUT TYPE="TEXT" NAME="email"><br>
Activo<br>
<INPUT TYPE="checkbox" NAME="activo"><br>
Contrato<br>
<select NAME="contrato">
<option value="-">elige opción</option>
<option value="PARCIAL">parcial</option>
<option value="FIJO">Fijo</option>
<option value="TEMPORAL">temporal</option>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Enviar">
</FORM>
</div>
</BODY>
</HTML>
<HTML>
<HEAD>
<TITLE>Insertar.asp</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
nombre=Request.Form("nombre")
telefono= Request.Form("telefono")
email=request.form("email")
activo=request.form("activo")
contrato=request.form("contrato")
'Instanciamos y abrimos nuestro objeto conexion
'Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open "consultas.mdb"
'Ahora creamos la sentencia SQL
sSQL="Insert Into nombre (nombre,telefono,email,activo,contrato) values ('"&nombre&"','"&telefono&"','"&email&"',"&activo& ",'"&contrato&"')"
'Ejecutamos la orden
set RS = Conexion.Execute(sSQL)
%>
<h1><div align="center">Registro Insertado</div></h1>
<div align="center"><a href="lecturas.asp">Visualizar el contenido de la base de datos</a></div>
<div align="center"><a href="consulta.asp">Hacer una consulta</a></div>
<%
'Cerramos el sistema de conexion
Conexion.Close
set conexion=nothing
%>
</BODY>
</HTML>