Caracteres Especiais [Invalid procedure call or argument]

[Eduardo Fonseca 0]

Olá galera,

 

Seguinte... fiz um formulário que possui uma função que faz o upload de arquivos e ao mesmo tempo cadastra os dados no db.

 

Acontece que toda vez que digito um caractere especial seja ç, ã, ö ou qualquer outro em qualquer um dos campos, ele retorna o seguinte erro:

 

Microsoft VBScript runtime error '800a0005'

 

Invalid procedure call or argument: 'AscB'

 

/freeaspupload.asp, line 292

 

Segue link do formulário: http://www.prontosocorrodovidro.com.br/orcamento.asp

 

Segue página que tenta fazer o up:

 

<%@ Language=VBScript %>
<!-- #include file="inc/path.inc" -->
<!-- #include file="freeaspupload.asp" -->
<!-- #include file="Scripts/data.inc" -->
<!-- #include file="Scripts/email.inc" -->
<%


' ****************************************************
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
  Dim uploadsDirVar
  uploadsDirVar = "e:\home\prontosocorrodovidr1\Web\images\orcamentos" 
' ****************************************************

function SaveFiles
	Dim Upload, fileName, fileSize, ks, i, fileKey

	Set Upload = New FreeASPUpload
	Upload.Save(uploadsDirVar)

	' If something fails inside the script, but the exception is handled
	If Err.Number<>0 then Exit function

	SaveFiles = ""
	ks = Upload.UploadedFiles.keys
	if (UBound(ks) <> -1) then
	   
		for each fileKey in Upload.UploadedFiles.keys
			SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName
		next
	else
		'SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
	end if
	

nos_conheceu = Upload.Form("nos_conheceu")
nome = Upload.Form("nome")
empresa = Upload.Form("empresa")
email = Upload.Form("email")
telefone = Upload.Form("telefone")
telefone2 = Upload.Form("telefone2")
endereco = Upload.Form("endereco")
numero = Upload.Form("numero")
complemento = Upload.Form("complemento")
bairro = Upload.Form("bairro")
cidade = Upload.Form("cidade")
estado = Upload.Form("estado")
cep = Upload.Form("cep")
orcamento = Upload.Form("orcamento")
data = ""&day(Date) & " " & monthname(month(date)) & " " & year(date) & ""
projeto = Upload.Form("attach1")

