输入一个格式为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")
