[Resolvido] BD sql e Asp

[edsonlyra 0]

E ai galera tudo bem!?

Sou novo em programação e aqui tambem...

Alterei um banco de dados sql no servidor ( só inclui um campo) e agora o arquivo asp gera o seguinte erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis: 'cINT'

 

/sistemas/news/_uploada.asp, line 49

 

O estranho é que nao alterei o asp no servidor, e ainda mais voltei com o bd original e nada..

 

putz,, to desesperado... alguem tem alguma ideia????

[Mário Monteiro 179]

voce esta tentando converter para inteiro algo que nao pode

 

veja nesta linha de codigo o que tem dentro do valor que esta no CINT

[edsonlyra 0]

voce esta tentando converter para inteiro algo que nao pode

 

veja nesta linha de codigo o que tem dentro do valor que esta no CINT

Mário, mas ai que não entendo, o sistema estava funcionando antes de eu mecher no sql...mas ai voltei com o original... será que tem alguma coisa haver?

 

É um formulário de upload de imagem, o código é esse aqui:

 

 

<!--#include file="../all_conn.asp"-->
<%
response.expires=0
%>
<!--#include file="../fnc_UPLOAD.asp"-->
<!--#include file="../fnc_FILESYSTEM.asp"-->
<%
Dim UploadRequest
extensions 		= ".JPG"
maxsize			= 50 '(kbytes)
maxlargura		= 185
maxaltura		= 138

dirFile= server.MapPath("FOTOS/")
dirVirtual= root_path & "news/FOTOS/"

byteCount			= Request.TotalBytes
RequestBin 			= Request.BinaryRead(byteCount)
Set UploadRequest	= CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

ID 			= UploadRequest.Item("ID").Item("Value")
vH			= UploadRequest.Item("H").Item("Value")
vL			= UploadRequest.Item("L").Item("Value")

contentType 		= UploadRequest.Item("blob").Item("ContentType")
filepathname 		= UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
if filename <> "" then
	filenameraw = left(filename,InstrRev(filename,".")-1)
	fileType = "." & right(filename,len(filename)-InstrRev(filename,"."))
	fileSize = byteCount / 1024
end if

if filename = "" and ID <> "-" then
	UPLEDT = "OK"
else
	if extensions <> "" then
		if InStr(extensions,UCASE(FileType)) = 0 then 
			response.write ("<script>alert('Formato inváliado. Utilize os seguinte(s) formato(s): "&extensions&"');history.back();</script>")
			response.end
		end if
	end if
	if FileSize > maxsize then 
		response.write ("<script>alert('Tamanho em bytes inválido. Máximo permitido: "&maxsize&"');history.back();</script>")
		response.end
	end if
	if cINT(vH) > maxaltura or cINT(vL) > maxlargura then 
		response.write ("<script>alert('Tamanho em pontos inválido. Máximo permitido: "&maxaltura&","&maxlargura&"');history.back();</script>")
		response.end
	end if
end if
		
if UPLEDT <> "OK" then
	value = UploadRequest.Item("blob").Item("Value")
	Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

	msg = rmfile(dirFile & "/" & ID & "p" & fileType)
	
	Set MyFile = ScriptObject.CreateTextFile(dirFile & "/" & ID & "a" & fileType)
	For i = 1 to LenB(value)
		MyFile.Write chr(AscB(MidB(value,i,1)))
	Next
	MyFile.Close
end if

ARQUIVO = ID & fileType
response.write ("<script>alert('Imagem enviada com sucesso');window.close();self.opener.location.reload();</script>")
response.end
%>

eu nao alterei nada nesse código, só no bd, pra poder testar o novo sistema que tenho localmente...

 

Tem como a alteração do banco de dados ter haver com esse erro?

 

Valeu mesmo

[hargon 64]

O problema está nessa linha:

if cINT(vH) > maxaltura or cINT(vL) > maxlargura then

 

Um desses dois valores não são numéricos:

vH = UploadRequest.Item("H").Item("Value")

vL = UploadRequest.Item("L").Item("Value")

 

Coloque essa linha abaixo dos dois e poste o resultado:

response.write "Altura: " & vH

response.write "<br />Largura: " & vL

response.end

 

Sobre o erro está relacionado a banco de dados, pode ser coincidência. A menos que os dados da alteura e largura vem de um banco de dados.

[edsonlyra 0]

O problema está nessa linha:

if cINT(vH) > maxaltura or cINT(vL) > maxlargura then

 

Um desses dois valores não são numéricos:

vH = UploadRequest.Item("H").Item("Value")

vL = UploadRequest.Item("L").Item("Value")

 

Coloque essa linha abaixo dos dois e poste o resultado:

response.write "Altura: " & vH

response.write "<br />Largura: " & vL

response.end

 

Sobre o erro está relacionado a banco de dados, pode ser coincidência. A menos que os dados da alteura e largura vem de um banco de dados.

Meu, o banco de dados, só pode ser concidencia mesmo..

o problema deve estar no comando UploadRequest.Item("H").Item("Value") que deveria retornar o tamanho da figura e está retornando vazio, por isso dá erro cInt(vh).

Tem ideia porque este comando esta retornando vazio?

O loco é que as vezes consegue fazer o upload.. nao consigo entender qual a logica..

[hargon 64]

No seu formulário de envio você tem que informar a altura e largura?

 

Se não precisa, troca essa linhas:

vH = UploadRequest.Item("H").Item("Value")

vL = UploadRequest.Item("L").Item("Value")

 

Por essas:

vH = 0

vL = 0

 

O único problema é que não estará mais validando a altura e largura da imagem.

[edsonlyra 0]

No seu formulário de envio você tem que informar a altura e largura?

 

Se não precisa, troca essa linhas:

vH = UploadRequest.Item("H").Item("Value")

vL = UploadRequest.Item("L").Item("Value")

 

Por essas:

vH = 0

vL = 0

 

O único problema é que não estará mais validando a altura e largura da imagem.

Valeu Hargon!!!!

 

O problema estava na validação mesmo... por algum problema as vezes funcionava as vezes nao.. agora que coloquei "0" ta enviando direitinho!

 

Valeu mesmo pessoal

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif