Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

falcolandrao

Problemas com Smartupload!!!

Recommended Posts

:) Pessoal estou com um problema serio, preciso mudar a programação deste SmartUpload mas nunca funciona no servidor, o componente esta instalado mas quando mudo tudo ele da um erro de que a dll aspSmartUploadutil não é encontrada no servidor, mas as dll's são registradas, eu precisava mudar para aspupload por exemplo ou arrumar certas coisas que o programador fez que eu não entendi, vou citando trechos depois do codigo, vejam:<%Dim objConn, strQuery, objRs, RS_Max%><!-- #include file="conexao.asp" --><%Const forReading = 1, forWriting = 2, forAppending = 8Const TriDef = -2, TriTrue = -1, TriFalse = 0tipo = request.cookies("tipo")Set RS_Max = Server.CreateObject("ADODB.Recordset")Select case tipo case 1 RS_Max.Open "SELECT MAX(cod) AS max_cod FROM vendas", objConn case 2 RS_Max.Open "SELECT MAX(cod) AS max_cod FROM locacao", objConnEnd Select If IsNull(RS_Max("max_cod")) Then novo_cod = 1 Else novo_cod = RS_Max("max_cod") + 1 End If RS_Max.Close Set RS_Max = Nothingsession.lcid = 1046username = request.cookies("usuario")friendlyname = request.cookies("nome")strUploadPath = "d:\hshome\mbetti\mbetti.com.br\guiadoimovel\pdfs\"intMaxFileSize = 400000Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")varResult = mySmartUpload.DoUpload(intMaxFileSize,strUploadPath,arrFormFields)imobiliaria = request.cookies("imobiliaria")periodo = request.cookies("periodo")If arrFormFields(11,1) <> "" Then telefone = arrFormFields(11,1)Else telefone = request.cookies("fone")End Ifmoeda = arrFormFields(7,1)moeda = formatnumber(moeda,2)fone = "F: " & telefone cidade = arrFormFields(0,1)bairro = arrFormFields(1,1)tipo_imovel = arrFormFields(2,1)endereco = arrFormFields(3,1)divulga_end = arrFormFields(4,1)divulga_val = arrFormFields(5,1)metragem = arrFormFields(6,1) & " m²"valor = "R$ " & moedadescricao = arrFormFields(8,1)foto = arrFormFields(9,1)status_foto = arrFormFields(10,1)%><!-- #include file="includes/tipo.inc" --><%session("cod") = novo_codIf varResult > 0 Then Select Case varResult Case 1 Select Case tipo Case 1 strQuery="INSERT INTO vendas (cod,tipo,endereco,divulga_end,area,valor,divulga_val,cidade,bairro,descricao,status_foto,arquivo_foto,imobiliaria,contato) VALUES ('"&novo_cod&"','"&tipo_imovel&"','"&endereco&"','"&divulga_end&"','"&metragem&"','"&valor&"','"&divulga_val&"','"&cidade&"','"&bairro&"','"&descricao&"','"&status_foto&"','""','"&imobiliaria&"','"&fone&"')" Set ObjRs=objConn.Execute(strQuery) planilha="Vendas" case 2 strQuery="INSERT INTO locacao (cod,tipo,endereco,divulga_end,area,valor,divulga_val,cidade,bairro,descricao,status_foto,arquivo_foto,imobiliaria,contato) VALUES ('"&novo_cod&"','"&tipo_imovel&"','"&endereco&"','"&divulga_end&"','"&metragem&"','"&valor&"','"&divulga_val&"','"&cidade&"','"&bairro&"','"&descricao&"','"&status_foto&"','""','"&imobiliaria&"','"&fone&"')" Set ObjRs=objConn.Execute(strQuery) planilha="Locação" End SelectAgora depois do codigo se alguem teve duvidas vou citar só onde queria mudar ou fazer instancia com outro componente como citei acima, eu queria saber o que é isto acima endereco = arrFormFields(3,1) ele utilizou arrFormFields metodo do proprio componente mudei pra request.form e nada e preciso salvar no banco, mais preocupado no momento em mudar este arrFormFields para outra coisa que possa salvar, ok, obrigado e aguardo qualquer comentario.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.