automatizacion en globla.asa

[gerllo]

Hola necesito automatizar ciertos procesos dentro de mi sitio web no es la gran cosa pero maneja consultas que no son midificables durante todo la navegacion como por ejemplo :

codigo:
sub Mostrar_Typos()
'0=id,5=Campo en espanol
strSQL = "SELECT * FROM product_types "
strSQL = strSQL & "ORDER BY product_types_name"
Set RS_cats = CnnV1.Execute(strSQL )
'response.write "<br><br>"
response.write "<table align='center'>"
if RS_cats.eof then
Response.Write "<tr>"
response.write "<td colspan=3 align=center height='30' align='center' valign='middle'>"
response.write "Lo sentimos actualmente, no Existen Categorias Inscritas<br><br><br>Presione el Boton Residencial para Escoger otra Opcion</td>"
Response.Write "</tr>"
else
arcats= RS_cats.GetRows
RS_cats.Close
Set RS_cats= Nothing
fin = UBound(arcats, 2)
For i = 0 To fin
%>
visto en web..
http://www.venturatechnology.com/products/index.asp


el menu de la izquierda de esa pagina no cambia.. muy seguido pero si cambia dependiendo del usuario me gustaria hacer algo .. un areglo y llamarlo desde el globa.asa al igual que en este otro lado

codigo
sub cat_col_pto(catego)
strSQL = "SELECT * FROM car_makers where product_types_id=" & catego
strSQL = strSQL & " ORDER BY car_makers_name"
Set RS_ptos= CnnV1.Execute(strSQL)
'response.write "<br><br>"
response.write "<table align='center'>"
if RS_ptos.eof then
response.Redirect "index.asp"
else
arptos=RS_ptos.Getrows
RS_ptos.Close
Set RS_ptos= Nothing
fin = UBound(arptos, 2)
For i = 0 To fin
%>
<tr>
<td><img src="images/logos/<%=arptos(3, i)%>" height=50 width=50></td>
<td><a href="subcat.asp?pto_id=<%=arptos(0, i)%>&mnopc=<%=catego%>">
<%
Response.Write "<font face=Verdana size=2>" & arptos(2, i) & "</font></td>"
response.write "<td width=70></td>"
if i<fin then
i= i+1
%>
<td><img src="images/logos/<%=arptos(3, i)%>" height=50 width=50></td>
<td><a href="subcat.asp?pto_id=<%=arptos(0, i)%>&mnopc=<%=catego%>">
<%
Response.Write "<font face=Verdana size=2>" & arptos(2, i) & "</font></td>"
response.write "<td></td>"
end if
response.write "</font></tr>"
response.write "<tr>"
Next
end if
response.write "</table>"
end sub

en la web se ve :

http://www.venturatechnology.com/pro...t.asp?cat_id=1
los productos y las imagenes de la izquierda sufren el mismo proceso .. pero cada vez que las llama se tardan por que tiene que realizar la consulta otra vez?

Codigo:
sub menunew(opcion)
Set rscat1 = Server.CreateObject("ADODB.RecordSet")
rscat1.ActiveConnection = cnnv1
opcion2=opcion
strSQL = "SELECT * FROM car_makers where product_types_id=" & opcion2 &_
" ORDER BY car_makers_name"
rscat1.Open strSQL
%>
<style>
a { text-decoration: none }
</style>
<table width="150" border="0" cellSpacing="1" >
<% while not rscat1.eof %>
<tr><td height="5"><img src="images/bullet_1.gif">
<a style="TEXT-DECORATION: none" href="subcat.asp?pto_id=<%=rscat1("car_makers_id") %>&mnopc=<%=opcion2%>">
<b><font face="verdana" size="1" color="#000000" ><%=ucase(rscat1("car_makers_name"))%></font></b></a>
</td></tr>
<% rscat1.movenext
wend
response.write "</table>"
end sub
en la web...
http://www.venturatechnology.com/pro..._id=58&mnopc=1
lo mismo el menu que corresponde a esta opcion al hacer .. la consulta se tarda un chingo..



Espero me den una orientacion de como poder resolverlo y que eso se maneje en la web de una forma mas rapida y eficiente.. no espero que me den la solucion si no una ayuda.. agradezco de antemano la ayuda que me puedan brindar

Gerllo