fcy
|
| Posted: 07/10/2002, 5:53 PM |
|
Help, this is one of those that "should work fine"
I've modified the TAF script from the example to include the URL of the requesting page in the e-mail that is sent. Instead of the referer...I get the name of the script. Any help in seeing the forest in this one would be appreciated. Thanks!!!
'-------------------------------
' TellAFriend Insert Event begin
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = getparam("to_email")
objCDO.From = getparam("from_email")
objCDO.Subject = "Web Page from " & getparam("from_name")
objCDO.Body = _
"Hello " & getparam("to_name") & "!" & chr(13) & _
chr(13) & _
getparam("from_name") & " sent you this page from the EugeneCommerce Web Site." & chr(13) & _
Request.ServerVariables("HTTP_REFERER") & chr(13) & _
chr(13) & _
"Comments from " & getparam("from_name") & ":" & chr(13) & _
getparam("comments")
cn.execute("insert into tellafriend_log (ip, sending_date, from_email, from_name, to_email, to_name, message_comments) values (" & _
tosql (Request.ServerVariables("REMOTE_HOST"), "Text") & "," & _
tosql(Now(), "Text") & "," & _
tosql(getparam("from_email"),"Text") & "," & _
tosql(getparam("from_name"),"Text") & "," & _
tosql(getparam("to_email"),"Text") & "," & _
tosql(getparam("to_name"),"Text") & "," & _
tosql(getparam("comments"),"Text") & ")")
objCDO.MailFormat = 0
objCDO.Send
' TellAFriend Insert Event end
'-------------------------------
|
|
|
 |
Alex Alexapolsky
|
| Posted: 07/11/2002, 4:48 AM |
|
This could be the case if there is no requesting page.
|
|
|
|
fcy
|
| Posted: 07/11/2002, 7:26 AM |
|
I'm linking to the script from another page. I put the the server variable in it's onw asp file and displayed the value and it worked fine. tried the same in code charge and no-go????
|
|
|
|
|
