segnala ad un amico

[tse]

ciao ragazzi dovrei fare una pagina "segnala ad un amico" dove dalla pagina cliccando il link si apra una pagina dove inserire la mail a cui inviare il link

ee...non capisco come mai non mi stampi il valore e quindi il link della pagina con questo code.....???in cosa erro?

strUrl = request.ServerVariables("HTTP_REFERER") & request.ServerVariables("QUERY_STRING")

[deleted_c]

al volo

strUrl = request.ServerVariables("SERVER_NAME") & request.ServerVariables("SCRIPT_INFO") & "?" & request.querystring

[tse]

mmmmmm
in questo modo mi passa il link del form!!

invece dovrei, tramite un pulsante dettaglio dello show, andare al form, che riceve il referer del dettaglio dello show;
nel form viene inserita la mail "dell' amico" a cui segnalare e il form deve poi inviare il link alla mail indicata durante la compilazione.
dovrei quindi memorizzarmi l'indirizzo del link e passarlo al form e poi ripassarlo al codice che invia la mail.
dettaglio dello show con interrogazione ID e form sono ok....

ma il prob resta
:master:

[tse]

allora ragazzi
prelevo l'url del dettaglio dello show con querystring e http referer passando il tutto a un hiddenfield del form dove l'utente inserisce la mail dell'amico e invia...ma nonostante cio non mi funzia.
posto il code:

il form:
<input name="hiddenField" type="hidden" value=" <%request.ServerVariables("HTTP_REFERER") & request.ServerVariables("QUERY_STRING")%> "> </th>


il codice che invia la mail:
...................................
.......................
............
DIM iMsg, Flds, iConf

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

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.mydomain.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 = "Segnalazione show"
.TextBody = "link show:" & Request.Form("hiddenField") & VbcrLf & "Questo link ti è stato segnalato da un tuo amico tramite la segnalazione show di www.mydomain.it"
.Send
End With
%>
<script>
document.location.replace('grazie.asp');
</script>

ricevo la mail senza il link che avrebbe dovuto stampare.....

[tse]

[chris]

Action:

<%
PaginaDaSpedire = request.form("PaginaDaSpedire")
if PaginaDaSpedire = "" then
PaginaDaSpedire = "http://www.dominio.it/pagina.asp"
end if
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' Oppure, per la versione 3.0 di XMLHTTP, usare:
' Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Apri la connessione remota
xml.Open "GET", PaginaDaSpedire, False
' Spedisci la richiesta
xml.Send
Oggetto = "Nome Sito - " & request.form("NomeAmico") & ", " & request.form("TuoNome") & " ti ha inviato questa pagina!" 
Dim miaMail 
Set miaMail = CreateObject("CDONTS.NewMail")
' o cdosys, o quello che hai 
miaMail.From = request.form("TuaEmail")
miaMail.To = request.form("EmailAmico")
miaMail.CC = request.form("TuaEmail")
miaMail.Bcc = "webmaster@dominio.it"
miaMail.Subject = Oggetto
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0 
miaMail.Importance = 0 
miaMail.Body = Oggetto & "

" & xml.responseText & "

La pagina spedita è raggiungibile qui: "&PaginaDaSpedire&"" 
miaMail.Send 
Set miaMail = Nothing 
Set xml = Nothing
Esito = "andata a buon fine"
Operazione = "<font color='red'>invio pagina ad un amico</font>"
Response.redirect "Esito.asp?Pagina=Index&Esito=" & server.urlencode(Esito) & "&Operazione=" & server.urlencode(Operazione)
%>

e un form qualunque...

<title>NomeSito - Spedisci ad un amico!</title>
<meta name="description" content="Hai visto un'offerta imperdibile? Un prodotto interessante? Inviali ad un amico oppure alla tua casella di posta elettronica in un click!">
<%PaginaDaSpedire = request.servervariables("HTTP_REFERER")%>
  <table border="0" cellpadding="3" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
                      <tr>
                      <TD class="myTitle" width="100%" align="left" colspan="2">
                      Spedisci ad un amico
</TD>
                      </tr>
                      <tr>
                      	<td colspan="2"><form name="SpedisciAmico" method="post" action="SpedisciAdUnAmico_Action.asp"><input type="hidden" name="PaginaDaSpedire" value="<%=PaginaDaSpedire%>"></td>
                      <tr>
                      	<td colspan="2" class="medio">Spedisci ad un amico la 
                        pagina che stavi visitando! 

                        Nessuno degli indirizzi che segnalerai sarà salvato nei nostri archivi e non sarà iscritto a newsletter o venduto a terzi. </td></tr>
                          <tr>
                      	<td colspan="2"></td>
                      <tr>     
                        <td width="50%" class="small">
                        <p align="right">Tuo indirizzo e-mail</td>
                        <td width="50%"><input type="text" name="TuaEmail" size="20" class="cell" maxlength="50"></td>
                      </tr>
                      <tr>     
                        <td width="50%" class="small">
                        <p align="right">Tuo nome</td>
                        <td width="50%">
                  <input type="text" name="TuoNome" size="20" class="cell" maxlength="50"></td>
                      </tr>
                      <tr>
                        <td width="50%" class="small">
                        <p align="right">Indirizzo e-mail del tuo amico</td>
                        <td width="50%"><input type="text" name="EmailAmico" size="20" class="cell" maxlength="50"></td>
                      </tr>
                      <tr>
                        <td width="50%" class="small">
                        <p align="right">Nome del tuo amico</td>
                        <td width="50%">
                  <input type="text" name="NomeAmico" size="20" class="cell" maxlength="50"></td>
                      </tr>
                      <tr>
                        <td colspan="2">
                       

                        <p align="center">
                        <input type="submit" name="Submit" value="Spedisci!" class="button">	</form></td>
                      </tr>
                    </table>

[tse]

ah ecco si

[tse]

guarda son sempre qui....
allora ho fatto un misto fritto del tuo code e le mie esigenze
ma l'httpreferer non mi preleva l'url comprensivo di query e
mi posta il link che cmq preleva allegandomi tutta la pagina pero in formato testo!!!
ffffff


in donts indichi il formato della mail....ma cdosys..??


orca vacca

[tse]

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

[tse]