Type mismatch: 'CLng'

[sfonseca45 0]

Bom Dia

 

Estou com o seguinte problema :

 

Ao fazer uma pesquisa a página de resultados me dá o seguinte erro:

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'CLng'

 

/pesquisa2.asp, line 13

 

Abaixo parte do código:

 

valor = CLng("10.000.000")

End IF

%> _linenums:0'><%valor = Request.QueryString("valor")IF valor <> "Todos" THENvalor = CLng(valor)ELSE<strong class='bbc'>valor = CLng("10.000.000")</strong>End IF%>

A linha 13 está em negrito.

 

O interessante que local não dá erro nenhum, mas qdo subi para o servidor apareceu este erro.

 

Alguém poderia dar uma idéia do que esta acontecendo.

 

Obrigado

[Ted k' 126]

tente colocar o session.LCID após o Language da sua página e faça novos testes

 

<% Session.Lcid = 1046 %>

[sfonseca45 0]

Quem sabe ... sabe mesmoFuncionou beleza ... Muito obrigado

[Ted k' 126]

qualquer dúvida amigo pode postar.

 

Boa programação...

[Hostmix Net Server 0]

tente colocar o session.LCID após o Language da sua página e faça novos testes

 

<% Session.Lcid = 1046 %>

 

Eu estou tendo o mesmo erro, mas no meu caso esta resposta não deu certo, veja o trecho do código.

 

Microsoft VBScript runtime error '800a000d'

 

Type mismatch: 'CLng'

 

/v4/post_new2.asp, line 102

 

<!--#include file="header.asp"-->
<!--#include file="language/extended_language.asp"-->
<%
If objFile.FolderExists(Server.Mappath("scripts")) then
%>
<script language="JavaScript" src="scripts/language/english/editor_lang.js"></script>
<%
End If
Response.Expires = -1000
Response.AddHeader "pragma","no-cache" 
Response.AddHeader "cache-control","private" 
Response.CacheControl="no-cache"

Dim noRTE, catID, subCatID, cat3rdID, duration, isMozilla, uPA(10,1)


If Wysiwyg_type = 1 AND NOT isCompatible then isWysiwyg = False: Wysiwyg_type = 0

If isWysiwyg then 
	Select Case Wysiwyg_type
		Case 1
			strCrawl = "?y=y"
			If isMozilla then
				Response.Write "<script language=""JavaScript"" src=""scripts/moz/editor.js""></script>"
				mozpath = "moz/"
			Else
				Response.Write "<script language=""JavaScript"" src=""scripts/editor.js""></script>"
			End If
	End Select
End If

setLocale server_locale
update = false
If CBool(Sess_Array(35)) Or Sess_Array(48) = Session.SessionID then moderator = True

Dim imgDim(10,1), uOtpArrayValue(7)

If Request.Querystring.Count = 1 then
	Sess_Array(15) = Empty
	adID = Request.Querystring.Item(1)
	Set rs = objConn.Execute("SELECT " & tablPfx & "Ads.* FROM " & tablPfx & "Ads WHERE adID = '" & adID & "';")
	If rs.EOF then 
		iError = True
	Else
		descr = rs(14)
		descr = Replace(descr, "<br>", vbcr)
		userID = rs(4)
		status = rs(15)
		Select Case moderator
			Case True
				update = true
				msg = msgUpdate
			Case Else
				If CStr(userID) = CStr(Sess_Array(29)) then 
					adOwner = True
					update = true
					msg = msgUpdate
				Else
					iError = True
					msg = msgNoAccess
				End If
		End Select
		If not iError then display = "<b>" & strText_UpdateAd & "</b>"
	End If
Else
	update = false
	If isnotfree and not CBool(Sess_Array(1)) then
		UpdateSessions False
		Response.Redirect "post_start.asp"
	End If
	If Sess_Array(29) = 0 then
		UpdateSessions False
		Response.Redirect "register.asp"
	End If
	catID = Sess_Array(24)
	catName = Sess_Array(40)
	subCatID = Sess_Array(25)
	subCatName = Sess_Array(41)
	strTreePath = catName & " > " & subCatName
	If not Sess_Array(23) = Empty then
		cat3rdID = Sess_Array(23)
		cat3rdName = Sess_Array(39)
		strTreePath = strTreePath & " > " & cat3rdName
	End If
	If Sess_Array(40) = Empty Or Sess_Array(41) = Empty then
		UpdateSessions False
		Response.Redirect "post_new1.asp"
	End If
	
	userID = Sess_Array(29)
	strImg = Sess_Array(36)
	
	If Len(strImg) > 4 then 
		imgArray = Split(strImg, sf)
		uploadPic = True
		For L = 1 to Ubound(imgArray) + 1
			'--- SID - Máximo de 10 imagens ---'
			if (L <= 10) then
			If not imgArray(L-1) = Empty then
				uPA(L,0) = Split(imgArray(L-1), "|")(0)
				uPA(L,1) = Split(imgArray(L-1), "|")(1)
				imgDim(L,0) = CLng(Split(uPA(L,1), "x")(0))
				imgDim(L,1) = CLng(Split(uPA(L,1), "x")(1))
				If imgDim(L,0) > 100 then
					koef = imgDim(L,0) / imgDim(L,1)
					imgDim(L,0) = 100
					imgDim(L,1) = Round(100 / koef)
				End If
			End If
			End If
		Next
	End If

[hargon 64]

Posta a linha 102, assim facilita para lhe ajudarmos.

[augustoclaro 2]

ow ted, pra que serve esse comando que você passo?

[xanburzum 169]

qual o conteudo de uPA(L,1) ???

 

O Session.LCID permite realizar a formatação de datas e configurações regionais de acordo com o país que o desenvolvedor necessitar, setando o código atribuído para cada país.

[Mário Monteiro 179]

existe algo nesta variavel/array que nao pode ser convertido neste formato tente depurar escrevendo o valor para ver o porque do erro e sua origem

[xanburzum 169]

ou seja da um response.write na variavel para ver o conteudo