Me Ajudem

[Guest - Joe -]

Aê galera to precisando de uma ajuda to com um problema e não sei se é com o banco de dados access ou com o meu projeto o problema é que mesmo quando a resposta esta errada ele soma assim meesmo a pontuação ..no BD coloquei a caixa de seleção pra marcar a resposta certa aquele sim/não .....dê uma olhada ai no codigo e vÊ se entende .........................ajudem ai ....se eu coloco if resp >= 1 ou = a 1 ele já não soma nada ..po to vacilando ...dê uma ideia ai ...so pode ser o BD mesmo ..

<%

Case Else

Dim PONTUACAO

If RESP > 1 Then

set EQUIPES = lojaDB.Execute("SELECT * FROM EQUIPES WHERE CODEQUIPE=" & EQUIPE)

PONTUACAO = EQUIPES("PONTUACAO")

lojaDB.Execute("UPDATE EQUIPES SET PONTUACAO='" & PONTUACAO + RESP & "' WHERE CODEQUIPE=" & EQUIPE )

lojaDB.Execute("UPDATE PERGUNTAS SET EQUIPE='" & EQUIPE & "' WHERE CODPERGUNTA=" & CODPERGUNTA )

lojaDB.Execute("UPDATE PERGUNTAS SET COR='" & EQUIPES("COR") & "' WHERE CODPERGUNTA=" & CODPERGUNTA )

End If

%>

[Guest - JOE -]

Aê galera to precisando de uma ajuda to com um problema e não sei se é com o banco de dados access ou com o meu projeto o problema é que mesmo quando a resposta esta errada ele soma assim meesmo a pontuação ..no BD coloquei a caixa de seleção pra marcar a resposta certa aquele sim/não .....dê uma olhada ai no codigo e vÊ se entende .........................ajudem ai ....se eu coloco if resp >= 1 ou = a 1 ele já não soma nada ..po to vacilando ...dê uma ideia ai ...so pode ser o BD mesmo ..

<%

Case Else

Dim PONTUACAO

If RESP > 1 Then

set EQUIPES = lojaDB.Execute("SELECT * FROM EQUIPES WHERE CODEQUIPE=" & EQUIPE)

PONTUACAO = EQUIPES("PONTUACAO")

lojaDB.Execute("UPDATE EQUIPES SET PONTUACAO='" & PONTUACAO + RESP & "' WHERE CODEQUIPE=" & EQUIPE )

lojaDB.Execute("UPDATE PERGUNTAS SET EQUIPE='" & EQUIPE & "' WHERE CODPERGUNTA=" & CODPERGUNTA )

lojaDB.Execute("UPDATE PERGUNTAS SET COR='" & EQUIPES("COR") & "' WHERE CODPERGUNTA=" & CODPERGUNTA )

End If

%>

Ai se puder me passar email ou MSN explico melhor ...

[pgmador]

coloca o código todo.. inclusive do form, que está chamando o asp

[Guest - JOE -]

coloca o código todo.. inclusive do form, que está chamando o asp

pagina de resposta

<%

Dim lojaDB,db_path

db_path = server.mappath("BD/jogo.mdb")

set lojaDB = Server.CreateObject("ADODB.Connection")

lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_path

lojaDB.open

Dim PERGUNTAS, CODPERGUNTA, ACAO, RESPOSTAS, EQUIPE, EQUIPES, RESP, EQUIP

CODPERGUNTA = Request.querystring("CODPERGUNTA")

ACAO = Request.querystring("ACAO")

EQUIPE = Request.form("EQUIPE")

RESP = Request.form("RESPOSTA")

%>

<tr>

<td width="785" height="434" align="center" valign="middle" background="cabecalho_arquivo/fundo.jpg">

<table border="0" cellpadding="0" cellspacing="0">

<tr>

<td height="5" style="font-size: 12px;font-family: verdana;color: #FFffff"></td>

</tr>

</table>

<table width="50%" border="1" cellpadding="2" cellspacing="0">

<%

Select Case ACAO

Case "PERGUNTA"

set PERGUNTAS = lojaDB.Execute("SELECT * FROM PERGUNTAS WHERE CODPERGUNTA = " & CODPERGUNTA)

%>

<form action="resposta.asp?CODPERGUNTA=<%=CODPERGUNTA%>&ACAO=CORRECAO" target="_parent" method="post" name="EQUIPES">

<%

while not PERGUNTAS.EOF

%>

<tr>

<td height="30" colspan="2" align="center" valign="middle" style="font-size: 12px;font-family: verdana"><b><%=PERGUNTAS("DPERGUNTA")%></b></td>

</tr>

<%

set RESPOSTAS = lojaDB.Execute("SELECT * FROM RESPOSTAS WHERE CODPERGUNTA = " & CODPERGUNTA & " ORDER BY LETRA")

