ASP一段有问题的代码 请求帮助 - Web 开发 / vbScript

输入一个格式为2010-5-10的日期，点击删除，执行删去数据库中日期小于这个日期的在线人员的记录。
其中这个语句SQLstr="delete cgsManager.dbo.OnlineUser where "& Day(Session("currtime")) & " < "& Day(Request.Form( "DelTime")) 问题比较大，请教如何修改
数据库为空的时候，没有点击删除就弹出----"数据库已为空", , "提示"---，不知道错在哪了

有其他问题，请指出 ，感激不尽
   
[code=VBScript][/code]
<td align=center><label>在线人数管理，删除以下日期之前的记录<br>
请填写日期：
  <Input Class=noBorder Id="DelTime" style="border:0px;background-color:#f0f0f0;" MaxLength=19 Size=20 Name="DelTime"  

Value="<%=Date(Now())%>">
  <input type="Button" name="Delete" id="Delete" value="删除" />

Sub Delete_Onclick()
  If Trim(document.forms(0).elements("Time").value)="" Then
MsgBox "标题不能为空!", , "提示"
document.forms(0).elements("Time").focus()
Exit sub
End If  
</Script>  
<%
Sql = "select * from CgsManager.dbo.OnlineUser"
  Set objConn = Server.CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")