% on error resume next dim str str="" str=str & "
| Details of the person requesting for "&session("code")&" | " str=str & "|||||||||||||||||||||||||||||||||||||
"
str=str & "
" 'Response.Write str Set myMail = CreateObject("CDONTS.NewMail") myRecipeint = "emscms@cms.co.in" 'myRecipeint = "salil_joshi@systime.co.in" 'myMail.BCC = "salil_joshi@systime.co.in" mySender = request.form("txtemail") if mySender = "" then mySender = "emshrd@cms.co.in" end if 'senderText = " This mail is sent you on behalf of "& Request.Form("txtSender") &" " myMail.From=mySender myMail.To=myRecipeint myMail.Subject="Resume of " & request.form("txtfirstname") &" "& request.form("txtlastname") myMail.BodyFormat=0 myMail.MailFormat=0 myMail.Body= msg &" " & str myMail.Send if Err.Description<>"" then strmsg ="ERROR - Mail not send. Please resend your Resume again" else strmsg = "Thanks for your details. Click here to see " &request.form("cd1")&" details" end if %>
|