erro no include

[No_Stresss® 0]

Oi pessoal ... tenho um codigo aki em asp .... só que quando vou processar na pagina seguinte ...ou seja ....clicando no submit ...aparece a seguinte mensagem .......

 

 

 

Microsoft OLE DB Provider for SQL Server erro '80040e14'

 

Line 1: Incorrect syntax near '='.

 

/acompanhe_pedido.asp, line 65

<!--#include file="bib/funcoes_uteis.asp"--><!--#include file="bib/classes/classe.asp"--><%dim boolEnviado, sNultimoPedido, vBoleto, vForma_pg, vTipo_Cartaodim sPedidoRequest, sTabelaDados, sEnderecoEntrega, sObsClienteboolEnviado = (request("enviado") <> "")if(not boolEnviado) then	' Verifica se o cliente esta LOGADO	call Verifica_Cliente_Logado(sCpf)else	call Abre_conexao()	sPedidoRequest = replace(replace(trim(request("pedido")),"'",""),"'","")	sTabelaDados = Gera_Tabela_Dados(sPedidoRequest)end if' ==================================================function Gera_Tabela_Dados(sNPedido)	dim sSql, Rs, lContador, sDescricao, boolX		Gera_Tabela_Dados = "<table cellpadding=""0"" cellspacing=""0"" border=""1"" width=""100%"" align=""center"">"Set rs2 = oConn.Execute("Select id from cliente (nolock) where cpf = '"& Session("LoginAtivo") &"' or email = '"& Session("LoginAtivo") &"'")	sSql = "SELECT " & _				"livro.isbn, " & _				"livro.titulo,  " & _				"basket.quantidade,  " & _				"basket.preco_unitario,  " & _				"pedido.total,  " & _				"pedido.tipo_logradouro,  " & _				"pedido.logradouro,  " & _				"pedido.numero,  " & _				"pedido.complemento,  " & _				"pedido.cidade,  " & _				"pedido.estado,  " & _				"pedido.cep,  " & _				"pedido.tipo_cartao, " & _				"pedido.sessao, " & _				"pedido.forma_pg as forma_pg, " & _				"pedido.nome_presente,  " & _				"pedido.cliente_id as cliente_id,  " & _				"cliente.nome as Cliente,  " & _				"autor.nome as Autor,  " & _				"editora.nome, " & _				"tipo_logradouro.tipo_logradouro " & _			"FROM  " & _				"pedido (nolock), " & _ 				"basket (nolock),  " & _				"livro (nolock),  " & _				"autor (nolock),  " & _				"editora (nolock),  " & _				"cliente (nolock),  " & _				"tipo_logradouro (nolock)  " & _			"WHERE  " & _				"pedido.id = "& sNPedido &" and  " & _				"basket.pedido_id = pedido.id and  " & _				"basket.livro_id = livro.id and  " & _				"pedido.cliente_id = cliente.id and  " & _				"cliente.tipo_logradouro = tipo_logradouro.id and "  & _				"livro.editora_id * = editora.id and "  & _				"livro.autor_ukey * = autor.ukey "	Set Rs = oConn.execute(sSql)vForma_pg = Trim(rs("forma_pg"))vTipo_Cartao = Trim(rs("tipo_cartao"))	if trim(rs("forma_pg")) = 2 then vBoleto = "https://mup.comercioeletronico.com.br/paymethods/boleto/model5/prepara_pagto.asp?MerchantId=004476301&orderid="& sNPedido	if trim(rs("forma_pg")) = 0 then		select case Trim(rs("tipo_cartao"))			case "visa"				vBoleto = "visa/log/"& rs("sessao") &".htm"			case "amex"				vBoleto = "amex/log/"& rs("sessao") &".htm"			case "Bradesco Débito"				vBoleto = "bradesco/log/"& rs("sessao") &".htm"		end select	end if	if(not rs.eof) and rs("cliente_id") = rs2("id") then		sEnderecoEntrega = trim(rs("Cliente")) & "<br>" & _						   trim(rs("tipo_logradouro")) & " " & trim(rs("logradouro")) &", " & trim(rs("numero")) & " " & trim(rs("complemento")) & "<br>"  & _						   trim(rs("cidade")) & ", " & trim(rs("estado")) &" <br>"  & _						   "CEP " & trim(rs("cep"))		if(trim(rs("nome_presente")) <> "") then				sEnderecoEntrega = trim(rs("nome_presente")) & "<br>" & _							   trim(rs("tipo_logradouro")) & " " & trim(rs("logradouro")) &", " & trim(rs("numero")) & " " & trim(rs("complemento")) & "<br>"  & _							   trim(rs("cidade")) & ", " & trim(rs("estado")) &" <br>"  & _							   "CEP " & trim(rs("cep"))		end if					Gera_Tabela_Dados = Gera_Tabela_Dados & _		"<tr> " & vbcrlf & _			"<td valign=""middle"" width=""20%""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""center""><b>Título</b></p></font></td> " & vbcrlf & _			"<td valign=""middle"" width=""15%""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""center""><b>Autor</b></p></font></td> " & vbcrlf & _			"<td valign=""middle"" width=""15%""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""center""><b>Editora</b></p></font></td> " & vbcrlf & _			"<td valign=""middle"" width=""5%""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""center""><b>Qtde</b></p></font></td> " & vbcrlf & _			"<td valign=""middle"" width=""5%""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""center""><b>Valor</b></p></font></td> " & vbcrlf & _			"<td valign=""middle"" width=""13%""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""center""><b>Status</b></p></font></td> " & vbcrlf		if(Recupera_CamposAux("ObsCliente", sNPedido, "") <> "") then 			Gera_Tabela_Dados = Gera_Tabela_Dados & _					"<td valign=""middle"" width=""10%""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""center""><b>Obs.:</b></p></font></td> " & vbcrlf		end if		Gera_Tabela_Dados = Gera_Tabela_Dados & "</tr>"		boolX = false				do while not rs.eof						sTitulo = trim(rs("titulo"))			sAutor = trim(rs("autor"))			sEditora = trim(rs("nome"))			sQuantidade = trim(rs("quantidade"))			sValor = trim(rs("preco_unitario"))			sStatus = Recupera_CamposAux("status", sNPedido, trim(rs("isbn")))			if(sStatus = "" or Isnull(sStatus)) then sStatus = "Em andamento"			if(Recupera_CamposAux("ObsCliente", sNPedido, trim(rs("isbn"))) <> "") then sObsCliente = replace(Recupera_CamposAux("ObsCliente", sNPedido, trim(rs("isbn"))),vbcrlf,"<br>")						Gera_Tabela_Dados = Gera_Tabela_Dados & _				"<tr> " & vbcrlf & _					"<td valign=""middle""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""left"">"& sTitulo &"</b></p></font></td> " & vbcrlf & _					"<td valign=""middle""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""left"">"& sAutor &"</b></p></font></td> " & vbcrlf & _					"<td valign=""middle""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""left"">"& sEditora &"</b></p></font></td> " & vbcrlf & _					"<td valign=""middle""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""left"">"& sQuantidade &"</b></p></font></td> " & vbcrlf & _					"<td valign=""middle""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""left"">"& sValor &"</b></p></font></td> " & vbcrlf & _					"<td valign=""middle""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""left"">"& sStatus &"</b></p></font></td> " & vbcrlf			if(sObsCliente <> "") then				Gera_Tabela_Dados = Gera_Tabela_Dados & _					"<td valign=""middle""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""><p align=""left"">"& sObsCliente &"</b></p></font></td> " & vbcrlf				boolX = true			else				if(boolX) then					Gera_Tabela_Dados = Gera_Tabela_Dados & _						"<td valign=""middle""><font face=""Verdana, Arial, Helverica"" size=""1px"" color=""#000000""> </td> " & vbcrlf				end if			end if			Gera_Tabela_Dados = Gera_Tabela_Dados & "</tr>"		rs.movenext		loop		Gera_Tabela_Dados = Gera_Tabela_Dados & "</table>"		else		Gera_Tabela_Dados = "erro"	end if  set Rs = nothingend function' ========================================================function Recupera_CamposAux(Campo, Pedido, Isbn)	dim sSQL, Rs	if(Isbn = "") then		sSQL = "Select * from RelatorioVenda (nolock) where pedido_id = "& Pedido	else		sSQL = "Select * from RelatorioVenda (nolock) where pedido_id = "& Pedido &" and isbn = '"& isbn &"'"	end if	set Rs = oConn.execute(sSql)	if(not Rs.eof) then 		if(Isbn = "") then			do while not rs.eof				Recupera_CamposAux = (Recupera_CamposAux & trim(rs(Campo)))			rs.movenext			loop		else			Recupera_CamposAux = trim(rs(Campo))		end if	end if	set Rs = nothingend function%><!--#include file="bib/variaveis_extras.asp"--><%   pgSuperSize = "verdadeiro"%><!-- ***************** Inclue a tag base --><!--#include file="bib/tag_base.asp"--><link rel="stylesheet" href="bib/martins.css"><title>Livraria Martins Fontes Editora - Brasil - Conheça a MartinsFontes</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><!-- Inclue o JAVASCRIPT --><!--#include file="bib/site_script01.asp"--><!-- Fim da inclusão --></head><!-- Inclue o logo e a barra de links horizontais --><!--#include file="bib/site_top.asp"--><!-- Fim da inclusão --><!-- Inclue a barra lateral até BUSCA --><!--#include file="bib/site_left01.asp"--><br><script>function validar() {	var Objform = document.frm_login;	if(Objform.pedido.value == '') {		alert('Número do Pedido é requerido.');		Objform.pedido.focus();		return false;	} else {		return true;	}}</script><center><form name="frm_login" method="post" onSubmit="return validar()" action="acompanhe_pedido.asp"><input type="Hidden" name="enviado" value="ok"><table width="95%" cellpadding="0" cellspacing="0" border="0">   <tr>	  <td>		 <font size="2px" face="Verdana, Arial, Helverica" color="#407084">			<font size="4"><b><center>Acompanhe seu Pedido</center></b></font>			<br><br><%if(not boolEnviado) then%>			<table width="100%" border="0" cellspacing="3" cellpadding="3">			  <tr> 				<td><p align="center"><font color="#407084" face="Verdana, Arial, Helverica" size="2px">Número do Pedido: <input type="Text" size="8" name="pedido" class="form03"> <input type="image" src="/images/bt_ok.gif" align="middle" name="Ok" width="19" height="15" border="0" alt="Ok"></font></p><br></td>			  </tr>			</table><%else%>		<%if(sTabelaDados = "erro") then %>			Código de pedido inválido.<br><br>			Por favor, entre em contato conosco pelo e-mail: <a href="mailto: virtual@martinsfontes.com.br">virtual@martinsfontes.com.br</a>	<%else%>			<table width="100%" border="0" cellspacing="3" cellpadding="3">				<tr>					<td valign="middle" align="center" width="50%" height="40"><font color="#407084" face="Verdana, Arial, Helverica" size="2px">Pedido: <strong><%= sPedidoRequest%></strong></font></td>					<td valign="middle" align="center" width="50%"><font color="#407084" face="Verdana, Arial, Helverica" size="2px">Data do Pedido: <strong><%= Recupera_Dados_Pedido(sPedidoRequest, "data_hora") %></strong></font></td>				</tr>				<tr>					<td colspan="3"><%= sTabelaDados %></td>				</tr>				<tr>					<td colspan="3"><font color="#000000" face="Verdana, Arial, Helverica" size="2px">					  <p> </p>			<% if vForma_pg = 0 and vTipo_Cartao <> "mastercard" then %>			<strong><a href=<% = vBoleto %> target=_blank>Imprimir Comprovante</a>			<% elseif vForma_pg = 0 and vTipo_Cartao = "mastercard" then %>			<strong><a href="/redecard/log/frm_dados.asp" target=_blank>Imprimir Comprovante</a>			<% elseif vForma_pg = 2 then %>			<strong><a href=<% = vBoleto %> target=_blank>Imprimir Boleto</a>			<% end if %>						</a></strong>						</font>					</td>				</tr>				<tr>					<td colspan="3"><font color="#407084" face="Verdana, Arial, Helverica" size="2px">						<p> </p>						<strong>Endereço para Entrega</strong>						<br><Br>						<%= sEnderecoEntrega %>						</font>					</td>				</tr>				<tr>					<td><br><font size="2" face="Verdana, Arial, Helverica" color="#000000"><a href="home.asp" class="link01">Sair</a></td>				</tr>			</table>	<%end if%>	<p> </p><%end if%>			</font>	  </td>   </tr></table></form></center><!-- Inclue a barra lateral a partir do menu SUA COMPRA e, as figuras dos cartões de crétito --><!--#include file="bib/site_left02.asp"--><!-- Fim da inclusão --><%call fecha_conexao()%>

