<%@ LANGUAGE="VBScript" %>
Sensor Row, Column Map
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
SQLStmt = "SELECT sensor_row, sensor_column, bonding_pattern, pad FROM type_con WHERE sensor_type = '"+Request("type")+"' ORDER BY bonding_pattern,pad;"
Set RS = Connection.Execute(SQLStmt)
SQLStmt_max= "SELECT max(sensor_row)+1 maxr, max(sensor_column)+1 maxc FROM type_con WHERE sensor_type = '"+Request("type")+"';"
Set RS_max = Connection.Execute(SQLStmt_max)
%>
Sensor Type <% Response.Write Request("type") %>
Number of Rows: <% Response.Write CStr(RS_max("maxr"))%>
Number of Columns: <% Response.Write CStr(RS_max("maxc"))%>
The sensor has the following map:
| Row |
Column |
Bonding Pattern |
Pad |
<%
Do While Not RS.EOF
%>
| <%
Response.Write CStr(RS("sensor_row"))
%>
|
<%
Response.Write CStr(RS("sensor_column"))
%>
|
<%
Response.Write CStr(RS("bonding_pattern"))
%>
|
<%
Response.Write CStr(RS("pad"))
%>
|
<%
RS.MoveNext
Loop
%>