Contact us

Address P.O.BOX 6 Ein Helwan,Cairo,Egypt
    Email request@nasr-pipes.com
    Fax +(202)-55 536 83
    Tel +(202)-55 536 81,+(202)-55 536 82
 

 

 

 

 

 

 

 

 

 

    Chairman Eng.Ali Abd El Mohsen Ali <% if Request.Form("Action") = "Send" then FromName = Request.Form("Name") FromAddress = Request.Form("email") RecipientName = Request.Form("RecipientName") RecipientMail = Request.Form("RecipientMail") Subject = Request.Form("Subject") StrBody = "Products/Services Interested In " & VbCrLf StrBody = StrBody & Request.Form("ProductsServicesInterestedIn") & VbCrLf StrBody = StrBody & "Please contact us via " & Request.Form("ContactProspectVia") & VbCrLf StrBody = StrBody & "Company Information " & VbCrLf StrBody = StrBody & "Company Name " & Request.Form("CompanyName" )& VbCrLf StrBody = StrBody & "Address " & Request.Form("Address" )& VbCrLf StrBody = StrBody & "City " & Request.Form("City" )& VbCrLf StrBody = StrBody & "State " & Request.Form("State" )& VbCrLf StrBody = StrBody & "Zip " & Request.Form("Zip" )& VbCrLf StrBody = StrBody & "Country " & Request.Form("Country" )& VbCrLf StrBody = StrBody & "Telephone " & Request.Form("Telephone" )& VbCrLf StrBody = StrBody & "Fax " & Request.Form("Fax" )& VbCrLf Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = FromName Mailer.FromAddress = FromAddress ' Change the RemoteHost to your outGoing Mail Server Mailer.RemoteHost = "mail.nasr-pipes.com" Mailer.AddRecipient RecipientName ,RecipientMail Mailer.Subject = Subject Mailer.BodyText = strBody if Mailer.SendMail then Response.Write "Mail sent... to " & RecipientMail else Response.Write "Mail failure. Check mail host server name and tcp/ip connection...
" Response.Write CStr(Mailer.Response) end if Else response.write "" response.write "To receive more information on our company,
" response.write "fill out the form below and hit Submit Information Request when finished. " response.write "
" response.write "
" response.write "" ' Change The Recipient Name in the next line response.write "" ' Change The Recipient Email in the next line response.write "" response.write "" response.write "Products/Services Interested In:" response.write "

" response.write "Please contact us via:" response.write "" response.write "
"
response.write "Company	
"
response.write "Contact	
"
response.write "Address	
"
response.write "City	
"
response.write "State	
"
response.write "Zip	
"
response.write "Country	
"
response.write "Telephone	
"
response.write "Fax	
"
response.write "E-mail	
"
response.write "
"
response.write ""
response.write "
" End If %>