Ciao a tutti
ho una pagina che processa dei sondaggi
La pagina prende l'id del sondaggio e cicla tutte le domande con le possibili risposte (possono essere piu' di una) facevndo vedere di volta in volta i radio per scegliere la risposta relativa alla domanda in questione
Il problema è, che io posso avere inserito una domanda, ma NON aver messo le sue relative risposte
In questo caso va ovviamente in errore in quanto trova un record vuoto
Qualcuno che mi riesce ad aiutareper risolvere questo problema?
eccovi il codice
codice:<%@ LANGUAGE="VBSCRIPT" %> <% Immaginiperfila=1 NumeroImmagini=8 Scadenza=0 'MINUTI Registra=Request.Form("registra") 'VARIBILE DI CONTROLLO. DON'T TOUCH!!!! Set Conn = Server.CreateObject("ADODB.Connection") conn.Open Application("DBConnSysPoll") Iip=request.servervariables("REMOTE_ADDR") FNome=request.form("Nome") FCognome=request.form("Cognome") FEmail=request.form("Email") Fserie=request.form("valore") ultimosort = Request.form("ultimosort") if ultimosort = "" then ultimosort=0 ultimoid = Request.form("ultimoid") if ultimoid = "" then ultimoid=0 progressivo = Request.form("progressivo") if progressivo = "" then progressivo=0 Session("serie")=Fserie set rsConteggio = conn.Execute("select vedirisultati,count(*) from V_domande where idserie = " & Fserie & " Group by vedirisultati") quante = rsConteggio(1) rsConteggio.close set rsConteggio = nothing If session("serie") = 0 then%> <html><body> <TABLE height=100% width=100%> <TR> <TD valign=center align=center> <Font color=red size=+3>Attualmente non c'è alcuna serie da votare</Font> </TD> </TR> </TABLE> </body></html> <%else%> <% 'VISUALIZZAZIONE DOMANDE sql = "SELECT Domande.id, Domande.titolo, Domande.descrizione, Domande.sort, Serie.titolo as titolo_serie, Serie.vedirisultati" sql = sql & " FROM Domande INNER JOIN Serie ON Serie.id = Domande.idserie" sql = sql & " WHERE idserie = " & FSerie sql = sql & " AND (Domande.sort > " & ultimosort sql = sql & " OR (Domande.sort = " & ultimosort & " AND Domande.id > " & ultimoid & "))" sql = sql & " ORDER BY Domande.sort, Domande.id" set rsDomande = conn.Execute(sql) if not rsDomande.EOF then progressivo = progressivo + 1 set rs=conn.execute("select Nomefile,Didascalia,id,sort,simbolo from scelte where idserie=" & Fserie & " AND iddomanda =" & rsDomande("id") & " ORDER BY sort,id") rs.movefirst %> <script language=javascript> function controllo_voto(form){ Messaggio=''; if (form.voto.length) { index = -1; for (i = 0; i < form.voto.length; i++) { if (form.voto[i].checked) { index = i; break; } } if (index < 0){ Messaggio=Messaggio+"Occorre effettuare una scelta!\n"; } } if (Messaggio != '') {alert(Messaggio);return false;} } </script> <html><body> <center><h2><%=rsDomande("titolo_serie")%></h2></center> <center><h3>"<%=rsDomande("titolo")%>"(<%=progressivo%>/<%=quante%>)</h3></center> <center> <FORM ACTION="scheda_do.asp" METHOD=POST NAME="form" onsubmit="return controllo_voto(this);"> <INPUT TYPE=HIDDEN NAME="Nome" VALUE=<%=Fnome%>> <INPUT TYPE=HIDDEN NAME="Cognome" VALUE=<%=Fcognome%>> <INPUT TYPE=HIDDEN NAME="Email" VALUE=<%=Femail%>> <INPUT TYPE=HIDDEN NAME="valore" VALUE=<%=Fserie%>> <INPUT TYPE=HIDDEN NAME="ultimosort" VALUE=<%=rsDomande("sort")%>> <INPUT TYPE=HIDDEN NAME="ultimoid" VALUE=<%=rsDomande("id")%>> <INPUT TYPE=HIDDEN NAME="progressivo" VALUE=<%=progressivo%>> <INPUT TYPE=HIDDEN NAME="iddomanda" VALUE=<%=rsDomande("id")%>> <TABLE WIDTH=200> <% n=0 set root=conn.Execute("select cartella from admin where id in (select idadmin from serie where id="&session("serie")& ")") cartella = "http://syspoll.multimodo.com/" & root(0)& "/" & session("serie")&"/" for j=0 to (numeroimmagini/Immaginiperfila) %><TR><% for i=1 to Immaginiperfila n=n+1 if ((not rs.eof) and (n<=numeroimmagini)) then Estensione=Right(Rs("Nomefile"),3) %> <TD ALIGN=center title="<%=rs("didascalia")%>" width="15%"> </td><TD ALIGN=left title="<%=rs("didascalia")%>"> <input type="radio" name="voto" value=<%=rs.fields("id")%>> <%=rs("simbolo")%> <%'response.write(rs.fields("Didascalia"))%> </TD> <%else if rs.eof then exit for end if rs.movenext next %> </TR> <% next rsDomande.close set rsDomande=nothing rs.close set rs=nothing %> <tr><td colspan="<%=2*Immaginiperfila%>" align=center><input type="submit" value="Conferma"></td></tr> </table> </FORM> </center> <% else 'domande finite rsDomande.close set rsDomande=nothing conn.Close set conn=nothing session("registrato")=true if vedirisultati = 0 then Response.Redirect("grazie.asp?id=" & session("serie")) else Response.Redirect("grazie.asp?id=" & session("serie")) 'grafico.asp end if end if %> </body></html> <% End if conn.Close set conn=nothing %>
Rispondi quotando
