Ir para conteúdo
Fórum Script Brasil

Homem_Fardado

Membros
  • Total de itens

    20
  • Registro em

  • Última visita

Posts postados por Homem_Fardado

  1. Pessoal visitem este link é do meu site http://www.jornalfonte.com.br/enquete/principal.asp quando eu voto aparece esse erro em um pop que deveria aparecer o resultado, se precisarem eu mando os codigos para alguém poder me ajudar.

    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.

    --------------------------------------------------------------------------------

    Web Server at jornalfonte.com.br

  2. Galera abaixo esta o codigo da enquete.asp o banco de dados enquete.mdb esta em ordem só preciso saber onde esta o erro pois quando voto aparece a mensagem "a pagina não pode ser exibida e na barra aparece isso \<%=%20request.servervariables(" o link é esse

    http://www.jaboticabalatletico.com.br/enquete.htm

    <%
    
    'define as variáveis que serão usadas na código
    
    dim ja_votou , u_input , cn , rs , sql , u_ip , contador , total_votos
    
    
    'Duas variáveis são passadas gravadas no banco de dados
    
    'u_input = é o valor se o usuario entrou uma resposta para a questão
    
    'IP  = é o endereço IP do usuario
    
    u_input=request.form("u_input")
    
    
    'pega o endereço IP do usuario
    
    u_ip=request.servervariables("remote_addr")
    
    
    ' Se o usuário não entrou um valor para a questão então vamos mostrar 
    
    ' a questão a relação de opções possíveis para resposta
    
    if u_input = "" then
    
    
    %>
    'exibe o formulário com a pergunta e as opções
    
    'ao clicar em enviar o método post envia o formulário 
    
    ' o conjunto serverVariables inclui uma variável chamada script_name que representa o nome da página atual
    
    ' ou seja a página atual enquete.asp será submetida ao servidor
    
    <form method="post" action="<%= request.servervariables("script_name") %>">
    
      <p><font color="#0033FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>
    
      Você gostaria que o site tivesse mais artigos sobre:</strong></font></p>
    
      <p> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    
    <input type="radio" value="1" name="u_input">
    
        <font color="#0033FF">VB 5/6<br>
    
        <input type="radio" value="2" name="u_input" >
    
        VB .NET<br>
    
        <input type="radio" value="3" name="u_input" checked>
    
        ASP<br>
    
        <input type="radio" value="4" name="u_input">
    
        ASP.NET<br>
    
        <input type="radio" value="5" name="u_input">
    
        C#<br>
    
        <input type="radio" value="6" name="u_input">
    
        VBA<br>
    
        <input type="radio" value="7" name="u_input">
    
        SQL</font></strong></font></p>
    
      <p> 
    
    <input type="submit" value="Enviar" >&nbsp; <b>
    
    <font face="Verdana" size="2" color="#0000FF">
    
    <font color="#FF0000"><A HREF=" java script:window.close()">Fechar</a></font></a></font></b></p>
    
    </form>
    
    <%
    
    else
    
    
    ' Se o usuario entrou uma escolha na enquete
    
    ' verifica se o seu IP já foi registrado no BD
    BaseDados="enquetes.mdb" 
    
    
    
    
    'Usei um provedor OLE DB para efetuar a conexão com o banco de daos enquetes.mdb
    
    'poderia ter usado  cn="driver={Microsoft Access Driver (*.mdb)};" mas não a performance do provedor OLE DB é melhor
    
    cn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/inetpub/wwwroot/enquete/" & BaseDados
    
    
    'criei um recordset ADO e selecionei o número ip da tabela enquete1 que fosse igual ao ip do usuário atual
    
    set rs = server.createobject("ADODB.Recordset")
    
    sql = "select ip from enquete1 where ip ='" & u_ip & "'"
    
    
    'executei a consulta sql 
    
    rs.Open sql, cn
    
    
    'se o recordset estiver vazio o usuário ainda não votou
    
    if rs.eof then
    
       ' Se o usuario não votou antes beleza atribuo o valor No a variável ja_votou
    
       ja_votou="No"
    
    end if
    
    'fecha o recordset
    
    rs.close
    
    
    if ja_votou = "No" then
    
        ' Se o usuario não votou então vamos gravar o voto no bd usando uma instrução SQL INSERT INTO
       sql = "insert into enquete1 (ip, opcao" & u_input &") "
    
       sql = sql & "values ('" & u_ip & "',1)"
    
    
       'efetiva a gravação no banco de dados
    
       rs.Open sql, cn
    
    end if
    
    
    'Vamos fazer um resumo e a estatistica dos votos por opção e calcular o total de votos
    
    sql= "select distinctrow sum(opcao1) as soma_opcao1, " 
    
    sql= sql & "sum(opcao2) AS soma_opcao2, sum(opcao3) AS soma_opcao3, "
    
    sql= sql & "sum(opcao4) AS soma_opcao4, sum(opcao5) AS soma_opcao5,"
    
    sql= sql & "sum(opcao6) AS soma_opcao6, sum(opcao7) AS soma_opcao7, count(*) AS total_votos "
    
    sql= sql & "FROM enquete1;"
    
    rs.Open sql, cn
    
    'totaliza os votos por opção e armazena nas variáveis definidas
    
    total1=rs ("soma_opcao1")
    
    total2=rs ("soma_opcao2")
    
    total3=rs ("soma_opcao3")
    
    total4=rs ("soma_opcao4")
    
    total5=rs ("soma_opcao5")
    
    total6=rs ("soma_opcao6")
    
    total7=rs ("soma_opcao7")
    
    'obtem o total de votos do recodset gerado
    
    contador=rs ("total_votos")
    
    
    %>                            
    
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="56%" id="AutoNumber1">
    
      <tr>
    
        <tudo width="136%" bgcolor="#FFFFFF" align="left" colspan="3">
    
        <font color="#0033FF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>
    
        Você gostaria que o site tivesse mais artigos sobre:</strong></font></tudo>
    
      </tr>
    
      <tr>
    
        <tudo width="34%" bgcolor="#E8E8E8" align="left"><strong>
    
        <font face="Verdana" size="1" color="#0033FF">&nbsp;&nbsp; opção&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    
        </font></strong></tudo>
    
        <tudo width="27%" bgcolor="#E8E8E8" align="left">
    
        <p align="left"><font face="Verdana" size="1" color="#0033FF"><strong>&nbsp;Votos&nbsp;&nbsp;
    
        </strong></font></tudo>
    
        <tudo width="75%" bgcolor="#E8E8E8" align="left">
    
    <strong style="font-weight: 400"><font face="Verdana" size="1">&nbsp;&nbsp; Percentual</font></strong></tudo>
    
      </tr>
    
      <tr>
    
        <tudo width="34%"> 
    
        <font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"> <strong> VB 5/6</strong></font></tudo>
    
        <tudo width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total1%></font></tudo>
    
        <tudo width="75%">
    
    <font face="Verdana" size="2"><strong style="font-weight: 400"> &nbsp;<img src="images/red.jpg" height="10" width=
    
    "<%= (total1/contador)*100 %>"> <%= formatnumber((total1/contador)*100,1)  %>%&nbsp;&nbsp;&nbsp; </strong></font></tudo>
    
      </tr>
    
      <tr>
    
        <tudo width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    
        <font color="#0033FF">VB .NET&nbsp;&nbsp; </font></strong></font></tudo>
    
        <tudo width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total2%></font></tudo>
    
        <tudo width="75%">
    
    <font face="Verdana" size="2"><strong style="font-weight: 400"> &nbsp;<img src="images/yellow.jpg" height="10" width=
    
    "<%= (total2/contador)*100 %>"> <%= formatnumber((total2/contador)*100,1)  %>%&nbsp;&nbsp;&nbsp; </strong></font></tudo>
    
      </tr>
    
      <tr>
    
        <tudo width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    
        <font color="#0033FF">ASP&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font></strong></font></tudo>
    
        <tudo width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total3%></font></tudo>
    
        <tudo width="75%">
    
    <font face="Verdana" size="2"><strong style="font-weight: 400">&nbsp;<img src="images/green.jpg" height="10" width=
    
    "<%= (total3/contador)*100 %>"> <%= formatnumber((total3/contador)*100,1)  %>%&nbsp;&nbsp; 
    
    </strong></font></tudo>
    
      </tr>
    
      <tr>
    
        <tudo width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    
        <font color="#0033FF">ASP.NET&nbsp; </font></strong></font></tudo>
    
        <tudo width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total4%></font></tudo>
    
        <tudo width="75%">
    
    <font face="Verdana" size="2"><strong style="font-weight: 400"> &nbsp;<img src="images/blue.jpg" height="10" width=
    
    "<%= (total4/contador)*100 %>"> <%= formatnumber((total4/contador)*100,1)  %>%&nbsp;&nbsp;
    
     </strong></font></tudo>
    
      </tr>
    
      <tr>
    
        <tudo width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    
        <font color="#0033FF">C#&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font></strong></font></tudo>
    
        <tudo width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total5%></font></tudo>
    
        <tudo width="75%">
    
    <font face="Verdana" size="2"><strong style="font-weight: 400"> &nbsp;<img src="images/pink.jpg" height="10" width=
    
    "<%= (total4/contador)*100 %>"> <%= formatnumber((total4/contador)*100,1)  %>%&nbsp;&nbsp;
    
     </strong></font></tudo>
    
      </tr>
    
      <tr>
    
        <tudo width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    
        <font color="#0033FF">VBA&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font></strong></font></tudo>
    
        <tudo width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total6%></font></tudo>
    
        <tudo width="75%">
    
    <font face="Verdana" size="2"><strong style="font-weight: 400"> &nbsp;<img src="images/grey.jpg" height="10" width=
    
    "<%= (total4/contador)*100 %>"> <%= formatnumber((total4/contador)*100,1)  %>%&nbsp;&nbsp;
    
     </strong></font></tudo>
    
      </tr>
    
      <tr>
    
        <tudo width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    
        <font color="#0033FF">SQL&nbsp;&nbsp;&nbsp;&nbsp; </font></strong></font></tudo>
    
        <tudo width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total7%></font></tudo>
    
        <tudo width="75%">
    
    <font face="Verdana" size="2"><strong style="font-weight: 400"> &nbsp;<img src="images/black.jpg" height="10" width=
    
    "<%= (total4/contador)*100 %>">
    
    </strong> 
    
    <%= formatnumber((total4/contador)*100,1)  %>%&nbsp;&nbsp;&nbsp; </font> </tudo>
    
      </tr>
    
    </table>
    
    <br>
    
    <font size="2" face="Verdana, Arial, Helvetica, sans-serif">Total dos Votos  : <%= formatnumber(contador,0,0) %>
    
    </font><p> <font size="2" face="Verdana, Arial, Helvetica, sans-serif">
    
      
    
      <% if ja_votou <> "No" then %>
    
           Você já votou !!! seu voto <b>NÃO</b> foi contado. 
    
      <% else %>
    
          </font></p>
    
          <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Obrigado por participar  !! 
    
      <% end if %> </font></p>
    
    <% end if %>

  3. galera no link abaixo acharam onde esta minha enquete peguei ela no imasters e não consigo configuralá certo preciso de ajuda urgente nela aparece o seguinte

    Warning: file(vota.txt) [function.file]: failed to open stream: No such file or directory in /home/jabatle/public_html/17-20/index.php on line 17

    Warning: fopen(vota.txt) [function.fopen]: failed to open stream: Permission denied in /home/jabatle/public_html/17-20/index.php on line 25

    Warning: flock() expects parameter 1 to be resource, boolean given in /home/jabatle/public_html/17-20/index.php on line 26

    Warning: fputs(): supplied argument is not a valid stream resource in /home/jabatle/public_html/17-20/index.php on line 27

    Warning: flock() expects parameter 1 to be resource, boolean given in /home/jabatle/public_html/17-20/index.php on line 28

    Warning: fclose(): supplied argument is not a valid stream resource in /home/jabatle/public_html/17-20/index.php on line 29

    Resultados:

    http://www.jaboticabalatletico.com.br/17-20/

  4. Ai pessoa eu utilizo iframe para editar paginas no dreamweaver 6.0 agora instaleio o MX 2004 o 7.0 e não funciona mais a extenção no 7.0 aguem tem alguma ideia do porque ou tem uma nova extençao pro MX 2004

  5. Pelo amor de Deus pessoal me ajudem !!!!!!!!!!!!!AI galera esse é o codigo eu prencho todos os campos e a hora q eu envio e ele me retorna essa mensagem Atenção!! Os campos Mensagem e E-mail não podem estar em branco. Abaixo estão o html e o php. Porfavor me ajudem.

    Esse é o html

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

    <html>

    <head>

    <title>Untitled Document</title>

    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

    </head>

    <body>

    <table width="550" border="0" align="center" bordercolor="#000099" bgcolor="#000066">

    <tr bgcolor="#9FC0E1">

    <td align="center" valign="middle" bgcolor="#333333"> <div align="center">

    <p>&nbsp;</p>

    <p><font class="titulos" color="#FFFFFF"><strong>Envie seu Comentário</strong></font></p>

    <form name="form1" method="post" action="contato.php">

    <p></p>

    <table width="494" border="0" cellspacing="0" cellpadding="0" align="center" height="305">

    <tr bgcolor="#6666FF">

    <td width="100" valign="top" nowrap><font class="texto">Nome:</font></td>

    <td> <input class="form_campos" type="text" name="nome" size="34">

    </td>

    </tr>

    <tr bgcolor="#6666FF">

    <td width="100" valing="top" nowrap><font class="texto">Cidade</font></td>

    <td> <input class="form_campos" type="text" name="cidade" size="20">

    </td>

    </tr>

    <tr bgcolor="#6666FF">

    <td width="100" valing="top" nowrap><font class="texto">Estado:</font></td>

    <td> <input class="form_campos" type="text" name="estado" size="11">

    </td>

    </tr>

    <tr bgcolor="#6666FF">

    <td width="100" valing="top" nowrap><font class="texto">E-mail:</font></td>

    <td> <input class="form_campos" type="text" name="email" size="34">

    </td>

    </tr>

    <tr bgcolor="#6666FF">

    <td width="100" valing="top" nowrap><font class="texto">Telefone:</font></td>

    <td> <input class="form_campos" type="text" name="fone" size="20">

    </td>

    </tr>

    <tr bgcolor="#6666FF">

    <td width="100" valing="top" nowrap><font class="texto">Assunto:</font></td>

    <td> <select class="form_campos" name="assunto">

    <option class="form_campos" value="Sugestão">Sugestão</option>

    <option class="form_campos" value="Parceria">Parceria</option>

    <option class="form_campos" value="Reclamação">Reclamação</option>

    <option class="form_campos" value="Sem Assunto">Outros</option>

    </select> </td>

    </tr>

    <tr bgcolor="#6666FF">

    <td width="100" valing="top" nowrap><font class="texto">Mensagem:</font></td>

    <td> <textarea class="form_campos" name="mesagem" cols="34" rows"4"></textarea>

    </td>

    </tr>

    <tr bgcolor="#6666FF">

    <td colspan="2" valing="middle"> <br> <div aling="center">

    <input class="form_botao" type="submit" name="enviar" value="Enviar Mensagem">

    <input class="form_botao" type="reset" name="limpar" value="Limpar">

    </div></td>

    </tr>

    </table>

    </form>

    </div></td>

    </tr>

    </table>

    </body>

    </html>

    Esse é o php

    <?php

    $mail_destino="harleybergo@terra.com.br";

    $mail_header .= "From: \"DVDOnline\" \n";

    $mail_header .= "Reply-To: $email\n";

    $mail_header .= "Organization: DVDOnline\n";

    $mail_header .= "MIME-Version: 1.0\n";

    $mail_header .= "Content-Transfer-Ecoding: 8bit\n";

    $msg_reply .="<left><b>Olá $nome, recebemos o seu email com o assunto $assunto</b>.<b> Obrigado por entrar em contato.</left></b>";

    $msg_erro .="Atenção!! Os campos <font color=#336699><b>Nome, Mensagem e E-mail</b></font> não podem estar em branco.";

    if ($nome != "" and $mensagem != "" and $email != "")

    {

    $msg.="Nome: $nome\n";

    $msg.="Cidade: $cidade\n";

    $msg.="Estado: $estado\n";

    $msg.="E-mail: $email\n";

    $msg.="Telefone: $fone\n";

    $msg.="Assunto: $assunto\n";

    $msg.="$mensagem\n";

    mail("harleybergo@terra.com.br", "Contato Via Web", "Ola Harley", $header);

    if (mail ($mail_destino, $assunto, $msg, $mail_header))

    {

    echo "<html><meta http-equiv=refresh content=5; URL=contato.htm> </html>";

    echo "<left>$nome, sua mensagem foi enviada com sucesso! </left></br>";

    echo "<left>Obrigado!<left><br>";

    }

    else

    echo "<meta http-equiv=refresh content=5;URL=contato.htm>

    </html><left><br><br><font color=blue>

    <b>Erro ao enviar e-mail!</b>

    </font></left>";

    }

    else

    {

    echo "<br><br><left> $msg_erro <br><br>

    <a href=\"javascript:window.history.go(-1)\" class=\"links\"> Por favor, volte e preencha corretamente.</a>

    </left>";

    }

    ?>

    </p>

×
×
  • Criar Novo...