|
<%
request.form ("tipoVAR")
Dim tipo , tipo2
tipo=request.form ("tipoVAR")
tipo2=request.form ("tipoVAR2")
%>
<%
select case Tipo
case "1" ' Bloque 1
Response.Write "Pintura"
case "2" ' Bloque 2
Response.Write ( "Pintura Decorativa")
case "3" ' Bloque 2
Response.Write ( "Escultura")
case "4" ' Bloque 2
Response.Write ( "Grabado")
case "5" ' Bloque 3
Response.Write ("Varios")
end select
Response.write(" ")
select case Tipo2
case "1" ' Bloque 4
Response.Write "Ciudad Autónoma de Bs. As."
case "2" ' Bloque 5
Response.Write ( "Zona Norte")
case "3" ' Bloque 6
Response.Write ( "Zona Oeste")
case "4" ' Bloque 7
Response.Write ( "Zona Sur")
end select
%>
<%
set conexion=server.createobject("adodb.connection")
conexion.open "DSN=thesis_libreriathesis;uid=thesis;pwd=1994"
If tipo > 0 AND tipo2 > 0 then
set rs=conexion.execute("SELECT * FROM Talleres a WHERE a.RUBRO = '"&tipo&"' and a.Zona = '"&tipo2&"' ORDER BY a.Nombre",1)
else
if tipo2 = "0" then
set rs=conexion.execute("SELECT * FROM Talleres a WHERE a.RUBRO = '"&tipo&"' ORDER BY a.Nombre",1)
else
set rs=conexion.execute("SELECT * FROM Talleres a WHERE a.Zona = '"&tipo2&"' ORDER BY a.Nombre",1)
end if
end if
%>
|
<%
Response.Write "________________________________________________________________________________________"
%>
|
<%
Do While not RS.EOF
%>
<%
Response.Write RS.Fields("Nombre")
%>
<%
Response.Write "
"
Dim tipo3
tipo3=request.form ("tipoVAR2")
select case Tipo3
case "1" ' Bloque 4
Response.Write "Ciudad Autónoma de Bs. As."
case "2" ' Bloque 5
Response.Write ( "Zona Norte")
case "3" ' Bloque 6
Response.Write ( "Zona Oeste")
case "4" ' Bloque 7
Response.Write ( "Zona Sur")
end select
Response.Write "
"
Response.Write RS.Fields("Tecnicas")
Response.Write "
"
Response.Write RS.Fields("Telefono")
Response.Write "
"
Response.Write RS.Fields("Email")
Response.Write "
"
Response.Write RS.Fields("Web")
Response.Write "
"
Response.Write RS.Fields("Domicilio")
Response.Write "
"
Response.Write RS.Fields("Horario")
Response.Write "
_____________________________________________________________________________________________________________________
"
%>
<%
RS.MoveNext
Loop
set tipo=nothing
RS.Close
set rs=nothing
conexion.close
set conexion=nothing
%>
|
