Myakire mira lo puse asi esta bien por que no me manda a la pagina...
<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("vigencia.mdb")&";"
sql = "SELECT * FROM vigencia where fecha >= now"
Set result = con.Execute(sql)
If Not result.EOF Then
Response.Redirect "http://www.google.com"
End If
Do While Not result.EOF
Response.Write "<p><b><font face=Verdana size=1><a href=vigencia.asp?id_laredo=" &result.Fields("id_laredo") & ">"&result.Fields("fecha")&"</a></b><br><font color=""#696969"">• " &result.Fields("uno") & "</font></font></p>"
result.MoveNext
Loop
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>