<%@ Language=VBScript %> <%if request.Form("Submit")="Submit" then Name=request.form("Name") CompanyName=request.form("CompanyName") Industry=request.form("Industry") Address=request.form("Address") City=request.form("City") Country=request.form("Country") Email=request.form("Email") Phone=request.form("Phone") Fax=request.form("Fax") '====== check if duplication exists ================================ Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 3 RsGuestList.Open "select * from newsletter where Email='"&Email&"' " '====== duplication exists ======================================== if not RsGuestList.EOF then RsGuestList.close Msg="exists" else '====== no dublication - add new entry to database ================= RsGuestList.close Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 3 RsGuestList.Open "select * from newsletter" RsGuestList.AddNew RsGuestList("Name")= Name RsGuestList("CompanyName")= CompanyName RsGuestList("Industry")= Industry RsGuestList("Address")= Address RsGuestList("City")= City RsGuestList("Country")= Country RsGuestList("Email")= Email RsGuestList("Phone")= Phone RsGuestList("Fax")= Fax RsGuestList.Update RsGuestList.close Msg="added" end if 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:

 
 

  Newsletter Signup ..

" 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="added" then%> <%else%> <%end if%>

Your have been signed up successfully to our newsletter. You shall receive the next issue of the newsletter as well as being informed to important updated to Trans Misr website and services.
Thank you for your interest in Trans Misr.

<%'========================= Form table starts here =======================================%>

<%if Msg="exists" then%> <%end if%>
 This email has been signed up before, please change your information and submit again
 Name: *
 Company name: *
 Industry: *
 Company address: *
 City: *
 Country: *
 Email: *
 Phone: *
 Fax:

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