sqlstr = "INSERT INTO tbOrcamentos (nos_conheceu,nome,empresa,email,telefone,telefone2,endereco,numero,complemen
to,bairro,cidade,estado,cep,orcamento,data,projeto) VALUES ("
sqlstr = sqlstr & "'" & vton(nos_conheceu) & "',"
sqlstr = sqlstr & "'" & vton(nome) & "',"
sqlstr = sqlstr & "'" & vton(empresa) & "',"
sqlstr = sqlstr & "'" & vton(email) & "',"
sqlstr = sqlstr & "'" & vton(telefone) & "',"
sqlstr = sqlstr & "'" & vton(telefone2) & "',"
sqlstr = sqlstr & "'" & vton(endereco) & "',"
sqlstr = sqlstr & "'" & vton(numero) & "',"
sqlstr = sqlstr & "'" & vton(complemento) & "',"
sqlstr = sqlstr & "'" & vton(bairro) & "',"
sqlstr = sqlstr & "'" & vton(cidade) & "',"
sqlstr = sqlstr & "'" & vton(estado) & "',"
sqlstr = sqlstr & "'" & vton(cep) & "',"
sqlstr = sqlstr & "'" & vton(orcamento) & "',"
sqlstr = sqlstr & "'" & data & "',"
sqlstr = sqlstr & "'" & SaveFiles & "')"
sqlstr = replace(sqlstr,"'null'","null")
db.execute(sqlstr)

msg = "<img src='http://www.prontosocorrodovidro.com.br/images/email_topo_contato.jpg' width='452' height='111' /><br /><table width='450' border='0' cellspacing='0' cellpadding='0'><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Como nos conheceu?</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & nos_conheceu & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Nome</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & nome & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Empresa</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & empresa & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Email</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & email & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Telefone principal</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & telefone & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Telefone secundário</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & telefone2 & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Endereço</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & endereco & ", " & numero & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Complemento</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & complemento & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Bairro</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & bairro & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Cidade</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & cidade & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='color: #d13715; padding: 4px 3px;'>Estado</td><td valign='top' style='padding: 4px 3px;'>" & estado & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='border-bottom: 2px solid #efefef; color: #d13715; padding: 4px 3px;'>Orçamento detalhado</td><td valign='top' style='border-bottom: 2px solid #efefef; padding: 4px 3px;'>" & bairro & "</td></tr><tr style='color: #666; font: 12px normal Arial, Helvetica, sans-serif;'><td width='150' valign='top' style='font-weight: bold; padding: 6px 3px; padding-top: 8px;'>Projeto</td><td valign='top' style='font-weight: bold; padding: 6px 3px; padding-top: 8px;'><a href='http://www.prontosocorrodovidro.com.br/images/orcamentos/" & SaveFiles & "' style='color: #666; font: 12px normal Arial, Helvetica, sans-serif; text-decoration: none;'><img src='http://www.prontosocorrodovidro.com.br/images/icone_download.gif' width='16' height='16' border='0' align='top' /> Fazer download do projeto</a></td></tr></table>"

EnviaEmail "Orçamento","eduardofonseca@wck.com.br","eduardofonsecaalves@yahoo.com.br","eduardofonsecaalves@yahoo.com.br","Pronto Socorro do Vidro",msg

Response.Redirect "curriculo_enviado.asp?nome=" & nome & ""

db.close
set db = nothing
end function
%>

<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style>
BODY {background-color: white;font-family:arial; font-size:12}
</style>
</HEAD>
<BODY>
<%
response.write SaveFiles()

%>
</BODY>
</HTML>

 

O include com a funcao que faz o upload:

 

<%
'  For examples, documentation, and your own free copy, go to:
'  http://www.freeaspupload.net
'  Note: You can copy and use this script for free and you can make changes
'  to the code, but you cannot remove the above comment.

'Changes:
'Aug 2, 2005: Add support for checkboxes and other input elements with multiple values
'Jan 6, 2009: Lars added ASP_CHUNK_SIZE

const DEFAULT_ASP_CHUNK_SIZE = 200000

Class FreeASPUpload
	Public UploadedFiles
	Public FormElements

	Private VarArrayBinRequest
	Private StreamRequest
	Private uploadedYet
	Private internalChunkSize

	Private Sub Class_Initialize()
		Set UploadedFiles = Server.CreateObject("Scripting.Dictionary")
		Set FormElements = Server.CreateObject("Scripting.Dictionary")
		Set StreamRequest = Server.CreateObject("ADODB.Stream")
		StreamRequest.Type = 2	' adTypeText
		StreamRequest.Open
		uploadedYet = false
		internalChunkSize = DEFAULT_ASP_CHUNK_SIZE
	End Sub
	
	Private Sub Class_Terminate()
		If IsObject(UploadedFiles) Then
			UploadedFiles.RemoveAll()
			Set UploadedFiles = Nothing
		End If
		If IsObject(FormElements) Then
			FormElements.RemoveAll()
			Set FormElements = Nothing
		End If
		StreamRequest.Close
		Set StreamRequest = Nothing
	End Sub

	Public Property Get Form(sIndex)
		Form = ""
		If FormElements.Exists(LCase(sIndex)) Then Form = FormElements.Item(LCase(sIndex))
	End Property

	Public Property Get Files()
		Files = UploadedFiles.Items
	End Property
	
	Public Property Get Exists(sIndex)
			Exists = false
			If FormElements.Exists(LCase(sIndex)) Then Exists = true
	End Property
		
	Public Property Get FileExists(sIndex)
		FileExists = false
			if UploadedFiles.Exists(LCase(sIndex)) then FileExists = true
	End Property
		
	Public Property Get chunkSize()
		chunkSize = internalChunkSize
	End Property

	Public Property Let chunkSize(sz)
		internalChunkSize = sz
	End Property

	'Calls Upload to extract the data from the binary request and then saves the uploaded files
	Public Sub Save(path)
		Dim streamFile, fileItem

		if Right(path, 1) <> "\" then path = path & "\"

		if not uploadedYet then Upload

		For Each fileItem In UploadedFiles.Items
			Set streamFile = Server.CreateObject("ADODB.Stream")
			streamFile.Type = 1
			streamFile.Open
			StreamRequest.Position=fileItem.Start
			StreamRequest.CopyTo streamFile, fileItem.Length
			streamFile.SaveToFile path & fileItem.FileName, 2
			streamFile.close
			Set streamFile = Nothing
			fileItem.Path = path & fileItem.FileName
		 Next
	End Sub
	
	public sub SaveOne(path, num, byref outFileName, byref outLocalFileName)
		Dim streamFile, fileItems, fileItem, fs

		set fs = Server.CreateObject("Scripting.FileSystemObject")
		if Right(path, 1) <> "\" then path = path & "\"

		if not uploadedYet then Upload
		if UploadedFiles.Count > 0 then
			fileItems = UploadedFiles.Items
			set fileItem = fileItems(num)
		
			outFileName = fileItem.FileName
			outLocalFileName = GetFileName(path, outFileName)
		
			Set streamFile = Server.CreateObject("ADODB.Stream")
			streamFile.Type = 1
			streamFile.Open
			StreamRequest.Position = fileItem.Start
			StreamRequest.CopyTo streamFile, fileItem.Length
			streamFile.SaveToFile path & outLocalFileName, 2
			streamFile.close
			Set streamFile = Nothing
			fileItem.Path = path & filename
		end if
	end sub

	Public Function SaveBinRequest(path) ' For debugging purposes
		StreamRequest.SaveToFile path & "\debugStream.bin", 2
	End Function

	Public Sub DumpData() 'only works if files are plain text
		Dim i, aKeys, f
		response.write "Form Items:<br>"
		aKeys = FormElements.Keys
		For i = 0 To FormElements.Count -1 ' Iterate the array
			response.write aKeys(i) & " = " & FormElements.Item(aKeys(i)) & "<BR>"
		Next
		response.write "Uploaded Files:<br>"
		For Each f In UploadedFiles.Items
			response.write "Name: " & f.FileName & "<br>"
			response.write "Type: " & f.ContentType & "<br>"
			response.write "Start: " & f.Start & "<br>"
			response.write "Size: " & f.Length & "<br>"
		 Next
   	End Sub

	Public Sub Upload()
		Dim nCurPos, nDataBoundPos, nLastSepPos
		Dim nPosFile, nPosBound
		Dim sFieldName, osPathSep, auxStr
		Dim readBytes, readLoop, tmpBinRequest
		
		'RFC1867 Tokens
		Dim vDataSep
		Dim tNewLine, tDoubleQuotes, tTerm, tFilename, tName, tContentDisp, tContentType
		tNewLine = String2Byte(Chr(13))
		tDoubleQuotes = String2Byte(Chr(34))
		tTerm = String2Byte("--")
		tFilename = String2Byte("filename=""")
		tName = String2Byte("name=""")
		tContentDisp = String2Byte("Content-Disposition")
		tContentType = String2Byte("Content-Type:")

		uploadedYet = true

		on error resume next
			readBytes = internalChunkSize
			VarArrayBinRequest = Request.BinaryRead(readBytes)
			VarArrayBinRequest = midb(VarArrayBinRequest, 1, lenb(VarArrayBinRequest))
			for readLoop = 0 to 300000
				tmpBinRequest = Request.BinaryRead(readBytes)
				if readBytes < 1 then exit for
				VarArrayBinRequest = VarArrayBinRequest & midb(tmpBinRequest, 1, lenb(tmpBinRequest))
			next
			if Err.Number <> 0 then 
				response.write "<br><br><B>System reported this error:</B><p>"
				response.write Err.Description & "<p>"
				response.write "The most likely cause for this error is the incorrect setup of AspMaxRequestEntityAllowed in IIS MetaBase. Please see instructions in the <A HREF='http://www.freeaspupload.net/freeaspupload/requirements.asp'>requirements page of freeaspupload.net</A>.<p>"
				Exit Sub
			end if
		on error goto 0 'reset error handling

		nCurPos = FindToken(tNewLine,1) 'Note: nCurPos is 1-based (and so is InstrB, MidB, etc)

		If nCurPos <= 1  Then Exit Sub
		 
		'vDataSep is a separator like -----------------------------21763138716045
		vDataSep = MidB(VarArrayBinRequest, 1, nCurPos-1)

		'Start of current separator
		nDataBoundPos = 1

		'Beginning of last line
		nLastSepPos = FindToken(vDataSep & tTerm, 1)

		Do Until nDataBoundPos = nLastSepPos
			
			nCurPos = SkipToken(tContentDisp, nDataBoundPos)
			nCurPos = SkipToken(tName, nCurPos)
			sFieldName = ExtractField(tDoubleQuotes, nCurPos)

			nPosFile = FindToken(tFilename, nCurPos)
			nPosBound = FindToken(vDataSep, nCurPos)
			
			If nPosFile <> 0 And  nPosFile < nPosBound Then
				Dim oUploadFile
				Set oUploadFile = New UploadedFile
				
				nCurPos = SkipToken(tFilename, nCurPos)
				auxStr = ExtractField(tDoubleQuotes, nCurPos)
				' We are interested only in the name of the file, not the whole path
				' Path separator is \ in windows, / in UNIX
				' While IE seems to put the whole pathname in the stream, Mozilla seem to 
				' only put the actual file name, so UNIX paths may be rare. But not impossible.
				osPathSep = "\"
				if InStr(auxStr, osPathSep) = 0 then osPathSep = "/"
				oUploadFile.FileName = Right(auxStr, Len(auxStr)-InStrRev(auxStr, osPathSep))

				if (Len(oUploadFile.FileName) > 0) then 'File field not left empty
					nCurPos = SkipToken(tContentType, nCurPos)
					
					auxStr = ExtractField(tNewLine, nCurPos)
					' NN on UNIX puts things like this in the stream:
					'	?? python py type=?? python application/x-python
					oUploadFile.ContentType = Right(auxStr, Len(auxStr)-InStrRev(auxStr, " "))
					nCurPos = FindToken(tNewLine, nCurPos) + 4 'skip empty line
					
					oUploadFile.Start = nCurPos+1
					oUploadFile.Length = FindToken(vDataSep, nCurPos) - 2 - nCurPos
					
					If oUploadFile.Length > 0 Then UploadedFiles.Add LCase(sFieldName), oUploadFile
				End If
			Else
				Dim nEndOfData
				nCurPos = FindToken(tNewLine, nCurPos) + 4 'skip empty line
				nEndOfData = FindToken(vDataSep, nCurPos) - 2
				If Not FormElements.Exists(LCase(sFieldName)) Then 
					FormElements.Add LCase(sFieldName), Byte2String(MidB(VarArrayBinRequest, nCurPos, nEndOfData-nCurPos))
				else
					FormElements.Item(LCase(sFieldName))= FormElements.Item(LCase(sFieldName)) & ", " & Byte2String(MidB(VarArrayBinRequest, nCurPos, nEndOfData-nCurPos)) 
				end if 

			End If

			'Advance to next separator
			nDataBoundPos = FindToken(vDataSep, nCurPos)
		Loop
		StreamRequest.WriteText(VarArrayBinRequest)
	End Sub

	Private Function SkipToken(sToken, nStart)
		SkipToken = InstrB(nStart, VarArrayBinRequest, sToken)
		If SkipToken = 0 then
			Response.write "Error in parsing uploaded binary request. The most likely cause for this error is the incorrect setup of AspMaxRequestEntityAllowed in IIS MetaBase. Please see instructions in the <A HREF='http://www.freeaspupload.net/freeaspupload/requirements.asp'>requirements page of freeaspupload.net</A>.<p>"
			Response.End
		end if
		SkipToken = SkipToken + LenB(sToken)
	End Function

	Private Function FindToken(sToken, nStart)
		FindToken = InstrB(nStart, VarArrayBinRequest, sToken)
	End Function

	Private Function ExtractField(sToken, nStart)
		Dim nEnd
		nEnd = InstrB(nStart, VarArrayBinRequest, sToken)
		If nEnd = 0 then
			Response.write "Error in parsing uploaded binary request."
			Response.End
		end if
		ExtractField = Byte2String(MidB(VarArrayBinRequest, nStart, nEnd-nStart))
	End Function

	'String to byte string conversion
	Private Function String2Byte(sString)
		Dim i
		For i = 1 to Len(sString)
		   String2Byte = String2Byte & ChrB(AscB(Mid(sString,i,1)))
		Next
	End Function

	'Byte string to string conversion
	Private Function Byte2String(bsString)
		Dim i
		dim b1, b2, b3, b4
		Byte2String =""
		For i = 1 to LenB(bsString)
			if AscB(MidB(bsString,i,1)) < 128 then
				' One byte
				Byte2String = Byte2String & ChrW(AscB(MidB(bsString,i,1)))
			elseif AscB(MidB(bsString,i,1)) < 224 then
				' Two bytes
				b1 = AscB(MidB(bsString,i,1))
				b2 = AscB(MidB(bsString,i+1,1))
				Byte2String = Byte2String & ChrW((((b1 AND 28) / 4) * 256 + (b1 AND 3) * 64 + (b2 AND 63)))
				i = i + 1
			elseif AscB(MidB(bsString,i,1)) < 240 then
				' Three bytes
				b1 = AscB(MidB(bsString,i,1))
				b2 = AscB(MidB(bsString,i+1,1))
				b3 = AscB(MidB(bsString,i+2,1))
				Byte2String = Byte2String & ChrW(((b1 AND 15) * 16 + (b2 AND 60)) * 256 + (b2 AND 3) * 64 + (b3 AND 63))
				i = i + 2
			else
				' Four bytes
				b1 = AscB(MidB(bsString,i,1))
				b2 = AscB(MidB(bsString,i+1,1))
				b3 = AscB(MidB(bsString,i+2,1))
				b4 = AscB(MidB(bsString,i+3,1))
				' Don't know how to handle this, I believe Microsoft doesn't support these characters so I replace them with a "^"
				'Byte2String = Byte2String & ChrW(((b1 AND 3) * 64 + (b2 AND 63)) & "," & (((b1 AND 28) / 4) * 256 + (b1 AND 3) * 64 + (b2 AND 63)))
				Byte2String = Byte2String & "^"
				i = i + 3
			end if
		Next
	End Function
End Class

Class UploadedFile
	Public ContentType
	Public Start
	Public Length
	Public Path
	Private nameOfFile

	' Need to remove characters that are valid in UNIX, but not in Windows
	Public Property Let FileName(fN)
		nameOfFile = fN
		nameOfFile = SubstNoReg(nameOfFile, "\", "_")
		nameOfFile = SubstNoReg(nameOfFile, "/", "_")
		nameOfFile = SubstNoReg(nameOfFile, ":", "_")
		nameOfFile = SubstNoReg(nameOfFile, "*", "_")
		nameOfFile = SubstNoReg(nameOfFile, "?", "_")
		nameOfFile = SubstNoReg(nameOfFile, """", "_")
		nameOfFile = SubstNoReg(nameOfFile, "<", "_")
		nameOfFile = SubstNoReg(nameOfFile, ">", "_")
		nameOfFile = SubstNoReg(nameOfFile, "|", "_")
	End Property

	Public Property Get FileName()
		FileName = nameOfFile
	End Property

	'Public Property Get FileN()ame
End Class


' Does not depend on RegEx, which is not available on older VBScript
' Is not recursive, which means it will not run out of stack space
Function SubstNoReg(initialStr, oldStr, newStr)
	Dim currentPos, oldStrPos, skip
	If IsNull(initialStr) Or Len(initialStr) = 0 Then
		SubstNoReg = ""
	ElseIf IsNull(oldStr) Or Len(oldStr) = 0 Then
		SubstNoReg = initialStr
	Else
		If IsNull(newStr) Then newStr = ""
		currentPos = 1
		oldStrPos = 0
		SubstNoReg = ""
		skip = Len(oldStr)
		Do While currentPos <= Len(initialStr)
			oldStrPos = InStr(currentPos, initialStr, oldStr)
			If oldStrPos = 0 Then
				SubstNoReg = SubstNoReg & Mid(initialStr, currentPos, Len(initialStr) - currentPos + 1)
				currentPos = Len(initialStr) + 1
			Else
				SubstNoReg = SubstNoReg & Mid(initialStr, currentPos, oldStrPos - currentPos) & newStr
				currentPos = oldStrPos + skip
			End If
		Loop
	End If
End Function

Function GetFileName(strSaveToPath, FileName)
'This function is used when saving a file to check there is not already a file with the same name so that you don't overwrite it.
'It adds numbers to the filename e.g. file.gif becomes file1.gif becomes file2.gif and so on.
'It keeps going until it returns a filename that does not exist.
'You could just create a filename from the ID field but that means writing the record - and it still might exist!
'N.B. Requires strSaveToPath variable to be available - and containing the path to save to
	Dim Counter
	Dim Flag
	Dim strTempFileName
	Dim FileExt
	Dim NewFullPath
	dim objFSO, p
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Counter = 0
	p = instrrev(FileName, ".")
	FileExt = mid(FileName, p+1)
	strTempFileName = left(FileName, p-1)
	NewFullPath = strSaveToPath & "\" & FileName
	Flag = False
	
	Do Until Flag = True
		If objFSO.FileExists(NewFullPath) = False Then
			Flag = True
			GetFileName = Mid(NewFullPath, InstrRev(NewFullPath, "\") + 1)
		Else
			Counter = Counter + 1
			NewFullPath = strSaveToPath & "\" & strTempFileName & Counter & "." & FileExt
		End If
	Loop
End Function 
 
%>

[xanburzum 169]

tente colocar o

<% Response.Charset="ISO-8859-1" %>
<META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">

[jrcardozo 4]

e salve os arquivos(principal e includes) como ANSI

[Eduardo Fonseca 0]

e salve os arquivos(principal e includes) como ANSI

Dessa forma ele apenas remove o caracterer especial: Chegou "Oramento" no remetente ao invés de "Orçamento" e como UTF-8 chega "Orçamento"!

 

Realmente não achei nenhuma solução!

No aguardo!

 

Muito obrigado!

 

xanburzum, sem chance com o que sugeriu! Não funcionou!

 

vlw

[hargon 64]

Posta a linha 292.

[Eduardo Fonseca 0]

Acredito ter encontrado o erro porém não sei como resolver.

Vejam só:

 

Tenho um formulário que especifica o tipo de dados que terá os campos:

 

<form name="frmSend" method="POST" enctype="multipart/form-data" action="cadastra_orcamento.asp">

Acontece que quando eu descrimino como "multipart/form-data" ele passa a não aceitar carecteres especiais.

 

O erro retornado é: [invalid procedure call or argument]

 

Quando eu deixo o form assim, sem o enctype, ele simplesmente ignora os carecteres especiais mas também não envia o arquivo anexo:

 

<form name="frmSend" method="POST" action="cadastra_orcamento.asp">

A linha que dá o erro consta acima no script da função que sobe o arquivo.

 

Então, pensei que eu pudesse tirar os campos do "Upload" que fazem menção a função, e deixar apenas o campo que precisa subir.

 

nome = Upload.Form("nome")
empresa = Upload.Form("empresa")
email = Upload.Form("email")

Acontece que se eu tirar o "Upload" da frente do ".Form" e colocar o "Request.Form" ele diz que não pode conter BinaryRead depois de Request.Form:

 

"Request object, ASP 0206 (0x80004005)

Cannot call BinaryRead after using Request.Form collection."

 

Então, já cansado de não encontrar saídas, resolvi fazer o seguinte:

 

Sabendo que a tal da função "Upload" aceita caracteres especiais apenas através de "HTML Entities" resolvi caçar uma função que fizesse um Replace em todos os caracteres especiais e aí está a bendita:

 

Function corTexto(mTexto)
arrayCaracteres = "é,è,É,È,ú,ù,Ú,Ù,í,ì,Í,Ì,ó,ò,Ó,Ò,á,à,Á,À,ç,Ç,ã,Ã,õ,Õ,â,Â,ê,Ê,î,Î,ô,Ô,û,Û"
arrayCaracteres2 = "é,è,É,É,ú,ù,Ú,Ù,í,î,Í,Ì,ó,ò,Ó,Ò,á,à,Á,À,ç,Ç,ã,Ã,õ,Õ,â,Â,ê,Ê,¡,Î,ô,Ô,û,Û"
splitCaracteres = Split(arrayCaracteres,",") ''aqui vai separar os valores detro da variavel por ","
splitCaracteres2 = Split(arrayCaracteres2,",") 'aqui vai separar os valores detro da variavel por ","
for i = 0 to ubound(splitCaracteres) 'inicio do cicli for de 0 até ultimo valor do "array"
mTexto = replace(mTexto,splitCaracteres(i),splitCaracteres2(i)) 'pega a variavel texto, substitui o caracter em utf pelo iso
next
corTexto = mTexto	
end function

Mas, como se não bastasse, é óbvio que eu precisaria tratar os campos depois que o Usuário preenchesse o FORM... então tive que criar uma página intermediária que fizesse esse tratamento... Mas acontece que o "intermediário" não tá resgatando os valores que nele são postados. Os mesmo seriam "inputados" em "hidden inputs" e repassados, já tratados, no carregamento da página, para o seu destino; o arquivo que faz o UP e cadastra os campos no DB.

 

Estou com esse problema! Agora lascou! rs

[sakamoto 0]

Olá Eduardo!

 

Gostaria de saber se conseguiu sanar seu problema... to com um que acredito ser parecido e esta me empacando... tenho um form que utiliza fckeditor e também faz upload de imagem.

 

id = Upload.Form(“id”)

str_titulo = Server.HTMLEncode(Upload.Form(“str_titulo”))

str_introducao = Replace(Upload.Form(“str_introducao”),”‘”,”””)

blob_texto = Replace(Upload.Form(“blob_texto”),”‘”,””)

 

O formulário grava a imagem certinho, str_introducao e blob_texto tudo certinho, inclusive com acentos etc… somente o str_titulo que está vindo com caractéres totalmente desconcertados… por exemplo a palavra máquina vem como m䁵ina

 

Você ou alguem teria alguma sugestão para que eu consiga arrumar este pepino?

 

Agradecido