dcoder

entendi, mas eu não quero adicionar um arquivo especifico como fez acima, vai ser realizado um upload e o mesmo terá que ser resgatado pelo script... Se eu fizer da maneira que mencionou não estaria apenas enviando aquele determinado arquivo ? Obrigado. Tentei e olha o erro : Internal Server Error The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error. More information about this error may be available in the server error log. Permissão eu já dei no diretório.. Não sei oque pode ser...

Consegui enviar utilizando upload.form ao invés de request.form, porém o anexo não chega somente os outros dados. <% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.SetMaxSize 50000, True On Error Resume Next Upload.Save "c:/Inetpub/vhosts/perfectcom.com.br/httpdocs/teste/" If Err.Number = 8 Then Response.Write "Arquivo muito grande!" Else If Err <> 0 Then Response.Write "Aconteceu um erro: " & Err.Description Else For Each File in Upload.Files If File.ImageType = "UNKNOWN" Then Response.Write "Isso não é uma imagem." File.Delete Response.End else End If 'caminho = objmail.AddAttachment(Server.MapPath("c:/Inetpub/vhosts/perfectcom.com.br/httpdocs/teste/")) foto = "<img src="& caminho &">" next nome = upload.form("nome") email = upload.form("email") corpo = "Foto: "&foto&"<br><br>Nome: "&nome&"<br><br>Email: "&email Set objmail = Server.CreateObject("Persits.MailSender") objmail.Host = "mail.perfectcom.com.br" objmail.From = email objmail.FromName = "EMAIL RECEBIDO PELO SITE" objmail.AddAddress "perfectcom@perfectcom.com.br" objmail.Subject = "EMAIL RECEBIDO PELO SITE" objmail.IsHTML = True objmail.Body = corpo objmail.Send Set objmail = nothing end if end if %> Como faço para enviar o anexo agora ?

Boa tarde pessoal, Pesquisando no forum e também no google achei várias pessoas com esse problema, porém as soluções apresentadas não foram de total valia. O problema é com o multipart/form-data do formulário, ao retirar o mesmo os dados são enviados só que sem o anexo pois sem o multipart/form-data no form o anexo não é enviado mesmo. Ao colocar o multipart/form-data o formulário é enviado só que sem nenhum dado. Segue o meu codigo: <% Set Upload = Server.CreateObject("Persits.Upload.1") Upload.SetMaxSize 50000, True On Error Resume Next Upload.Save "c:/Inetpub/vhosts/dominio.com.br/httpdocs/teste/" If Err.Number = 8 Then Response.Write "Arquivo muito grande!" Else If Err <> 0 Then Response.Write "Aconteceu um erro: " & Err.Description Else For Each File in Upload.Files If File.ImageType = "UNKNOWN" Then Response.Write "Isso não é uma imagem." File.Delete Response.End else End If caminho = Objeto.AddAttachment(Server.MapPath("c:/Inetpub/vhosts/dominio.com.br/httpdocs/teste/")) foto = "<img src="& caminho &">" next nome = request.form("nome") email = request.form("email") corpo = "Foto:" &foto&"<br><br>Nome: "&nome&"<br><br>Email: "&email Set objmail = Server.CreateObject("Persits.MailSender") objmail.Host = "mail.perfectcom.com.br" objmail.From = email objmail.FromName = "EMAIL RECEBIDO PELO SITE" objmail.AddAddress "dominio@dominio.com.br" objmail.Subject = "EMAIL RECEBIDO PELO SITE" objmail.IsHTML = True objmail.Body = corpo objmail.Send Set objmail = nothing end if end if %> O upload funciona normalmente enviando o arquivo para o server. O problema é só com o multipart/form-data. Fico no aguardo para alguma solução pessoal. Obrigado aew.

Bom dia a todos... Estou com problema que está me deixando doidao...Costumo fazer meus layouts no fireworks e arrastar as imagens direto para o flash. Nunca tive problema com a a qualidade da imagem porém quando publico o site em flash e abro com o IE algumas imagens ficam serrilhadas e com baixa qualidade, já quando abro no firefox as imagens ficam perfeitas sem nenhum problema gráfico.. Já fiz de tudo..exportei para várias extenções, png, jpg, gif e nada.. E quando abro somente o arquivo SWF fica perfeito sem nehum problema..basta inserir na página e visualizar o html que ferra tudo.. Revirei o google e alguns foruns mas nenhuma das soluções resolveram o problema... Aguardo a ajuda pessoal... []'s SALVEEE Consegui resolver pessoal.. Selecionando a imagem pela biblioteca cliquei com o botao direito em cima da imagem e fui em propriedades e habilitei a opção: "Allow Smoothing" as imagens ficaram perfeitas sem nenhum serrilhado... Obrigadooo..

Saquei Rafael, estava tentando randomico aqui e não estava dando certo devido a atualização do navegador. Fazer dessa maneira que me disse.. mais ae como ficaria minha query ? tem o campo Cod que posso usar no caso... sql = "SELECT * FROM cat " Set exe = conexao.execute(sql) Obrigado.. qualquer coisa dou um toque de novo...[]'s

