I'm using Access for DB.
The include file is the connection string.
strProdCat = trim(request.querystring("prodcat"

)
strProdName = trim(request.querystring("prodname"

)
strPropCat = trim(request.querystring("propcat"

)
<!-- #include file="con_propdb.asp" -->
<%
Select Case UCase(strPropCat)
Case "MECHANICAL"
response.write "<br>"
strProp = "Mechanical Properties"
Source = "SELECT HP_Mech_Tens_Str_yld_U, HP_Mech_Tens_Str_yld_TM, HP_Mech_Tens_Str_yld_V, HP_Mech_Tens_Str_break_U, " & _
"HP_Mech_Tens_Str_break_TM, HP_Mech_Tens_Str_break_V, HP_Mech_Tens_Modulus_U, HP_Mech_Tens_Modulus_TM, " & _
"HP_Mech_Tens_Modulus_V, HP_Mech_Tens_Elong_yield_U, HP_Mech_Tens_Elong_yield_TM, HP_Mech_Tens_Elong_yield_V, " & _
"HP_Mech_Tens_Elong_break_U, HP_Mech_Tens_Elong_break_TM, HP_Mech_Tens_Elong_break_V, HP_Mech_Flex_Str_yield_U, " & _
"HP_Mech_Flex_Str_yield_TM, HP_Mech_Flex_Str_yield_V, HP_Mech_Flex_Mod_U, HP_Mech_Flex_Mod_TM, " & _
"HP_Mech_Flex_Mod_V, HP_Mech_Comp_Str_yield_U, HP_Mech_Comp_Str_yield_TM, HP_Mech_Comp_Str_yield_V, "& _
"HP_Mech_Comp_Mod_U, HP_Mech_Comp_Mod_TM, HP_Mech_Comp_Mod_V, HP_Mech_Izod_Imp_Str_Un_U, HP_Mech_Izod_Imp_Str_Un_TM, " & _
"HP_Mech_Izod_Imp_Str_Un_V, HP_Mech_Izod_Imp_Str_Notched73°F_U, HP_Mech_Izod_Imp_Str_Notched73°F_TM, " & _
"HP_Mech_Izod_Imp_Str_Notched73°F_V, HP_Mech_Hardness_U, HP_Mech_Hardness_TM, HP_Mech_Hardness_V " & _
"FROM High_Performance Where (HP_WPC_NAME ='"& strProdName &"')"
Dim strArray(33)
strArray(0) = "Tensile Strength @yield"
strArray(3) = "Tensile Strength @break"
strArray(6) = "Tensile Modulus"
strArray(9) = "Tensile Elongation @yield"
strArray(12) = "Tensile Elongation @break"
strArray(15) = "Flexural Strength @yield"
strArray(18) = "Flexural Modulus"
strArray(21) = "Compressive Strength @yield"
strArray(24) = "Compressive Modulus"
strArray(27) = "Izod Impact Strength Un-Notched"
strArray(30) = "Izod Impact Strength Notched @73°F"
strArray(33) = "Hardness (R, M, L or D)"
Case "THERMAL"
stuff
Case "ELECTRICAL"
stuff
Case "FLAMMABILTY"
more stuff
End Select
Set rsADO = Server.CreateObject("ADODB.Recordset"
rsADO.Open Source, ConnectionString
%>
<table border="0" bgcolor="#1a55a4"><tr>
<td class="prophead"><% =strProp %> </td>
<td align="right"><font size="2"><a href="prop.asp"><b>New Search</b></a></font> </td>
</tr>
<tr>
<td colspan="2">
<table bgcolor="#ffffff" cellpadding="1" cellspacing="1" border="0">
<tr><td width="225" class="colhead"></td>
<td width="150" class="colhead">Units</td>
<td width="150" class="colhead">Test Method</td>
<td width="150" class="colhead">Value</td></tr>
<%
For Each fldLoop In rsADO.Fields
select case i
Case 0,3,6,9,12,15,18,21,24,27,30,33
select case i
case 0,6,12,18,24,30
%>
<tr><td class="trhead" bgcolor="#eeeeee"><% =strArray(i) %></td>
<td class="propval" bgcolor="#eeeeee"><% =fldLoop.Value %></td>
<%
case 3,9,15,21,27,33
%>
<tr><td class="trhead" bgcolor="#dddddd"><% =strArray(i) %></td>
<td class="propval" bgcolor="#dddddd"><% =fldLoop.Value %></td>
<%
end select
Case 1,4,7,10,13,16,19,22,25,28,31,34
select case i
case 1,7,13,19,25,31
%>
<td class="propval" bgcolor='#eeeeee'><% =fldLoop.Value %></td>
<%
case 4,10,16,22,28,34
%>
<td class="propval" bgcolor="#dddddd"><% =fldLoop.Value %></td>
<%
end select
Case 2,5,8,11,14,17,20,23,26,29,32,35
select case i
case 2,8,14,20,26,32
%>
<td class="propval" bgcolor='#eeeeee'><% =fldLoop.Value %></td></tr>
<%
case 5,11,17,23,29,35
%>
<td class="propval" bgcolor="#dddddd"><% =fldLoop.Value %></td></tr>
<%
end select
end select
i = i + 1
Next
response.write "</table>"
response.write "</td></tr>"
response.write "</table>"
response.write "</body></html>"
rsADO.close
set rsADO = nothing
%>
Thanks,
Rick