Me temo que esta solucion no me vale pues asi no sabria el registro del cual procede cada cadena. y necesito saberlo. Pues cada cadena es un nombre de una imagen, y en un registro puede haber varias imagenes. E implementado como un visor de imagenes de cada registro, poongo el codigo aqui:
<%tipo=request.querystring("tipo")
dir="../public/"+tipo+"/"
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/mdb-database/propiedad.mdb"))
'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM "+tipo+""
Set result = con.Execute(sql)
'Recorre todas las filas del resultado
Do While Not result.EOF
ruta=result("ruta")
if ruta<>"" then
e=e+1
arreglo=split(ruta,";")
if e=1 then
response.write "<table cellpadding='2' border=0 cellspacing='2' class='general'><tr>"
end if
if a=3 then
response.write "</tr><tr>"
a=0
end if
response.write "<td valign='top' align='center'><table style='border: 1 solid #000000' class='general'><tr><td bgcolor=#003399 colspan=2><font class='property'>• "&result.fields("propiedad")&"</font></td></tr><tr><td>"%><a onClick="afoto('<%=dir&arreglo(0)%>','Model <%=result.fields("propiedad")%>');return false" style='cursor:hand'><%response.write "<img src='"&dir&arreglo(0)&"' name='imag2' width='140'></a></td></tr>"
%>
<script>
i=0
dir2="<%=dir&arreglo(0)%>"
function pasaimagen<%=e%>(a){
i=i+1
if (i==a+1){i=0;}
if (i==-1) {i=a;}
<% for j=lbound(arreglo) to ubound(arreglo)-1 %>
if (i==<%=j%>) {
imag2.src="<%=dir&arreglo(j)%>"
dir2="<%=dir&arreglo(j)%>"
n=i+1
}
<%next%>
}
</script>
<%
if ubound(arreglo)>1 then
%>
<table>
<tr>
<td align="center" >
<p align="center" class="f">
<a href="javascript
:pasaimagen<%=e%>(<%=ubound(arregl o)-1%>);" class="f"><<<
Previous</a> <a href="javascript
:pasaimagen<%=e%>(<%=ubound(arregl o)-1%>);" class="f">Next
>>></a>
<%
end if
else
response.write "<CENTER><BR>FOTO <BR>NO<BR> DISPONIBLE<CENTER>"
end if%>
</td>
</tr>
</table>
<%
a=a+1
result.MoveNext
Loop
'Libera memoria
result.Close
Set result = Nothing
con.Close
Set con = Nothing
El problema esta en que en cada registro existen tres imagenes, y yo solamente puedo ver la primera de cada registro, no me funcionan las opciones para pasar a la siguiente imagen.
Espero me haya explicado