Ciao...
č possibile fare una query di update passando i valori tramite link ?
la pagina con i campo i č :
come vedete nell' ultima riga passo i valori tramite il link .
codice:
<head>
<title>INSERISCI DOCUMENTO</title>
<link href="stile.css" rel="stylesheet" type="text/css">
<script type="text/javascript" src="js/jquery.js"></script>
<script type="text/javascript" src="js/interface.js"></script>
<link href="stylemenu.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="./js/datepicker.js"></script>
<link href="./css/datepicker.css" rel="stylesheet" type="text/css" />
</head>
<SCRIPT LANGUAGE="JavaScript">
function controllo() {
var ret = true
if(document.forms['form'].elements['Tipo'].value=="") {
alert("SELEZIONARE IL TIPO DI POSTA");
ret = false;
}
else if(document.forms['form'].elements['Data_ricevimento'].value=="") {
alert('INSERIRE LA DATA DI RICEVIMENTO');
ret = false;
}
else if(document.forms['form'].elements['Mittente'].value=="") {
alert('INSERIRE IL MITTENTE');
ret = false;
}
else if(document.forms['form'].elements['Destinatario'].value=="") {
alert('INSERIRE IL DESTINATARIO');
ret = false;
}
else {
document.form.submit();
}
return ret;
}
</SCRIPT>
</head>
<body>
<p align="center">
<%
ID = request.queryString("ID")
session("ID") = ID
Mail = request.queryString("Mail")
session("Mail") = Mail
'connessione al database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("Posta.mdb")
sql = "SELECT * FROM T_Posta WHERE ID = " & ID
sqlDestinatari = "SELECT distinct Mittente FROM T_Posta" ' inserisco Distinct per fare in modo che nella tabella venga
' visualizzato solamente una sola riga per volta
sqlTipo = "SELECT Distinct Tipo FROM T_Tipo"
set rsMittente = conn.execute(sqlDestinatari)
set rsTipo = conn.execute(sqlTipo)
set rs = conn.execute(sql)
%>
<form action="Copia di Inserisci_Upload.asp" method="post" enctype="multipart/form-data" name="form">
<input type="hidden" name="id" value="<%=rs("ID")%>">
<div class="titoletto">MODIFICA POSTA</div>
<center>
<table class="text" border="1">
<tr>
<td>Tipo</td>
<td>
<select name="Tipo">
<option value="<%=rs("Tipo")%>"><%=rs("Tipo")%></option>
<%
do while not rsTipo.eof
response.write("<option value='"& rsTipo("Tipo") &"'>" & rsTipo("Tipo") &"</option>")
rsTipo.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td>Data Ricevimento</td>
<td><input READONLY name="Data_ricevimento" class="w16em dateformat-d-sl-m-sl-Y" type="text" style="width: 70px;" value="<%=rs("Data_ricevimento")%>"></input></td>
</tr>
<tr>
<td>Mittente</td>
<td><input name="Mittente" type="text" value="<%=rs("Mittente")%>"></input>
</td>
</tr>
<tr>
<td>Destinatario</td>
<td>
<select name="Destinatario">
<option value="<%=rs("Destinatario")%>"><%=rs("Destinatario")%></option>
<option value="Ammin. Manitalidea S.p.A.">Ammin. Manitalidea S.p.A.</option>
<option value="Ammin. Manital s.c.p.a.">Ammin. Manital s.c.p.a.</option>
<option value="Ammin. Coplus GS s.r.l.">Ammin. Coplus GS s.r.l.</option>
<option value="Uff. Workinglab">Uff. Workinglab</option>
</select>
</td>
</tr>
<tr>
<td>Ritirato da utente</td>
<td><input name="Ritirato_da" type="text" value="<%=rs("Ritirato_da")%>"></input>
</td>
</tr>
<tr>
<td>Data Ritiro</td>
<td><input name="Data_ritiro" type="text" value="<%=rs("Data_ritiro")%>"></input>
</td>
</tr>
<tr>
<td>Priorita</td>
<td>
<select name="Priorita" class="text">
<option value="<%=rs("Priorita")%>"><%=rs("Priorita")%></option>
<option value="Bassa">Bassa</option>
<option value="Media">Media</option>
<option value="Alta">Alta</option>
</select>
</td>
<tr>
<td>Indirizzo Mail</td>
<td><input name="Mail" type="text" value="<%=rs("Mail")%>"></input>
</td>
</tr>
<tr>
<td>Note</td>
<td><input name="Note" type="text" value="<%=rs("Note")%>"></input>
</td>
</tr>
<tr>
<td>Allegato</td>
<td><input name="Allegato" type="text" value="<%=rs("Allegato")%>"></input>
<td><input type="file" name="File1"></td>
</td>
</tr>
</p>
<tr>
<td>Stato Posta</td>
<td>
<select name="StatoPosta" class="text">
<option value="<%=rs("StatoPosta")%>"><%=rs("StatoPosta")%></option>
<option value="SI">SI</option>
<option value="NO">NO</option>
</select>
</td>
<tr>
<TD style="height: 22px" align="center">Cancella l'allegato<td align="center"><%Response.write "[img]Img//img_menu/cestino.png[/img]</img>" & vbCrLf%></TD>
</tr>
<input type="submit" value="RIAPLODA" Onclick="return controllo()">
</form>
<%Response.write "MODIFICA I CAMPI" & vbCrLf%></TD>
la pagina del modifica č :
codice:
<%
'connessione al database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
"DBQ="& Server.MapPath("Posta.mdb")
ID = Session("ID")
Mail = request.QueryString("Mail")
sql = "SELECT * FROM T_Posta WHERE ID = " & ID
set rs = CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 3
rs("Mail") = Mail
rs.update
conn.close
set conn = nothing
AzioneLog = "Modificata registrazione con ID " & Tipo & " ricevuta in data " & ID
%>
<%
'response.redirect "visualizza.asp"
%>
il problema č che non mi passa il valore modificato ....
per esempio inzizialmente passa :
http://localhost/PostaU/mo.asp?ID=61...elle@libero.it
e quando modifico :
http://localhost/PostaU/mo.asp?ID=61...elle@libero.it
dovrebbe cambiare il campo mail che viene modificato