ERRO

[erinaldo]

PESSOAL SOU NOVO EM ASP TENHO UM SCRIPT QUE ESTA DANDO ESSE ERRO COMO POSSO RESOLVER ISSO

Tipo de erro:

Microsoft VBScript runtime (0x800A000D)

Type mismatch: 'CDate'

[douglasdamame]

Posta o Código fonte...

[.Andreia.]

Verifique se a variavel que você está usando CDate não está vazia, afinal não se pode usar uma funcao numa variavel nula

[erinaldo]

Posta o Código fonte...

<!--#include file="forum/language_files/language_file_inc.asp" -->

<!--#include file="forum/language_files/portal_language_file_inc.asp" -->

<!--#include file="forum/functions/functions_filters.asp" -->

<!--#include file="forum/admin/functions/functions_portal.asp" -->

<!--#include file="forum/functions/format_page.asp" -->

<!--#include file="forum/functions/functions_common.asp" -->

<%

Dim intRecordLoopCounter

Dim strExtraBodyTag

Dim strExtraForumPath

Dim strExtraPortalPath

Dim blnCreateCenterTD

blnCreateCenterTD = True

strExtraForumPath = "forum/"

strExtraPortalPath = ""

Const strRTEversion = "1.2"

If strDatabaseType = "SQLServer" Then

Call MSSQLConnection()

Else

Call AccessConnection(strPortalDbPathAndName)

End If

'All the default main connections is stored in portal_connections.asp

Call GetMainConnections()

'Get the new settings

%><!--#include file="forum/functions/mods/config/portal_config.asp"--><%

'Set a cookie with the last date/time the user used the forum to calculate if there any new posts

'If the date/time the user was last here is 20 minutes since the last visit then set the session variable to the users last date they were here

If Session("dtmLastVisit") = "" AND Request.Cookies(strCookieName)("LTVST") <> "" Then

Session("dtmLastVisit") = CDate(Request.Cookies(strCookieName)("LTVST"))

Response.Cookies(strCookieName)("LTVST") = CDbl(Now())

Response.Cookies(strCookieName).Expires = DateAdd("yyyy", 1, Now())

'If the last entry date is not alreay set set it to now

ElseIf Session("dtmLastVisit") = "" Then

Session("dtmLastVisit") = Now()

End If

'If the cookie is older than 5 mintues set a new one

If isNumeric(Request.Cookies(strCookieName)("LTVST")) Then

If CDate(Request.Cookies(strCookieName)("LTVST")) < DateAdd("n", -5, Now()) Then

Response.Cookies(strCookieName)("LTVST") = CDbl(Now())

Response.Cookies(strCookieName).Expires = DateAdd("yyyy", 1, Now())

End If

'If there is no date in the cookie or it is empty then set the date to now()

Else

Response.Cookies(strCookieName)("LTVST") = CDbl(Now())

Response.Cookies(strCookieName).Expires = DateAdd("yyyy", 1, Now())

End If

'Get the user details

Call UserDetails()

Dim intEventsPostCheck

For intEventsPostCheck = 0 TO UBound(saryCalendarGroups)

If Clng(saryCalendarGroups(intEventsPostCheck)) = intGroupID Then

blnUserCanPostEvents = True

Exit For

End If

Next

If blnForumClosed AND blnAdmin = False Then

Set rsCommon = Nothing

adoCon.Close

Set adoCon = Nothing

Response.Redirect("forum/forum_closed.asp")

End If

If blnActiveUsers Then

%>

<!--#include file="forum/includes/active_users_inc.asp" -->

<%

'Records the stats

If blnRecordStats Then Call PortalStats()

End If

%>

<!--#include file="forum/functions/functions_date_time_format.asp" -->

<!--#include file="forum/includes/pm_check_inc.asp"-->

<!--#include file="forum/functions/mods/mods_inc.asp"-->

Posta o Código fonte...

em todo codigo não tem nenhuma variavel com CDate como eu faria veja o codigo abaixo>

Editado Março 11, 2008 por erinaldo

[kuroi]

tenta trocar

If isNumeric(Request.Cookies(strCookieName)("LTVST")) Then

por

If isDate(Request.Cookies(strCookieName)("LTVST")) Then