Simulador (Cuando presiona el botón "ejecutar el programa"
se graban todos los cuadros de texto y se ejecuta el primero de la lista
mostrando en una página el resultado)
Problema:
<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Data Source=.;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog=wi630629_aspya"
conexion.Open
dim registros
set registros = Server.CreateObject("ADODB.RecordSet")
registros.open "select count(*) as cantidad,ru.descripcion as descrirubro, " & _
"ru.codigo as codigorubro " & _
" from articulos as ar " & _
"join rubros as ru on ru.codigo=ar.codigorubro " & _
" group by ru.descripcion,ru.codigo",conexion
do while not registros.eof
response.write("Rubro:" & registros("descrirubro"))
response.write("<br>")
response.write("Cantidad de artículos de dicho rubro:" & registros("cantidad"))
response.write("<br>")
dim registrosar
set registrosar = Server.CreateObject("ADODB.RecordSet")
registrosar.open "select descripcion from articulos " & _
" where codigorubro=" & registros("codigorubro"),conexion
do while not registrosar.eof
response.write("Artículo:" & registrosar("descripcion"))
response.write("<br>")
registrosar.movenext
loop
response.write("------------------------------------------------------------")
response.write("<br>")
registros.movenext
loop
conexion.close
%>
</body>
</html>