Selecionando aonde buscar.

[Rodrigo F. 0]

[Editado para evitar flood]

[Mário Monteiro 179]

esse end pode ser de qualquer coisa

 

end if

end select

wend

 

veja ai tem alguma estrutura sua aberta

[Rodrigo F. 0]

Vou olhar novamente para tentar localizar, pois ja havia observado linha a linha e não vi nada aberto :{

mais vlws =D

[Mário Monteiro 179]

nao necessariamente esta faltando nesta linha

 

mas com certeza tem uma estrutura antes dela que nao foi fechada

[Rodrigo F. 0]

nao necessariamente esta faltando nesta linha

 

mas com certeza tem uma estrutura antes dela que nao foi fechada

Ja revisei varias vezes e ainda não encontrei o problema, mais vou continuar tentando, pq deve ser algo bobo, que passa despercebido

[Rodrigo F. 0]

nao necessariamente esta faltando nesta linha

 

mas com certeza tem uma estrutura antes dela que nao foi fechada

Ja revisei varias vezes e ainda não encontrei o problema, mais vou continuar tentando, pq deve ser algo bobo, que passa despercebido

 

 

Existe algum programa que faça apenas o check dessas coisas?

verificar se ta faltando algun end, end if e tals

[xanburzum 169]

pelo erro gerado, esta faltando...

faz um teste de mesa, verificando o código, linha a linha

atribuindo os valores as variaveis e execuntado as propriedades e metodos......

[Rodrigo F. 0]

é.. vou fazer isso novamente ;\

ja testei umas 10x isso

[xikoo 0]

no caso tem um monte de if e else tudo embaraçado sem end if, não consegui localizar um monte

seu código está bem bagunçado

ajeita ele certinho que você encontra esse erro rapidinho

[xikoo 0]

bom arranjei um tempinho aqui e consegui organizar até essa parte com todos os End if's que consegui achar

 

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Cinepipoca.asp" -->

<%
Dim filme__MMColParam
filme__MMColParam = "AAAAZZZZCXCAAJAJA"

if (Request.QueryString("escolhas") <> "") then filme__MMColParam = Request.QueryString("escolhas")
%>

<%
	function preparaPalavra(str)
	preparaPalavra = replace(str,"a","[a,á,à,ã,â,ä]")
	preparaPalavra = replace(preparaPalavra,"e","[e,é,è,ê,ë]")
	preparaPalavra = replace(preparaPalavra,"i","[i,í,ì,î,ï]")
	preparaPalavra = replace(preparaPalavra,"o","[o,ó,ò,õ,ô,ö]")
	preparaPalavra = replace(preparaPalavra,"u","[u,ú,ù,û,ü]")
	preparaPalavra = replace(preparaPalavra,"c","[c,ç]")
	preparaPalavra = preparaPalavra
	end function


	ip = Request.ServerVariables("REMOTE_ADDR")
	Dim categoria__MMColParam
	categoria__MMColParam = Trim(Request.QueryString("id_genero"))

	set filme = Server.CreateObject("ADODB.Recordset")
	filme.ActiveConnection = MM_Cinepipoca_STRING

	if categoria__MMColParam = "Titulo" then

		filme.Source = "SELECT *  FROM filme  WHERE titulo LIKE '%" + Replace(preparaPalavra(filme__MMColParam), "'", "''") + "%' OR titulo_original LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' ORDER BY titulo ASC"
	
	else
		
		filme.Source = "SELECT *  FROM filme  WHERE titulo LIKE '%" + Replace(preparaPalavra(filme__MMColParam), "'", "''") + "%' OR titulo_original LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%') AND  id_genero = "&categoria__MMColParam&" ORDER BY titulo ASC"

		if categoria__MMColParam = "Ator" then

			filme.Source = "SELECT *  FROM filme  WHERE atores1 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores2 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores3 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores4 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores5 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores6 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores7 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores8 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores9 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores10 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' ORDER BY titulo ASC"
		
		else

			filme.Source = "SELECT *  FROM filme  WHERE atores1 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores2 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores3 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores4 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores5 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores6 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores7 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores8 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores9 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' OR atores10 LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%') AND  id_genero = "&categoria__MMColParam&" ORDER BY titulo ASC"
	
			if categoria__MMColParam = "Diretor" then

				filme.Source = "SELECT *  FROM direcao LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' ORDER BY titulo ASC"
			
			else
			
				filme.Source = "SELECT *  FROM direcao LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%') AND  id_genero = "&categoria__MMColParam&" ORDER BY titulo ASC"

				if categoria__MMColParam = "Sinopse" then

					filme.Source = "SELECT *  FROM filme  WHERE sinopse LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%' ORDER BY titulo ASC"

				else

					filme.Source = "SELECT *  FROM filme  WHERE sinopse LIKE '%" + Replace(filme__MMColParam, "'", "''") + "%') AND  id_genero = "&categoria__MMColParam&" ORDER BY titulo ASC"
				End if
			End if
		End if	
	End if


filme.CursorType = 0
filme.CursorLocation = 2
filme.LockType = 3
filme.Open()
filme_numRows = 0
%>

<%
if categoria__MMColParam <> "" then
	set categoria = Server.CreateObject("ADODB.Recordset")
	categoria.ActiveConnection = MM_Cinepipoca_STRING
	categoria.Source = "SELECT * FROM genero WHERE codigo = "&categoria__MMColParam&""
	categoria.CursorType = 0
	categoria.CursorLocation = 2
	categoria.LockType = 3
	categoria.Open()
	categoria_numRows = 0
End if
%>

<%
				  
Set msg = Server.CreateObject("CDONTS.NewMail")

Dim msg, HTML
				  
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html><head><title>Club Video - Resultado de busca dentro do Site!</title></head>"
HTML = HTML & "<body bgcolor=#FFFFFF text=#000000><font face=Tahoma size=2>"
HTML = HTML & "Data: "&Date&"<Br>"
HTML = HTML & "IP: "&ip&"<Br><br>"

If Session("Aut") = "Ok" Then
	HTML = HTML & "Cliente: Id "&Session("IDCliente")&" - "&Session("IDnome")&"<Br><br>"
End if

HTML = HTML & "Palavra Buscada: <b>"&filme__MMColParam&"</b><Br>"
if categoria__MMColParam <> "" then
HTML = HTML & "Gênero: <b>"&categoria.Fields.Item("genero").Value&"</b><Br>"
End if

If Not filme.EOF Or Not filme.BOF Then
	HTML = HTML & "<br><font color=#0000FF>Busca Encontrada Com Sucesso!</font>"
End if

If filme.EOF And filme.BOF Then
	HTML = HTML & "<br><font color=#FF0000>Busca Não Encontrada!</font>"
End if

HTML = HTML & "</font>"
HTML = HTML & "</body></html>"
				  
msg.From = "contato@cluvideo.com.br"
msg.To = "rodriqo@gmail.com"
msg.Subject = "Club Video - Resultado de busca dentro do Site!"
msg.BodyFormat = 0
msg.MailFormat = 0
msg.Body = HTML
msg.Send
						  
Set msg = Nothing
%>

<%
Dim HLooper1__numRows
HLooper1__numRows = 20
Dim HLooper1__index
HLooper1__index = 0
filme_numRows = filme_numRows + HLooper1__numRows
%>
<html>
<head>
<meta http-equiv="Content-Language" content="pt-br" />
<meta http-equiv="Cache-Control" content="no-cache, no-store" />
<meta http-equiv="Pragma" content="no-cache, no-store" />
<meta name="robots" content="index, follow" />
<meta name="description" content="Club Video - Prazer em atender você!!! Os melhores filmes, promoções, lan-house, Recarga Online e diversos serviços especializados. Tudo ao seu alcance!" />
<meta name="keywords" content="locadora, cinema, dvd, ilhéus, ios, serviços, classificados, compras, entretenimento, animação, filmes, arte, cultura, bahia, crianças, diversão, vhs, trailers, sinopse, suspense, drama, ação, aventura, comédia, animação, romance, terror, policial, ficção, agenda, informação, clima" />
<meta name="URL" content="http://www.clubvideo.com.br">
<meta name="SUBJECT" content="Video Locadora">
<meta name="RATING" content="GENERAL">
<meta name="audience" content="all">
<meta name="LANGUAGE" content="Portuguese">
<meta name="ROBOTS" content="index,follow">
<meta name="GOOGLEBOT" content="index,follow">
<meta name="Dc.title" content="Club Video" />
<meta name="Author" content="Rodrigo F. Santos - wwBR.net" />
<link rel="SHORTCUT ICON" href="http://www.clubvideo.com.br/favicon.ico" />
<link rel="apple-touch-icon" href="http://www.clubvideo.com.br/favicon.jpg" />
<title>Club Video - Prazer em Atender Você!</title>
<link rel="stylesheet" href="estilo.css" type="text/css">
<link rel="stylesheet" href="estilo_cine.css" type="text/css">
<link rel="stylesheet" href="noticias/estilo_noticias.css" type="text/css">
<link href="style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function msg(){
window.status="Club Video - Prazer em Atender você";
return true;
}
</script>

<style type="text/css">
<!--
.style1 {
	color: #FF0000;
	font-weight: bold;
}
-->
</style>
<style type="text/css">
.sTitle {
	font-size: 13px;
	font-family: Arial, Helvetica, sans-serif;
}
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" align="center" link="#0176C8" vlink="#0176C8" alink="#0176C8" onLoad="msg()" rightmargin="0" bottommargin="0">
<table class="container" align="center" border="0" cellpadding="0" cellspacing="0">
<tbody><tr>
  <td width="11"><img src="images/canto_esquerdo_1.gif" width="11" height="11"></td>
  <td width="100%" background="images/centro_top.gif"></td>
  <td width="11"><img src="images/canto_direito_1.gif" width="11" height="11"></td>
</tr>
<tr>
  <td background="images/esquerdo_s_1.gif"></td>
  <td><table width="784" border="0" cellpadding="0" cellspacing="0" height="68">
	<tbody><tr>
	 <td valign="top">
				<!--#include file="topo_logo.asp" --></td>
	</tr>
   </tbody></table></td>
  <td background="images/direito_s.gif"></td>
</tr>
<tr>
  <td background="images/esquerdo_s_1.gif"> </td>
	 <td class="navTable">
		<iframe name="I1" src="menu.htm" width="778" height="40" scrolling="no" frameborder="no" hspace="0" vspace="0" marginwidth="1" marginheight="1"></iframe>
	</td>

  <td background="images/direito_s.gif"> </td>
</tr>
<tr>
  <td background="images/esquerdo_s_1.gif"></td>
	 <td class="navTable">
		 </td>

  <td background="images/direito_s.gif"></td>
</tr>
<tr>
  <td background="images/esquerdo_s_1.gif" height="340"></td>
  <td valign="top" align="left">
<% If Not filme.EOF Or Not filme.BOF Then %>
			
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
filme_total = filme.RecordCount

' set the number of rows displayed on this page
If (filme_numRows < 0) Then
  filme_numRows = filme_total
Elseif (filme_numRows = 0) Then
  filme_numRows = 1
End If

' set the first and last displayed record
filme_first = 1
filme_last  = filme_first + filme_numRows - 1

' if we have the correct record count, check the other stats
If (filme_total <> -1) Then
	If (filme_first > filme_total) Then 
		filme_first = filme_total
	End if
	If (filme_last > filme_total) Then
		filme_last = filme_total
	End if
	If (filme_numRows > filme_total) Then 
		filme_numRows = filme_total
					
	End if
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (filme_total = -1) Then

  ' count the total records by iterating through the recordset
  filme_total=0
  While (Not filme.EOF)
	filme_total = filme_total + 1
	filme.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (filme.CursorType > 0) Then
	filme.MoveFirst
  Else
	filme.Requery
  End If

  ' set the number of rows displayed on this page
  If (filme_numRows < 0 Or filme_numRows > filme_total) Then
	filme_numRows = filme_total
  End If

  ' set the first and last displayed record
  filme_first = 1
  filme_last = filme_first + filme_numRows - 1
  If (filme_first > filme_total) Then 
	filme_first = filme_total
  End if
  If (filme_last > filme_total) Then 
	filme_last = filme_total
  End if
End If
%>
<%
Dim MM_paramName
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs	= filme
MM_rsCount   = filme_total
MM_size	  = filme_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  r = Request.QueryString("index")
  If r = "" Then r = Request.QueryString("offset")
  If r <> "" Then MM_offset = Int(r)

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
	If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
	  If ((MM_rsCount Mod MM_size) > 0) Then		 ' last page not a full repeat region
		MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
	  Else
		MM_offset = MM_rsCount - MM_size
	  End If
	End If
  End If

  ' move the cursor to the selected record
  i = 0
  While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
	MM_rs.MoveNext
	i = i + 1
  Wend
  If (MM_rs.EOF) Then MM_offset = i  ' set MM_offset to the last possible record

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
	MM_rs.MoveNext
	i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
	MM_rsCount = i
	If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
	If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
	  If ((MM_rsCount Mod MM_size) > 0) Then
		MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
	  Else
		MM_offset = MM_rsCount - MM_size
	  End If
	End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
	MM_rs.MoveFirst
  Else
	MM_rs.Requery
  End If

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
	MM_rs.MoveNext
	i = i + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
filme_first = MM_offset + 1
filme_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
	If (filme_first > MM_rsCount) Then 
		filme_first = MM_rsCount
	End if
	If (filme_last > MM_rsCount) Then 
		filme_last = MM_rsCount
	End if
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
	MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
	MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then 
	MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
end if
if (MM_keepURL <> "")  Then 
MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)]
end if
if (MM_keepForm <> "") Then 
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
end if

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
	MM_joinChar = "&"
  Else
	MM_joinChar = ""
  End If
End Function
%>
			<%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
	params = Split(MM_keepMove, "&")
	MM_keepMove = ""
	For i = 0 To UBound(params)
	  nextItem = Left(params(i), InStr(params(i),"=") - 1)
	  If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
		MM_keepMove = MM_keepMove & "&" & params(i)
	  End If
	Next
	If (MM_keepMove <> "") Then
	  MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
	End If
  End If
End If

não consegui compreender a lógica após "' set the strings for the move to links" então não sei onde terminam os if's a seguir

abraços

[Rodrigo F. 0]

[Editado para evitar flood]

[xanburzum 169]

coloca o numero da linha que gera o erro...

[Rodrigo F. 0]

[Editado para evitar flood]

[Rodrigo F. 0]

[Editado para evitar flood]

[Rodrigo F. 0]

Todos os teste que fiz deram o mesmo resultado, e não tem erro de if pq o mesmo código ta funcionando :{

[Mário Monteiro 179]

qual o erro atual?

 

ainda é o de end esperado?

[Rodrigo F. 0]

[Editado para evitar flood]

[xanburzum 169]

Verifique a ortografiae A coluna a qual você se refere na Base de Dados ,pois não sendo encontrada.

[Rodrigo F. 0]

[Editado para evitar flood]

[Kalmfs 0]

xanburzum,acho q o problemado tópico http://forum.imasters.com.br/index.php?showtopic=327428 não é o mesmo deste aqui, se for possível reabre o tópico pra não misturar as coisas.