bom dia pessoal! Estou precisando exibir destaques por dia pegando imagens de um bd access. Deu um branco geral aqui. O script mostrara um destaque hoje e amanha outro...e assim por diante.. segue meu código: <% codigo = exe("cod") destaque = exe("banner1") dia = day(date) diaant = day(date)-1 if dia <> "diaant" then Response.write"<a href='visualizar_emp.asp?cod="&codigo&"' class='texto'><img src='"&destaque&"' border='0' width='120' height='60'></a>" Else exe.movenext End If %> Desta maneira o banner é mostrado normalmente mais quando altero o dia não muda nada, continua o mesmo.... Aguardo a ajuda.. Obrigado.

Bom dia Alessandro, Não entendi muito bem esse seu codigo: If Request.Form("txt_valor") <> ":: INDIFERENTE ::" Then Session("v_valor") = Request.Form("txt_valor") End If ":: INDIFERENTE ::" ? Está comparando o Request do form com que valor ? Coloque o código da maneira que está assim podemos ter uma noção maior doque está acontecendo. Obs: Procure colocar os codigos dentro da tag code assim fica fácil a identificação de scripts. []'s

Fala ae cara, Como estão os códigos para você abrir essas páginas em PopUps ? Se quer abrir um PopUp em cima de outro eles devem estar com nomes diferentes senao não vai rolar. E da uma confirida nas aspas como disse o Rafael realmente está faltando. Olha só: response.write"<a href='http://www.begbrasil.com.br/xml/" & rsl& " ' target='_blank'><img src='http://www.begbrasil.com.br/prod2/img/down_xml.jpg' border='0'></a>" falou's.

Fala meu amigo, consegui resolver o problema, insisti naquilo e funcionou apenas mudei o tratamento no IF e usei a variavel nome_cli que busca o nome "NOME" no campo do meu bd veja: <% codigo = exe("cod") nome_cli = exe("nome") if nome_cli <> "" then Response.write "<a href='visualizar_emp.asp?cod=" & codigo & " '>"&nome_cli&"</a>" Else Response.write "nenhum registro encontrado" end if %> Agora SE a variavel nome_cli for <>"" então, ele me retorna o campo que contém a informação que preciso. SENAO me retorna a mensagem "nenhum registro encontrado" Já era, obrigado ae pessoal :D

Ok rafael, vou testar aqui.. Obrigado ae . . . É, não deu certo mesmo, fiz as modificações e nada. <% codigo = exe("cod") nome_cli = exe("nome") if exe("cod") = "" then 'IF exe.BOF THEN 'IF exe("categoria") = exe.eof then Response.write "nenhum registro encontrado" Else Response.write"<a href='visualizar_emp.asp?cod=" & codigo & " '>"&nome_cli&"</a>" end if 'if exe("cod") = "" then 'response.write "registro não encontrado" 'else 'response.write "registro encontrado" 'end if %> Continua não exibindo a mensagem, ele ignora o response após o if. tentei assim como no comentário acima: 'if exe("cod") = "" then 'response.write "registro não encontrado" 'else 'response.write "registro encontrado" 'end if mais ele da registro encontrado mesmo não tendo nada no bd...talvez não tenha entendido oque você disse, vou continuar tentando.. abraços..

Ok Jonathan vou tentar aqui, valeu. . . . . Bom, olhei nas config do IIS e estão normais, fiz como você mensionou acima e continuou na mesma... Está um mistério isso...

Salve galera... Veja minha query: categoria = Request.QueryString("categoria") sql = "SELECT * FROM cat WHERE categoria LIKE '"& categoria &"' " Set exe = conexao.execute(sql) Agora para exibição montei este bloco: <% codigo = exe("cod") nome_cli = exe("nome") IF exe.EOF THEN 'IF exe.BOF THEN 'IF exe("categoria") = exe.eof then Response.write "nenhum registro encontrado" Else Response.write"<a href='visualizar_emp.asp?cod=" & codigo & " '>"&nome_cli&"</a>" end if %> O problema está na exibição se não haver a categoria correspondente no bd, quando não tem o registro ele simplesmente não me mostra nada, era pra exibir "nenhum registro encontrado". Oque eu fiz de errado nessa bagaça ? Obrigado.

Tente colocar o target como _blank

Fala ae cara, consegui !!!! Obrigado mesmo! ficou assim a minha query: sql="select top 12 * from cat order by RND(INT(NOW*cod)-NOW*cod)" set rs3 = conexaodb.execute(SQL) e para a exibição: <a href="visualizar_emp.asp?cod=<%=rs3("cod")%>" class="texto"><img src="<%=rs3("banner1")%>" alt="<%=rs3("nome")%>" width="120" height="60" border="0" /> Obrigado ae pela Paciência e pela colaboração.... abraços! :D

Assim mais ou menos: sql="select * from cat order by RND(INT(NOW*cod)-NOW*cod)" set rs3 = conexaodb.execute(SQL) desculpe a ignorancia não sou expert no assunto, é que falta somente isso para concluir o meu portal e estou quebrando a cuca cara, já tentei de várias maneiras, talvez eu não estou explicando tão bem assim oque eu quero. vai ficar assim: banner1 banner2 banner3 . . . . .no total de 12 banners sendo que no bd tem uns 40 registros..vou mostrar os 40 aleatoriamente dentro desses 12 que quero exibir.. De qualquer maneira fico grato pela atenção ae.