Home | About Us | Contact Us | Query | Products
 Aditya Handicrafts
Site Map
 


 

Aditya Handicrafts
Home
    About Us
    Products
    Almirah
    Bed
    Book Shelf
    Box
    Chairs
    Dining Set
    Drawer Chest
    Dresser
    Iron Chair
    Miscellaneous
    Nest of Table
    Side Board
    Table
    Teak
    TV Cabinets
    Wine Racks
    Contact Us
    Query
    E-mail
    Links
    Site Map
     
 
Copyright ©,Aditya Handicrafts, All Rights Reserved
Designed and Hosted by: Technosoft

<% '__________________ dim strBody strBody="" & _ "" & _ "" & _ "" & _ "
" & _ "" & _ "" & _ "" & _ "" & _ "
" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "
" & _ "MAIL FROM Aditya Handicrafts
Name:" & Request.form("Name") & "
Designation:" & Request.form("designation") & "
Company:" & Request.form("Company") & "
Address:" & Request.form("Address") & "
City/State:" & Request.form("City/State") & "
Country:" & Request.form("Country") & "
Phone No." & _ ":" & Request.form("Phone no") & "
Fax No." & _ ":" & Request.form("fax") & "
e-Mail:" & Request.form("E-mail") & "
Web Site:" & Request.form("website") & "
Comments:" & Request.form("Comments") & "
  
" & _ ""& _ "" dim cdoConfig, cdoMessage , sFrom , sTo ,sSubject sFrom = Request.form("E-mail") sTo = "adityahc@sify.com" sSubject = "Mail 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 %>