Profile | Products | Application | Achievements | Feedback | Contact Us | Email           News Update >> Guar Gum Split

<% dim strBody strBody="" & _ "" & _ "" & _ "" & _ "
" & _ "" & _ "" & _ "" & _ "" & _ "

" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ " " & _ "MAIL FROM lotusgums.com Name : " & Request.form("name") &" Comapny : " & Request.form("company") &" Address : " & Request.form("address") & " Telephone No. : " & Request.form("telephone") & " Mobile No. : " & Request.form("mobile") & " Email Address : " & Request.form("Email") & " Suggestion : " & Request.form("suggestion") & "

" & _ ""& _ "" dim cdoConfig, cdoMessage , sFrom , sTo ,sSubject sFrom ="info@lotusgums.com" sTo ="info@lotusgums.com" 'response.Write(strbody) 'response.write(sFrom) 'response.write(sTo) 'sTo = "support@technosoftonline.com" sSubject = "Feedback From Web Site" sch = "http://schemas.microsoft.com/cdo/configuration/" '*****Please don't edit this line.***** set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "localhost" cdoConfig.fields.update set cdoMessage = Server.CreateObject("CDO.Message") set cdoMessage.Configuration = cdoConfig cdoMessage.From =sFrom cdoMessage.To = sTo cdoMessage.Subject = sSubject cdoMessage.HTMLBody =strBody '***** If you want to send mail as a HTML page ***** 'cdoMessage.TextBody ="Test Message" '***** If you want to send mail as a Text page ***** '***** Please choose one of the option from HTMLBody and TextBody as per your requirement. On Error Resume Next cdoMessage.Send if Err then sMailConfirm="Sorry! Unable to Send." Set cdoMessage = Nothing Set cdoConfig = Nothing %>