Register

Services for the Engineering Community

<% Set ad = Server.CreateObject("MSWC.AdRotator")%> <%=ad.GetAdvertisement("../adrot.txt")%>

Search for a company

Need a lawyer or accountant?!!

If you need a lawyer or accountant we can help you to find your needs.
Click here

* Fields needed

Account Information
Choose Username	*
Choose Password	*
Type Password again	*
General Information
Company Name or Your Name	*
Responsible Person	*
Address	*
City	*
Phone	*
Fax
e-mail	*
Web Address (if any)
If no web address would you like to have?	Yes No
Categories
<% Set Con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\ftp\egypteng\egypteng.com\db\egypteng.mdb" Set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.open "Select * from tendCAT ORDER BY tendCAT.CatRegion",Con set objCatid = rsCat("CATid") Set objCATName = rsCAT("CATName") 'response.write Request.Form("D1").Count Dim A Redim A(CInt(Request.Form("D1").Count)) for i =0 to Request.Form("D1").Count-1 A(i) = Request.Form("D1")(i+1) next 'for i =0 to Request.Form("D1").Count-1 ' response.write A(i) & " " 'next %> For multiple choice press ( Ctrl + Mouse Click )