Dim Actcome,SQl,Rs,UserTrueIP,username,lastdate
        UserTrueIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        
       lastdate=(request.Form("lastdate")=(getdate())) *****就是这里出错
        
        If UserTrueIP = "" Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR")
        username=Request.Cookies(Rikee)("huiyuan")
        if username="" then
            set rs=server.createobject("adodb.recordset")
            sql="select id from online where userip='"&UserTrueIP&"'"
            rs.open sql,conn,1,3
            if rs.eof Then
                conn.Execute("Insert Into [Online](name,userIp) Values ('游客','" & UserTrueIP & "')")
            else
                conn.Execute("update [Online] set lastdate='"&lastdate&"' where userip='"&UserTrueIP&"'")
            end if
            rs.close
        else
            set rs=server.createobject("adodb.recordset")
            sql="select id from online where name='"&username&"'"
            rs.open sql,conn,1,3
            if rs.eof then
                conn.Execute("Insert Into [Online](name,userIp) Values ('"&username&"','" & UserTrueIP & "')")
            else
            conn.Execute("update [Online] set lastdate='"&lastdate&"' where name='"&username&"'")
            end if
            rs.close
       end If
大家帮我看一下 是怎么错了？
我用的sql 数据库  
提示 的错误是：
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'getdate'

/123/ddtion.asp，行 825

request.Form("lastdate")=Cstr(getdate())
lastdate=request.Form("lastdate")