Ir para conteúdo
Fórum Script Brasil

dcoder

Membros
  • Total de itens

    83
  • Registro em

  • Última visita

Tudo que dcoder postou

  1. 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...
  2. 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 ?
  3. 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.
  4. 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..
  5. dcoder

    Destaque do dia

    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
  6. dcoder

    Destaque do dia

    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.
  7. 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
  8. 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.
  9. 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
  10. 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..
  11. 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...
  12. 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.
  13. Tente colocar o target como _blank
  14. 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
  15. 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.
  16. Como posso empedir essa repetição então utilizando esse meu código ? Teria como ? veja este site: www.diskentregafacil.com estou tentando fazer uma coluna dessa da direita com os banners...
  17. Obrigado pessoal, tentei fazer dessas maneiras mais quando atualizo a página muitas das vezes os registro se repetem olha meu codigo modificado: <% 'bloco para exibição do 1° banner countsql = "select count (*) as cod from cat " set rs1 = conexaodb.execute(countsql) IF rs1("cod") <> 0 Then SQL = "SELECT * FROM cat" set rs3 = conexaodb.execute(SQL) Randomize valor1 = rs3.Move (Int(rs1("cod") * Rnd)) 'bloco para exibição do 2° banner query2 = "select count (*) as cod from cat " set banner2 = conexaodb.execute(query2) IF banner2("cod") <> rsl Then query_2 = "SELECT * FROM cat" set recset2 = conexaodb.execute(query_2) Randomize recset2.Move (Int(banner2("cod") * Rnd)) 'bloco para exibição do 3° banner query3 = "select count (*) as cod from cat " set banner3 = conexaodb.execute(query3) IF banner3("cod") <> banner4 Then query_3 = "SELECT * FROM cat" set recset3 = conexaodb.execute(query_3) Randomize recset3.Move (Int(banner3("cod") * Rnd)) 'bloco para exibição do 4° banner query4 = "select count (*) as cod from cat " set banner4 = conexaodb.execute(query4) IF banner4("cod") <> banner5 Then query_4 = "SELECT * FROM cat" set recset4 = conexaodb.execute(query_4) Randomize recset4.Move (Int(banner4("cod") * Rnd)) 'bloco para exibição do 5° banner query5 = "select count (*) as cod from cat " set banner5 = conexaodb.execute(query5) IF banner5("cod") <> banner6 Then query_5 = "SELECT * FROM cat" set recset5 = conexaodb.execute(query_5) Randomize recset5.Move (Int(banner5("cod") * Rnd)) 'bloco para exibição do 6° banner query6 = "select count (*) as cod from cat " set banner6 = conexaodb.execute(query6) IF banner6("cod") <> banner7 Then query_6 = "SELECT * FROM cat" set recset6 = conexaodb.execute(query_6) Randomize recset6.Move (Int(banner6("cod") * Rnd)) 'bloco para exibição do 7° banner query7 = "select count (*) as cod from cat " set banner7 = conexaodb.execute(query7) IF banner7("cod") <> banner8 Then query_7 = "SELECT * FROM cat" set recset7 = conexaodb.execute(query_7) Randomize recset7.Move (Int(banner7("cod") * Rnd)) 'bloco para exibição do 8° banner query8 = "select count (*) as cod from cat " set banner8 = conexaodb.execute(query8) IF banner8("cod") <> banner9 Then query_8 = "SELECT * FROM cat" set recset8 = conexaodb.execute(query_8) Randomize recset8.Move (Int(banner8("cod") * Rnd)) 'bloco para exibição do 9° banner query9 = "select count (*) as cod from cat " set banner9 = conexaodb.execute(query9) IF banner9("cod") <> banner10 Then query_9 = "SELECT * FROM cat" set recset9 = conexaodb.execute(query_9) Randomize recset9.Move (Int(banner9("cod") * Rnd)) 'bloco para exibição do 10° banner query10 = "select count (*) as cod from cat " set banner10 = conexaodb.execute(query10) IF banner10("cod") <> banner11 Then query_10 = "SELECT * FROM cat" set recset10 = conexaodb.execute(query_10) Randomize recset10.Move (Int(banner10("cod") * Rnd)) 'bloco para exibição do 11° banner query11 = "select count (*) as cod from cat " set banner11 = conexaodb.execute(query11) IF banner11("cod") <> banner12 Then query_11 = "SELECT * FROM cat" set recset11 = conexaodb.execute(query_11) Randomize recset11.Move (Int(banner11("cod") * Rnd)) 'bloco para exibição do 12° banner query12 = "select count (*) as cod from cat " set banner12 = conexaodb.execute(query12) IF banner12("cod") <> 0 Then query_12 = "SELECT * FROM cat" set recset12 = conexaodb.execute(query_12) Randomize recset12.Move (Int(banner12("cod") * Rnd)) %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <style type="text/css"> <!-- body { margin-left: 0px; margin-top: 0px; margin-right: 0px; margin-bottom: 0px; } --> </style></head> <body> <table width="120" border="0" cellspacing="3" cellpadding="0"> <tr> <td><div align="center">Anunciantes</div></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=rs3("cod")%>" class="texto"><img src="<%=rs3("banner1")%>" alt="<%=rs3("nome")%>" width="120" height="60" border="0" /> </a> </td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset2("cod")%>" class="texto"><img src="<%=recset2("banner1")%>" alt="<%=recset2("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset3("cod")%>" class="texto"><img src="<%=recset3("banner1")%>" alt="<%=recset3("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset4("cod")%>" class="texto"><img src="<%=recset4("banner1")%>" alt="<%=recset4("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset5("cod")%>" class="texto"><img src="<%=recset5("banner1")%>" alt="<%=recset5("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset6("cod")%>" class="texto"><img src="<%=recset6("banner1")%>" alt="<%=recset6("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset7("cod")%>" class="texto"><img src="<%=recset7("banner1")%>" alt="<%=recset7("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset8("cod")%>" class="texto"><img src="<%=recset8("banner1")%>" alt="<%=recset8("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset9("cod")%>" class="texto"><img src="<%=recset9("banner1")%>" alt="<%=recset9("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset10("cod")%>" class="texto"><img src="<%=recset10("banner1")%>" alt="<%=recset10("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset11("cod")%>" class="texto"><img src="<%=recset11("banner1")%>" alt="<%=recset11("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> <tr> <td><a href="visualizar_emp.asp?cod=<%=recset12("cod")%>" class="texto"><img src="<%=recset12("banner1")%>" alt="<%=recset12("nome")%>" width="120" height="60" border="0" /> </a></td> </tr> </table> </body> </html> olha a gambiarra que acabei fazendo.. acho que tenho que colocar ifs para destinguir as querys mais ta osso... obrigado mais uma vez..
  18. Deu certo mais deu outro probleminha, veja bem: countsql = "select * From cat where cod" set rs1 = conexaodb.execute(countsql) IF rs1("cod") <> 0 Then SQL = "SELECT top 12 * FROM cat" set rs3 = conexaodb.execute(SQL) Randomize rs3.Move (Int(rs1("cod") * Rnd)) %> Está exibindo 12 imagens como eu queria porém não está randomizandoos outros registros somente os 12 primeiros. Tenho cerca de 40 registro no bd o random teria que acontecer dentre todos .... Luz aee..
  19. Ok, Ficou assim: select top 12 cod, banner1 from cat Não deu nenhum erro, a query exibiu valores aleatorios como, 5 banner, 2 banners e assim por diante. Não ficou um valor de 12 banners fixo. ..... Modifiquei novamente ficando assim: countsql = "select top 12 count (*) as cod from cat order by banner1" set rs1 = conexaodb.execute(countsql) IF rs1("cod") <> 0 Then SQL = "SELECT * FROM cat" set rs3 = conexaodb.execute(SQL) Randomize rs3.Move (Int(rs1("cod") * Rnd)) %> linha 16: set rs1 = conexaodb.execute(countsql)
  20. valeu cara mais não funfou. A cada atualização que dou ele exibe uma quantidade de banners diferente, dou f5 e mostra 2 atualizo de novo mostra 5. Ta doidao isso aqui.... Queria que mostrasse 12 imagens e a cada atualização elas mudassem dentro dessas 12 imagens.. tentei assim tambem: select * from cat where cat < 12 nd também..
  21. Boa noite pessoal, Tenho ese codigo de uma banner rotativo: <% Set conexaodb = Server.CreateObject("ADODB.Connection") conexaodb.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco/dados.mdb") & ";Persist Security Info=False" countsql = "select count(*) as cod From cat" set rs1 = conexaodb.execute(countsql) IF rs1("cod") <> 0 Then SQL = "SELECT * FROM cat" set rs3 = conexaodb.execute(SQL) Randomize rs3.Move (Int(rs1("cod") * Rnd)) %> Para exibição fiz assim: <a href="visualizar_emp.asp?cod=<%=rs3("cod")%>" class="texto"><img src="<%=rs3("banner1")%>" alt="<%=rs3("nome")%>" width="120" height="60" border="0" /> </a> Ele está exibindo todas as imagens cadastrada em meu banco, gostaria de colocar um limite exibindo 12 banners. Como faço essa modificação no script ? Obrigado pessoal.
  22. Obrigado pela ajuda Jonathan, mais ficou na mesma cara... . . . . . Consegui !!! Alterei a Query utilizando a clausula Group By ficando assim: sql = "SELECT categoria as cod FROM Cat GROUP BY categoria" set recset = conexao.execute(sql) Funcionou pefeitamente filtrando as categorias sem repitir. Vamos ver se não vou precisar alterar essa query para aplicações futuras. Muito obrigado.
  23. Bom dia! Preciso exibir alguns dados sem que eles se repitam. Tenho um menu onde são listadas as categorias porém os itens são exibidos repetidament, segue o codigo: sql = "SELECT categoria, cod, quemsomos, endereco, email, site, nome, fotos FROM cat WHERE categoria ORDER BY cod" set recset = conexao.execute(sql) %> <% Do until recset.EOF %> <a href="mais.asp?categoria=<%=recset("categoria")%>"><%=recset("categoria")%></a> <% recset.MoveNext loop %> os dados são exibidos assim: pizzarias pizzarias lanchonetes mercado mercado como posso exibir os dados corretamente pelas categorias ? Obrigado.
  24. dcoder

    (Resolvido) Menu em ASP

    Fala rapaziada, deu certo, podem finalizar... Obrigado.
×
×
  • Criar Novo...