OnBrand Media Clients, please upload your design elements (images, music, videos) to be included on the
campaign. We look forward to receiving your information.
<% strFileName = Request("f")
UserInfo = "
Name: " & Session("CNAME") & "
Company: " & Session("CCOMPANY") & "
Email: " & Session("CEMAIL") & _
"
Phone Number: " & Session("CPHONE") & "
Project Description: " & Session("CPROJECT")
Select Case Request("u")
Case 1
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = "OnBrand Uploads"
Mail.FromAddress= "uploads@onbrandmedia.com"
Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail
Mail.AddRecipient "Naldo", "naldo@odlan.com"
Mail.AddRecipient "Lisa Jones", "atlantaenterprises2005@yahoo.com"
Mail.Subject = "OnBrandMedia New Upload: " & strFileName
Mail.ContentType = "text/html"
Mail.BodyText = "
New File Upload
View file
" & UserInfo & "
"
Mail.SendMail
'Mail.Response %>
You have successfully uploaded a file.
" target="_blank" style="font-weight:normal; text-decoration:underline; color:#CC0000;">View file
<% Case 2 %>
Your upload exceeds the maximum upload size of 3MB.
<% Case 3 %>
Your upload has FAILED. Wrong client password.
<% End Select %>
<% Session.Contents.RemoveAll()
End If %>