Erro 800a03f6

[smez]

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03F6)

'End' esperado

/naphoto/cinema.asp, line 135

<%
regs = 10
pag = request.querystring("pagina")

if pag = "" then
	pag = 1
end if

set rs = server.CreateObject("ADODB.Recordset")
set rs.activeconnection = abredb

rs.cursortype = 3
rs.pagesize = regs

sql = "SELECT *  FROM cinema"
rs.open sql

if rs.eof or rs.bof then
	response.write "ddd"
else
	rs.absolutepage = pag
contador = 0
%>
<div align="center">
  <center>
<%
regs = 10
pag = request.querystring("pagina")

set rs = server.CreateObject("ADODB.Recordset")
set rs.activeconnection = abredb

rs.cursortype = 3
rs.pagesize = regs

sql = "SELECT *  FROM cinema ORDER by cod_cinema DESC"
rs.open sql

if rs.eof or rs.bof then
	response.write "ddd"
else
	rs.absolutepage = pag
contador = 0
%>
<table width="85" border="0" cellspacing="4" cellpadding="4">

<%
for x = 1 to rs.pagesize
if contador = 0 then response.write "<tr>" end if
%>
<%do while not rs.eof and contador < rs.pagesize%>
    <td align="center" width="81"> 
    <div align="center">
      <center> 
	<table width="80" border="0" cellspacing="1">
        <tr>
          <td width="77" align="center" valign="middle"><img src="cinema/images/<%=rs("foto")%>" border="0"></td>
        </tr>
        <tr>
          <td width="77" height="40" align="center" valign="middle"><font face="Verdana" size="1"><font color="#FFFFFF"><%=rs("titulo")%></font></font></td>
        </tr>
     </table>
      </center>
    </div>
  </td>
<%
contador = contador +1
rs.movenext
loop
%>
<%
contador = contador+1
if contador = 6 then
	response.write "</tr>"
  contador=0
	end if
next
%>
</table>
  </center>
</div>
<%
end if
rs.close
set rs = nothing
set conn=nothing
%>

onde ta o erro

Editado Março 17, 2006 por cyberalexxx

[cyberalexxx]

<%

regs = 10

pag = request.querystring("pagina")

if pag = "" then

pag = 1

end if

set rs = server.CreateObject("ADODB.Recordset")

set rs.activeconnection = abredb

rs.cursortype = 3

rs.pagesize = regs

sql = "SELECT *  FROM cinema"

rs.open sql

if rs.eof or rs.bof then

response.write "ddd"

else

rs.absolutepage = pag

contador = 0

%>

<div align="center">

  <center>

<%

regs = 10

pag = request.querystring("pagina")

set rs = server.CreateObject("ADODB.Recordset")

set rs.activeconnection = abredb

rs.cursortype = 3

rs.pagesize = regs

sql = "SELECT *  FROM cinema ORDER by cod_cinema DESC"

rs.open sql

if rs.eof or rs.bof then

response.write "ddd"

else

rs.absolutepage = pag

contador = 0

%>

<table width="85" border="0" cellspacing="4" cellpadding="4">

<%

for x = 1 to rs.pagesize

if contador = 0 then response.write "<tr>" end if

%>

<%do while not rs.eof and contador < rs.pagesize%>

    <td align="center" width="81">

    <div align="center">

      <center>

<table width="80" border="0" cellspacing="1">

        <tr>

          <td width="77" align="center" valign="middle"><img src="cinema/images/<%=rs("foto")%>" border="0"></td>

        </tr>

        <tr>

          <td width="77" height="40" align="center" valign="middle"><font face="Verdana" size="1"><font color="#FFFFFF"><%=rs("titulo")%></font></font></td>

        </tr>

    </table>

      </center>

    </div>

  </td>

<%

contador = contador +1

rs.movenext

loop

%>

<%

contador = contador+1

if contador = 6 then

response.write "</tr>"

  contador=0

end if

next

%>

</table>

  </center>

</div>

<%

end if

rs.close

set rs = nothing

set conn=nothing

%>

Da uma olhada quantos IF (em vermelho) e End if (em azul) tem no seu código!!

Ta errado voce precisa ter um end if para cada if

[Alexandre_Ribeiro]

smez.. tá ae seu código corrigido!! Agora é só testar!!

<%
regs = 10
pag = request.queryString("pagina")

if pag = "" then
	pag = 1
end if

set rs = server.CreateObject("ADODB.Recordset")
set rs.activeconnection = abredb

rs.cursortype = 3
rs.pagesize = regs

sql = "SELECT * FROM cinema ORDER by cod_cinema DESC"
rs.open sql

if rs.eof or rs.bof then
	response.write "ddd"
else
	rs.absolutepage = pag
	contador = 0

	%>
	<div align="center">
	<center>
	<table width="85" border="0" cellspacing="4" cellpadding="4">
	<%
	for x = 1 to rs.pagesize
  if contador = 0 then 
  	response.write "<tr>" 
  end if

  do while not rs.eof and contador < rs.pagesize%>
  	<td align="center" width="81"> 
    <div align="center">
    	<center> 
      <table width="80" border="0" cellspacing="1">
      	<tr>
        <td width="77" align="center" valign="middle"><img src="cinema/images/<%=rs("foto")%>" border="0"></td>
      	</tr>
      	<tr>
        <td width="77" height="40" align="center" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><%=rs("titulo")%></font></td>
      	</tr>
      </table>
    	</center>
    </div>
  	</td>
  <%
  contador = contador + 1
  rs.movenext
  loop

  contador = contador + 1
  if contador = 6 then
  	response.write "</tr>"
  	contador = 0
  end if
	next%>
	</table>
	</center>
	</div>
<%end if

rs.close
set rs = nothing
set conn=nothing
%>