<%
'Antes de nada hay que instanciar el objeto Connection
Set Conn = Server.CreateObject("ADODB.Connection")
'Una vez instanciado Connection lo podemos abrir y le asignamos la base de datos donde vamos a efectuar las operaciones
Conn.Open "dbRectificadora"
'Recogemos el tipo de material de intercambio que ha seleccionado el internauta
tipo_articulo=Request.QueryString("tipo")
'Ahora creamos la sentencia SQL que nos servira para hablar a la BD filtrando por el tipo de material
sSQL="Select * From tbl_articulo Where Tipo='" & tipo_articulo & "'Order By articulo"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
If tipo_articulo="Bloque" Then %>
Bloques de intercambio
<%
Else
If tipo_articulo="Culata" Then %>
Culatas de intercambio
<%
Else
If tipo_articulo="Biela" Then %>
Bielas de intercambio
<%
Else %>
Cigüeñales de intercambio
<%
End If
End If
End If
'Mostramos los registros%>
| Descripción |
Carburante |
<%
Do While Not RS.Eof
%>
| <%=RS("Articulo")%> |
<%=RS("Carburante")%> |
<%
RS.MoveNext
Loop
'Cerramos el sistema de conexion
Conn.Close
%>
