Get
frequent updates as to what's going on... Subscribe!
_______________________________________________________________________
<% if request.querystring("enter")="true" then
call thankyou
else
call showform
end if %>
<% sub showform %>
<% end sub %>
<% sub thankyou %>
<%
firstname=request.form("fname")
lastname=request.form("lname")
address=request.form("address")
city=request.form("city")
state=request.form("state")
zip=request.form("zip")
email=request.form("email")
%>
<%
dim emailtext
emailtxt="You have a new subscriber! Here is your new fan: " & vbCrLf & vbCrLf
emailtxt= emailtxt & "Person's Name: " & firstname & " "& lastname & vbCrLf
emailtxt= emailtxt & "Person's Address: " & address & vbCrLf
emailtxt= emailtxt & "Person's City, State, and Zip: " & city & ", " & state & ", " & zip & vbCrLf
emailtxt= emailtxt & "Person's E-mail Address: " & email & vbCrLf
Dim SendMail
Set SendMail = Server.CreateObject("CDONTS.NewMail")
SendMail.Send email,"themantisproject@aol.com","mantis subscriber survey", emailtxt
dim emailtext2
emailtxt2="You are a new subscriber to The Mantis Project newsletter! Here is the information we received from you:" & vbCrLf & vbCrLf
emailtxt2= emailtxt2 & "Your Name: " & firstname & " " & lastname & vbCrLf
emailtxt2= emailtxt2 & "Your Address: " & address & vbCrLf
emailtxt2= emailtxt2 & "Your City, State, and Zip Code: " & city & ", " & state & ", " & zip & vbCrLf
emailtxt2= emailtxt2 & "Your E-mail Address: " & email & vbCrLf
Dim SendMail2
Set SendMail2 = Server.CreateObject("CDONTS.NewMail")
SendMail2.Send "themantisproject@aol.com", email,"mantis subscriber survey", emailtxt2
%>
<% end sub %>
|