I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2
tetrisxz
tetrisxz
il 4 febbraio 2002 alle 18:55
36 messaggi dal 16 novembre 2001
non mi uccidere,ma non mi funziona.Il bottone non fa nulla.
Ho provato a mettere dei ";" x ovviare magari ad errori di sintatti e ho scritto:
function avvisa(){
var strSelezionati
strSelezionati ="";
for (var i=0; i < form_utenti.CNC.length; i++)
{
if (form_utenti.CNC(i).checked == true)
{
if (strSelezionati !="")
{strSelezionati = strSelezionati + "," + form_utenti.CNC(i).value;
}else
{
strSelezionati = form_utenti.CNC(i).value;
}
}
}
alert(strSelezionati);
}
Ma non appare l allert.
Mi è venuto un dubbio;essendo il CNC e l input type=checkbox, inserito dentro del codice ASP, non può essere che non lo veda??
Come posso fare?
(non posso modificare il codice ASP)

graziee

sivia rossi
sivia rossi
RispondiQuoting
albis
albis
il 4 febbraio 2002 alle 19:09
1.605 messaggi dal 06 settembre 2002
prova a postare tutto il codice della pagina

FORZA LA MAGICA ROMA
FORZA LA MAGICA ROMA
RispondiQuoting
tetrisxz
tetrisxz
il 4 febbraio 2002 alle 19:22
36 messaggi dal 16 novembre 2001
<HTML>
<HEAD>
<TITLE></TITLE>
<SCRIPT LANGUAGE="Javascript">
function avvisa(){
var strSelezionati
strSelezionati ="";
for (var i=0; i < form_utenti.CNC.length; i++)
{
if (form_utenti.CNC(i).checked == true)
{
if (strSelezionati !="")
{
strSelezionati = strSelezionati + "," + form_utenti.CNC(i).value;
}else
{
strSelezionati = form_utenti.CNC(i).value;
}
}
}
alert(strSelezionati);
}
</script>
</HEAD>
<BODY>
<FORM NAME="Scheda" ACTION="DeleteUser_Cancella.asp" METHOD="GET" name=form_utenti>
<TABLE BORDER="1" CELLSPACING="0">
<TR>
<TD><B>Sel.<B></TD>
<TD><B>ID utente<B></TD>
<TD><B>Nome utente<B></TD>
<TD><B>E-Mail<B></TD>
<TD><B>Fotografie<B></TD>
</TR>
<%
Set cnCommunity=Server.CreateObject("ADODB.Connection")
Set rsUtenti=Server.CreateObject("ADODB.RecordSet")
cnCommunity.Open APP_DB_CONNECT

strSQL="SELECT strUserID, strUserName, strEMail,strPictureName FROM tblUser WHERE ysnUserDeleted=0 OR ysnUserDeleted IS NULL ORDER BY strUserID"
With rsUtenti
.Open strSQL,cnCommunity,adOpenForwardOnly,adLockReadOnly,adCmdText

If .BOF And .EOF Then
Else
Do Until .EOF
strUserID =.Fields("strUserID")
strRiga="<TR>" & vbCrLf
strRiga=strRiga & "<TD><INPUT TYPE=""CHECKBOX""
NAME=""CNC"" VALUE=""" & strUserID & """></TD>" & vbCrLf
strRiga=strRiga & "<TD>" & .Fields("strUserID") & "</TD>" & vbCrLf
strRiga=strRiga & "<TD>" & .Fields("strUserName") & "</TD></TR>"

Response.Write strRiga
.MoveNext
Loop
End If
>
</TABLE>
<br>
<input type="button" value ="prosegui" onclick="avvisa()" >
</FORM>
</BODY>
</HTML>

SPERO TANTO CHE CAPIRAI ...

sivia rossi
sivia rossi
RispondiQuoting
tetrisxz
tetrisxz
il 4 febbraio 2002 alle 19:25
36 messaggi dal 16 novembre 2001
in pratica quello che dovrei fare io (ma non sono capace)
è fare in modo che , cliccando sulle checkbox degli utenti,
e poi sul bottone,
appaia un ALERT che mi dica:
"SEI SICURO DI VOLER CANCELLARE I SEGUENTI UTENTI..(seguono i nomi degli utenti..)?"
Se clicchi OK, li cancella...altrimenti NO

