Un formulario sencillo

[Adler]

Hola prueba así

<%
Dim dato_clave
dato_clave = request.form("textfield")

if IsEmpty(dato_clave) then
%>

<form name="form2" method="post" action="insercion.asp">
<input type="text" name="textfield" />
<br />
<input type="submit" name="Submit" value="Enviar" />
</form>

<%
else

set rsDatos = Server.CreateObject("ADODB.Recordset")
SQLDatos = "SELECT clave FROM Datos where clave like '%"dato_clave"%'"
rsDatos.Open SQLDatos,DB_CONNECTIONSTRING
if not rsDatos.eof = true then
response.redirect("secreto.asp")
else
response.redirect("error.asp")
end if
%>

Suerte