Ir para conteúdo
Fórum Script Brasil

Rafael Spilki

Veteranos
  • Total de itens

    1.583
  • Registro em

  • Última visita

Tudo que Rafael Spilki postou

  1. Muito estranho todos esses erros... crie uma pagina asp apenas com esse codigo abaixo e a execute... poste aqui os resultados! <% Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set ObjRs = objConn.Execute(sql) 'inicio debug response.write "sql = " & sql & "<BR>" response.write "email = " & objRS("email") & "<BR>" response.write "provedor = " & objRS("provedor") & "<BR>" response.end %> []'s Rafael Spilki
  2. Ok... entendi o que aconteceu e editei seu post acima, favor verifica. Qtdo ao erro não entendi o porque... achei seu código extremamente confuso... tem alguma coisa ali que não ta fechando legal... Nunca vi isso de apresentar erro em uma linha que não existe... Tens certeza que atualizou o arquivo direitinho por FTP? algus servers demoram um pouco até atualizar os arquivos! Enfim... não sei como te ajudar, a não ser verificando estas informações acima, ou então partindo praquela estratégia de começar do zero, seguindo passo a passo o tuto aqui do forum... nesse eu confio porque já usei e sei que funciona! Outro detalhe importante é saber se seu server da permissões de IIS para que você proceda esse upload... caso contrário o mesmo pode barrar, mas a mensagem de erro seria diferente... ok? Bom por hora era isso, espero ter ajudado de alguma forma... []'s Rafael Spilki
  3. aqui temos um pequeno erro, veja que você não fechou o asp e abriu outro: <% Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set ObjRs = objConn.Execute(sql) <% While Not objRS.EOF%> <% 'inicio debug response.write "sql = " & sql & "<BR>" response.write "email = " & objRS("email") & "<BR>" response.write "provedor = " & objRS("provedor") & "<BR>" response.end 'falta fechar aqui antes de abrir, ou simplesmente não abrir o de baixo! <% se mesmo assim o erro continuar sugiro tentar o debug antes do início do loop, assim: <% Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set ObjRs = objConn.Execute(sql) 'inicio debug response.write "sql = " & sql & "<BR>" response.write "email = " & objRS("email") & "<BR>" response.write "provedor = " & objRS("provedor") & "<BR>" response.end %> <% While Not objRS.EOF%> Poste aqui os resultados! []'s Rafael Spilki
  4. Arldin, veja... o mesmíssimo erro! você precisa entender que uma coisa é digitar isso '<' na parte de design, ou seja, como texto! Outra coisa é você digitar isso '<' como código! entendeu? []'s Rafael Spilki
  5. Posta novamente o código aqui, do jeito que ele ficou agora, ok? []'s Rafael Spilki
  6. Rafael Spilki

    Download Webcall

    O que você pode fazer é colocar uma metatag em seu codigo pra dar refrash automatico a cada x minutos! essa tag é assim: <META HTTP-EQUIV=Refresh CONTENT="1; URL=http://www.suapagina.com.br"> Coloque essa metatag entre as tags <HEAD> </HEAD> de seu site, ok? []'s Rafael Spilki
  7. de um debug na sua query e nas variaveis do RS desta forma: Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" Set ObjRs = objConn.Execute(sql) <%While Not objRS.EOF %> <% 'inicio debug response.write "sql = " & sql & "<BR>" response.write "email = " & objRS("email") & "<BR>" response.write "provedor = " & objRS("provedor") & "<BR>" response.end 'fim do debug, continua o restante do código... depois posta aqui os resultados... []'s Rafael Spilki
  8. Rafael Spilki

    error '800a0006'

    Uhm... não tinha visto ali! falha minha... acabei me esquecendo que eu tinha perguntado... Olha, não sei o porque exatamente desse erro, ok? muito menos porque ele diz uma coisa e aponta pra uma linha que teoricamente nada a ver! mas enfim... eu faria algumas coisas ainda... a primeira delas seria autenticar o envio do e-mail! Da uma olhadinha no google que tem vários tópicos sobre esse assunto.... faça a autenticação e verifique se o erro permanece, ok? Posta aqui os resultados... []'s Rafael Spilki
  9. Bom dia a todos... retomei esse probleminha hoje, fiz vários testes! Não sou nenhum expert em CSS, mas nunca havia tido esse tipo de problema com alinhamento das divs... acho que estou me passando em algum detalhe! É incrível, porque realmente não entendo qual a relação provável entre a "div#main" e a "ul#alamenu li a"... Eu não entendo, nem o FireFox e nem o IE 7... só o IE6 entende que há algum problema com elas... Incrivel mesmo... porque como podem ver a "ul#alamenu li a" inclusive esta setada como float:left... Tentei gambiarras como usar float:right na main ou clear ou, absolute, qualquer outro negócio aqui que eu conhecesse... só pra testar mesmo... mas nada funcionou! Essa div#main inclusive tem um hack para alinhamento correto no IE 6, mas ela estando alinhada desalinha completamente a "ul#alamenu li a", fazendo com que o menu não funcione... Não sei se me entenderam? mas se rolar alguma dica seria bem vinda! o link de onde está ocorrendo o problema está postado no post anterior... valeu! []'s Rafael Spilki
  10. Rafael Spilki

    error '800a0006'

    e?!?! Alguma mensagem de erro? Qual? em qual linha? []'s Rafael Spilki
  11. Rafael Spilki

    Download Webcall

    Isso aqui não está certo: <!--início WEBcall --> [b]&lt;script [/b]language="JavaScript" src="http://www.meusite.com.br/webcall/chat/script.asp"></script> <!--fim WEBcall --> o correto seria assim: <!--início WEBcall --> <script language="JavaScript" src="http://www.meusite.com.br/webcall/chat/script.asp"></script> <!--fim WEBcall --> entendeu? ao invés de &lt;script o certo é <script... []'s Rafael Spilki
  12. Pedro, assim: Primeiro joguei seu codigo aqui no DW e tem 281 linhas, portanto sua informação de que tem apenas 148 pra mim não procede... será que você postou o mesmo script? Outra coisa, cada script de upload sem componentes possuem uma série de arquivos e que funcionam interligados e em uma sequencia correta... você não pode simplesmente substituir os scripts de um desses arquivos, porque o script provavelmente não ira funcionar... cada programador nomeia variaveis e constantes de acordo com um preferêcnia ou técnica qualquer, mas isso necessáriamente não é sempre igual! Como sugestão comece desde o zero... pegue os scripts do upload sem componentes aqui do forum que se eu não me engano foi o Dark0 que postou (já testei e funciona)... tem um tutorialzinho passo a passo e tente novamente... aparecendo novas mensagens de erro, poste aqui, especificando a linha em que foi o problema, não só o numero, mas a linha em si tb! []'s Rafael Spilki
  13. O primeiro erro que salta aos olhos é esse aqui: &lt;script LANGUAGE="JavaScript"> o certo é assim: <script LANGUAGE="JavaScript"> inclusve é exatamente o mesmo erro que você estava cometendo neste tópico aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=126551 tente assim: <% fp = Server.MapPath("http://www.arldinartfest.com.br/contador/dados/contador.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct ct = ct + 1 a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if a.Close 'Response.Write ct %> <script LANGUAGE="JavaScript"> <!-- var str = "<%=ct%>"; var begin = "<img src=\"digitos/"; var middle = ".gif\" width=\"16\" height=\"21\" alt=\""; var last = "\">"; for(x = 0;x < str.length; x++) { str1 = str.charAt(x); document.write(begin + str1 + middle + str1 + last); } //--> </SCRIPT> []'s Rafael Spilki
  14. Ok... poste o seu código e especifique exatamente a sua dúvida que eu tento lhe ajudar! []'s Rafael Spilki
  15. Ciro, mais uma vez obrigado pelo retorno... Antes de postar os logs gostaria de dizer que alguns este software "informou" que alguns arquivos só seriam possiveis serem deletados apó uma reinicialização (que foi feita) porém o log deste software é anterior a reinicialização e o log do Hijackthis é posterior a esta reinicialização, ok? log hijackthis log malware bytes Devo efetuar mais algum procedimento? Agradeço a atenção. []'s Rafael Spilki
  16. beleza Marvi! Q. bom que deu certo... esse contador que te mostrei aí realmente é muito útil... simples mas útil... você pode fazer várias coisas com ele... mas sempre em asp né! rsssssssssssssssss... Tinha ficado na dúvida por se tratar de um vetor JS, mas foi legal o seu retorno porque pude ter certeza que funciona tb ali! Quanto as dimensões... realmente... um problemão... o jeito é setar uma só dimensão e depois deixar as outras no automático mesmo... OOOOOUUUU... você pode usar um componente de crop... mas nem sempre isso é bom e pode acabar cortando partes fundamentais das fotos, além de ser bem complicadinhio de fazer funcionar e só ter disponível mesmo em servidores proprios (raros servers que oferecem isso... é meio carinho)... Mas era isso, qualquer coisa posta aí! []'s Rafael Spilki
  17. você declarou a variavel "n" em dim? De qualquer forma... acho que o problema é outro... pode ser por causa desse vetor em JS... tenta declarar... se não der me avisa... o jeito acho que vai ser tentar algo no forum de js porque o único problema vai ser nesse contador... Enquanto você testa vou dar mais uma pensada por aqui! []'s Rafael Spilki
  18. Pelo que entendi, no seu caso seria apenas colocar onde aparece a fonte da foto o campo do bd que tem o nome dela e numerar os objetos automaticamente atraves de um contador... ou seja: ... n=1 do while not rsfotos.eof ... 'trocar isso: leftrightslide[0]='<a href="http://"><img src="dynamicbook1.gif" border=1></a>' 'por isso: leftrightslide[<%n%>]='<a href="http://"><img src="<%response write rsfotos("foto")" border=1></a>' ... 'fecha loop e tal n=n+1 Acho que isso deve resolver... você já havia tentado assim? []'s Rafael Spilki
  19. você setou ObjRs e o loop está assim: objRS... já vi discordancias quanto ao fato de asp ser case sensitive... mas por experiência própria pode ser sim... Sugiro mudar isso e fazer novo teste... tb sugiro que nessa linha você mude assim: myMail.subject = "teste" []'s Rafael Spilki
  20. Acredito que apareceu esse erro porque você não setou seu Recordset e nem deu execute na sua query... Set objConn = Server.CreateObject("ADODB.Connection") sql = "select * from chamada" objConn.Open "DBQ=" & Server.MapPath("bd/processo.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'a linha baixo estava faltando Set ObjRs = objConn.Execute(sql) tente assim! []'s Rafael Spilki
  21. sim... desta forma: myMail.To = objRS("email") & objRS("outrocampo") sacou? []'s Rafael Spilki
  22. Olha Erika, o que acontece é que apesar disso que estamos lidando aqui ser o básico da programação em asp, seria amador dizer que é fácil ou simples... cada caso necessita atenção e envolvimento... Aqui no fórum, tenho pra mim que não dou o peixe, procuro, dentro do meu conhecimento mostrar algum caminho para pescá-lo... Posso lhe acompanhar nestes procedimentos, dando dicas, apontando soluções de erros e etc... agora fazer assim mastigadinho pra mim é bem complicado! Foi você quem fez esse código que você já tem pronto? Posta ele aqui... vamos por partes e devagarinho... quando você menos esperar vai estar pronto! :-) Vou lhe ajudando e dando dicas especificas passo a passo, e daí você vai fazendo ok? []'s Rafael Spilki
  23. Rafael Spilki

    error '800a0006'

    Votamos a estaca zero... sem problemas... ;-) Pergunta 1: o server web disponibiliza este componente? pergunta 2: posta o seu codigo como ficou agora e tb especifique esta linha 32, ok? []'s Rafael Spilki
  24. Rafael Spilki

    error '800a0006'

    Era, isso? beleza então... Mas não foi só o corpo da mensagem que eu mudei... olha essa linha aqui e compare com o seu codigo: Mail.AddAddress "rvdance@terra.com.br" Talvés o Html nem fosse o problema... []'s Rafael Spilki
  25. Rafael Spilki

    error '800a0006'

    Sim, tenho uma ideia... mas nem sempre é tão rápido... ;-) tente assim e veja o que ocorre... lembre-se... é apenas um teste... o corpo da mensagem foi completamente modificado! obs: lembre-se de ao postar um codigo o colocar entre as tags [code]<% Response.Buffer=true Response.AddHeader "cache-control", "private" Response.AddHeader "pragma", "no-cache" Response.ExpiresAbsolute = #January 1, 1990 00:00:01# Response.Expires=Now()-1 Response.AddHeader "Cache-Control", "must-revalidate" Response.AddHeader "Cache-Control", "no-cache" Response.Addheader "Last-Modified:", Now() nome = request("nome") endereco = request("endereco") cep = request("cep") cidade = request("cidade") estado = request("estado") tel = request("tel") email=request("email") instituicao = request("instituicao") idade = request("idade") estudo = request("estudo") duvidas = request("duvidas") set mail = Server.CreateObject("Persits.Mailsender") Mail.Host = "localhost" Mail.Port = 25 Mail.FromName = form1 Mail.AddAddress "rvdance@terra.com.br" Mail.From = email 'Mail.CharSet = 2 Mail.Subject = "Ficha de Inscrição VI Curso Russo" Mail.IsHTML = true Mail.Body = "teste" if mail.send then %> <script language="JavaScript"> <!-- function isNumberString (InString) { if(InString.length==0) return (false); var RefString="1234567890.-"; for (Count=0; Count < InString.length; Count++) { TempChar= InString.substring (Count, Count+1); if (RefString.indexOf (TempChar, 0)==-1) return (false); } return (true); } function validar() { if (document.form1.nome.value == "") { alert("Preencha o campo Nome") document.form1.nome.focus(); return false; } telefone = document.form1.telefone.value if (document.form1.telefone.value != "") { if (isNumberString(telefone) != 1) { alert("Preencha o campo Telefone corretamente!") document.form1.telefone.focus(); return false; } } else { alert("Preencha o campo Telefone") document.form1.telefone.focus(); return false; } if (document.form1.email.value == "") { alert("Preencha o campo Email") document.form1.email.focus(); return false; } email = document.form1.email.value if (email != "" && document.form1.email.value.indexOf ('@',0) == -1 || document.form1.email.value.indexOf ('.',0) == -1) { alert("Preencha o campo Email corretamente\nexemplo nome@provedor.com.br") document.form1.email.focus() return false; } return (true); } --> </script> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE>RV PROMO&Ccedil;&Otilde;ES</TITLE> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <STYLE>TD { COLOR: #000000; FONT-FAMILY: Tahoma } A { COLOR: #000000; FONT-FAMILY: Tahoma; TEXT-DECORATION: none } A:hover { COLOR: #000000; FONT-FAMILY: Tahoma } </STYLE> <style> table{ font-family:Tahome, Arial, Helvetica; font-size:12px; color:#333333; } input{ border:1px solid #333333; background:#f3f3f3; font-family:Tahome, Arial, Helvetica; font-size:12px; color:#333333; } body{ margin:0; } h1{ font-family:Tahome, Arial, Helvetica; font-size:15px; color:#333333; font-weight:bold; } </style> <META content="MSHTML 6.00.2800.1106" name=GENERATOR> <link href="../font2.css" rel="stylesheet" type="text/css"> </HEAD> <BODY bgColor=#ffffff background="../imagens/bg.gif" link="#0000FF" leftMargin=0 topMargin=0 marginwidth="0" marginheight="0"> <TABLE width="766" height="0%" border=0 align="center" cellPadding=0 cellSpacing=0> <TBODY> <TR> <TD width="866" colSpan=3><TABLE height=140 cellSpacing=0 cellPadding=0 width="100%" bgColor=#000000 background=../imagens/background.gif border=0> <TBODY> <TR> <TD align=middle width="100%"> <div align="center"> <object codebase=http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0 height="140" width="765" align=middle classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000> <param name="movie" value="../imagens/Flash.swf"> <param name="quality" value="high"> <param name="wmode" value="transparent"> <param name="bgcolor" value="#000000"> <embed src='../imagens/Flash.swf' width=765 height=140 align="middle" quality=high wmode=transparent bgcolor=#000000 type='application/x-shockwave-flash' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'></embed></object> </div></TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE> <TABLE width="766" border=0 align="center" cellPadding=5 cellSpacing=1 bgColor=#000000> <TBODY> <TR> <TD width="765" background="../imagens/fun-menu.jpg"><div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="../calendario-nv.asp">CALEND&Aacute;RIO</a></font></strong></div></td> <td><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="../regulamentos-nv.asp">REGULAMENTOS</a></font></strong></div></td> <td><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="../resultados-nv.asp">RESULTADOS</a></font></strong></div></td> <td><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="../solistas-nv.asp">SOLISTAS RV</a></font></strong></div></td> <td><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="../faleconosco-nv.asp">FALE CONOSCO</a></font></strong></div></td> <td><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><a href="../index2.asp">VOLTAR</a></font></strong></div></td> </tr> </table> <font color="#000000" size="3" face="Arial, Helvetica, sans-serif"></font></div></TD> </TR> </TBODY> </TABLE> <table width="766" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td > <table width="745" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td > <div align="center"> <p align="center" class="EE">&nbsp;</p> <font size="4"><span class="EE"> <% data_atual=Date() mes_atual=Month(data_atual) Select Case mes_atual Case 1 mes_desc="Janeiro" Case 2 mes_desc="Fevereiro" Case 3 mes_desc="Março" Case 4 mes_desc="Abril" Case 5 mes_desc="Maio" Case 6 mes_desc="Junho" Case 7 mes_desc="Julho" Case 8 mes_desc="Agosto" Case 9 mes_desc="Setembro" Case 10 mes_desc="Outubro" Case 11 mes_desc="Novembro" Case 12 mes_desc="Dezembro" End Select Response.Write "Inscrição enviada em " & Day(data_atual) & " de " & mes_desc & " de " & Year(data_atual) %> </span></font> <p>&nbsp;</p> <p align="right"><font color="#006600" size="1" face="Verdana, Arial, Helvetica, sans-serif"><a href="../index2.asp">P&Aacute;GINA INICIAL</a></font></p> <font color="#000000" size="3" face="Arial, Helvetica, sans-serif"></font></div></td> </tr> </table> <div align="center"></div></td> <td width="1" bgcolor="#000000"><img src="../imagens/fun-menu.gif" width="1" height="2"></td> </tr> <tr> <td height="2" colspan="2" bgcolor="#000000"><img src="../imagens/fun-menu.jpg" width="1" height="1"></td> </tr> </table> <table width="766" border="0" align="center" cellpadding="5" cellspacing="0"> </div></td> </tr> </table> </BODY></HTML> <script> function impr() { self.print(); } </script> <% else response.write "Erro ao tentar enviar o Formulário. Digite um e-mail válido." %> <script> if(confirm('Deseja voltar para o formulário novamente?')) history.back(); </script> <% end if %> []'s Rafael Spilki
×
×
  • Criar Novo...