Ciao, eccomi ancora qua!! Contento? Ecco il mio nuovo problema. Nella pagina modificalegale.asp (con la quale io vado a inserire le risposte alle domande che mi giungono) io vorrei mettere anche la possibilità, una volta cliccato il tasto modifica, di inviare una email al tizio che mi ha scritto, dicendogli che abbiamo risposto alla sua domanda e che la troverà all'indirizzo........ Ci ho provato, am come sempre non funziona. Se puoi aiutarmi anche questa volta!

Allora, io ho provato ad inserire questa nuova parte:

<%
'invio email
If request("Action")="Modifica" then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="ramaux@libero.it"
CorpoMessaggio=" Il nostro consulente legale ha risposta alla Vostra domanda. Consulatate l'archivio delle risposte all'indirizzo http://www.architetti-online.it/mail/archiviolegale.asp "

objMail.Body=CorpoMessaggio
objMail.To=" & request("x_msg") &"
objMail.Subject="www.architetti-online.it"
objMail.Send
set objMail = nothing

%>



nella pagina modificalegale.asp:




<%If Session("login") Then%>

<% 'no security checking %>
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<!--#include file="../db.asp"-->

<%
response.buffer = true

'get key
key = request.querystring("key")
if key="" or isnull(key) then
key=request.form("key")
end if
if key="" or isnull(key) then response.redirect "listalegale.asp"

'get action
a=request.form("a")
if a="" or isnull(a) then
a="I"'display with input box
end if

'get fields from form

x_id = Request.Form("x_id")
x_nome = Request.Form("x_nome")
x_email = Request.Form("x_email")
x_msg = Request.Form("x_msg")
x_risposta = Request.Form("x_risposta")

' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str

Select Case a
Case "I": ' Get a record to display

tkey = key
strsql = "SELECT * FROM [legale] WHERE [id]=" & tkey

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn
If rs.EOF Then
Response.Clear
Response.Redirect "listalegale.asp"
Else
rs.MoveFirst
End If

' Get the field contents
x_id = rs("id")
x_nome = rs("nome")
x_email = rs("email")
x_msg = rs("msg")
x_risposta = rs("risposta")

rs.Close
Set rs = Nothing

Case "U": ' Update

' Open record
tkey = key
strsql = "SELECT * FROM [legale] WHERE [id]=" & tkey

set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2

If rs.EOF Then
Response.Clear
Response.Redirect "listalegale.asp"
End If


tmpFld = Trim(x_nome)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("nome") = tmpFld
tmpFld = Trim(x_email)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("email") = tmpFld
tmpFld = Trim(x_msg)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("msg") = tmpFld
tmpFld = Trim(x_risposta)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("risposta") = tmpFld

rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Response.Clear
Response.Redirect "listalegale.asp"
End Select
%>

<!--#include file="../header.asp"-->

<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FF9900">Modifica
di un messaggio | </font><a href="../listalegale.asp"><br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFCC00">&lt;Torna
alla lista&gt;</font></a></p>

<div align="center">
<script language="JavaScript" src="../../pannellodicontrollo/ew.js"></script>
<script language="JavaScript">
<!-- start Javascript
function EW_checkMyForm(EW_this) {
return true;
}
// end JavaScript -->
</script>
</div>
<form onSubmit="return EW_checkMyForm(this);" action="../modificalegale.asp" method="post">
<p align="center">
<input type="hidden" name="a" value="U">
<input type="hidden" name="key" value="<%= key %>">
<table cellspacing="1" cellpadding="5" bgcolor="#333333" align="center">
<tr>
<td bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Id&nbsp;</font></td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><%= x_id %>&nbsp;</font></td>
</tr>
<tr>
<td bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Nome&nbsp;</font></td>
<td>
<input type="text" name="x_nome" value="<%= x_nome %>" size=30 maxlength=50>
&nbsp;</td>
</tr>
<tr>
<td bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">E-mail&nbsp;</font></td>
<td>
<input type="text" name="x_email" value="<%= x_email %>" size=30 maxlength=50>
&nbsp;</td>
</tr>
<tr>
<td bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Messaggio</font></td>
<td>
<input type="text" name="x_msg" value="<%= x_msg %>" size=30 maxlength=50>
</td>
</tr>
<tr>
<td bgcolor="#FFCC00"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">Risposta</font></td>
<td>
<input type="text" name="x_risposta" value="<%= x_risposta %>" size=30>
&nbsp;</td>
</tr>
</table>
<p align="center">
<input type="submit" name="Action" value="Modifica">
</form>

<!--#include file="../footer.asp"-->

<%Else%>

<html>
<head>
<title>Architetti online, portale italiano per la casa, l'arredamento e consulenze professionali................................................................................................................................................................................................... arredamento design consulenze pratiche catasto casa banca dati negozi italiani rubriche furniture furnishing produttori divani poltrone tavoli prodotti</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../../stile/styletestblack.css" type="text/css">
</head>

<body bgcolor="#333333">
<p class="titolopc" align="center"><b><font color="#FF9900">ACCESSO NEGATO</font></b></p>
</body>
</html>

<%End If%>


ma non mi funziona!

Ciao e grazie