problema en consulta

fabiola
18 de Mayo del 2005
hola que tal

tengo un problema con las consultas lo que pasa es que estoy haciendo un haciendo un proyecto de cosmeticos, bueno el chiste es que como le puede hacer en consulta para que no habra muchas veces la conexion de asp con sql server, ya que no quiero que se vaya a satuarar el servidor.

Bueno aqui les mando mi codigo
esto es de html
<TD>
<SELECT name='CATEGORIA' size='1'>
<OPTION>-----</OPTION>
<OPTION>BARNICES</OPTION>
<OPTION>LABIALES</OPTION>

</SELECT>
</TD>
esto es de ASP

<%Else%>


<H1>Datos Introducidos por el usuario</H1><BR>
<%IF (Request.Form("CATEGORIA")="-----")then%>
<%End If%>
<%IF (Request.Form("CATEGORIA")="BARNICES")then%>
<%
set conn=server.createobject("ADODB.connection")
set producto=server.createobject("ADODB.recordset")

conn.open"dsn=cosmeticos;uid=sa;pwd=;"

SQL="SELECT * FROM producto where categoria='barnices'"

producto.open SQL,conn

RESPONSE.WRITE "<table border='15'>"

Response.Write "<CENTER><TABLE border='2' bordercolor='black' bgcolor='navyblue'>"
Response.Write "<TR color='navyblue'><FONT color='purple'>"
Response.Write "<TD><CENTER>Clave_producto</CENTER></TD>"
Response.Write "<TD><CENTER>Nombre</CENTER></TD>"
Response.Write "<TD><CENTER>Color</CENTER></TD>"
Response.Write "<TD><CENTER>Marca</CENTER></TD>"
Response.Write "<TD><CENTER>Precio</CENTER></TD>"
Response.Write "<TD><CENTER>IVA</CENTER></TD>"
Response.Write "<TD><CENTER>Categoria</CENTER></TD>"
Response.Write "<TD><CENTER>Descripcion</CENTER></TD>"

do while not producto.eof
RESPONSE.WRITE "<TR>"
RESPONSE.WRITE "<TD>" & producto("Clave_producto") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("nombre") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("color") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("marca") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("precio") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("iva") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("categoria") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("descripcion") & "</TD>"
response.write "<TD><IMG src=/wwwroot/imagenes/producto" & producto("Descripcion") & ".JPEG></TD> </TR>"
producto.movenext
loop
response.write "</table>"
producto.close
conn.close
%>
<%End If%>
<%IF (Request.Form("CATEGORIA")="LABIALES")then%>
<%
set conn=server.createobject("ADODB.connection")
set producto=server.createobject("ADODB.recordset")

conn.open"dsn=cosmeticos;uid=sa;pwd=;"

SQL="SELECT * FROM producto where categoria='LABIALES'"

producto.open SQL,conn

RESPONSE.WRITE "<table border='15'>"

Response.Write "<CENTER><TABLE border='2' bordercolor='black' bgcolor='navyblue'>"
Response.Write "<TR color='navyblue'><FONT color='purple'>"
Response.Write "<TD><CENTER>Clave_producto</CENTER></TD>"
Response.Write "<TD><CENTER>Nombre</CENTER></TD>"
Response.Write "<TD><CENTER>Color</CENTER></TD>"
Response.Write "<TD><CENTER>Marca</CENTER></TD>"
Response.Write "<TD><CENTER>Precio</CENTER></TD>"
Response.Write "<TD><CENTER>IVA</CENTER></TD>"
Response.Write "<TD><CENTER>Categoria</CENTER></TD>"
Response.Write "<TD><CENTER>Descripcion</CENTER></TD>"

do while not producto.eof
RESPONSE.WRITE "<TR>"
RESPONSE.WRITE "<TD>" & producto("Clave_producto") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("nombre") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("color") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("marca") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("precio") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("iva") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("categoria") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("descripcion") & "</TD>"
response.write "<TD><IMG src=/wwwroot/imagenes/producto" & producto("Descripcion") & ".JPEG></TD> </TR>"
producto.movenext
loop
response.write "</table>"
producto.close
conn.close
%>
<%End If%>

<%IF (Request.Form("CATEGORIA")="LAPICES")then%>
<%
set conn=server.createobject("ADODB.connection")
set producto=server.createobject("ADODB.recordset")

conn.open"dsn=cosmeticos;uid=sa;pwd=;"

SQL="SELECT * FROM producto where categoria='LAPICES'"

producto.open SQL,conn

RESPONSE.WRITE "<table border='15'>"

Response.Write "<CENTER><TABLE border='2' bordercolor='black' bgcolor='navyblue'>"
Response.Write "<TR color='navyblue'><FONT color='purple'>"
Response.Write "<TD><CENTER>Clave_producto</CENTER></TD>"
Response.Write "<TD><CENTER>Nombre</CENTER></TD>"
Response.Write "<TD><CENTER>Color</CENTER></TD>"
Response.Write "<TD><CENTER>Marca</CENTER></TD>"
Response.Write "<TD><CENTER>Precio</CENTER></TD>"
Response.Write "<TD><CENTER>IVA</CENTER></TD>"
Response.Write "<TD><CENTER>Categoria</CENTER></TD>"
Response.Write "<TD><CENTER>Descripcion</CENTER></TD>"

do while not producto.eof
RESPONSE.WRITE "<TR>"
RESPONSE.WRITE "<TD>" & producto("Clave_producto") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("nombre") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("color") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("marca") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("precio") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("iva") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("categoria") & "</TD>"
RESPONSE.WRITE "<TD>" & producto("descripcion") & "</TD>"
response.write "<TD><IMG src=/wwwroot/imagenes/producto" & producto("Descripcion") & ".JPEG></TD> </TR>"
producto.movenext
loop
response.write "</table>"
producto.close
conn.close
%>


Por fa ayudenme o aconsejeme como le puede hacer
gracias