<% ' change to address of your own SMTP server strHost = "localhost" If Request("Send") = "yes" Then ' change to address of your own SMTP server 'strHost = "weboart.com" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("From") Mail.FromName = Request("From") Mail.AddAddress Request("To") cuerpo = "Information received from CONTACT US" & "
" & "
" cuerpo = cuerpo & "Name: " & Request("FromName") & "
" cuerpo = cuerpo & "Email: " & Request("From") & "
" cuerpo = cuerpo & "Subject: " & Request("Subject") & "
" & "
" cuerpo = cuerpo & "Message: " & "
" & "
" cuerpo = cuerpo & Request("Body") & "
" & "
" ' message subject Mail.Subject = "Information received from Kumarco" ' message body Mail.Body = cuerpo strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If set Mail = nothing Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("op1") Mail.FromName =Request("op1") Mail.AddAddress Request("From") cuerpo = "Thank you for contacting us!" & "
" & "
" cuerpo = cuerpo & "You will receive response within 24 hrs." & "
" & "
" cuerpo = cuerpo & "Kumarco New York, Inc." & "
" cuerpo = cuerpo & "info@kumarco-usa.com" & "
" cuerpo = cuerpo & "Toll-Free: Tel (1) 212-810-4358" & "
" ' message subject Mail.Subject = "Contact information: " & Request("Subject") ' message body Mail.Body = cuerpo strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = 1 End If end if %> <% If bSuccess=1 Then %> <% End If %>