<% page="" qs=Request.ServerVariables("query_string") if len(qs)>0 then page=right(qs, len(qs)-5) end if if page="" then page="http://www.tellisart.com" 'page=Request.form("page") if page="" then Response.Write "Error1" Response.End end if end if if Request.Form("fromEmail")="" then showForm else sendEmail end if sub showForm %>

 

  Have T. Ellis create a Personal Masterpiece for You  

 


  All you wanted to know about T. Ellis Art!  

 

 

From the list below, choose a free T. Ellis Art E-card to send to your friends. Simply fill out the form and select the painting of your choice. Within minutes they will receive their T. Ellis Art E-card in their e-mail. It's that easy!

 

Your Name
Your Email
Your Friend's Name
Your Friend's Email
Personal Message
 
Jazzy Blues
A Mother's Love
Praying Hands
Fruit Bearers


Things You Should Know  
Register For Our Newsletter  
About T Ellis Art  
In The Community  
First Time At T Ellis Art?  
 
 
Let Your friends know about T Ellis Art for the latest specials and discounts!  

Ted Ellis In Newsweek!

 
 

Copyright © 2004 T Ellis Art, Inc. All Rights Reserved.


 

<% Dim paintingImage, ecardPainting end sub sub sendEmail fromEmail=Request.Form("fromEmail") fromName=Request.Form("fromName") toEmail=Request.Form("toEmail") toName=Request.Form("toName") message=Request.Form("message") ecardPainting=Request.Form("ecardPainting") Select Case ecardPainting Case "1" paintingImage="ecard_jazzyblues.jpg" paintingName="Jazzy Blues" Case "2" paintingImage="ecard_motherslove.jpg" paintingName="A Mothers Love" Case "3" paintingImage="ecard_prayinghands.jpg" paintingName="Praying Hands" Case "4" paintingImage="ecard_fruitbearers.jpg" paintingName="Fruit Bearers" End Select page="http://www.tellisart.com" Dim oMailMessage htmlMess = "" htmlMess = htmlMess & "" htmlMess = htmlMess & "" htmlMess = htmlMess & "" htmlMess = htmlMess & "
" htmlMess = htmlMess & "
" htmlMess = htmlMess & "" htmlMess = htmlMess & "" htmlMess = htmlMess & "
"&paintingName&"

" htmlMess = htmlMess & "
T Ellis Art, Inc. E-Card presented by TowerNet.

Hello "&toName&"! This message was sent to you by:
" htmlMess = htmlMess & fromName&" at "&fromEmail&"
" htmlMess = htmlMess & "

"&message&"

" htmlMess = htmlMess & "
" htmlMess = htmlMess & "
Also at T Ellis Art...
Copyright © 2004 T Ellis Art, Inc. All Rights Reserved.
" ' Instantiate a NewMail object Set oMailMessage = Server.CreateObject("CDONTS.NewMail") ' Send an email to to@example.com from from@example.com oMailMessage.from = fromEmail oMailMessage.to = toEmail oMailMessage.subject = "T. Ellis Art E-card from "&fromName oMailMessage.BodyFormat = 0 ' HTML oMailMessage.body = htmlMess oMailMessage.Send() ' Release the NewMail object Set oMailMessage = Nothing ' Release the object %> T Ellis Art

 

  Have T. Ellis create a Personal Masterpiece for You  

 


  All you wanted to know about T. Ellis Art!  

 

 

 

An e-mail has been sent to <%=toEmail%> telling them about Tellis Art.

Thank you!

 

 

 

 

 

 


Things You Should Know  
Register For Our Newsletter  
About T Ellis Art  
In The Community  
First Time At T Ellis Art?  
 
 
Let Your friends know about T Ellis Art for the latest specials and discounts!  

Ted Ellis In Newsweek!

 
 

Copyright © 2004 T Ellis Art, Inc. All Rights Reserved.


 

<% end sub%>