% Dim msg Sub SendMail(ByVal fromEmail, ByVal subject, ByVal message) Dim smtp Set smtp = CreateObject("CDONTS.NewMail") smtp.Send fromEmail, "sales@steelcogujarat.com", subject, message, 1 Set smtp = Nothing ' not allowed to reuse it for another message End Sub 'Send Mail to us.. msg = "Inquiry from Steelco Gujarat Website" & vbNewLine msg = msg & "Area of Interest: " & Request.Form("ch")& Request.Form(" ")& Request.Form("ch1")& Request.Form(" ")& Request.Form("ch2")& Request.Form(" ")& Request.Form("ch3")& Request.Form(" ")& Request.Form("ch4")& Request.Form(" ")& Request.Form("ch5") & vbNewLine msg = msg & "Name: " & Request.Form("name") & vbNewLine msg = msg & "Designation: " & Request.Form("desgn") & vbNewLine msg = msg & "Company/Organisation: " & Request.Form("company") & vbNewLine msg = msg & "Address: " & Request.Form("addr") & vbNewLine msg = msg & " " & Request.Form("city") & vbNewLine msg = msg & " " & Request.Form("state") & vbNewLine msg = msg & " " & Request.Form("zip") & vbNewLine msg = msg & " " & Request.Form("country") & vbNewLine msg = msg & "Telephone No.: " & Request.Form("pcoun") & Request.Form("-") & Request.Form("pcc")& Request.form("-") & Request.form("phno") & vbNewLine msg = msg & "Fax No.: " & Request.Form("fcoun") & Request.Form("-") & Request.Form("fcc")& Request.form("-") & Request.form("fno") & vbNewLine msg = msg & "Email: " & Request.Form("email") & vbNewLine msg = msg & "Specific Business Query " & Request.Form("spcb") & vbNewLine msg = msg & "Other Comments: " & Request.Form("comments") & vbNewLine SendMail Request.Form("email"), "Information Request", msg %>