while not RESPOSTAS.EOF

%>

<tr>

<td height="30" colspan="2" valign="middle" style="font-size: 12px;font-family: verdana">

<%=RESPOSTAS("LETRA")%>&nbsp;)<input name="RESPOSTA" type="radio" value="<%=RESPOSTAS("LETRA")%>">&nbsp;&nbsp;&nbsp;<b><%=RESPOSTAS("RESPOSTAS")%></b>

</td>

</tr>

<%

RESPOSTAS.movenext

wend

%>

</tr>

<%

PERGUNTAS.movenext

wend

%>

<tr>

<td width="15%" height="20" align="center" valign="middle" style="font-size: 12px;font-family: verdana; color: #00CC00"><b>Jogador:</b></td>

<td width="15%" height="20" align="center" valign="middle" style="font-size: 12px;font-family: verdana; color: #00CC00">

<select name="EQUIPE" style="font-size: 10px;font-family: verdana; color: #000000">

<%

set EQUIPES = lojaDB.Execute("SELECT * FROM EQUIPES ORDER BY NOME")

while not EQUIPES.EOF

%>

<option value="<%=EQUIPES("CODEQUIPE")%>">EQUIPE <%=EQUIPES("NOME")%></option>

<%

EQUIPES.movenext

wend

%>

</select>

</td>

</tr>

<tr>

<td colspan="2" align="center"><input name="corrigir" type="submit" value="Corrigir"></td>

</tr>

</form>

<%

Case "CORRECAO"

set PERGUNTAS = lojaDB.Execute("SELECT * FROM PERGUNTAS WHERE CODPERGUNTA = " & CODPERGUNTA)

%>

<form action="resposta.asp?CODPERGUNTA=<%=CODPERGUNTA%>&ACAO=NOVA" target="_parent" method="post" name="EQUIPES">

<%

while not PERGUNTAS.EOF

%>

<tr>

<td height="30" colspan="2" align="center" valign="middle" style="font-size: 12px;font-family: verdana"><b><%=PERGUNTAS("DPERGUNTA")%></b></td>

</tr>

<%

set RESPOSTAS = lojaDB.Execute("SELECT * FROM RESPOSTAS WHERE CODPERGUNTA = " & CODPERGUNTA & " ORDER BY LETRA")

while not RESPOSTAS.EOF

%>

<tr>

<td height="30" colspan="2" valign="middle" style="font-size: 12px;font-family: verdana">

<%

If (RESPOSTAS("LETRA") = RESP) AND (RESPOSTAS("CERTA")) Then

%>

<%=RESPOSTAS("LETRA")%>&nbsp;)<input name="RESPOSTA" type="radio" checked Value="<%=PERGUNTAS("VALOR")%>">&nbsp;&nbsp;&nbsp;<b><%=RESPOSTAS("RESPOSTAS")%> RESPOSTA CORRETA </b>

<%

End If

If (RESPOSTAS("LETRA") = RESP) AND Not(RESPOSTAS("CERTA")) Then

%>

<%=RESPOSTAS("LETRA")%>&nbsp;)<input name="RESPOSTA" type="radio" checked Value="<%=PERGUNTAS("VALOR")%>">&nbsp;&nbsp;&nbsp;<b><%=RESPOSTAS("RESPOSTAS")%> RESPOSTA ERRADA</b>

<%

End If

If (RESPOSTAS("LETRA") <> RESP) Then

%>

<%=RESPOSTAS("LETRA")%>&nbsp;)<input name="RESPOSTA" type="radio" Value="<%=PERGUNTAS("VALOR")%>">&nbsp;&nbsp;&nbsp;<b><%=RESPOSTAS("RESPOSTAS")%></b>

<%

End If

%>

</td>

</tr>

<%

RESPOSTAS.movenext

wend

%>

</tr>

<%

PERGUNTAS.movenext

wend

%>

<tr>

<td width="15%" height="20" align="center" valign="middle" style="font-size: 12px;font-family: verdana; color: #00CC00"><b>Jogador:</b></td>

<td width="15%" height="20" align="center" valign="middle" style="font-size: 12px;font-family: verdana; color: #00CC00">

<select name="EQUIPE" style="font-size: 10px;font-family: verdana; color: #000000">

<%

set EQUIPES = lojaDB.Execute("SELECT * FROM EQUIPES ORDER BY NOME")

while not EQUIPES.EOF

If cint(EQUIPE) = EQUIPES("CODEQUIPE") Then

%>

<option value="<%=EQUIPES("CODEQUIPE")%>" selected>EQUIPE <%=EQUIPES("NOME")%></option>

<%

Else

%>

<option value="<%=EQUIPES("CODEQUIPE")%>">EQUIPE <%=EQUIPES("NOME")%></option>

<%

End If

EQUIPES.movenext

wend

%>

</select>

</td>

