<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Extreme Team <% strHost = "mail.my180.net" strErr = "" bSuccess = False ' We use AspUpload component to capture uploaded file and access other form items. ' Because of the special ENCTYPE attribute we can no longer use Request.Form, ' we must use Upload.Form instead. Set Upload = Server.CreateObject("Persits.Upload") Upload.IgnoreNoPost = True Upload.SetMaxSize 10000000, True Upload.OverwriteFiles=False ' capture an upload and save uploaded files (if any) in temp directory Upload.Save "d:\websites\securekxly\upload\files\extreme-team" ' We cannot use Upload.Form or Upload.Files until Upload.Save is called. ' field validation If Upload.Form("Send") <> "" Then If upload.form("date")<>"" and upload.form("name")<>"" and upload.form("phone")<>"" and upload.form("email")<>"" then Set Mail = Server.CreateObject("Persits.MailSender") Mail.From = "do-not-reply@noreply.com" Mail.FromName = "KXLY Public File Site" Mail.Host = strHost Mail.Subject = "Wired/Pepsi DJ Entry" Mail.Body = "Date: " & Upload.Form("Date")& chr(13) & chr(10)& "Name: " & Upload.Form("Name")& chr(13) & chr(10) & "Phone: " & Upload.Form("Phone")& chr(13) & chr(10)& "Email: " & Upload.Form("Email")& chr(13) & chr(10) & "Accepted Terms: " & Upload.Form("agreecheck") & chr(13) & chr(10) & chr(13) & chr(10) & "If a file was sent, it is attached to this email. See the attachment section." Mail.AddAddress "wired969@gmail.com", "Wired/Pepsi DJ" 'Mail.AddAddress "karens@kxly.com", "Karen Simmons" 'Mail.AddAddress Request.QueryString("email"), Request.QueryString("email") ' Handle attached file via Upload.Files collection. ' Check if a file was ineed uploaded If Not Upload.Files("Attachment") Is Nothing Then Mail.AddAttachment Upload.Files("Attachment").Path End If strErr = "" bSuccess = False ' We are done. Send message On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True %>



Entry Sent! Thank you!
<% ' clear values tmpdate="" tmpname="" 'tmpaddress="" 'tmpcity="" 'tmpstate="" 'tmpzip="" tmpphone="" tmpemail="" 'tmpnotes="" tmpattachment="" End If Else %>
<% Response.Write "

Please complete the following information:

" If upload.form("date")="" then Response.Write "• Date
" If upload.form("name")="" then Response.Write "• Name
" 'If upload.form("address")="" then Response.Write "• Address
" 'If upload.form("city")="" then Response.Write "• City
" 'If upload.form("state")="" then Response.Write "• State
" 'If upload.form("zip")="" then Response.Write "• Zip
" If upload.form("phone")="" then Response.Write "• Phone
" If upload.form("email")="" then Response.Write "• Email
" 'If upload.form("notes")="" then Response.Write "• Description Of Project
" If Upload.Files("Attachment")="" then Response.Write "• File
" Response.write "
Also - make sure you reselect your file!" Response.write "" tmpdate=upload.form("date") tmpname=upload.form("name") 'tmpaddress=upload.form("address") 'tmpcity=upload.form("city") 'tmpstate=upload.form("state") 'tmpzip=upload.form("zip") tmpphone=upload.form("phone") tmpemail=upload.form("email") 'tmpnotes=upload.form("notes") tmpattachment=upload.form("Attachment") %>
<% End If End If %>
Entry Form
Date
*(mm/dd/yyyy)
Name
*
Phone (area code & number with no spaces)
*
Email Address
*
Click the Browse button to select your file.


I agree to the above terms and conditions

* - Required Information