<% dim strDestination : strDestination = "" 'Sends an email Dim mail Set mail = Server.CreateObject("CDO.Message") mail.From = "carly@warbweb.com" mail.Cc = "" mail.Bcc = "" 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@yahoo.com" ' mail.Cc = "iwlocal66appr@yahoo.com" 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("name") & "
" 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 %>