<%
'if the user clicked a link then search the db
accessdb="state_info"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
'u_letter= date()
p=hour(now)
'response.write(p)
if p>=13 and p<=23 then
u_letter=day(date+1) & "." & month(date) & "." & year(date)
'Response.Write(p)
'Response.Write(u_letter)
else
u_letter=day(date) & "." & month(date) & "." & year(date)
'Response.Write(u_letter)
end if
'u_letter=day(date+1) & "." & month(date) & "." & year(date)
'Response.Write(u_letter)
'end if
'u_letter=day(date) & "." & month(date) & "." & year(date)
sql = "select * from states where (statename)='"& u_letter &"' order by statename asc"
rs.Open sql, cn
'if the search ends in no results display a
'no results found mesage
if rs.eof then
%>
No Birthday <%= u_letter %>
<% else
do while not rs.eof
'display all observations found
%>
HAPPY BIRTHDAY |
 |
<%= rs("statename") %>---<%= rs("state") %>---<%= rs("capital") %>---STD : <%= rs("order") %>
<%
rs.movenext
loop
end if ' end check for user input
%>
|