Creazione di un sondaggio

**Febe85** · 11-09-2006, 13:08

Ciao a tutti!

Voglio creare un sondaggio sul sito della parrocchia che gestisco e ho seguito (o meglio copiato) il tutorial su:

http://www.lukeonweb.net/leggi.asp?id=1

Ho creato tutti i file asp (sondaggio.asp e vota.asp), le pagine html (sondaggio.htm e errore.htm) e il file di database (sondaggio.mdb).

Poi ho caricato il tutto sul mio host ma non funziona nulla, poichè compare l'errore (HTTP 500 Internal Server Error).

http://www.parrocchiasangiuliano.it/.../sondaggio.htm

Cosa posso fare?
Grazie!

**santino83_11_04** · 11-09-2006, 17:05

Active Server Pages error 'ASP 0141'

Page Command Repeated

/Oratorio/vota.asp, line 8

The @ command can only be used once within the Active Server Page.

se togli la spunta a "mostra errori http brevi" di explorer vedi tutta la descrizione....

cmq significa che in vota.asp è stato scritto due o piu volte

codice:

<%@LANGUAGE="............................"%>

**Febe85** · 11-09-2006, 19:59

Ho provato a cambiare qualcosa ma non capisco ora qual è l'errore!

Se vado a questa pagina e clicco "Vota" mi esce errore e non mi segna tra i risultati, se poi riprovo a votare mi esce "Attenzione, hai già votato"...
http://www.parrocchiasangiuliano.it/...ggio/index.asp

Vota.asp
<%@LANGUAGE = JScript%>
<%
var vota = new String(Request.Form("vota"));

var controlla = Request.Cookies("CookieSondaggio");

var scadenza = new Date();
Response.Cookies("CookieSondaggio") = scadenza.toLocaleString();

if (controlla != "") {
Response.Redirect("errore.htm");
}
else {
var Cn = new ActiveXObject("ADODB.Connection");
var Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("Copia di sondaggio.mdb");
Cn.Open(Sc);
Cn.Execute("INSERT INTO voti (voto) VALUES ('" + vota + "')");
Cn.Close();
Response.Redirect("sondaggio.asp");
}

%>

