<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Ingres};SERVER=GC-CM1;DATABASE=cm_gc;SERVERTYPE=INGRES;ROLENAME=cmselect"
Sql = "SELECT cmsys.component.component_name As Name, cmsys.component.geolen, cmsys.component_type.component_type_name As Type, cmsys.component.designation_id AS des_from, cmsys.component.designation_id_to AS des_to FROM cmsys.component, cmsys.ard_attr_red, cmsys.component_type, cmsys.dfn_desig_fullname WHERE (cmsys.component_type.component_type_id = cmsys.component.component_type_id AND cmsys.dfn_desig_fullname.designation_id = cmsys.component.designation_id AND cmsys.ard_attr_red.link_id = cmsys.component.component_id) AND (((cmsys.ard_attr_red.a_value = '" & Request.QueryString("Trench") & "') AND (cmsys.component.category_id = 9) AND (cmsys.component.component_name LIKE '%a-%')))"
Set rs = Conn.Execute(Sql)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Trench Details</title>
<style type="text/css">
<!--
<style type="text/css">
<!--
body,td,th {
font-family: Tahoma, Verdana;
font-size: 11px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #e1e1e1;
}
.bdr {
border: 1px solid #C7C7C7;
}
.style2 {
font-size: 18px;
font-weight: bold;
}
.dotted {
border-bottom: 1px inset #CCCCCC;
}
-->
</style></head>
<body>
<table name="loading" id="loading" width="100%" height="100%" border="0" cellpadding="10" cellspacing="1" bgcolor="#EAEAEA" style="display:none; ">
<tr>
<td><div align="center" style="font-size:14px;"><img src="images/loadingpic.gif"><br><br><strong>Loading new location, please wait. </strong><br><br><script language="javascript">
var bar1=createBar(200,6,'white',1,'grey','#74ACE8',20,20,4,'bar1.togglePause()');
bar1.togglePause();
</script></div></td>
</tr>
</table>
<table name="main" id="main" width="100%"><tr><td>
<table width="100%" border="0" cellspacing="5" cellpadding="3">
<tr>
<td width="60%" height="63" valign="top" bgcolor="#FFFFFF" class="bdr"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="7%" height="55"><img src="Images/bigTrenchIcon.jpg" width="57" height="60"></td>
<td width="93%" class="style2"><%=UCASE(Request.QueryString("Trench"))%></td>
</tr>
</table>
</td>
</tr>
</table>
<table name="main" id="main" width="100%" border="0" cellspacing="5" cellpadding="3">
<tr>
<td width="60%" height="20" valign="top" bgcolor="#FFFFFF" class="bdr"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="110"><strong>Duct</strong></td>
<td width="65"><div align="right"><strong>Length</strong></div></td>
<td width="110"><strong> Type</strong></td>
<td width="20"><div align="center"><strong>#</strong></div></td>
<td width="110"><strong>From</strong></td>
<td> </td>
<td width="110"><strong>To</strong></td>
<td> </td>
</tr>
<% do while not rs.EOF %>
<tr>
<td><%=Rs("name")%></td>
<td><div align="right"><%=rs("geolen")%></div></td>
<td> <%=Rs("type")%> </td>
<!-- Antal Rør -->
<td><div align="center">
<%
Sql = "SELECT COUNT(*) As Total FROM cmsys.component WHERE designation_id = " & Rs("des_from") & " AND designation_id_to = " & Rs("des_to")
Set cnt = Conn.Execute(Sql)
Response.write(cnt("Total"))
Cnt.Close
Set Cnt = Nothing
%>
</div></td>
<!-- Antal Rør -->
<!-- From -->
<%
Sql = "SELECT dfn_desig_fullname.designation_id, dfn_desig_fullname.fullname, adr_object.street " & _
"FROM (cmsys.dfn_desig_fullname dfn_desig_fullname LEFT OUTER JOIN cmsys.adr_link adr_link ON dfn_desig_fullname.designation_id=adr_link.object_id) LEFT OUTER JOIN cmsys.adr_object adr_object ON adr_link.adr_id=adr_object.adr_id " & _
"WHERE dfn_desig_fullname.designation_id=" & Rs("des_from")
Set des = Conn.Execute(Sql)
%>
<td><%=des("fullname")%> </td>
<td><%=des("street")%></td>
<%
des.Close
Set des = Nothing
%>
<!-- From -->
<!-- To -->
<%
Sql = "SELECT dfn_desig_fullname.designation_id, dfn_desig_fullname.fullname, adr_object.street " & _
"FROM (cmsys.dfn_desig_fullname dfn_desig_fullname LEFT OUTER JOIN cmsys.adr_link adr_link ON dfn_desig_fullname.designation_id=adr_link.object_id) LEFT OUTER JOIN cmsys.adr_object adr_object ON adr_link.adr_id=adr_object.adr_id " & _
"WHERE dfn_desig_fullname.designation_id=" & Rs("des_to")
Set des = Conn.Execute(Sql)
%>
<td><%=des("fullname")%> </td>
<td><%=des("street")%></td>
<%
des.Close
Set des = Nothing
%>
<!-- To -->
</tr>
<%
Rs.MoveNext
Loop
%>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table name="main" id="main" width="100%" border="0" cellspacing="5" cellpadding="3">
<tr>
<td width="60%" height="24" valign="top" bgcolor="#FFFFFF" class="bdr"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="110" height="16"><p>Total Length: </p>
</td>
<td width="65"><div align="right"><strong>2344,50m</strong></div></td>
<td width="110">
</td>
<td width="20"><div align="center">
</div></td>
<td width="110">
</td>
<td> </td>
<td width="110">
</td>
<td> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</td></tr></table>
</body>
</html>
<%
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
