If Then Else

[AlZuwaga]

Yo eliminaría la tercer página ya que el comentario de "no existen resultados coincidentes" se puede hacer directamente en la página que consulta los datos. Algo así (y algunas modificaciones que hago porque no entendí la lógica):


<%
If Request.Form = "" Then
Response.Redirect("pag1 .asp")
else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;D ata Source=" & Server.MapPath("result.mdb"))
strSQL = "Select * from anteriores where fecha ='" & Request.form("T1")&"'"

Set oRS = Conn.Execute(strSQL)
%>

<% If oRS.BOF AND oRS.EOF then %>

No hay coincidencias, vuelva a intentar su búsqueda

<% Else %>

aca va toda la info a imprimir en pantalla

<% End if %>

y despues cierro todo
<%
end if
oRS.close
set oRS=nothing
Conn.Close
Set Conn = Nothing
%>


Te marco en negritas los agregados y en itálica las modificaciones.

saludos
diego