<body>
<% Set rsDept=Server.CreateObject("ADODB.Recordset")
sql="select * from msg where datediff(day, msgdate,'2003-7-1')=0"
rsDept.Open sql,connstr,3,1
while not rsdept.eof
response.Write rsdept("msgdate")
response.Write "<BR>"
rsdept.movenext
wend
rsdept.close
%>