Hola, tengo este ódigo que pongo a continuación, lo que quiero es que el campo PIN sea obligatoro. He pobado con diferentes JavaScript, pero me sale un mensaje diciéndome que tengo que escribir ese campo, hasta aquí perfecto, el problema es que cuando le doy a Aceptar, en vez de uedarse en ese formulario, ejecuta la búsqueda. ¿alguien sabe que tengo que escribir en este código para que ese campo s tenga que escribir por fuerza?
---codigo----
<HTML>
<head>
<TITLE> Filtros: Buscar por... </TITLE>
</head>
<%
If Session("userGood") = False or IsNull(Session("userGood")) = True then
Response.Redirect"default.asp"
End If
strUserName = Replace(Session("userName"), "'", "''")
userID = Clng(Session("userID"))
userAdmin = Replace(Session("userAdmin"), "'", "''")
Session("userID") = userID
%>
<!-- #INCLUDE File="prueba.inc" -->
<%IF (Request.Form <> "") THEN
IF (Request.Form ("Pagina") = "Pagina Siguiente") THEN
Session ("Pagina")= Session ("Pagina") + 1
ELSE IF (Request.Form ("Pagina") = "Pagina Anterior") THEN
Session ("Pagina")= Session ("Pagina") - 1
ELSE Session ("Pagina")= 1
END IF
END IF
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "xxxxx.com.asplogin"
Ob_RS.Open "tblCitas", Ob_Conn, adOpenStatic, adCmdTable
Poner_AND= False
Filtro= ""
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" AND Parametro <> "PAGINA" THEN
IF Poner_AND THEN
Filtro= Filtro & " AND " & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
ELSE
Filtro= Filtro & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
Poner_AND = True
END IF
END IF
NEXT
Filtro= LCase (Filtro)
Ob_RS.Filter = Filtro
IF NOT Ob_RS.Eof THEN %>
<CENTER>
<% Ob_RS.PageSize = 9
Ob_RS.AbsolutePage = Session ("Pagina") %>
<H3> <%= Session ("") %> <%= Ob_RS.PageCount %> </H3>
<TABLE BORDER=1>
<TR>
<% Num_Campos= Ob_RS.Fields.Count
FOR Campo=0 TO Num_Campos - 1 %>
<TH> <%= Ob_RS (Campo).Name %> </TH>
<% NEXT
Registro=0
DO WHILE Registro < 30000 AND NOT Ob_RS.Eof %>
<TR>
<% FOR Campo=0 TO Num_Campos -1 %>
<TD> <%= Ob_RS(Campo) %> </TD>
<% NEXT
Registro= Registro + 1
Ob_RS.MoveNext
LOOP %>
</TABLE>
<BR>
<FORM METHOD="Post" ACTION="filtro.asp">
<% FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro)<>"" AND Parametro <> "PAGINA" THEN %>
<INPUT TYPE="Hidden" NAME=<%=Parametro %> VALUE=<%=Request.Form("Parametro")%>>
<% END IF
NEXT
IF Session ("") > 1 THEN %>
<INPUT TYPE="Submit" VALUE="Pagina Anterior" NAME="Pagina">
<% END IF
IF Session ("") < Ob_RS.PageCount THEN %>
<% END IF %>
</FORM>
<% ELSE Response.Write "<H3> NO SE HA ENCONTRADO NINGUNA CITA INTRODUCIDA </H3><BR>"
END IF %>
<a href="filtro.asp">Buscar nueva Cita</a>
<a href=main.asp>Inicio</a>
<% Ob_RS.Close
Ob_Conn.Close
ELSE %>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="804" height="71">
<tr>
<td width="626" height="22" valign="bottom" align="center">
<p align="left"><FONT face=Arial>
<img border="0" src="images/sublogo.jpg" width="222" height="49"> &n bsp; &nbs p; &n bsp; &nbs p;
<img border="0" src="images.jpg" width="191" height="49"><HR noShade width=600 align="left">
</FONT></td>
<td width="185" height="71" rowspan="2" valign="top" align="center"></td>
</tr>
<tr>
<td width="626" height="49" valign="top" align="center">
<p align="center"><FONT face=Arial><B>Buscar Citas.</B></FONT><BR>
<font face="Arial" color="#414034">Introduce el nombre de la persona
que ha introducido una Cita</font>
<br>
<HR noShade width=600 align="left">
</td>
</tr>
</table>
</center>
</div>
<FORM name="form1" FORM METHOD="Post" ACTION="filtro.asp">
<p align="center">
<font face="Arial" size="2"><b>
Introduce tu PIN:
</b></font>
<input type="text" name="pin" size="4" maxlength="4"><font face="Arial" size="2"><b>
<br>
<br>
<INPUT class=clsButton style="FONT-WEIGHT: bold; COLOR: #ffffff; BACKGROUND-COLOR: #6699cc" INPUT TYPE="Submit" VALUE="Buscar">
<INPUT class=clsButton style="FONT-WEIGHT: bold; COLOR: #ffffff; BACKGROUND-COLOR: #6699cc" INPUT TYPE="Reset" VALUE="Borrar">
</b></font>
</FORM>
<% END IF %></BODY></HTML>
----fin codigo-----