Não consigo resolver erro em Galeria

[Paulo C. Jr.]

Oi pessoal, não consigo resolver este erro:

Erro de compilação do Microsoft vb script:

na_open_window('win', 'config/galeria.asp?data=<%=Rs("data")%>', 0, 0, 703, 473, 0, 0, 0, 0, 0)" target="_self"><img src='config/fotos/<%=Rs("Foto")%>' width="150" height="112" border="0"></a>             </p>
        </td>
        <td width="107">            
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> 
<font face="Arial" color="#333333"><b><span style="font-size:12pt;">Evento</span></b></font> </p>
</td>
        <td width="325">            
<p align="left" style="line-height:100%; margin-top:0; margin-bottom:0;"> 
<span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Evento")%> 
                        </font></span> </p>
</td>
        <td width="194">            
                        <p align="center"><a href="config/listargalerias.asp"><span style="font-size:10pt;"><b><font face="Arial" color="red"> Adiministar 
                        galerias</font></b></span></a></p>
</td>
    </tr>
    <tr>
        <td width="107">            
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><font face="Arial" color="#333333"><b><span style="font-size:12pt;">Data</span></b></font></p>
</td>
        <td width="325">            
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Dia")%>  </font></span></p>
</td>
        <td width="194">            
                        <p> </p>
</td>
    </tr>
    <tr>
        <td width="107">            
                        <p align="left"><font face="Arial"><span style="font-size:12pt;"><b>Cidade</b></span></font></p>
</td>
        <td width="325">            
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Cidade")%> </font></span></p>
</td>
        <td width="194">            
                        <p> </p>
</td>
    </tr>
    <tr>
        <td width="107">            
                        <p align="left"><font face="Arial"><span style="font-size:12pt;"><b>Fotografo</b></span></font></p>
</td>
        <td width="325">            
<p style="line-height:100%; margin-top:0; margin-bottom:0;" align="left"><span style="font-size:10pt;"><font face="Arial" color="#0066FF"><%=Rs("Fotografo")%> </font></span></p>
</td>
        <td width="194">            
                        <p align="center"> </p>
</td>
    </tr>
    <tr>
        <td width="779" colspan="4">
            <p style="line-height:50%; margin-top:0; margin-bottom:0;" align="center"> </p>
        </td>
    </tr>
</table>
<p style="line-height:150%; margin-top:0; margin-bottom:0;" align="center">
<%
i = i+1
Count = Count + 1
RS.MoveNext
LOOP
%>
<%
Response.Write("<B><font color=""#006600"" size=""2"" face=""Arial""><strong> Página " & PagAtual & " de " & TotalPages & " </strong></font></B> - ")   
var01 = Len(PagAtual)
var02 = var01 - 1 
var03 = Left(PagAtual,var02)
var04 = Right(PagAtual,1)
var05 = var03 & 0
IF var04 <> 0 THEN 
inicial = var05 + 1
final = inicial + 9  
ELSE
inicial = var05 - 9  
final = var05
END IF
indice_i = var04 - 1
indice_f = 10 - var04 
If CInt(final) > CInt(TotalPages) Then final = TotalPages
IF PagAtual > 1 THEN 
Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" &  1 & "'>")
Response.Write("<img src='config/images/primeira.gif'border='0' alt='Primeira página'>") 
Response.Write("</a></font></B>  ")
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual - 1 & "'>")
Response.Write ("<img src='config/images/anterior.gif' border='0' alt='Página anterior'>") 
Response.Write("</a></font></B>  ")
IF PagAtual > 10 THEN
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">") 
Response.Write("<a href='listargalerias.asp?PagAtual=" & inicial - 1 & "'>")
Response.Write("...") 
Response.Write("</a></font></B>  ")
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("....") 
Response.Write("</font></B>  ")
END IF
Else
Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">") 
Response.Write("<img src='config/images/primeira.gif' border='0' alt='Primeira página'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("<img src='config/images/anterior.gif' border='0' alt='Página anterior'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">") 
Response.Write("...") 
Response.Write("</font></B>  ")
End If
For i = inicial To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial""><a href='listargalerias.asp?PagAtual=" & i & "'>" & i & "</a></font> "
END IF
Next
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
p1 = Left(PagAtual,var02) 
p2 = Left(TotalPages,var02)
p3 = Left(TotalPages,var02) & 0
IF (p1 > PagAtual) or ((PagAtual <= 10) and (TotalPages > 10)) THEN 
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & final + 1 & "'>")
Response.Write("...")
Response.Write("</a></font></B>  ") 
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("...") 
Response.Write("</font></B>  ")
END IF
Response.Write("<B><font color=""#660066"" size=""2"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & PagAtual + 1 & "'>")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Próxima página'>")
Response.Write("</a></font></B>  ") 
Response.Write("<B><font color=""#660066"" size=""1"" face=""Arial"">")
Response.Write("<a href='listargalerias.asp?PagAtual=" & TotalPages & "'>")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima página'>")
Response.Write("</a></font></B>  ")        
ELSE
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("...") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#CCCCCC"" size=""2"" face=""Arial"">")
Response.Write("<img src='config/images/proxima.gif' border='0' alt='Próxima página'>") 
Response.Write("</font></B>  ")
Response.Write("<B><font color=""#EEEEEE"" size=""1"" face=""Arial"">")
Response.Write("<img src='config/images/ultima.gif' border='0' alt='Ultima página'>") 
Response.Write("</font></B>  ")
End If 
Rs.Close  
Set RS = Nothing
Conn.Close      
Set Conn = Nothing   %></p>
        </td>
    </tr>
</table>
<p> </p>
</body>

</html>

Se alguém puder ajudarm fico grato.

Jr.

Editado Maio 7, 2008 por andreia_sp

[marcos_804]

Cara,

Desculpa a ignorância, mas não tenho bola de cristal.

Qual erro?

Descreva melhor quem sabe posso te ajudar.