Visualizzazione dei risultati da 1 a 3 su 3

Discussione: Query Update Campo

  1. #1

    Query Update Campo

    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

  2. #2
    cerchiamo di rispettare il regolamento, per piacere.

    9) Non duplicare i messaggi, nč all'interno dello stesso forum ASP, nč scrivendo lo stesso messaggio su pių forum (crossposting).


  3. #3
    scusa non lo sapevo ...
    puoi dare un occhio alla domanda che ho fatto ieri ?

    GRAZIE

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.