Community

il 24 giugno 2002 alle 22:25

2.907 messaggi dal 15 maggio 2001
Contributi

Ma se clicchi su "ok" accedi alla pagina "canc-tesserato.asp" ???

Rome Webmaster

il 24 giugno 2002 alle 22:29

38 messaggi dal 24 maggio 2002

No, rimane nella stessa pagina... E' proprio strano...

il 25 giugno 2002 alle 01:28

2.907 messaggi dal 15 maggio 2001
Contributi

E' strano che non vada nell'altra pagina....... io l'ho provato ora e quando clicco su "ok" accedo normalmente alla pagina successiva !

Prova questo codice :

<script language="JavaScript">

function cancella() {
if (confirm("Proseguire con l'eliminazione del Socio dell'Associazione?")){

self.document.form.action ="canc-tesserato.asp?c=1";
return true;
}
return false
}
</script>

<form method="post" Action="" name="form" onSubmit="javascript:return cancella()">
<input type="submit" name="Cancella" value="Cancella">

</form>

Rome Webmaster

il 25 giugno 2002 alle 15:14

38 messaggi dal 24 maggio 2002

ti rimando tutto... forse riesci a vedere quello che io non vedo..Purtroppo non mi funziona e neanche se impongo c=630 mi cancella il record con ID=630..... Sto impazzendo...



<html>
<head>

<title>Ricerca</title>

</head>

<body bgcolor="#FFFFFF" text="#000000">

<%Set rs = Server.CreateObject("ADODB.Recordset")

rs.PageSize = 10
rs.CacheSize = 5
rs.CursorLocation = 3
SQL="select * from rubrica_tesserati order by cognome, nome"
rs.open SQL,Conn,1,3
If not rs.BOF and not rs.EOF Then

If Len(Request("pagenum")) = 0 Then
rs.AbsolutePage = 1
Else
If CInt(Request("pagenum")) <= rs.PageCount Then
rs.AbsolutePage = Request("pagenum")
Else
rs.AbsolutePage = 1
End If
End If
End if
Dim abspage, pagecnt
abspage = rs.AbsolutePage
pagecnt = rs.PageCount

If Not rs.EOF Then
Response.write "" & "<br>"& vbcrlf
Response.Write "<font size=3 color=blue>Pagine Totali : <b>" & rs.PageCount & "<br></b>" & vbcrlf
Response.Write "Ti trovi alla pagina : <b>" & rs.AbsolutePage & "</b><br>" & vbcrlf
'Response.Write "Record presenti : <b>" & rs.RecordCount & "<br><br></b></font>" & vbcrlf
%>
<% for i=1 to rs.pagesize%>
<%if not rs.eof then%>

<form method="post" Action="" name="form" onSubmit="javascript:return cancella()">

<script language="JavaScript">

function cancella() {
if (confirm("Proseguire con l'eliminazione del Socio dell'Associazione?")){

self.document.form.action="canc-tesserato.asp?c=630";
return true;
}
return false;
}
</script>

<%Response.Write "<tr>"%>
Numero Tessera:<strong><%=rs("num_tessera")%></strong><br>
Nome:<strong><%=rs("nome")%></strong><br>
Cognome:<strong><%=rs("cognome")%></strong><br>
Indirizzo:<strong><%=rs("indirizzo")%></strong><br>
CAP:<strong><%=rs("cap")%></strong><br>
E-mail:<strong><%=rs("email")%></strong><br>
<input type="submit" name="Cancella" value="Cancella">

</form>
<%rs.MoveNext
end if
Next%>

<%Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=1""><font size=2>Prima Pagina</a>"
Response.Write " | "

If abspage = 1 Then
Response.Write "<span style=""color:silver;"">Pagina Precedente</span>"
Else
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=" & abspage - 1 & """>Pagina Precedente</a>"
End If
Response.Write " | "

If abspage < pagecnt Then
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=" & abspage + 1 & """>Prossima Pagina</a>"
Else
Response.Write "<span style=""color:silver;"">Prossima Pagina</span>"
End If
Response.Write " | "
Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=" & pagecnt & """>Ultima pagina</a>"
Response.Write "</div>" & vbcrlf
Else
Response.Write "Nessun record trovato!"%>

<%End If
rs.Close
Set rs = Nothing
%>

</body>
</html>

il 25 giugno 2002 alle 17:24

2.907 messaggi dal 15 maggio 2001
Contributi

Il codice in questione non serve di certo a cancellare o meno un record ........... !!! Il codice serve per inviare i dati alla pagina "canc-tesserato.asp"..... ci arrivano o no ???

Rome Webmaster

il 25 giugno 2002 alle 17:33

38 messaggi dal 24 maggio 2002

non arrivano alla pagina canc-tesserato.asp!

il 25 giugno 2002 alle 17:46

2.907 messaggi dal 15 maggio 2001
Contributi

Hai una copia On-line così che ci posso dare un'occhiatina ??

Rome Webmaster

il 25 giugno 2002 alle 22:38

38 messaggi dal 24 maggio 2002

Rome, Se mi dai il tuo indirizzo di posta ti invio lo script e il DB !

(inviami, se puoi il tuo indirizzo al seguente fedegra@supereva.it)
Fedegra