</tr>

<tr>

<td colspan="2" align="center"><input name="Nova Pergunta" type="submit" value="Nova Pergunta"></td>

</tr>

</form>

<%

Case Else

Dim PONTUACAO

If RESP > 1 Then

set EQUIPES = lojaDB.Execute("SELECT * FROM EQUIPES WHERE CODEQUIPE=" & EQUIPE)

PONTUACAO = EQUIPES("PONTUACAO")

lojaDB.Execute("UPDATE EQUIPES SET PONTUACAO='" & PONTUACAO + RESP & "' WHERE CODEQUIPE=" & EQUIPE )

lojaDB.Execute("UPDATE PERGUNTAS SET EQUIPE='" & EQUIPE & "' WHERE CODPERGUNTA=" & CODPERGUNTA )

lojaDB.Execute("UPDATE PERGUNTAS SET COR='" & EQUIPES("COR") & "' WHERE CODPERGUNTA=" & CODPERGUNTA )

End If

%>

<script>window.location="./jogo.asp"</script>

<%

End Select

%>

</table>

</td>

</tr>

[Guest - JOE -]

codigo da pagina principal

<%

Dim lojaDB,db_path

db_path = server.mappath("BD/jogo.mdb")

set lojaDB = Server.CreateObject("ADODB.Connection")

lojaDB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_path

lojaDB.open

Dim ASSUNTO, CODPERGUNTA, ACAO

set ASSUNTO = lojaDB.Execute("SELECT * FROM ASSUNTO ORDER BY ASSUNTO")

%>

<tr>

<td width="785" height="434" align="right" valign="top" background="cabecalho_arquivo/fundo.jpg">

<table width="75%" border="0" cellpadding="0" cellspacing="0">

<tr>

<td height="5"></td>

</tr>

</table>

<table width="75%" border="1" cellpadding="2" cellspacing="2">

<%

Dim PERGUNTAS

while not ASSUNTO.EOF

%>

<tr>

<td width="15%" height="57" align="center" valign="middle" style="font-size: 12px;font-family: verdana"><b><%=ASSUNTO("ASSUNTO")%></b></td>

<%

set PERGUNTAS = lojaDB.Execute("SELECT * FROM PERGUNTAS WHERE CODASSUNTO = " & ASSUNTO("CODASSUNTO") & " ORDER BY VALOR")

while not PERGUNTAS.EOF

If PERGUNTAS("EQUIPE") < 1 Then

%>

<td width="15%" height="57" align="center" valign="middle">

<font color="#00CC00" size="4" face="Arial Black">

<a href="./resposta.asp?CODPERGUNTA=<%=PERGUNTAS("CODPERGUNTA")%>&ACAO=PERGUNTA" target="_parent"><b><%=PERGUNTAS("VALOR")%></b></a>

</font>

</td>

<%

Else

%>

<td width="15%" height="57" align="center" valign="middle">

<font color="#<%=PERGUNTAS("COR")%>" size="4" face="Arial Black">

<b><%=PERGUNTAS("VALOR")%></b>

</font>

</td>

<%

End If

PERGUNTAS.movenext

wend

%>

</tr>

<%

ASSUNTO.movenext

wend

Dim EQUIPES

set EQUIPES = lojaDB.Execute("SELECT * FROM EQUIPES ORDER BY NOME")

while not EQUIPES.EOF

%>

<tr>

<td width="15%" height="20" colspan="3" align="center" valign="middle" style="font-size: 12px;font-family: verdana; color: #<%=EQUIPES("COR")%>"><b><%=EQUIPES("NOME")%></b></td>

<td width="15%" height="20" colspan="3" align="center" valign="middle" style="font-size: 12px;font-family: verdana; color: #<%=EQUIPES("COR")%>"><b>Pontos: <%=EQUIPES("PONTUACAO")%></b></td>

</tr>

<%

EQUIPES.movenext

wend

%>

</table>

</td>

</tr>

[Guest louco do design]

po cara. ta osso ...

to manjando nada direito

[bareta]

faça o seguinte utilize no seus botões de radio:

0 pra não e -1 pra sim... e ai joga no if....

no seu codigo você ta colocando o valor do radio buton como dados vindos do bd... então assim... põe o nome do radio com o id da pergunta e os valores:

<input type="radio" name="<%=rs("id")%>" value="0"> Não

<input type="radio" name="<%=rs("id")%>" value="-1"> Sim

[Guest - JOE -]

Cara tem como você clariar um pouco mais pra mim entender melhor ..pelo menos o que tentei aqui não deu mas não sei se esta correto ....sou fraco todo em asp ...quando mais detalahado fica melhor pra mim ....beleza? to perdendo a paciência já com isso ...sei que é uma coisa boba de resolver mas não to conseguindo nem pro reza ta osso .............mesmo assim valeu ai Galera