Project Profile for Unicorn Communications Incorporated

<%@ 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 WHERE project.projid = " & Request("id") Set objRS = objConn.Execute(strSQL) %> Project Profile for Unicorn Communications Incorporated

<% While Not objRS.EOF %> <% objRS.MoveNext Wend %>

<%= Server.HTMLEncode(Trim(objRS("projname"))) %>				<% if objRS("projnewflag") = 1 then Response.Write("NEW") else Response.Write("EXISTING") end if %>
	<%= Server.HTMLEncode(Trim(objRS("clientname"))) %>			<% if objRS("projgovflag") = 1 then Response.Write("Government") else Response.Write("Private") end if %>
		<%= Server.HTMLEncode(Trim(objRS("projlocation"))) %> <% if trim(objRS("projcountry")) <> "" then Response.Write(", " & Server.HTMLEncode(Trim(objRS("projcountry")))) end if %>
		Existing Subscribers: <%= FormatNumber(objRS("projcursubs"), 0, 0, 0, -1) %>	New Subscribers: <%= FormatNumber(objRS("projnewsubs"), 0, 0, 0, -1) %>
		Total Capacity: <%= FormatNumber(objRS("projcapacity"), 0, 0, 0, -1) %>	Cost: <%= FormatCurrency(objRS("projcost"), 0, 0, 0, -1) %>
	Problem Solved:
		<%= Replace(Server.HTMLEncode(Trim(objRS("projproblem"))), Chr(13) & Chr(10), " ") %>
	Service Provided:
		<%= Replace(Server.HTMLEncode(Trim(objRS("projservice"))), Chr(13) & Chr(10), " ") %>
	Scope:
		<%= Replace(Server.HTMLEncode(Trim(objRS("projscope"))), Chr(13) & Chr(10), " ") %>