<% dim strDestination : strDestination = "" 'Sends an email Dim mail Set mail = Server.CreateObject("CDO.Message") mail.From = "inquiries@ironworkerstxmidsouth.com" mail.Cc = "" mail.Bcc = "BlaireN@mdsadvertising.com" Select Case Request.Querystring("subj") Case "a" mail.Subject = "Apprentice [Local " & Request.Form("Location") & "]" strDestination = "thank_you.html" Case "j" mail.Subject = "Journeyman [Local " & Request.Form("Location") & "]" strDestination = "thank_you_journeyman.html" End Select Select Case Request.Form("Location") Case "48" mail.To = "bmiwlu48@sbcglobal.net" 'mail.To = "cgloge@gmail.com" Case "58" mail.To = "iwlocal58@yahoo.com" mail.Cc = "iwlocal58appr@yahoo.com" 'mail.To = "carly@warbweb.com" Case "66" mail.To = "jiwlocal66@sbcglobal.net" mail.Cc = "iwlocal66appr@sbcglobal.net" 'mail.To = "tikitown@hotmail.com" Case "84" mail.To = "edvargocko@comcast.net" mail.Cc = "iw84@msn.com" 'mail.To = "tikitown@hotmail.com" Case "135" mail.To = "rdee135@aol.com" mail.Cc = "iw84@msn.com" 'mail.To = "tikitown@hotmail.com" Case "263" mail.To = "iwlu263ron@aol.com" mail.Cc = "iw263jac@aol.com" 'mail.To = "tikitown@hotmail.com" Case "321" mail.To = "robertgarmoe@yahoo.com" 'mail.To = "tikitown@hotmail.com" Case "469" mail.To = "iwl469@bellsouth.net" 'mail.To = "tikitown@hotmail.com" Case "482" mail.To = "iwlu482@aol.com" mail.Cc = "bobby482jatc@austin.rr.com" 'mail.To = "carly@warbweb.com" Case "584" mail.To = "ironworkers584@sbcglobal.net" 'mail.To = "tikitown@hotmail.com" Case "591" mail.To = "iwlocal591@yahoo.com" 'mail.To = "tikitown@hotmail.com" Case "623" mail.To = "dn623@hotmail.com" 'mail.To = "tikitown@hotmail.com" Case "710" mail.To = "iw710@comcast.net" 'mail.To = "tikitown@hotmail.com" End Select dim strMessage : strMessage = "" strMessage = "

Full Name: " & Request.Form("fullName") & "
" strMessage = strMessage & "Email: " & Request.Form("email") & "
" strMessage = strMessage & "Phone: " & Request.Form("phoneDigits1") strMessage = strMessage & "-" & Request.Form("phoneDigits2") strMessage = strMessage & "-" & Request.Form("phoneDigits3") & "
" strMessage = strMessage & "Comments: " & Request.Form("Comments") & "

" mail.HTMLBody = strMessage mail.Send 'Response.Write("Mail Sent!") 'Destroy the mail object! Set mail = Nothing Response.Redirect strDestination %>