Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Rodrigo F.

Selecionando aonde buscar.

Por , em ASP Clássico

Recommended Posts

Mário Monteiro    179

Mário Monteiro
Postado

esse end pode ser de qualquer coisa

 

end if

end select

wend

 

veja ai tem alguma estrutura sua aberta

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nao necessariamente esta faltando nesta linha

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo F.    0

Rodrigo F.
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Rodrigo F.    0

Rodrigo F.
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

xikoo    0

xikoo
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

xikoo    0

xikoo
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

qual o erro atual?

 

ainda é o de end esperado?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

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

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito