<%@ Language=VBScript %> <%if request.Form("Submit")="Submit" then Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 3 RsGuestList.Open "select BusinessEmail, EmailSystem from SystemSetup where fixed=fixed" ToEmail=RsGuestList("BusinessEmail") EmailSystem=RsGuestList("EmailSystem") FromEmail=Request.Form("Email") RsGuestList.Close if Request.Form("Name")<>"" then Name="
Name: "&Request.Form("Name") else Name="
Name: N/A" end if if Request.Form("Company")<>"" then Company="
Company: "&Request.Form("Company") else Company="
Company: N/A" end if if Request.Form("Phone")<>"" then Phone="
Phone: "&Request.Form("Phone") else Phone="
Phone: N/A" end if if Request.Form("Fax")<>"" then Fax="
Fax: "&Request.Form("Fax") else Fax="
Fax: N/A" end if if Request.Form("Email")<>"" then Email="
Email: "&Request.Form("Email") else Email="
Email: N/A" end if if Request.Form("Subject")<>"" then Subject="

Subject: "&Request.Form("Subject") else Subject="

Subject: N/A" end if if Request.Form("Message")<>"" then Message=request.Form("Message") Message=Replace(Message, vbCrLf, "
") Message="
Message: "&Message else Message="
Message: N/A" end if if EmailSystem="CDONTS" then '================Email to Admin office=============== set objSendMail =CreateObject("CDONTS.NewMail") objSendMail.From = FromEmail objSendMail.To = ToEmail objSendMail.Subject ="Web Contact Form" objSendMail.Body =""&_ "MESSAGE DETAILS"&Name&Company&Phone&Fax&Email&Subject&Message&_ "" objSendMail.BodyFormat= 0 objSendMail.MailFormat = 0 objSendMail.Send Set objSendMail=Nothing elseif EmailSystem="CDO" then '================Email to Admin office (CDO) ================== Set objSendMail = CreateObject("CDO.Message") objSendMail.From = FromEmail objSendMail.To = ToEmail objSendMail.Subject ="Web Contact Form" objSendMail.HTMLBody = ""&_ "MESSAGE DETAILS"&Name&Company&Phone&Fax&Email&Subject&Message&_ "" 'objMessage.AddAttachment " " objSendMail.Send Set objSendMail=Nothing end if msg="sent" end if %> TRANS MISR shipping, clearing and trading <% '============ Random Images Function ======================================================= Function RandomImage(strPath,strDefault) On Error Resume Next Randomize Timer Dim objFSO, objFolder, objFiles, objFile Dim strFiles, strImages, strPhysical, strFile Const strValid = ".gif.jpg.png.swf" If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) strPhysical = Server.MapPath(strPath) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysical) Set objFiles = objFolder.Files For Each objFile in objFiles strFile = LCase(objFile.Name) If Instr(strValid,Right(strFile,4)) Then strFiles = strFiles & strFile & vbTab End If Next strImages = Split(strFiles,vbTab) If UBound(strImages) > 1 Then RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages))) Else RandomImage = strDefault End If End Function %>

  Date:

  About Us | Services | Rate Query | Shipment Tracking | FAQ | Careers | Contact Us
 
<%if ((session("username")="") or (session("password")="")) then %> <%else%> <%end if%>
 

 

 

User Name:

Password:

 
 

  Contact us ..

" width="160" height="100">

" width="160" height="100">

"> " pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj34" width="160" height="100" quality="High">

<%if msg="sent" then%> <%else%> <%end if%>

Your message was submitted successfully to us, we will contact you shortly regarding your message or concern. Thank you for your interest in Trans Misr.

<%'========================= Contact table starts here =======================================%>
 Head office:

8 Gamal eldin Yassin Street, El Raml station, Alexandria, Egypt
P.O. Box: 567 Alex.  / Postal Code: 21563
Phone: (203) 484-3120 / 484-1120 / 480-8444 / 487-0717
Fax: (203) 487-7111
Telex: 54536 HME-UN
Email: transmisr@transmisr.com
Website: www.transmisr.com

 
 Cairo office:

3 El Andalus Street, Behind El Meriland Park, Roxy, Cairo, Egypt
Postal Code: 11757
Tel: (202) 451-2675 / 452-8330
Email: transmisrcairo@transmisr.com
Website www.transmisr.com

 
 Contact emails:
Trans Misr transmisr@transmisr.com
Sales & marketing department sales@transmisr.com
Import department import@transmisr.com
Export department export@transmisr.com
Clearing department clearence@transmisr.com
Chartering department chartering@transmisr.com
Cairo office transmisrcairo@transmisr.com
Accounting department accounting@transmisr.com
IT department it@transmisr.com
 

  Name : 
  Company : 
  Phone : 
  Fax : 
  Email : 
  Subject : 
  Message : 

<%'========================= Form table ends here =======================================%>
PAGE TOP Terms and Conditions l Privacy Statement l Sitemap