<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>¼»-</title>
<STYLE type=text/css>BODY {
	MARGIN: 5px 0px
}
TABLE {
	FONT-SIZE: 12px; LINE-HEIGHT: 130%
}
INPUT {
	FONT-SIZE: 12px
}
A:link {
	COLOR: #000000; TEXT-DECORATION: none
}
A:visited {
	COLOR: #000000; TEXT-DECORATION: none
}
A:hover {
	COLOR: #ff0000; TEXT-DECORATION: underline
}
.white {
	COLOR: #ffffff
}
.white :link {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.white :visited {
	COLOR: #ffffff; TEXT-DECORATION: none
}
.white :hover {
	COLOR: #ffffff; TEXT-DECORATION: underline
}
.red {
	COLOR: #ff0000
}
A.red:link {
	COLOR: #ff0000
}
A.red:visited {
	COLOR: #ff0000
}
.blue {
	COLOR: #0000ff
}
A.blue:link {
	COLOR: #0000ff
}
A.blue:visited {
	COLOR: #0000ff
}
A.blue:hover {
	COLOR: #ff0000; TEXT-DECORATION: underline
}
.border {
	BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-BOTTOM: #000000 1px solid
}
.button {
	BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #000000 1px solid
}
</STYLE></head>

<body topmargin="10" leftmargin="0" bgcolor="#FFFFFF">

<div align="center" style="width: 285; height: 118"> 
  <center> 
  <table border="0" width="279" cellspacing="0" cellpadding="0"> 
            <tr>
              <td width="100%" colspan="3"></td>                    
            </tr>                  
            <tr>                  
            <%set com=server.createobject("adodb.connection")          
com.open "DBQ="& Server.MapPath("../data/singhot7826525s8ers.mdb")  &";Driver={Microsoft Access Driver (*.mdb)}"        
if request("ok")="ok" then response.write "hello"   
set rs=com.execute("select*from msg where edt>=#" & date & "# ORDER BY id DESC")   
page=request("page")      
newpage=0  
if page="" then page=1      
do while newpage<page*19-19  
newpage=newpage+1      
rs.movenext      
loop  
do while not rs.eof    
i=i+1%>             
            <tr>                  
              <MARQUEE onmouseover=stop() onmouseout=start() scrollAmount=2 
      scrollDelay=100 direction=up width="100%"><td width="65%"><a href="show.asp?n=<%response.write rs(0)%>" target="_blank"><%response.write rs(1)%></a>
              </td></marquee>                           
            </tr>             
<%if i=21 then exit do           
rs.movenext             
loop%>             
          </table>                
          </center>                
 <p align="right"><%if page=1 then %> <%else%><a href="wh.asp?n=<%=request("n")%>&page=<%=page-1%>"><font color="#0000FF"> </font></a>   
<%end if%> &nbsp;<%if i=19 and not rs.eof then %><a href="wh.asp?n=<%=request("n")%>&page=<%=page+1%>"><font color="#0000FF"> </font></a><%else%> <%end if%>         
 &nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <p></div>                      
               
</body>                   
                   
