ASSOCIATION OF CONSULTING ENGINEERS TANZANIA (ACET)

MEMBERSHIP INFORMATION

<% Dim cn,rs,StrSQL set cn=server.createObject("ADODB.Connection") cn.Open(application("DBconn")) set rs= server.CreateObject("ADODB.Recordset") strSQL="SELECT * FROM ACET" rs.Open strSQL,cn,1,3 'set rs=cn.Execute(strSQL) %> <% do until rs.EOF Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext loop Response.Write "

Member Name	Member Type	Location	E-Mail	Postal Address	Fax	Telephone	Specialisation
" & rs("Name") & "	" & rs("MemberType") & "	" & rs("Location")& "	" & rs ("EMail") & "	" & rs("PostalAddress") & "	" & rs("Fax")& "	" & rs ("Telephone") & "	" & rs ("Specialization") & "

" %>