 |
|
|
<%SELECT CASE request.querystring("mode")
CASE 1 THEN
DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mailer
strEmail = request.form("Email")
strFirstName = request.form("FirstName")
strLastName = request.form("LastName")
strSubject = request.form("Subject")
strComments = request.form("Comments")
Dim objNewMail
' First create an instance of NewMail Object
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
' After an instance of NewMail Object has been created.
' If you like you can use this one line of code to send the mail.
' objNewMail.Send From, To, Subject, Message
' or you can give every value seperate
objNewMail.From = "oliver@waldenfont.com"
objNewMail.To = strEmail
'Makes it an HTML e-mail
'objNewMail.BodyFormat = CdoBodyFormatHTML
objNewMail.MailFormat = CdoMailFormatMime
objNewMail.Subject = strSubject
objNewMail.Body = strComments
SELECT CASE request("os")
CASE "windows"
objNewMail.attachfile server.MapPath("/freebies/free/jugend.ttf"), "Jugend.ttf"
CASE "macintosh"
objNewMail.attachfile server.MapPath("/freebies/free/jugend.hqx"), "Jugend.hqx"
END SELECT
objNewMail.Send
' After the Send method, NewMail Object become Invalid
' You should set it to nothing to relase the memory
Set objNewMail = Nothing
' If you want to send another mail
' you have to create a new instance of NewMail Object again.
response.redirect "http://www.waldenfont.com/content.asp?contentpageID=10&mode=2"
CASE 2
%>
 |
| |
"Jugend" WF - a
whimsical, spidery Art Nouveau font that works great for headlines and
decorative work.
Your email has been sent! Your font should arrive in a few
minutes. If it doesn't, please check your junk mail folder.
|
|
|
|
|
Jugend WF is a TrueType (tm) font for Windows
and Macintosh. Distributed by and copyright © 1997 Walden Font Co. All
rights reserved. This product is distributed as is. No express or
implied warranties are made, especially towards the suitability of this
product for a specific purpose.
|
<%
CASE ELSE
%>
|
| |
"Jugend" WF - a
whimsical, spidery Art Nouveau font that works great for headlines and
decorative work. Please enter your email address below and choose your
operating system, then click "Submit". Your font should arrive in a few
minutes. If it doesn't, please check your junk mail folder.
|
|
|
|
|
Jugend WF is a TrueType (tm) font for Windows
and Macintosh. Distributed by and copyright © 1997 Walden Font Co. All
rights reserved. This product is distributed as is. No express or
implied warranties are made, especially towards the suitability of this
product for a specific purpose.
|
<%END SELECT%>
|
|
|
|
|
|
