<% Dim conAlbum, recAlbum, caminho, id, foto id = Request.QueryString("id") id = UCase(id) foto = Request.QueryString("foto") foto= UCase(foto) caminho=Server.MapPath("database/carros.mdb") Set conAlbum=Server.CreateObject("ADODB.Connection") Set recAlbum=Server.CreateObject("ADODB.Recordset") conAlbum.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & caminho recAlbum.Open "SELECT * FROM Tipo WHERE ID="&id&"", conAlbum lim = recAlbum.fields("Final") lim = CInt(lim) Foto = CInt(foto) %> :: TAPEÇARIA O ARTESÃO - Álbum de Fotos ::
<% if foto < 10 then %> /0<%=foto%>.jpg" alt=":: <%=recAlbum.fields("Tipo")%> - Foto <%=foto%> ::"> <% else %> /<%=foto%>.jpg" alt=":: <%=recAlbum.fields("Tipo")%> - Foto <%=foto%> ::"> <% end if %>
<% if foto > 1 then %>
<<
<% end if %>
<%=recAlbum.fields("Tipo")%> 
<% if lim > foto then %>
>>
<% end if %>