<%
if request.form("btnSubmit") > "" then
dim Mail, Key, MailBody
MailBody = "Ticket request for Lucieawards" & vbCrLf
For Each Key in Request.Form
MailBody = MailBody & ( Key & " = " & Request.Form(Key) & vbCrLF)
Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "webmail.anet.net"
Mail.From = request.form("email")
Mail.FromName = request.form("first_name") & request.form("last_name")
'Mail.AddAddress "pedy@anet.net"
Mail.AddAddress "anne@lucieawards.com"
Mail.AddAddress "hf@anet.net"
mail.AddCustomHeader "Message-ID: <200105122010241.SM01348@photoawards.com>"
Mail.Subject = "Lucie Online Tickets Purchase"
Mail.Body = MailBody
'On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
set mail=nothing
response.redirect "thanks.asp"
end if
%>
Lucie Awards Ceremony Tickets