Salve, sempre io...
Ho una pagina form, dove aggiungo dei dettagli...
Quando aggiungo un dettaglio, che viene stampato a video, vorrei aggiungere anche l'user dell'utente che lo ha inserito. Il Db è strutturato in 3 tabelle, una con User e Pss, una con i dettagli e l'altra la lista principale.

Sapete suggerirmi qualcosa???
con l'aiuto di Alessio è uscito questo
[B]File update-nota [B]
codice:
<%
id=request.form("id")
if id="" then id=request.querystring("id")

if request.querystring("tipo")="add" then

	if request.form("descrizione")<>"" then
	
		descrizione=replace(request.form("descrizione"), "'", "&#39;")
		descrizione=replace(descrizione, chr(13)&chr(10), "
")
		
		
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")
		SQL = "Insert Into descrizioni (descrizione, id, inserita_da) Values('"&descrizione&"', "&request.form("id")&", '"&request.form("user")&"')"
		MyConn.Execute(SQL)
		MyConn.Close
		Set MyConn = Nothing
	
	end if
  
  
end if
if request.querystring("tipo")="mod" then

	if request.form("descrizione")<>"" then
	
		descrizione=replace(request.form("descrizione"), "'", "&#39;")
		descrizione=replace(descrizione, chr(13)&chr(10), "
")
		
		
		Set MyConn=Server.CreateObject("ADODB.Connection")
		MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")
		SQL = "Update descrizioni Set descrizione= '"&descrizione&"' Where id_descrizione = "&request.form("id_descrizione")&""
		Set RS = MyConn.Execute(SQL)
		MyConn.Close
		Set MyConn = Nothing
	
	end if
  
  
end if
if request.querystring("tipo")="del" then
		
		
	Set MyConn=Server.CreateObject("ADODB.Connection")
	MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")
	SQL = "Delete * From descrizioni Where id_descrizione = "&request.form("id_descrizione")&""
	MyConn.Execute(SQL)
	MyConn.Close
	Set MyConn = Nothing
  
end if
  response.redirect "dettagli.asp?id="&id&""
%>
File dettagli
codice:


<%
'elenco dettagli utenti registrati
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Dettaglio utenti</title>
</head>

<body>
  <%
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/lista.mdb")

SQL = "select * from mailing_list where id = "&Request.QueryString("id")&""
Set RS = MyConn.Execute(SQL)
While Not RS.EOF
%>

<p align="center"><font size="7" face="Verdana, Arial, Helvetica, sans-serif" color="#6699FF">Scheda 
  Utente</font></p>
<table width="600" border="0" cellspacing="2" cellpadding="2" align="center" bgcolor="#B0CAFF">
  <tr bgcolor="#6699FF"> 
    <td colspan="3" height="104"> 
      <table width="98%" cellspacing="1" cellpadding="0" bgcolor="#FFFFFF" align="center">
        <tr> 
          <td width="12%" valign="middle"><font face="Verdana, Arial, Helvetica, sans-serif" size="4"><font color="#6699FF"><u>[img]/interfaccia/ico_lente.gif[/img] 
            <%Response.Write(rs("Societa"))%>
            </u> </font>  </font></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Citt&agrave;: 
      <%=(rs("Citta"))%> </font></td>
    <td width="101"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Cap: 
      <%=(rs("Cap"))%> </font></td>
    <td width="101"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Pr:</font> 
      <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=(rs("Provincia"))%></font></td>
  </tr>
  <tr> 
    <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Indirizzo: 
      <%=(rs("Indirizzo"))%> </font></td>
    <td width="202" colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">n&deg;:</font><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
      </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=(rs("Civico"))%></font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Tel: 
      <%=(rs("Tel"))%> </font></td>
  </tr>
  <tr> 
    <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Fax: <%=(rs("Fax"))%></font></td>
    <td width="202" colspan="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Cell: 
      <%=(rs("Cell"))%> </font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">e-mail: 
      	      <%Response.Write("<a href=""mailto:")
	      Response.Write(rs("EMail"))
	      Response.Write(""">")
	      Response.Write(rs("EMail"))%>
 </font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Categoria: 
      <%=(rs("Categoria"))%> </font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">P.IVA: 
      <%=(rs("PIva"))%> </font></td>
  </tr>
  <tr> 
    <td colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Codice 
      Fiscale: <%=(rs("CodiceFiscale"))%></font></td>
  </tr>
  <tr> 
    <td colspan="3"></td>
  </tr>
<form method="post" action="update-nota.asp?tipo=add"> 
	<tr> 
		<td colspan="3">
		<textarea name="descrizione" rows="6" style="width: 90%;"></textarea>

		<input type="submit" name="Submit" value="Aggiungi nota"><input type="hidden" name="id" value="<%=request.querystring("id")%>" /><input type="hidden" name="usr" value="<%=session("usr")%>" /> 
		</td>
	</tr>
</form>

  <tr> 
    <td colspan="3">Note già inserite</td>
  </tr>
  <%
SQL2 = "select * from descrizioni where id = "&Request.QueryString("id")&""
Set RS2 = MyConn.Execute(SQL2)
While Not RS2.EOF
descrizione=rs2("descrizione")
  %>
  <tr>
    <td colspan="3"><font color="#990000"><%=rs2("data")%> - <%=rs2("inserita_da")%> 
      -</font> <%=descrizione%></td>
  </tr>
  <tr><td colspan="3" style="font-size: 8pt;"> </td></tr>
  <%
RS2.MoveNext
Wend
RS2.Close
Set RS2 = Nothing
  %>
  <tr> 
    <td colspan="3"></td>
  </tr>
  <%
	RS.MoveNext
Wend
RS.Close
Set RS = Nothing

MyConn.Close
Set MyConn = Nothing
%>
</table>
</body>
</html>
Grazie