sivia rossi
sivia rossi
RispondiQuoting
albis
albis
il 4 febbraio 2002 alle 19:34
1.605 messaggi dal 06 settembre 2002
tu hai scritto <FORM NAME="Scheda" ACTION="DeleteUser_Cancella.asp" METHOD="GET" name=form_utenti>

e invece dovevi scrivere
<FORM NAME="form_utenti" ACTION="DeleteUser_Cancella.asp" METHOD="GET" >
hai valorizzato due volte la proprietà name


poi dove hai scritto

Loop
End If
>
</TABLE>
<br>


dovevi scrivere

Loop
End If
%>
</TABLE>
<br>


FORZA LA MAGICA ROMA
FORZA LA MAGICA ROMA
RispondiQuoting
albis
albis
il 4 febbraio 2002 alle 19:51
1.605 messaggi dal 06 settembre 2002
comunque per fare quello che dici tù

modifica il codice così

<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE></TITLE>
<SCRIPT LANGUAGE="vbscript">
function avvisa()
dim strSelezionati
strSelezionati =""
for i = 0 to form_utenti.CNC.length -1

if form_utenti.CNC(i).checked = true then

if strSelezionati <>"" then
strSelezionati = strSelezionati & "," & form_utenti.CNC(i).className
else
strSelezionati = form_utenti.CNC(i).className
end if
end if
next
if strSelezionati <> "" then
if MsgBox("SEI SICURO DI VOLER CANCELLARE I SEGUENTI UTENTI..(" & strSelezionati & ")?", vbYesNo) = vbYes then
alert("Canc")
else
alert("No")
end if
end if

end function

</script>
</HEAD>
<BODY>
<FORM NAME="form_utenti" ACTION="DeleteUser_Cancella.asp" METHOD="GET" >
<TABLE BORDER="1" CELLSPACING="0">
<TR>
<TD><B>Sel.<B></TD>
<TD><B>ID utente<B></TD>
<TD><B>Nome utente<B></TD>
<TD><B>E-Mail<B></TD>
<TD><B>Fotografie<B></TD>
</TR>
<%
Set cnCommunity=Server.CreateObject("ADODB.Connection")
Set rsUtenti=Server.CreateObject("ADODB.RecordSet")
cnCommunity.Open APP_DB_CONNECT

strSQL="SELECT strUserID, strUserName, strEMail,strPictureName FROM tblUser WHERE ysnUserDeleted=0 OR ysnUserDeleted IS NULL ORDER BY strUserID"
With rsUtenti
.Open strSQL,cnCommunity,adOpenForwardOnly,adLockReadOnly,adCmdText

If .BOF And .EOF Then
Else
Do Until .EOF
strUserID =.Fields("strUserID")
strRiga="<TR>" & vbCrLf
strRiga=strRiga & "<TD><INPUT TYPE=""CHECKBOX"" NAME=""CNC"" class=""" & .Fields("strUserName") & """ VALUE=""" & strUserID & """></TD>" & vbCrLf
strRiga=strRiga & "<TD>" & .Fields("strUserID") & "</TD>" & vbCrLf
strRiga=strRiga & "<TD>" & .Fields("strUserName") & "</TD></TR>"

Response.Write strRiga
.MoveNext
Loop
End If
%>
</TABLE>
<br>
<input type="button" value ="prosegui" onclick="avvisa()" id=button1 name=button1>
</FORM>
</BODY>
</HTML>


FORZA LA MAGICA ROMA
FORZA LA MAGICA ROMA
RispondiQuoting
tetrisxz
tetrisxz
il 4 febbraio 2002 alle 21:32
36 messaggi dal 16 novembre 2001
ok
Grazie mille per l aiuto e per la pazienza.


sivia rossi
sivia rossi
RispondiQuoting
1 2

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.