<%
SQL="SELECT * FROM artistas WHERE name_artista="& artista
Set rs = Conn.Execute(SQL)
If Not rs.EOF Then
LinkCount = 0
Do Until rs.EOF
nombreartista=rs("name_artista")
descripcion=rs("descr_artista")
autordescr=rs("descr_autor")
Response.Write nombreartista
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
'Else Response.Write"No hay nignun contacto en la lista"
End If
Dim imagenes(10)
Dim thumbnails(10)
Dim titulos(10)
Dim tecnicas(10)
SQL="SELECT * FROM obras WHERE creador=" & artista & " ORDER BY id"
Set rs = Conn.Execute(SQL)
If Not rs.EOF Then
LinkCount = 0
a=0
Do Until rs.EOF
'response.write a
imagenes(a)="galerias/" & rs("name_img")
titulos(a)=rs("name_obra")
tecnicas(a)=rs("tecnica_obra")
thumbnails(a)="thumbnails/" & rs("name_img")
'response.write imagenes(a)
a = a + 1
'Response.Write "hola"& a&" " & rs("name_img")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
'Else Response.Write"No hay nignun contacto en la lista"
End If
Conn.Close
Set Conn = Nothing
%>
<% if a > 1 then
response.write(" ")
'for n = 0 to 10
n = 0
Do Until n = a
'Response.write ("hola " )
Response.write (" ")
n = n + 1
Loop
response.write("