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 %>