'<%@LANGUAGE="VBSCRIPT" %> '<% Response.Buffer=true %> '<% 'if request.Form("Submit")="Send Mail" then ' 'Dim strHTML ' 'strHTML = "" 'strHTML = strHTML & "
" 'strHTML = strHTML & "" 'Name1 = Request.Form("txtname") 'Designation = Request.Form("txtdesignation") 'CompanyName = Request.Form("txtcompanyname") 'Address = Request.Form("txtaddress") 'Phone = Request.Form("txtphoneno") 'Fax = Request.Form("txtfax") 'Email = Request.Form("txtemail") 'Website = Request.Form("txtwebsite") 'YourRequirement = Request.Form("txtyourrequirement") 'YourQuestion = Request.Form("txtyourquestion") ' ' 'strHTML = StrHTML & "Name : " &Name1 'strHTML = StrHTML & "Designation : " &Designation 'strHTML = StrHTML & "Company Name : " &CompanyName 'strHTML = StrHTML & "Address : " &Address 'strHTML = StrHTML & "Phone : " &Phone 'strHTML = StrHTML & "Fax: " &Fax 'strHTML = StrHTML & "Email : " &Email 'strHTML = StrHTML & "Website : " &Website 'strHTML = StrHTML & "Machine Names : " &YourRequirement 'strHTML = StrHTML & "Requirements : " &YourQuestion 'strHTML = strHTML & "" 'strHTML = strHTML & "" ' ' 'Set m = CreateObject("CDO.Message") 'm.From = Email 'm.To = "info@neoplastindia.com" 'm.Subject = "Ask the Expert Inquiry from "&CompanyName 'm.HtmlBody = strHTML ' 'm.send 'end if '%>