Renan L. Queiroz

O distinct funciona como um verificador de repetições, no caso desse ultimo select:

select distinct s.equipamento_cer order by s.id_certificado DESC LIMIT $co 

Ele irá trazer cada "s.equipamento_cer" único, sem repetições!
As repetiuções são desconcideradas!

Fiquei curioso com seu post e fui dar uma pesquisada.
Encontrei o seguinte script:

<?php
$za = new ZipArchive();

$za->open('test_with_comment.zip');
print_r($za);
var_dump($za);
echo "numFiles: " . $za->numFiles . "\n";
echo "status: " . $za->status  . "\n";
echo "statusSys: " . $za->statusSys . "\n";
echo "filename: " . $za->filename . "\n";
echo "comment: " . $za->comment . "\n";

for ($i=0; $i<$za->numFiles;$i++) {
    echo "index: $i\n";
    print_r($za->statIndex($i));
}
echo "numFile:" . $za->numFiles . "\n";
?>

Fonte: Funções para arquivos Zip
Ps: Extenção que permite que você manipule arquivos ZIP e os arquivos do mesmo.

Mais fontes:
PHP Manual: Zip - Manual
PHP Manual: Rar - Manual
Nusphere PHP Manual: Rar Functions

Valeu , sua dúvia foi muito útil!

Tenta usar o response.write desta forma:

<% 
    Set conexao=server.CreateObject("Adodb.connection") 
    Set tabela=server.CreateObject("Adodb.recordset") 

    Dim banco 
    banco="driver={driver do microsoft access (*.mdb)}; dbq="& server.MapPath ("bancod.mdb") 
    conexao.open banco

    Dim sql, ano
    ano = Year(now)

    sql="SELECT * FROM cartas WHERE Data LIKE '%" & ano & "%' ORDER BY codigo DESC"
    tabela.open sql,conexao,3,3
    SetLocale("pt-br")

    While Not tabela.EOF
%>
        <tr onmouseover="this.bgcolor=gold" onmouseout="this.bgColor='#FFFFFF'" >
            <td align="center"> <%=tabela("Codigo")%> </td>
            <td> <%=tabela("Empresa")%> </td>
            <td align="center"> <%=tabela("Receptor")%> </td>
            <td> <%=tabela("Assunto")%> </td>
            <td align="center"> <%=tabela("Data")%> </td>
            <td align="center"> <%=tabela("Pasta")%> </td>
            <td> <%=tabela("Por")%> </td>
            <td align="center">
                <a href='editar_cartas.asp?codigo=" & tabela("codigo") &"'>
                    <img alt='Editar Registro' border="0" src="images\editar.gif" />
                </a>
            </td>
            <td align="center">
                <a href='excluir_cartas.asp?codigo=" & tabela("codigo") &"'>
                    <img alt='Excluir Registro' border="0" src="images\excluir.gif" />
                </a>
            </td>
        </tr>
<%
        tabela.movenext
    Wend
%>

Caso desconheça a forma simplicicada <%= é igual a <% response.write!

Ah percebi algumas </td> faltando e coloquei a impressão dos dados dessa para
evitar problemas com as áspas dentro da string a serem impressas.
Veja se isso ajuda!

Tenta assim:

sql="SELECT * FROM cartas WHERE data LIKE '%"& ano &"%' ORDER BY codigo"

Entendi, meu intuito inicial era alterar a sua query (sql) para que retornase-mos a imagem referente
à cada um dos eventos, sendo assim após incluir o endereço da imagem na consulta era só incluir no script.

Mesmo com o con declarado, esse script não apresentou a imagem?!

<%
    sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
    Set rs = con.execute(sql)
    While rs.eof = False
%>
        <h4>
            <a href="viewEventos.asp?id=<%=rs("id_evento")%>"><img src="<%=rs("capa")%>" alt="<%=rs("descricao")%" title="<%=rs("descricao")%"></a>
        </h4>
<%
        rs.movenext
    Wend
%>
    ***************************************************************************************************************
<%
'Continua...

Faça um teste, coloque isso no lugar do script anterior:

<%
    sql = "select distinct e.id_evento, e.titulo, e.descricao, (select top 1 arquivo from tb_fotos_eventos f where f.id_evento = e.id_evento) as capa from tb_eventos e where e.status = true"
    Set rs = con.execute(sql)
    While rs.eof = False
        response.write rs("capa") &"<br />"
        rs.movenext
    Wend
    response.end

O que é imresso?

De uma passadinha neste tópico: Que Tal Inserir, Visualizar E Deletar Linhas De Um Xml?
Veja se ajuda!