[Salgado 4]

Por favro, ao postar um código utilize-se da TAG CODE, com ela fica mais fácil visualizar o código.

 

 

Qual é a linha 65? por favor marque-a em seu código.

[No_Stresss® 0]

disculpa ....eskeci de marcar .... linha 65 - Set Rs = oConn.execute(sSql)

[Salgado 4]

Algum dos dados da SQL que está sendo montada logo acima dele está vazia.

Coloque um response.Write(sSQL) e um Response.END antes dessa linha e poste o resultado.

[No_Stresss® 0]

apareceu isso aqui .... não apareceu como erro ...apareceu só esta mensagem....e desde ja agradeço pela sua ajuda....SELECT livro.isbn, livro.titulo, basket.quantidade, basket.preco_unitario, pedido.total, pedido.tipo_logradouro, pedido.logradouro, pedido.numero, pedido.complemento, pedido.cidade, pedido.estado, pedido.cep, pedido.tipo_cartao, pedido.sessao, pedido.forma_pg as forma_pg, pedido.nome_presente, pedido.cliente_id as cliente_id, cliente.nome as Cliente, autor.nome as Autor, editora.nome, tipo_logradouro.tipo_logradouro FROM pedido (nolock), basket (nolock), livro (nolock), autor (nolock), editora (nolock), cliente (nolock), tipo_logradouro (nolock) WHERE pedido.id = 12305 and basket.pedido_id = pedido.id and basket.livro_id = livro.id and pedido.cliente_id = cliente.id and cliente.tipo_logradouro = tipo_logradouro.id and livro.editora_id * = editora.id and livro.autor_ukey * = autor.ukey

[Salgado 4]

Eu não entendi o que esses "*" estão fazendo nos 2 últimos campos. Retire-os e retire também o trcho que pedi para acrescentar e rode novamente.

[No_Stresss® 0]

apareceu isso....Microsoft OLE DB Provider for SQL Server erro '80040e14' Line 1: Incorrect syntax near '='. /acompanhe_pedido.asp, line 66linha 66 Set Rs = oConn.execute(sSql)