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