Colega faça um teste com este script atualizado para ver se está ok, por conta da identação!
Enquanto isso vou estar analisando o mesmo para lhe ajudar!

---

Estava olhando aqui, mas a princípio acredito que o problema seja relacionado à CSS.
Acredito que seja algo como colocar um "float:left" para a div que contem as imagens
e quando der o limite fazer a quebra incluindo o "clear: both;" para a próxima.

Vou continuar fazendo alguns teste, jajá respondo!

---

Olha como ficaria o esquema do css no teste que fiz:

...
        <script src="lightbox/js/lightbox.js" type="text/javascript"></script>

        <link href="css/estilo.css" rel="stylesheet" type="text/css" />
        <link href="lightbox/css/lightbox.css" rel="stylesheet" type="text/css" media="screen" />
        <style type="text/css">
            #corpo{
                float: left;
                width: 72px;
                border: solid 1px red;
            }
        </style>

    </head>

    <body>
...

Inclui um estilo para a div que contem as imagens

Ai para colocar um limite para a quantidade de fotos por linha, inclua uma div (pai)
com uma largura definida:

...
        <link href="css/estilo.css" rel="stylesheet" type="text/css" />
        <link href="lightbox/css/lightbox.css" rel="stylesheet" type="text/css" media="screen" />
        <style type="text/css">
            #campoImagens{
                width: 1024px;
            }
            #corpo{
                float: left;
                width: 72px;
            }
        </style>

    </head>

    <body>

        <div id="campoImagens">
<%
            'Iniciamos o Loop
            rsBuscaProdutos.AbsolutePage = intpagina 
            intrec = 0
            While intrec < 60 'rsBuscaProdutos.PageSize And Not rsBuscaProdutos.eof 
%>
                <div id="corpo">
                    <a href="imgPortFotos/teste.jpg<%'=rsBuscaProdutos("ARQUIVO")%>" rel="lightbox[roadtrip]">
                        <img src="imgPortFotos/teste.jpg<%'=rsBuscaProdutos("ARQUIVO")%>" width="70" height="70" border="0" />
                    </a>
                </div>
<%
                rsBuscaProdutos.MoveNext
                intrec = intrec + 1

                If rsBuscaProdutos.eof Then
                    response.write " " 
                End If

            Wend 
%>
        </div>
<%
        'Criamos as Validações para a navegação "Anterior" e "Próximo" 
        If intpagina > 1 Then
...

Colega, me parece que o escript está todo em uma só linha!
Seria isso mesmo? Caso sim tente deixar conforme foi impresso aqui no tópico!

Ao ser gerado o erro:

Expected end of statement

Ele está falando que esperava o fim da linha ou do comando.

Bem para isso você necessitará das seguintes "ferramentas"
1 - ASP Forms e CSS

Fazendo da seguinte forma:
1 - Criação do formulário - OK
2 - Recepção dos dados do formulário - ??
3 - Edição do layout da tela de apresntação via CSS - A fazer

Entendeu? O caminho está ai, precisando de mais ajuda é só postar!

Bem para que possamos ajudar ficaria melhor esclarecer algumas questões!

1 - Já tem o formulário pronto?
2 - Está com dúvida em que parte?

A primeiro momento seu script parece correto, mas aconselho a seguir o seguinte passo:
Como você não tem direto acesso para tal, entre em contato com o Host e peça para incluirem
as permissões necessárias para você.

Uma das resoluções no caso de acesso ao dados de servidor:

01. Abra o Windows NT Explorer e siga até a pasta a ser alterada.
02. Botão-Direito na pasta, e acesse o menu Propriedades.
03. Na aba de Segurânça click em Permissões.
04. Se os usuários do IIS estiverem listados (IUSR_<computador>, IWAM_<computador>) e o IWAM_<computador> for o padrão, finalize, caso contrário, vá para o passo seginte.
05. Clique em Adicionar.
06. Selecione seu computador na lista de nomes no menu drop-down.
07. Clique em Mostrar usuários.
08. Selecione o IUSR_<computador> Conta de convidade da Internet e o IWAM_<computador> conta de processo do IIS, e clique em Adicionar.
09. Clique em Alterar, para alterar suas permissões.
10. Clique em OK, e feche a janela de inclusão de Usuários e Grupos.
11. Clique em OK, para fechar a janela de permissões no diretório.
12. Clique em OK, para fechar a janela de prorpiedades.
13. Repita os passos 2 a 12 para cada pasta necessária.

Verifica o tipo de permissão para a pasta utilizada!!
Leitura e Escrita.

