|
<%
p_name = Request.Form("p_name")
Select Case p_name
Case "P00"
p_fullname = "Not Selected"
p_user = "webmaster@acumen.co.in"
p_head = "webmaster@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P02"
p_fullname = "Asad Ansari"
p_user = "Asad.Ansari@acumen.co.in"
p_head = "Tanveer.Shaikh@acumen.co.in"
Case "P03"
p_fullname = "Arun Kumar"
p_user = "Arun Kumar@acumen.co.in"
p_head = "Rajesh.Shetty@acumen.co.in"
Case "P04"
p_fullname = "Bhavik Mistry"
p_user = "Bhavik.Mistry@acumen.co.in"
p_head = "Shawn.Crasta@acumen.co.in"
Case "P05"
p_fullname = "Devang Kanavia"
p_user = "Devang.Kanavia@acumen.co.in"
p_head = "Jayesh.Talpade@acumen.co.in"
Case "P06"
p_fullname = "Lalita Kandarpa"
p_user = "Lalita.Kandarpa@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case "P01"
p_fullname = "Aquib Siddiqui"
p_user = "Aquib.Siddiqui@acumen.co.in"
p_head = "Snehal.Kole@acumen.co.in"
Case Else
p_fullname = "Unknown"
p_user = "webmaster@acumen.co.in"
p_head = "webmaster@acumen.co.in"
End Select
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Charset = "UTF-8"
my_mail_sub = ""
my_mail_sub = my_mail_sub & p_fullname & " # "
my_mail_bdy = ""
my_mail_bdy = my_mail_bdy & " " & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & "Name : " & p_fullname & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & "Reports To : " & p_head & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & "== == == == == == == == == " & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & "Visit Date : " & Request.Form ("VisitDate") & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & "Company Name : " & Request.Form ("CompanyName") & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & "Time Taken : " & Request.Form ("TimeTaken") & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & "Activity : " & Request.Form ("ActivityName") & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & "Activity Details : " & Request.Form ("VisitDate") & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & Request.Form("t019") & Chr(13) & Chr(10)
my_mail_bdy = my_mail_bdy & "== == == == == == == == == " & Chr(13) & Chr(10)
Mail.Host = "mail.acumen.co.in"
Mail.From = "Acum@acumen.co.in"
Mail.FromName = "DWS Portal @ Acumen"
Mail.AddReplyTo "webmaster@acumen.co.in"
Mail.AddAddress p_user, p_fullname
Mail.AddCC p_head
''Mail.AddCC "jayesh.talpade@acumen.co.in", "Jayesh Talpade @ Acumen"
Mail.AddBCC "webmaster@acumen.co.in"
Mail.Subject = my_mail_sub
Mail.Body = my_mail_bdy
On Error Resume Next
Mail.Send
If Err <> 0 Then
strErr = "Error encountered: " & Err.Description & Chr(13) & Chr(10)
strErr = strErr & "Please contact Manoj Shriyan <09004616203> for a resolution!"
else
bSuccess = True
strErr = "Your inputs have been captured!"
End If
%>
Thank You!
<% Response.Write (strErr) %>
|
