| This page is not available in your language, so the English version is shown. You can also click above to see translations of this page in other languages.
Tell your friends about this site
<%
sentone = 0
dim friends(10)
x = 5 'number of friends
default_email = Application("default_email")
Function send_to_friend(friend_email)
IF friend_email <> "" THEN
Mailer.Subject = subject
Mailer.ClearBodyText
Mailer.BodyText = message
Mailer.ClearRecipients
Mailer.AddRecipient from_name, friend_email
sendit(friend_email)
IF author_email <> default_email THEN
Mailer.ClearBodyText
Mailer.ClearRecipients
Mailer.BodyText = Replace(label_dictionary(0).item("copy_of"), "%%email%%", email) & " :"& vbCrLf & vbCrLf & message
Mailer.AddRecipient from_name, author_email
confirmit(author_email)
END IF
END IF
END Function
Function Sendit(email)
IF Mailer.SendMail then
IF sentone = 0 THEN
response.write label_dictionary(0).item("sending")&"
"
END IF
response.write "
"
response.write Replace(label_dictionary(0).item("successfully_sent"), "%%email%%", email)
sentone = 1
ELSE
Response.Write "
Mail send failure. Error was " & Mailer.Response
END IF
END function
Function Confirmit(email)
IF Mailer.SendMail then
response.write " ... " & label_dictionary(0).item("confirmed")
ELSE
Response.Write "
Mail send failure. Error was " & Mailer.Response
END IF
END function
Function URLDecode(str)
strInput =str
If strInput = null Then strInput = ""
strOutput = REPLACE(strInput, "+", " ")
strSplit = Split(strOutput, "%")
If ubound(strSplit) > 0 Then
i = 0
strOutput = strSplit(i)
Do While i < ubound(strSplit)
HexCode = "&H" & Left(strSplit(i+1),2)
Letter = CHR(HexCode)
strOutput = strOutput & Letter & Right(strSplit(i+1),len(strSplit(i+1))-2)
i = i + 1
Loop
End If
URLDecode = strOutput
End Function
FUNCTION IsEmail(sCheckEmail)
Dim sEmail, nAtLoc
IsEmail = True
sEmail = Trim(sCheckEmail)
nAtLoc = InStr(1, sEmail, "@")
If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then
IsEmail = False
ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then
IsEmail = False
ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then
IsEmail = False
ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then
IsEmail = False
End If
END FUNCTION
Function SingleDoubleQuotesClean(str)
IF NOT ISEMPTY(str) THEN
SingleDoubleQuotesClean=Replace(Replace(str, "'", "''"), chr(34), chr(34)&chr(34))
ELSE
SingleDoubleQuotesClean=str
END IF
End Function
Function SingleQuotesClean(str)
IF NOT ISEMPTY(str) THEN
SingleQuotesClean=Replace(str, "'", "''")
ELSE
SingleQuotesClean=str
END IF
End Function
IF Request.QueryString("t") = "" THEN
IF Request.Form("t") = "" THEN
title = Application("domainname")
ELSE
title = URLDecode(Request.Form("t"))
END IF
ELSE
title = URLDecode(Request.QueryString("t"))
END IF
IF Request.QueryString("r") = "" THEN
IF Request.Form("r") = "" THEN
referring_url = Application("domainname")
ELSE
referring_url = URLDecode(Request.Form("r"))
END IF
ELSE
referring_url = URLDecode(Request.QueryString("r"))
END IF
author_ip_address = request.servervariables("REMOTE_ADDR")
message_text = left(Request.Form("message_text"), 2500)
author_name = left(Request.Form("author_name"), 100)
author_email = Request.Form("author_email")
IF NOT IsEmail(author_email) THEN
author_email = default_email
END IF
get_labels_dictionary language_id, 37, 0
status = "not ok"
message_name = "Your friend %%friend_name%% tought about you when reading the page "
message_anon = "A friend of yours thought about you when reading the page "
IF author_name <> "" THEN
message1 = REPLACE(message_name, "%%friend_name%%", language_id)
ELSE
message1 = message_anon
END IF
message = message1 & " "&chr(34) & title & chr(34) & " at http://"& Application("domainname") & referring_url & vbCrLf & message
For i=1 to x
stmt="friends(i) = Request.Form(""friend_"& i &chr(34)&")"
execute stmt
IF NOT Isemail(friends(i)) THEN
friends(i)=""
ELSE
status = "ok"
END IF
NEXT
IF status = "ok" THEN
IF left(Request.Form("author_name"), 100)<>"" THEN
subject = "Recommendation from " & left(Request.Form("author_name"), 100)
from_name = left(Request.Form("author_name"), 100)
ELSE
subject = "www.switzerland.isyours.com"
from_name = "A friend of yours"
END IF
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.innerhost.com"
Mailer.FromName = from_name
Mailer.FromAddress = author_email
For i=1 to x
send_to_friend(friends(i))
NEXT
IF sentone=1 THEN
For i=1 to x
friends(i)=""
NEXT
response.write "
"
response.write label_dictionary(0).item("thanks")
END IF
%>
<%=label_dictionary(0).item("about_page")%> "<%=title%>" <%=label_dictionary(0).item("thanks")%><% Else %><%=label_dictionary(0).item("introduction")%>
<%=label_dictionary(0).item("about_page")%>"<%=title%>" <%=label_dictionary(0).item("tell_us")%><% END IF ' then display the form %> |