Caso perssista, poste novamente!

Você vai utilizar de um script que trabalhe como um "split" onde, o nome
será separado e alocado como registros, para depois serem pegos
os primeiros e ultimos registro, retornando assim o nome no formato que você
necessita, veja este script:

CREATE FUNCTION FUNC_SPLIT(@texto varchar(8000))
   returns @palavras table (
      pos smallint primary key,
      valor varchar(8000)
   )
AS
BEGIN

    -- variaveis locais
    declare
        @pos smallint,
        @i smallint,
        @j smallint,
        @s varchar(8000)

    set @pos = 1
    while @pos <= len(@texto) 
    begin 
        set @i = charindex(' ', @texto, @pos)
        set @j = charindex(',', @texto, @pos)
        if @i > 0 or @j > 0
        begin
            if @i = 0 or (@j > 0 and @j < @i)
               set @i = @j

            if @i > @pos
            begin
                set @s = substring(@texto, @pos, @i - @pos)

                insert into @palavras
                values (@pos, @s)
            end 
            set @pos = @i + 1

            while @pos < len(@texto) and substring(@texto, @pos, 1) in (' ', ',')
            set @pos = @pos + 1 
        end 
        else 
        begin 
            insert into @palavras 
            values (@pos, substring(@texto, @pos, len(@texto) - @pos + 1))

            set @pos = len(@texto) + 1 
        end 
    end 

    return

END

Assim você pode manipular os registros através do VBScript!!

O retorno quando passado como parâmetro "Renan Lemes Queiroz":

Retorno da função

pos	valor
1	Renan
7	Lemes
13	Queiroz

Exemplo de funcionamento local:
Adaptado para sua necessidade, podendo torná-la em uma função.

    /* variaveis de teste */
    declare @texto varchar(2000)
    declare @palavras table(pos smallint, valor varchar(2000))
    
    set @texto = 'Renan Lemes Queiroz'

    /* variaveis locais */
    declare
        @resultadoNome varchar(2000),
        @pos smallint,
        @i smallint,
        @j smallint,
        @s varchar(2000)

    set @pos = 1
    while @pos <= len(@texto) 
    begin 
        set @i = charindex(' ', @texto, @pos)
        if @i > 0
        begin
            if @i > @pos
            begin
                -- @i agora detém o primeiro delimitador na cadeia
                set @s = substring(@texto, @pos, @i - @pos)

                insert into @palavras
                values (@pos, @s)
            end 
            set @pos = @i + 1

            while @pos < len(@texto) and substring(@texto, @pos, 1) in (' ', ',')
            set @pos = @pos + 1 
        end 
        else 
        begin 
            insert into @palavras 
            values (@pos, substring(@texto, @pos, len(@texto) - @pos + 1))

            set @pos = len(@texto) + 1 
        end 
    end 

    -- aqui voce trata o retorno, formado na qual será impresso
    set @resultadoNome = (select top 1 valor from @palavras order by pos)
                         +' '+ 
                         (select top 1 valor from @palavras order by pos desc)

    select @resultadoNome

Script para teste local.
Retorno: Renan Queiroz

Colega da uma passada no Devmedia!!
Tenho assinatura da SQL Magazine e muita das coisas ali impressas tem algo no site relacionado!

Colega, veja bem se entendi seu problema,
você quer que ao ser apresentado seu arquivo doc, seja apresentada uma
imagem e ao clicar na mesma o doc seja acessado (download), acredito que
isso possa te ajudar:

<%
    If Right(tb("arquivo"), 3) = "doc" Then 
%>
        <a href="<%=tb("arquivo")%>">
            <img src="imagem/iconeDoc.gif">
        </a>
<%
    ElseIf Right(tb("arquivo"), 3) = "pdf" Then 
%>
        <a href="<%=tb("arquivo")%>">
            <img src="imagem/iconePdf.gif">
        </a>
<%
    ElseIf Right(tb("arquivo"), 3) = "xls" Then 
%>
        <a href="<%=tb("arquivo")%>">
            <img src="imagem/iconeEcxel.gif">
        </a>
<%
    Else
%>
        <a href="<%=tb("arquivo")%>">
            <img src="imagem/iconeImg.gif">
        </a>
<%
    End If
%>

Utilizei a forma abreviada para acessar o valor do registro no RecordSet: tb("arquivo")
Vale como o que você utiliza: tb.Fields.Item("arquivo").Value

Fonte para o tutorial da função Right do VBs: VBScript Right Function
Caso queira saber sobre mais funções: VBScript Functions, vale a pena dar uma olhada, ótima referência!