Index.asp
<%@LANGUAGE = JScript%>
<%
var Cn = new ActiveXObject("ADODB.Connection");
Cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("sondaggio.mdb"));
var titolo = Cn.Execute("SELECT titolo FROM titolo");
var domande = Cn.Execute("SELECT domanda FROM domande");
var radio = new Array("a","b","c","d","e");
var i = 0;
%>
<html>
<head>
<title>Sondaggio - www.parrocchiasangiuliano.it</title>
<style type="text/css">
h5 { color: #800000; font-family: Verdana; }
td, div { font-size: 12px; font-family: Verdana; }
a { color: #3366CC; text-decoration: None; }
a:hover { color: #FF0000; text-decoration: Underline; }
</style>
</head>
<body text="#003366">

<h5 align="center">.: Sondaggio :.</h5>

<table align="center" width="270" cellpadding="3" cellspacing="0" style="border: Solid 1px #003366;">
<form method="post" action="vota.asp">
<tr>
<td colspan="2" bgcolor="#003366" style="color: #FFFFFF;"><%=titolo("titolo")%></td>
</tr>
<%
while (!domande.EOF)
{
%>
<tr>
<td width="20"><input type="radio" name="vota" value="<%=radio[i]%>" <%radio[i] == "a" ? Response.Write("checked") : Response.Write("")%>></td>
<td width="250"><%=domande("domanda")%></td>
</tr>
<%
domande.MoveNext();
i++;
}
%>
<tr>
<td colspan="2" align="center">

<input type="submit" value=" Vota ">

Leggi i risultati
</td>
</tr>
</form>
</table>

<div align="center">www.parrocchiasangiuliano.it</div>

</body>
</html>
<%
Cn.Close();
%>

Sondaggio.asp
<%@LANGUAGE = JScript%>
<%
var Cn = new ActiveXObject("ADODB.Connection");
var Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("sondaggio.mdb");
Cn.Open(Sc);

var a_Dom = Cn.Execute("SELECT domanda FROM domande WHERE id = 1");
var b_Dom = Cn.Execute("SELECT domanda FROM domande WHERE id = 2");
var c_Dom = Cn.Execute("SELECT domanda FROM domande WHERE id = 3");
var d_Dom = Cn.Execute("SELECT domanda FROM domande WHERE id = 4");
var e_Dom = Cn.Execute("SELECT domanda FROM domande WHERE id = 5");

var a_Sql = Cn.Execute("SELECT COUNT(*) AS voto FROM voti WHERE voto = 'a'");
var b_Sql = Cn.Execute("SELECT COUNT(*) AS voto FROM voti WHERE voto = 'b'");
var c_Sql = Cn.Execute("SELECT COUNT(*) AS voto FROM voti WHERE voto = 'c'");
var d_Sql = Cn.Execute("SELECT COUNT(*) AS voto FROM voti WHERE voto = 'd'");
var e_Sql = Cn.Execute("SELECT COUNT(*) AS voto FROM voti WHERE voto = 'e'");

var TOT_Sql = Cn.Execute("SELECT COUNT(*) AS voto FROM voti WHERE voto = voto");

var a_Perc = Math.round((a_Sql("voto") / TOT_Sql("voto")) * 100);
var b_Perc = Math.round((b_Sql("voto") / TOT_Sql("voto")) * 100);
var c_Perc = Math.round((c_Sql("voto") / TOT_Sql("voto")) * 100);
var d_Perc = Math.round((d_Sql("voto") / TOT_Sql("voto")) * 100);
var e_Perc = Math.round((e_Sql("voto") / TOT_Sql("voto")) * 100);
%>
<html>
<head>
<title>Sondaggio - www.parrocchiasangiuliano.it</title>
<style type="text/css">
td, div { font-size: 12px; font-family: Verdana; }
a { color: #3366CC; text-decoration: None; }
a:hover { color: #FF0000; text-decoration: Underline; }
</style>
</head>
<body text="#003366">

<table width="550" align="center" cellpadding="5" cellspacing="0" style="border: Solid 1px #003366;">
<tr>
<td colspan="4">Risultati delle votazioni</td>
</tr>
<tr>
<td width="250"><%=a_Dom("domanda")%></td>
<td width="50"><%=a_Sql("voto")%> voti</td>
<td width="50"><%a_Sql("voto") == "" ? Response.Write("0") : Response.Write(a_Perc)%>%</td>
<td width="200">
<div style="background-color: #003366; width: <%a_Sql("voto") == "" ? Response.Write("0") : Response.Write(a_Perc)%>%;"></div>
</td>
</tr>
<tr>
<td><%=b_Dom("domanda")%></td>
<td><%=b_Sql("voto")%> voti</td>
<td><%b_Sql("voto") == "" ? Response.Write("0") : Response.Write(b_Perc)%>%</td>
<td>
<div style="background-color: #003366; width: <%b_Sql("voto") == "" ? Response.Write("0") : Response.Write(b_Perc)%>%;"></div>
</td>
</tr>
<tr>
<td><%=c_Dom("domanda")%></td>
<td><%=c_Sql("voto")%> voti</td>
<td><%c_Sql("voto") == "" ? Response.Write("0") : Response.Write(c_Perc)%>%</td>
<td>
<div style="background-color: #003366; width: <%c_Sql("voto") == "" ? Response.Write("0") : Response.Write(c_Perc)%>%;"></div>
</td>
</tr>
<tr>
<td><%=d_Dom("domanda")%></td>
<td><%=d_Sql("voto")%> voti</td>
<td><%d_Sql("voto") == "" ? Response.Write("0") : Response.Write(d_Perc)%>%</td>
<td>
<div style="background-color: #003366; width: <%d_Sql("voto") == "" ? Response.Write("0") : Response.Write(d_Perc)%>%;"></div>
</td>
</tr>
<tr>
<td><%=e_Dom("domanda")%></td>
<td><%=e_Sql("voto")%> voti</td>
<td><%e_Sql("voto") == "" ? Response.Write("0") : Response.Write(e_Perc)%>%</td>
<td>
<div style="background-color: #003366; width: <%e_Sql("voto") == "" ? Response.Write("0") : Response.Write(d_Perc)%>%;"></div>
</td>
</tr>
<tr>
<td colspan="4">Sono stati espressi <%=TOT_Sql("voto")%> voti</td>
</tr>
</table>

</body>
</html>
<%Cn.Close()%>

**santino83_11_04** · 11-09-2006, 21:17

belle pagine...

codice:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/Oratorio/Sondaggio/vota.asp, line 17

prova a cercare "query aggiornabile" sul forum e troverai le spiegazioni

Discussione: Creazione di un sondaggio

Strumenti discussione

Ricerca discussione

Visualizza

Creazione di un sondaggio

Permessi di invio