niente.non mi funzia chris...
posto il code....
VVoVe:

form:

<%PaginaDaSpedire = request.ServerVariables("HTTP_REFERER") & request.ServerVariables("QUERY_STRING")%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/orcavacca.css" rel="stylesheet" type="text/css">
</head>

<body>
<form action="cdosys_segnala.asp" method="post" enctype="application/x-www-form-urlencoded" name="PaginaDaSpedire" id="PaginaDaSpedire">
<input type="hidden" name="PaginaDaSpedire" value="<%=PaginaDaSpedire%>">
<table width="280" border="0" class="bottonebianco">
<tr>
<th scope="col">Tuo nome </th>
<th scope="col"><input name="TuoNome" type="text" id="TuoNome"></th>
</tr>
<tr>
<th scope="col">E mail amico </th>
<th scope="col"><input name="EmailAmico" type="text" id="emailamico3"></th>
</tr>
<tr>
<th scope="col"></th>
<th scope="col"></th>
</tr>
<tr>
<th scope="col">Tua email </th>
<th scope="col"><input name="TuaEmail" type="text" id="TuaEmail"> </th>
</tr>
<tr>
<th scope="col"></th>
<th scope="col">
<div align="center">
<input type="submit" name="Submit" value="Segnala">
</div></th></tr>
</table>
</form>
</body>
</html>


Code di invio:

DIM corpoMessaggio, numeroCampi, invioA, invioDa, modulo, Oggetto, PaginaDaSpedire

Oggetto = "www.orcavacca.it " & request.form("NomeAmico") & ", " & request.form("TuoNome") & " ti ha inviato questo link."

invioDa = "info@orcavacca.it "



PaginaDaSpedire = request.form("PaginaDaSpedire")
if PaginaDaSpedire = "" then
PaginaDaSpedire = "http://www.orcavacca.it"
end if


Set xml = Server.CreateObject("Microsoft.XMLHTTP")

xml.Open "GET", PaginaDaSpedire, False
xml.Send

'*rilevo i campi del form

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & vbCrLf & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT

'* creo gli oggetti cdosys sul server e li gestisco

DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.orcavacca.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
Set .Configuration = iConf
.To = Request.Form("EmailAmico")
.From = Request.Form("TuaMail")
.Sender = invioDA
.Subject = "www.orcavacca.it" & request.form("NomeAmico") & ", " & request.form("TuoNome") & " ti ha inviato questo link."
.TextBody = Oggetto & "La pagina spedita è raggiungibile qui: "&PaginaDaSpedire&""
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</scriptnel form ho inserito sia httprefere che querystring per beccare l'id della pag?ID=65


dove sbaglio
continuo a ricevere la mail ma senza, ovviamente, link che mi necessita