Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Ellen

Enquete com imagens...

Por , em ASP Clássico

Recommended Posts

Ellen    0

Ellen
Postado

Pessoal... consegui este código, mas não está dando certo... alguem pode me ajudar?

 

Página para votar:

<script language="javascript" type="text/javascript">

function validate(){

if( document.getElementById ){

if( document.getElementById( "votes_form" ) ){

var obj = document.getElementById( "votes_form" ) ;

for( var i = 0; i < obj.vote.length; i++ )

if( obj.vote.checked == true ) return true;

}

else return true ;

}

else return true ;

alert("Você deve escolher uma opção.");

return false;

}

</script>

<div id="subConteudos">

<div id="subConteudo1">

<h1>Enquete - Camiseta</h1>

 

<div class="conteudoInterna">

<p>Escolha a melhor camiseta. </p>

<table width="481" border="0" align="center">

<tr>

<td width="531"><form id="votes_form" method="post" action="enquete_psicologia_resultado.asp">

<p>

<input name="vote" type="radio" value="1" onclick="this.checked = true" id="vote1" />

<img src="../imagens/Inverno.jpg" width="136" height="116" /></p>

<p>

<input name="vote" type="radio" value="2" onclick="this.checked = true" id="vote2"/>

<img src="../imagens/Ninféias.jpg" width="133" height="105" /> </p>

<p>

<input name="vote" type="radio" value="3" onclick="this.checked = true" id="vote3" />

<img src="../imagens/Pôr-do-sol.jpg" width="132" height="108" /> </p>

<div align="center">

<input name="submit" type="submit" onclick="if( !validate() ) return false;" value="Votar" />

</div>

</form></td>

</tr>

</table>

 

</div>

</div>

</div>

E Página para resultado:

<%@ Language=VBScript%>

<%

'Aqui verificamos se a pessoa votou na enquête.

If Request.Form="" then

'Se ele não votou redirecionamos para enquete.asp

Response.Redirect "enquete.asp"

%>

 

<HTML>

<HEAD>

<TITLE>Enquete</TITLE>

</HEAD>

<BODY>

<%

Else

'guardamos em voto a informação do formulario.

voto = Request.Form("mesmo")

'Conectamos ao banco de dados.

Set oConn = Server.CreateObject ("ADODB.Connection")

Set RS = Server.CreateObject ("ADODB.RecordSet")

oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\seusite\bd\base_enquete.mdb"

sql = "SELECT * FROM enquete"

RS.Open sql, oConn, 2, 2

'Se for o primeiro voto de todos, criamos o registro para que os UPDATES funcionem.

'Este IF só vai se cumprir uma única vez. A primeira.

If RS.EOF = True Then

oConn.Execute "INSERT INTO enquete(Dado1, Dado2, Dado3) VALUES (0,0,0)"

RS.Requery

End If

'começamos a checar os dados.

If voto = "1" then

'se o If se cumprir, adicionamos um voto ao campo correspondente.

oConn.Execute "UPDATE enquete SET Dado1="&RS.Fields("Dado1")+1&""

'A linha seguinte faz um Refresh na tabela para obter os dados recentes.

RS.Requery

Response.Write "<BR>Voto somado a Front Page<BR>"

ElseIf voto = "2" then

oConn.Execute "UPDATE enquete SET Dado2="&RS.Fields("Dado2")+1&""

RS.Requery

Response.Write "<BR>Voto somado a DreamWeaver<BR>"

ElseIf voto = "3" then

oConn.Execute "UPDATE enquete SET Dado3="&RS.Fields("Dado3")+1&""

RS.Requery

Response.Write "<BR>Voto somado a GoLive<BR>"

End If

'Somamos todos os votos e vamos guarda-los em uma variável.

total = CInt(RS("Dado1"))+CInt(RS("Dado2"))+CInt(RS("Dado3"))

'Mostrar o gráfico.

%>

<TABLE ALIGN="center" WIDTH="90%" BORDER="1" CELLPADDING="0" CELLSPACING="0"><TR><TD>

<IMG HEIGHT="25" SRC="" BORDER="1" WIDTH="<%= CInt(RS("Dado1")*100/total)%>%"><BR>

<IMG HEIGHT="25" SRC="" BORDER="1" WIDTH="<%= CInt(RS("Dado2")*100/total)%>%"><BR>

<IMG HEIGHT="25" SRC="" BORDER="1" WIDTH="<%= CInt(RS("Dado3")*100/total)%>%"><BR>

</TD></TR></TABLE>

<%

'Limpamos e fechamos tudo.

RS.Close

oConn.Close

Set Rs = Nothing

Set oConn = Nothing

End If

%>

 

</BODY>

</HTML>

Esta dando este erro:

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x2c98 Thread 0x2cf0 DBC 0x58bbc0cc Jet'.

 

/espelho/graduacao_curso/enquete2.asp, line 21

 

Linha 21: oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\seusite\bd\base_enquete.mdb"

 

 

Como posso arrumar??

 

Obrigada

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito