Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
smez

Erro 800a03f6

Question

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

Edited by cyberalexxx

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

<%

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

Share this post


Link to post
Share on other sites
  • 0

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
%>

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148576
    • Total Posts
      644276
×
×
  • Create New...