Ir para conteúdo
Fórum Script Brasil

arldin

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    278

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que arldin postou

  1. arldin
    Caro amigo Jonatham Eu troquei o script que estava usando e coloquei um outro Ele faz o calculo do frete, mais não ta fazendo a soma dos campos campo1 + vampo3 pode me da uma força Seque a baixo <script LANGUAGE="JavaScript"> addEvent = function(o, e, f, s) { var r = o[r = "_" + (e = "on" + e)]= o[r] || (o[e] ? [[o[e], o]] : []), a, c, d; r[r.length] = [f, s || o], o[e] = function(e){ try{ (e = e || event).preventDefault || (e.preventDefault = function(){e.returnValue = false;}); e.stopPropagation || (e.stopPropagation = function(){e.cancelBubble = true;}); e.target || (e.target = e.srcElement || null); e.key = (e.which + 1 || e.keyCode + 1) - 1 || 0; }catch(f){} for(d = 1, f = r.length; f; r[--f] && (a = r[f][0], o = r[f][1], a.call ? c = a.call(o, e) : (o._ = a, c = o._(e), o._ = null), d &= c !== false)); return e = null, !!d; } }; function formatCurrency(o, n, dig, dec) { o.c = !isNaN(n) ? Math.abs(n) : 2; o.dec = typeof dec != "string" ? "," : dec, o.dig = typeof dig != "string" ? "." : dig; addEvent(o, "keypress", function(e) { if (e.key > 47 && e.key < 58) { var o, s, l = (s = ((o = this).value.replace(/^0+/g, "") + String.fromCharCode(e.key)).replace(/\D/g, "")).length, n; if(o.maxLength + 1 && l >= o.maxLength) return false; l <= (n = o.c) && (s = new Array(n - l + 2).join("0") + s); for(var i = (l = (s = s.split("")).length) - n; (i -= 3) > 0; s[i - 1] += o.dig); n && n < l && (s[l - ++n] += o.dec); o.value = s.join(""); } e.key > 30 && e.preventDefault(); }); } function fmtMoney(n, c, d, t){ var m = (c = Math.abs© + 1 ? c : 2, d = d || ",", t = t || ".", /(\d+)(?:(\.\d+)|)/.exec(n + "")), x = m[1].length > 3 ? m[1].length % 3 : 0; return (x ? m[1].substr(0, x) + t : "") + m[1].substr(x).replace(/(\d{3})(?=\d)/g, "$1" + t) + (c ? d + (+m[2] || 0).toFixed©.substr(2) : ""); }; function soma() { var f = document.forms[0]; var valor1 = parseFloat(f.campo1.value.replace('.','').replace(',','.')); var valor2 = parseFloat(f.campo2.value=10); var valor3 = ('' + ((valor1||0) / (valor2||0))); f.campo3.value = fmtMoney(valor3); } function init() { formatCurrency(document.forms[0].campo1, 2, ".", ","); var valor1 = parseInt(document.forms[0].campo1.value) || 0; var valor3 = parseInt(document.forms[0].campo3.value) || 0; document.forms[0].campo4.value = valor1 + valor3; } window.onload = init; </script> <HTML> <HEAD> <TITLE></TITLE> <META NAME="GENERATOR" CONTENT="Sothink HTML Editor"> </HEAD> <BODY> <form> Sub Total<input name="campo1" onkeyup="soma()" size="8" /> <input name="campo2" onkeyup="soma()" size="8" / TYPE="Hidden"> Valor do Frete<input name="campo3" size="8" /> Total com o frete Frete<input name="campo4" size="8" /> </form> </BODY> </HTML>
  2. arldin
    Não estou querendo fazer niguem de capacho. E tenho a sequinte opnião se eu não quero ajudar eu não respondo post agredindo verbalmente ninguel isto para min e falta de educação Obrigado Jonatham eu tentei este que a tempos me foi passado so que este não se encachou com este agora por isso eu pedi a ajuda Valeu pea força
  3. arldin
    Se eu pedi ajuda não foi por prequisa de pesquisar, pois antes de vim aqui eu do sim uma pesquisa, mais muitas das vezes não encontramos Quando eu vejo alquem que precisa de um derteminado script se eu possuo ele eu repato com os amigos No meu entender acho que aqui e um lugar de amigos que se ajuda
  4. arldin
    Gostaria de uma ajuda de como colocar o que aparece-se asim R$10.00 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE>Untitled Document</TITLE> <META content="text/html; charset=windows-1252" http-equiv=Content-Type> &lt;script language=JavaScript> function resultado() { var soma = parseFloat(document.calc.espaco1.value) / parseFloat(document.calc.espaco2.value); document.calc.total.value = eval(soma) } function soma() { var soma = parseFloat(document.calc.espaco1.value) + parseFloat(document.calc.total.value); document.calc.total1.value = eval(soma) } </SCRIPT> <META name=GENERATOR content="MSHTML 8.00.6001.18812"></HEAD> <BODY> <FORM name=calc> <TABLE border=1 cellSpacing=0 cellPadding=0 width="50%"> <TBODY> <TR> <TD>Sub Total <INPUT class=disp onchange=resultado() maxLength=30 size=8 name=espaco1></TD></TD></TR> <TR> <TD><INPUT class=disp onchange=resultado() value=10 maxLength=30 size=8 type=hidden name=espaco2></TD></TD></TR> <TR> <TD>Valor do frete <INPUT class=disp onchange=resultado() maxLength=30 size=8 name=total></TD></TD></TR> <TR> <TD>Valor com o frete: <INPUT class=disp onchange=soma() maxLength=30 size=8 name=total1></TD></TD></TR> <TR> <TD><INPUT class=btswhite onclick=soma() value=OK type=button name=closeprth></TD></TD></TR></TBODY></TABLE></FORM></BODY></HTML>
  5. arldin
    Testei mais ai da value nulo
  6. arldin
    Ela esta postada la encima,gostaria pela ajuda Obrigado Olha eu coloquei esta outra função e resolveu em partes o que eu queria Ela amostra o sub total direto, mais eu tenho que digitar o valor paraela me da o total com o frete ao invés de já fazer direto Este e o que eu inclui E este e o que eu chamo Ele amostra o valor mais não esta fazendo a soma direto alguém pode me da uma luz
  7. arldin
    Ela esta postada la encima,gostaria pela ajuda Obrigado
  8. arldin
    Vou posta o link para visualizar o formulario Espero que ajude a entender o que esu estou querendo La no final onde tem o total e que eu estou querendo inserir os outros campos que seria o valor do frete e o total já incuido o frete que ficaria assim Total R$ 100,00 Frete R$10,00 Total com frete 110,00
  9. arldin
    Obrigado pela força,mais não deu certo Talves eu não expliquei direito O que eu estou tendando fazer e o sequinte La no totalgeral eu quero que o valor dele seja multipricado pelo frete que sera de 10% ao mesmo tempo em que vai sendo inserido nos outros campos. E ai aparecer um campo que apareça o valor do frete e depois um outro campo aparecendo o total do campo totalgeral, frete e valor total
  10. arldin
    O que eu estou querendo e o sequinte la no campo que aparece o valor total eu quero criar outro campo que quando for aparecendo o valor total apareça a porcemtagem do total e um outro campo onde irar aparecer a soma geral Ex total R$100,00 frete R$ 10,00(seria 10%) geral R$ 110,00 seria isto como faço
  11. arldin
  12. arldin

    Liberum Help Desk

    pergunta respondeu ao saulus de arldin em ASP

    você pode tentar usar o webcall, aqui mesmo tem para baixar eu uso e funciona bem legal
  13. arldin
    já resolvi
  14. arldin
    Eu uso este ele amostra a mensagem Proibi copia <script language="JavaScript"><!-- function verfonte() { if (event.button==2) { window.alert('Proibida a cópia.') } } document.onmousedown=verfonte // --></script> Espero te ajudado
  15. arldin
    Bom dia amigos Estou usando pagina em PHP,para fazer indicação do site. Este são os code Este e o que amostra o formulario script_recomendado.html <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE>Indique nosso site</TITLE> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <STYLE> a.{text-decoration: none; color: #ffffff;} a:hover{text-decoration: underline overline;} </STYLE> <META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD> <BODY background=http://www.arldinartfest.com.br/image306.GIF> <CENTER><A href="http://www.scriptfacil.com" target=_blank><IMG src="http://www.scriptfacil.com/script_by.gif" border=0></A></CENTER> <FORM action=script_recomendado.php method=post> <CENTER> <TABLE cellSpacing=0 cellPadding=0 border=0> <TBODY> <TR> <TD><FONT face=Verdana size=2> Seu nome:</FONT></TD> <TD><FONT face=Verdana size=2><INPUT style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BORDER-LEFT: black 1px solid; WIDTH: 200px; BORDER-BOTTOM: black 1px solid; FONT-FAMILY: verdana; HEIGHT: 21px" size=40 name=seu_nome></STRONG></FONT></TD></TR> <TR> <TD> <FONT face=Verdana size=2> Seu e-mail:</FONT></TD> <TD><FONT face=Verdana size=2><INPUT style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BORDER-LEFT: black 1px solid; WIDTH: 200px; BORDER-BOTTOM: black 1px solid; FONT-FAMILY: verdana; HEIGHT: 21px" name=seu_email></STRONG></FONT></TD></TR></TBODY></TABLE> <TABLE cellSpacing=0 cellPadding=0 border=0> <TBODY> <TR> <TD><FONT face=Verdana size=2> Nome do amigo: </I></B></FONT></TD> <TD><FONT face=Verdana size=2><INPUT style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BORDER-LEFT: black 1px solid; WIDTH: 200px; BORDER-BOTTOM: black 1px solid; HEIGHT: 21px" name=nome_amigo></STRONG></FONT></TD></TR> <TR> <TD> <FONT face=Verdana size=2>E-mail do amigo: </I></B></FONT></TD> <TD><FONT face=Verdana size=2><INPUT style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BORDER-LEFT: black 1px solid; WIDTH: 200px; BORDER-BOTTOM: black 1px solid; HEIGHT: 21px" name=email_amigo></STRONG></FONT></TD></TR></TBODY></TABLE> <TABLE cellSpacing=0 cellPadding=0 border=0> <TBODY> <TR> <TD vAlign=center align=left><FONT face=Verdana size=2> <INPUT style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: black 1px solid; WIDTH: 57px; BORDER-BOTTOM: black 1px solid; FONT-FAMILY: verdana; HEIGHT: 23px; BACKGROUND-COLOR: #f8f8f8; font-color: cccccc" type=submit value=Enviar name=Enviar></FONT></TD> <TD> </TD> <TD vAlign=center align=left height=25><FONT face=Verdana size=2><INPUT style="BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: 1px solid; WIDTH: 64px; BORDER-BOTTOM: 1px solid; FONT-FAMILY: verdana; HEIGHT: 23px; BACKGROUND-COLOR: #f8f8f8; font-color: cccccc" type=reset value=Apagar name=Apagar></FONT></TD></TR></TBODY></TABLE></FORM></CENTER></BODY></HTML> Este e o script em PHP script_recomendado <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <? require "script_recomendado.php"; echo "<style> a.{text-decoration: none; color: #ffffff;} a:hover{text-decoration: underline overline;} </style>"; if (!(ereg ("^.+@.+\\..+$", $seu_email))) { echo "<font face=verdana size=2 color=black>seu e-mail está inválido</font>"; exit; } if (!(ereg ("^.+@.+\\..+$", $email_amigo))) { echo "<font face=verdana size=3 color=black>e-mail do amigo inválido</font>"; exit; } mail ($para, $assunto, $mensagem, "From: $de"); echo "<font face=verdana size=2 color=#FF0000>Muito Obrigado por ter indicado o meu site</font>"; ?><HTML><HEAD> <META http-equiv=Content-Type content="text/html; charset=windows-1252"> <META content="MSHTML 6.00.2900.2180" name=GENERATOR></HEAD> <BODY background=http://www.arldinartfest.com.br/image306.GIF></BODY></HTML> Este e o que tem as informaçãoes script_recomendado1 <? $para="$email_amigo"; //não mexa aqui - variáveis retirada do formulário $nome1="$nome_amigo"; //não mexa aqui - variáveis retirada do formulário $de="$seu_email"; //não mexa aqui - variáveis retirada do formulário $nome2="$seu_nome"; //não mexa aqui - variáveis retirada do formulário $site= "arldinartfest.com.br"; //nome do seu site $site_url="http://www.arldinartfest.com.br"; //endereço do seu site $descricao="Temos varios temas de festas infantis.Alugamos e Vendemos.Vendemos tambem para lojistas."; //descrição so seu site $webmaster="Arlindo gerenciador do site arldinartfest.com.br"; //coloque seu nome aqui $assunto="recomendação"; //assunto da mensagem // não altere a linha abaixo, pois, é o texto que acompanha o e-mail $mensagem="Caro $nome1,\n"; $mensagem.="O $nome2 visitou o meu site: $site ( $site_url ) e gostaria que você conhecesse o mesmo!\n"; $mensagem.="O $site é um site sobre:\n"; $mensagem.="$descricao\n"; $mensagem.="Eu $webmaster peço a você que visite o meu site ($site) e que indique para outros amigos\n"; $mensagem.="Obrigado,\n"; $mensagem .="$webmaster"; ?> Eles funciona coretamente, mais o que esta acontecendo e o sequinte, Quando coloco o codico para fazerem a indicação que e este que esta abaixo &lt;script LANGUAGE="JavaScript"> <!-- var U = "http://www.arldinartfest.com.br/script_recomendado/script_recomendado.html"; var X = 0; var Y = 0; var W = 350; var H = 182; var s="resizable,left="+X+",top="+Y+",screenX="+X+",screenY="+Y+",width="+W+",height="+H; function popMe(){ var SGW = window.open(U,'TheWindow',s) } // --> </script> <a href="java script:popMe()"><IMG style="WIDTH: 153px; HEIGHT: 22px" height=30 alt="" hspace=0 src="http://www.arldinartfest.com.br/gif1/TESTE.GIF" width=28 border=0></a> ele abre como pop, na minha pagina ele abre não no tamanho especificado que do var W=350 e do var H= 182 o link e este para teste indicar_site Mais quando coloco ele neste outro link ele abre com as especificação certa o link e este indicar A ajuda que eu estou querendo e a sequinte Como faço para que ele abra igual ao link de baixo Desde já agradeço a todos Desculpe-me a um ero de digitação nos linkes Aqui vão os certos indicar_site O outro e este indicar
  16. arldin

    Global.asa

    uma questão postou arldin ASP

    Boa noite amigos eu estou usando um global.asa para usario online, este script eu peguei aqui mesmo na site. Ele funciona bem mais o que eu gostaria de saber e o sequinte Quando eu entro no meu site ele amostra que tem 1 usuario online Ate ai tudo beleza, mais se entra outro no site ele não me mostra que entrou, mais para o outro usuario ele mostra que tem 2 usuario, se eu saio ele não faz a atualização no outro usuario, o que eu gostaria de saber como faço para ele amostra de imediato que o usuario entrou ou saiu Este e o global.asa &lt;script LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart application("activevisitors")=0 End Sub Sub Application_OnEnd End Sub Sub Session_OnStart application.lock application("activevisitors")=application("activevisitors")+1 application.unlock End Sub Sub Session_OnEnd application.lock application("activevisitors")=application("activevisitors")-1 application.unlock End Sub </SCRIPT> Desde já agradeço a todos
  17. arldin

    Mudar a cor de um dado

    pergunta respondeu ao arldin de arldin em Access

    obrigado
  18. arldin

    Mudar a cor de um dado

    pergunta respondeu ao arldin de arldin em Access

    Eu já fiz isto O que eu estou querendo e o sequinte Quando o operador estiver conectado apareça o nome dele em outra cor que não seja a do padrão preto
  19. arldin
    Boa tarde amigos Eu tenho uma tabela no access, com os sequinte dados abaixo Online CompanyName OperadorName AdminPassord Login Nivel id o_online o_ocupado Departamneto O que eu gostaria de saber e o sequinte Quando o Operador esta conectado ele aparece mais na cor preta(que e a cor da tabela padrão do access), teria como alterar a cor do dado"OperadorName". Desde já agradelo a todos
  20. arldin

    script de enquete

    pergunta respondeu ao arldin de arldin em ASP

    Abri um popup
  21. arldin

    script de enquete

    pergunta respondeu ao arldin de arldin em ASP

    Amigos deixe este script e estou com este outro Ele funciona bem, aparece na minha pagina como queria, O que eu estou precisando agora e o sequinte Quando vota-se ao invés de ela torna abri a pagina abri-se ao lado Como possso fazer isto o script e este <% ' Ready Poll from Internet Plus Egypt ' http://www.ip-egypt.com/english ' Simply, include this file into any ASP file! ' Change the following number to any table width you want width = 150 ' Set Cookies check to Yes or No (If Yes, nobody can vote twice for the same poll) Cookiess = "Yes" ' Set the path to your database filePath = Server.MapPath("poll.mdb") Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath set rst=server.createobject("adodb.recordset") Query = "select Top 1 * from Poll order by PollID Desc" rst.open Query, oConn, 1, 2 If rst.EOF then Response.Write "<p>No poll in db</p>" Else %> <% If Request.Form("Submit").Count > 0 then If Request.Form("PollOption") <> "" then If (Request.Cookies("ReadyPoll")) <> rst("PollName") or Cookiess = "No" then Response.Cookies("ReadyPoll") = rst("PollName") rst("PollOption" & CInt(Request.Form("PollOption")) & "Rank") = rst("PollOption" & CInt(Request.Form("PollOption")) & "Rank") + 1 rst("Total") = rst("Total") + 1 rst.Update Msg = "Your vote was counted." Else Msg = "You have voted before!" End If Else Msg = "Your vote was not counted!" end if end if If Request.Form("Submit").Count > 0 or Request.QueryString("p") = "Results" then %> <table width=<%=width%> border="2" cellspacing="0" cellpadding="0" align="center" bordercolor="#999999" bgcolor="#999999"> <tr> <td> <table width=<%=width%> border="0" cellspacing="1" cellpadding="1" align="center" bordercolor="#FFFFFF"> <tr> <td bgcolor="#999999"><b><font color=white><%=rst("PollQuestion")%></font></b></td> </tr> <% For i = 1 to rst("PollOptions") %> <tr> <td bgcolor="#CCCCCC"> <%= rst("PollOption" & i ) %></td> </tr> <tr> <td bgcolor="#CCCCCC"> <img src=poll.gif height=10 width=<% If rst("Total") <> 0 then Response.Write ((rst("PollOption" & i & "Rank") / rst("Total")) * width) else Response.Write "0" end if %> alt="<%=rst("PollOption" & i & "Rank")%> votes: <% If rst("Total") <> 0 then Response.Write ((rst("PollOption" & i & "Rank") / rst("Total")) * 100) else Response.Write "0" End if %>%"></td> </tr> <% Next %> <tr> <td bgcolor="#999999"> <table width=<%=width%> border="0" cellspacing="0" cellpadding="0"> <tr> <td width="50%"><b><font size="-1" color="#FFFFFF">Total: <%=rst("Total")%></font></b></td> <td width="50%"><font size="-1"><b><a href="java script:history.go(-1);"><font color="#CCCCCC">Poll</font></a></b></font></td> </tr> <tr bgcolor="#CCCCCC"> <td colspan="2"><font size="-2"><%=Msg%></font></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> <% Else %> <form name="form1" method="post" action="#"> <table width=<%=width%> border="2" cellspacing="0" cellpadding="0" align="center" bordercolor="#999999" bgcolor="#999999"> <tr> <td> <table width=<%=width%> border="0" cellspacing="1" cellpadding="1" align="center" bordercolor="#FFFFFF"> <tr> <td bgcolor="#999999"><b><font color=white><%=rst("PollQuestion")%></font></b></td> </tr> <% For i = 1 to rst("PollOptions") %> <tr> <td bgcolor="#CCCCCC"> <input type="radio" name="PollOption" value=<%=i%>> <%= rst("PollOption" & i ) %></td> </tr> <% Next %> <tr> <td bgcolor="#999999"> <table width=<%=width%> border="0" cellspacing="0" cellpadding="0"> <tr> <td width="50%"> <input type="submit" name="Submit" value="Vote!"> </td> <td width="50%"><font size="-1"><b><a href="?p=Results"><font color="#CCCCCC">Results</font></a></b></font></td> </tr> </table> </td> </tr> </table> </td> </tr> </table> </form> <% End If %> <% End If rst.Close oConn.Close %> Desde já agradeço a todos Para visualizar o link e enquete
  22. arldin

    script de enquete

    pergunta respondeu ao arldin de arldin em ASP

    Obrigado
  23. arldin

    script de enquete

    pergunta respondeu ao arldin de arldin em ASP

    Sim
  24. arldin

    script de enquete

    uma questão postou arldin ASP

    Bom dia amigos gostaria de uma ajuda neste script de enquete ele funciona mais guando eu envio ele me da esta resposta 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. O script e este enquete.asp <% '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="enquete.asp"> <p><font color="#0033FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> QUAL O TEMA QUE você MAIS GOSTOU?</strong></font></p> <p> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <input type="radio" value="1" name="u_input"> <font color="#0033FF">CINDERELA<br> <input type="radio" value="2" name="u_input" > CIRCO<br> <input type="radio" value="3" name="u_input" > BARBIE<br> <input type="radio" value="4" name="u_input"> DALMATAS<br> <input type="radio" value="5" name="u_input"> HOMEM ARANHA<br> <input type="radio" value="6" name="u_input"> BRANCA DE NEVE<br> <input type="radio" value="7" name="u_input"> TODOS</font></strong></font></p> <p> <input type="submit" value="Enviar" > <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/enquetes.mdb" & 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> <td width="136%" bgcolor="#FFFFFF" align="left" colspan="3"> <font color="#0033FF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> QUAL O TEMA QUE você MAIS GOSTOU?</strong></font></td> </tr> <tr> <td width="34%" bgcolor="#E8E8E8" align="left"><strong> <font face="Verdana" size="1" color="#0033FF"> opção </font></strong></td> <td width="27%" bgcolor="#E8E8E8" align="left"> <p align="left"><font face="Verdana" size="1" color="#0033FF"><strong> Votos </strong></font></td> <td width="75%" bgcolor="#E8E8E8" align="left"> <strong style="font-weight: 400"><font face="Verdana" size="1"> Percentual</font></strong></td> </tr> <tr> <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"> <strong> CINDERELA</strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total1%></font></td> <td width="75%"> <font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/red.jpg" height="10" width= "<%= (total1/contador)*100 %>"> <%= formatnumber((total1/contador)*100,1) %>% </strong></font></td> </tr> <tr> <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <font color="#0033FF">CIRCO </font></strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total2%></font></td> <td width="75%"> <font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/yellow.jpg" height="10" width= "<%= (total2/contador)*100 %>"> <%= formatnumber((total2/contador)*100,1) %>% </strong></font></td> </tr> <tr> <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <font color="#0033FF">BARBIE </font></strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total3%></font></td> <td width="75%"> <font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/green.jpg" height="10" width= "<%= (total3/contador)*100 %>"> <%= formatnumber((total3/contador)*100,1) %>% </strong></font></td> </tr> <tr> <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <font color="#0033FF">DALMATAS </font></strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total4%></font></td> <td width="75%"> <font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/blue.jpg" height="10" width= "<%= (total4/contador)*100 %>"> <%= formatnumber((total4/contador)*100,1) %>% </strong></font></td> </tr> <tr> <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <font color="#0033FF">HOMEM ARANHA </font></strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total5%></font></td> <td width="75%"> <font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/pink.jpg" height="10" width= "<%= (total5/contador)*100 %>"> <%= formatnumber((total4/contador)*100,1) %>% </strong></font></td> </tr> <tr> <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <font color="#0033FF">BRANCA DE NEVE </font></strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total6%></font></td> <td width="75%"> <font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/grey.jpg" height="10" width= "<%= (total6/contador)*100 %>"> <%= formatnumber((total4/contador)*100,1) %>% </strong></font></td> </tr> <tr> <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <font color="#0033FF">TODOS </font></strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total7%></font></td> <td width="75%"> <font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/black.jpg" height="10" width= "<%= (total7/contador)*100 %>"> </strong> <%= formatnumber((total4/contador)*100,1) %>% </font> </td> </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 %> alguém poderia me ajudar Besbe já agradeço a todos
  25. arldin

    WEBCALL

    pergunta respondeu ao Saddi de arldin em ASP

    Na pagina script.asp Voce tem que colocar o caminho a onde estão as imagens Pois eu uso ele e funciona o script e este script.asp <!--#include file="common.asp" --> function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } <% Dim strQ,login_o strQ = Request.querystring("Q") IF strQ = "1" THEN strQ = strTxtAdminRequest ELSE strQ = "" END IF %> <% 'Set some variables Dim rsChatRequest2 'Chat request record sheet 'Open a new connection to the database adoCon.Open cString 'Create new SQL string StrSQL="SELECT * FROM tblActiveUsers WHERE IP='" & strIPAddress & "';" 'Create new record sheet set rsChatRequest2 =Server.CreateObject("ADODB.Recordset") 'Set cursor and locktypes rsChatRequest2.CursorType = 2 rsChatRequest2.LockType = 3 'Open row data where the logged in users IP equals the IP in the database rsChatRequest2.open StrSQL, CString 'Set rsChatRequest2.fields("ChatRequest")=0 rsChatRequest2.Update 'Close record sheet and clean up rsChatRequest2.Close Set rsChatRequest2 = Nothing set rs1 = server.createobject("ADODB.RecordSet") StrSq1="SELECT * FROM tblSettings" rs1.open StrSq1,cString,3,3 set rsp = server.createobject("ADODB.RecordSet") StrSqp="SELECT * FROM tblSettings where o_online = 1" rsp.open StrSqp,cString if rsp.EOF then %> document.write("<a href=#atendimento onclick=\"MM_openBrWindow('<%=strTxtDominio%>/chat1/email.asp','chat','width=400,height=320,status=no')\"><img border=0 src=<%=strTxtDominio%>/chat1/images/off.gif></a>"); <% else %> document.write("<a href=#atendimento onclick=\"MM_openBrWindow('<%=strTxtDominio%>/chat1/','chat','width=400,height=320,status=no')\"><img border=0 src=<%=strTxtDominio%>/chat1/images/on.gif></a>"); <% NomeOperador = rsp("OperatorName") login_o = rsp("login") end if 'if rs1.recordcount => CInt("3") then 'set rs0 = server.createobject("ADODB.RecordSet") 'StrSq0_0="SELECT TOP 1 * FROM tblSettings where o_ocupado <> 1 AND o_online = 1 order by id desc " 'rs0.open StrSq0_0,cString 'if rs0.EOF then %> <!--document.write("<a href=#atendimento onclick=\"MM_openBrWindow('https://seguro.emsergipe.com/atendimento/chat1/email.asp','chat','width=400,height=320,status=yes')\"><img border=0 src=https://seguro.emsergipe.com/atendimento/chat1/images/off.gif></a>");--> <% 'else %> <!--document.write("<a href=#atendimento onclick=\"MM_openBrWindow('https://seguro.emsergipe.com/atendimento/chat1/','chat','width=400,height=320,status=yes')\"><img border=0 src=https://seguro.emsergipe.com/atendimento/chat1/images/on.gif></a>");--> <% 'NomeOperador = rs0("OperatorName") 'login_o = rs0("login") 'end if 'end if %> Espero que te ajude
×
×
  • Criar Novo...