Why the folling function executes both asp sub's?
<SCRIPT LANGUAGE="Javascript">
<!-- Beginning of JavaScript -
function verifica(opcao,certa){
alert(opcao+" "+certa)
if (opcao==certa){
Certo()
<% contar() %>
} else
{
Errado()
<% Descontar() %>
}
}
// - End of JavaScript - -->
</SCRIPT>
<%
sub Descontar()
session("pontos")=session("pontos")-session("perdepontos")
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "DSN=esabnet"
sqlstmt="update alunos set pontos="&session("pontos") &" where
nome='"&session("nome")&"'"
Set MyRs=MyConn.Execute(sqlstmt)
MyConn.Close
set MyConn=nothing
end sub %>
<%
sub Contar()
session("pontos")=session("pontos")+session("ganhapontos")
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "DSN=esabnet"
sqlstmt="update alunos set pontos="&session("pontos") &" where
nome='"&session("nome")&"'"
Set MyRs=MyConn.Execute(sqlstmt)
MyConn.Close
set MyConn=nothing
end sub %>
---
You are currently subscribed to activeserverpages as: [email protected]
To unsubscribe send a blank email to [EMAIL PROTECTED]
