<%
dim email, femail1, femail2, femail3, femail4, femail5, errors, subject, note, ip, date
dim first_name, last_name, address1, address2, city, state, zip
dim conn, rs, SQLStmt, TellafriendSourceCode, tellafriendredirect
if request.querystring("e") <> "" then email = request.querystring("e")
if request.querystring("f") <> "" then first_name = request.querystring("f")
if request.querystring("l") <> "" then last_name = request.querystring("l")
if request.querystring("a1") <> "" then address1 = request.querystring("a1")
if request.querystring("a2") <> "" then address2 = request.querystring("a2")
if request.querystring("c") <> "" then city = request.querystring("c")
if request.querystring("s") <> "" then state = request.querystring("s")
if request.querystring("z") <> "" then zip = request.querystring("z")
if request.querystring("src") <> "" then tellafriendsourcecode = request.querystring("src")
if request.querystring("r") <> "" then tellafriendredirect = request.querystring("r")
'========================
'BEGIN PROCESSING SECTION
'========================
if request.querystring("action") = "process" then
email = request.form("email")
note = request.form("note")
femail1 = request.form("femail1")
femail2 = request.form("femail2")
femail3 = request.form("femail3")
femail4 = request.form("femail4")
femail5 = request.form("femail5")
tellafriendsourcecode = request.form("sourcecode")
tellafriendredirect = request.form("redirect")
ip = Request.ServerVariables("REMOTE_ADDR")
date = formatdatetime(now)
'querystring fields
first_name = request.form("first_name")
last_name = request.form("last_name")
address1 = request.form("address1")
address2 = request.form("address2")
city = request.form("city")
state = request.form("state")
zip = request.form("zip")
'=============
'VALIDATE DATA
'=============
if request.form("femail1") = "" and request.form("femail2") = "" _
and request.form("femail3") = "" and request.form("femail4") _
= "" and request.form("femail5") = "" then
errors = errors & "
Please fill in at least one friend's email address."
end if
if test(email) = False then errors = errors & "
Please enter your valid email address. "
if femail1<>"" and test(femail1) = False then
errors = errors & "
Please enter a valid email address for 'friend 1'. "
end if
if request.form("femail2")<>"" and test(femail2) = False then
errors = errors & "
Please enter a valid email address for 'friend 2'. "
end if
if request.form("femail3")<>"" and test(femail3) = False then
errors = errors & "
Please enter a valid email address for 'friend 3'. "
end if
if request.form("femail4")<>"" and test(femail4) = False then
errors = errors & "
Please enter a valid email address for 'friend 4'. "
end if
if request.form("femail5")<>"" and test(femail5) = False then
errors = errors & "
Please enter a valid email address for 'friend 5'. "
end if
'=========================
'PROCESS DATA IF NO ERRORS
'=========================
if errors = "" then
If request.form("femail1") <> "" then
subject = email + " Say's Take A Look At This!"
Call sendemail(femail1,email,"","",subject,note)
end if
If request.form("femail2") <> "" then
subject = "Take A Look At This!"
Call sendemail(femail2,email,"","",subject,note)
end if
If request.form("femail3") <> "" then
subject = "Take A Look At This!"
Call sendemail(femail3,email,"","",subject,note)
end if
If request.form("femail4") <> "" then
subject = "Take A Look At This!"
Call sendemail(femail4,email,"","",subject,note)
end if
If request.form("femail5") <> "" then
subject = "Take A Look At This!"
Call sendemail(femail5,email,"","",subject,note)
end if
'track this event in the database
OpenDB()
SQLStmt = "insert into TellaFriendTracking (email, femail1, femail2, femail3, femail4, " &_
"femail5, ip, date) values ('" & email & "','" & femail1 & "','" & femail2 & "','" _
& femail3 & "','" & femail4 & "','" & femail5 & "','" & ip & "','" & date & "')"
conn.execute(SQLStmt)
CloseDB()
'redirect user
response.redirect "http://www.myfree.com/stw/dresssanta/dress_snowman_pop.htm"
end if
end if
'=========================
'END OF PROCESSING SECTION
'=========================
%>
Tell a Friend About Dress The Snowman
Dress
The Snowman
<%
if errors <> "" then
%>
Your request was not processed due to the following errors:
<%=errors%>
Please correct your request and resubmit the form.
<% else %>
Use this form to tell your friends about this little game:
<% end if %>