<b>Flyer ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote>quote:<hr height=1 noshade id=quote>
<b>danny01 ha scritto:</b>
<BLOCKQUOTE id=quote><font size=1 face="Arial" id=quote>quote:<hr height=1 noshade id=quote>
<%
Dim cognome
cognome = request.form("cognome")
Dim nome
nome = request.form("nome")
Dim eta
eta = request.form("eta")
Dim indirizzo
indirizzo = request.form("indirizzo")
Dim residenza
residenza = request.form("residenza")
Dim email
email = request.form("email")
Dim telefono
telefono = request.form("telefono")
Dim professione
professione = request.form("professione")
Dim scoperto
scoperto = request.form("scoperto")
Dim programmi
programmi = request.form("programmi")
'imposto la connessione
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("/corpea/registrazione/archivio_corpea.mdb")
'faccio la query d'inserimento
strQuery = "INSERT INTO archivio_corpea (cognome, nome, eta, indirizzo, residenza, email, telefono, professione, scoperto, programmi)"
strQuery = strQuery & "VALUES ('" & cognome & "','" & nome & "','" & eta & "','" & indirizzo & "','" & residenza & "','" & email & "','" & telefono & "','" & professione & "','" & scoperto & "','" & programmi &"')"
Set RS=OBJdbConnection.Execute(strQuery)
strQuery1 = "select * from archivio_corpea"
Set RS=OBJdbConnection.Execute(strQuery1)
'creo l'oggetto recordset
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "archivio_corpea",OBJdbConnection,3,3
%>
<form name=Modulo action="precancella.php" method="post">
<%
Do while not RS.EOF
%>
<tr>
<td bgcolor="#666666" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<center>
<input type=checkbox name= <% response.write(id) %> >
</center>
</td>
</tr>
</table>
<td align="center" class="backtest1" height="30" colspan="2"> <span class="testonero">
<% response.write(cognome) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(nome) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(eta) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(indirizzo )%>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(residenza) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(email) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(telefono) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(professione) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(scoperto) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(programmi) %>
</span></td>
</tr>
<%
rs.moveNext
loop
RS.Close
OBJdbConnection.Close
Set RS = Nothing
%>
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>
Ciao Danny01,il problema e' dato dal fatto che nel ciclo do while..loop gli fai scrivere ogni volta i valori presi dal form e non i valori presi dai record;dove ci sono i vari response.write non devi mettere il nome del campo del form,ma il nome del record,quindi <b>programmi</b> diventera' <b>rs("programmi")</b>,<b>scoperto</b> diventa <b>rs("scoperto")</b> e cosi' via!
See yaa
,
Flyer
"E' bene considerare il mondo alla stregua di un sogno.Quando abbiamo un incubo,ci svegliamo e diciamo a noi stessi di aver solo sognato.Si dice che il mondo nel quale viviamo non sia affatto diverso" - Hagakure (II,105)
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Arial" size=2 id=quote>
grazie Flyer il tuo aiuto mi è stato molto utile, ora ti chiedo per favore di aiutarmi a risolvere quest'altro problema:
Sono riuscito a visualizzare la lista sei record (finalmente uno diverso dall' altro), ho messo, come puoi vedere dal codice di seguito una checkbox su ogni record e lo scopo è di dare la possibilità, a chi ha l'autroizzazione di vedere la lista dei record di poter selezionare "n" record e, con un messaggio di conferma, poter cancellare i record selezionati.
Spero di essere stato chiaro!
Ecco il codice.
Grazie 1000!
-----------------------------------------
<html>
<head>
<title>Corpea</title>
<link rel="stylesheet" href="../css/style.css">
</head>
<body>
<br>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bordercolor="#0033CC">
<tr>
<td bordercolor="#CCCCCC">
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<tr>
<td height="28" class="background" colspan="20">
<p class="testoblu" align="center">ELENCO DEI RECORD</p>
</td>
</tr>
<tr align="center" bgcolor="#0033CC"><font color="#FFFFFF">
<td class="titolobianco">Cancella</td>
<td class="titolobianco" colspan="2">Cognome</td>
<td class="titolobianco">Nome</td>
<td class="titolobianco">Eta</td>
<td class="titolobianco">Indirizzo</td>
<td class="titolobianco">Residenza</td>
<td class="titolobianco">Email</td>
<td class="titolobianco">Telefono</td>
<td class="titolobianco">Professione</td>
<td class="titolobianco">Scoperto</td>
<td class="titolobianco">Programmi</td>
</font></tr>
<%
Dim cognome
cognome = request.form("cognome")
Dim nome
nome = request.form("nome")
Dim eta
eta = request.form("eta")
Dim indirizzo
indirizzo = request.form("indirizzo")
Dim residenza
residenza = request.form("residenza")
Dim email
email = request.form("email")
Dim telefono
telefono = request.form("telefono")
Dim professione
professione = request.form("professione")
Dim scoperto
scoperto = request.form("scoperto")
Dim programmi
programmi = request.form("programmi")
'imposto la connessione
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("/corpea/registrazione/archivio_corpea.mdb")
strQuery1 = "select * from archivio_corpea"
Set RS=OBJdbConnection.Execute(strQuery1)
'creo l'oggetto recordset
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "archivio_corpea",OBJdbConnection,3,3
%>
<form name=Modulo action="precancella.php" method="post">
<%
Do while not RS.EOF
%>
<tr>
<td bgcolor="#666666" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<center>
<input type=checkbox name= <% response.write(id) %> >
</center>
</td>
</tr>
</table>
<td align="center" class="backtest1" height="30" colspan="2"> <span class="testonero">
<% response.write(rs("cognome")) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(rs("nome")) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(rs("eta")) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(rs("indirizzo"))%>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(rs("residenza")) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(rs("email")) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(rs("telefono")) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(rs("professione")) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(rs("scoperto")) %>
</span></td>
<td align="center" class="backtest1" height="30"> <span class="testonero">
<% response.write(rs("programmi")) %>
</span></td>
</tr>
<%
rs.moveNext
loop %>
<%
RS.Close
OBJdbConnection.Close
Set RS = Nothing
%>
<tr>
<td colspan="20" bgcolor="#0033CC" height="5">
<center>
<input type=submit value=CANCELLA>
</center>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
----------------------------------------
