<%@ Language = "VBScript" %> <% Option Explicit Response.Buffer = true Response.Expires = -1441 %> <% Dim objRS, strSQL strSQL = "SELECT project.*, client.clientname FROM client INNER JOIN project ON client.clientid = project.clientid ORDER BY project.projname" Set objRS = objConn.Execute(strSQL) %> Project List for Unicorn Communications Incorporated
 



Listed below are profiles of projects completed by
Unicorn Communications, Inc.

<% While Not objRS.EOF %> <% objRS.MoveNext Wend %>
"><%= Server.HTMLEncode(Trim(objRS("projname"))) %>
<%= Server.HTMLEncode(Trim(objRS("clientname"))) %>
<%= Server.HTMLEncode(Trim(objRS("projlocation"))) %> <% if trim(objRS("projcountry")) <> "" then Response.Write(", " & Server.HTMLEncode(Trim(objRS("projcountry")))) end if %>

©2005 Unicorn Communications Inc. All Rights Reserved