Ir para conteúdo

POWERED BY:

Arquivado

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

lifenetwork

Preciso pegar uma parte de um texto que esta no banco de dados

Por , em ASP Clássico

Recommended Posts

wilnet    92

wilnet
Postado

Qual é a linha 55, posta ela.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Como vc esta executando-o


SET rsContacts = oConn.Execute (...)


ou


rsContacts.Open sSQL, oConn

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Poste novamente como está sua conexao e tb a página com seus códigos.

 

Att

Compartilhar este post

Link para o post
Compartilhar em outros sites

lifenetwork    0

lifenetwork
Postado

---- abre_db.inc ----

 

<%
set conn=server.createobject("adodb.connection")
'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
'"Data Source=C:\Users\Windows\Documents\My Web Sites\condo\db\dbcondo.mdb;"
conn.open "dbcondo"
%>
---- lista_reclamacao.asp ---
<html>
<head>
<p>Alteração</p>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ADM CodoSoft - Condomínio Morada do Sol</title>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<!--#include file="abre_bd.asp" -->
<%
Dim vX
Function resumindo(txt,vCrt)
vX = Mid(txt, 1, vCrt)
if NOT Len(txt) <= vCrt then
resumindo = vX
else
resumindo = vX & "..."
end if
end function
%>
<%
dim vrreclamacoes, SQL, listar_reclamacao
set rs = createobject("adodb.recordset")
set rs.activeconnection = conn
regs = 35
pag = request.querystring("pagina")
if pag = "" Then
pag = 1
end if
'rs.cursortype = 3
'rs.pagesize = regs
reclamacoes = REQUEST.QUERYSTRING("localiza")
sql ="select * from livro_reclamacoes where codigo like '%" & request.form("localiza") & "%' or nome like '%" & request.form("localiza") & "%' " &" order by id desc"
rs.open sql
Set listar_reclamacao = dbcondo.Execute(SQL)
If listar_reclamacao.EOF = False Then
else
Response.Write "Texto ainda não cadastrado."
%>
<%
listar_reclamacao.Close
set listar_reclamacao = Nothing
%>
<table border="0" width="1421" cellspacing="0" cellpadding="0" height="10">
<tr>
<td width="248" height="57">
<p style="margin-top: 0; margin-bottom: 0"> </p>
</td>
<td width="810" height="57" valign="top"><!--#include file="cabecalho.asp" --></td>
<td width="363" height="57" valign="top"> </td>
</tr>
<tr>
<td width="248" bgcolor="#B8DB7C">
<p style="margin-top: 0; margin-bottom: 0"> </td>
<td width="810" bgcolor="#B8DB7C"> </td>
<td width="363" bgcolor="#B8DB7C"> </td>
</tr>
<tr>
<td width="248" bgcolor="#FFFFFF"> </td>
<td width="810" bgcolor="#FFFFFF">
<table border="0" width="829" cellpadding="0" cellspacing="3" height="110">
<tr>
<td width="111" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="menu_adm.asp" --></td>
</tr>
</table>
</td>
<td width="709" valign="top">
<div align="center">
<table border="0" width="96%" cellspacing="0" cellpadding="0" height="106">
<tr>
<td> </td>
</tr>
<tr>
<td>
<table border="0" width="684" cellspacing="0" cellpadding="0" height="26">
<tr>
<td bgcolor="#B8DB7C" width="523">
<font face="Verdana" size="2">Titulo</font></td>
<td width="76" bgcolor="#B8DB7C">
<font face="Verdana" size="2">   
Código</font></td>
<td width="85" bgcolor="#B8DB7C">
<p align="center"> <font face="Verdana" size="2">Respondido</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<div align="center">
<table border="0" width="97%" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#00FFFF">
<table border="1" width="99%">
<tr>
<%
do while not rs.eof and contador < rs.pagesize
%>
<td bgcolor="#FFFFFF">
<span style="background-color: #FFFFFF">
Ocorrência :<%=RS("ocorrencia") %></span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<span style="background-color: #FFFFFF">
por <%=RS("nome") %> - Bloco <%=RS("bloco") %>
- AP <%=RS("apartamento") %> -  <%=RS("data") %>
às <%=RS("hora") %></span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<span style="background-color: #FFFFFF">
Nº da ocorrência :  <%=RS("codigo") %>
- Status : <%=RS("status") %></span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<span style="background-color: #FFFFFF">
 <%=(resumido(RS( "reclamacao"),10))%></span></td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<span style="background-color: #FFFFFF">
 </span></td>
</tr>
<%
contador = contador +1
'MOVENDO A CONSULTA
rs.movenext
loop
%>
</table>
</td>
</tr>
<tr>
<td>
</td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td height="48">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td>
<p align="right"><font face="Verdana" size="2">
Página :</font></td>
<td>
<font face="Verdana" size="2">
<%
end if
for i = 1 to rs.pagecount
%>
<%
if i = cint(pag) then
response.write "<b>" & i & "</b>"
else
' SE i NÃO FOR IGUAL A PÁGINA ATUAL, OU SEJA, i FOR MAIS QUE 1 ENTÃO TERÃO MAIS DE UMA PÁGINA PARA APRESENTAR A CONSULTA
'PRESTEM ATENÇAÕ QUE EXITE NO LINK A VARIÁVEL i E CIDADE QUE É RESULTADO DE REQUEST.QUERYSTRING("CID")
response.write " <a href='" & request.servervariables("script_name") & "?pagina=" & i & "&vrreclamacoes=" & titulo & "'>" & i & "</a> "
end if
'MOVENDO OS NUMEROS DE i PARA CONTINUA A CONSULTA (i SERÁ UM LINK)
next
%>
</font>
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</div>
</td>
</tr>
</table>
</td>
<td width="363" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td width="248" bgcolor="#FFFFFF"> </td>
<td width="810" bgcolor="#FFFFFF"> </td>
<td width="363" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td width="248" bgcolor="#000000"> </td>
<td width="810" bgcolor="#000000"> </td>
<td width="363" bgcolor="#000000"> </td>
</tr>
<tr>
<td width="248" bgcolor="#B8DB7C"> </td>
<td width="810" bgcolor="#B8DB7C" valign="top"><!--#Include file="rodape.asp" --></td>
<td width="363" bgcolor="#B8DB7C"> </td>
</tr>
</table>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

coloque assim

rs.open sql,conn,1,3

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

habilite essas linhas

 

'rs.cursortype = 3
'rs.pagesize = regs
tire as aspas

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Seu arquivo de conexao tb está com uma linha como comentário.

 

<%
set conn=server.createobject("adodb.connection")
'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
'"Data Source=C:\Users\Windows\Documents\My Web Sites\condo\db\dbcondo.mdb;"
conn.open "dbcondo"
%>

Deixe assim:

 



 


<%
set conn=server.createobject("adodb.connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Users\Windows\Documents\My Web Sites\condo\db\dbcondo.mdb;"
conn.open "dbcondo"
%>


 


Att,



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
lifenetwork
			  

	
		
	
			 0
	
		
	

		

		

			


	
		lifenetwork
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			

Tirei as '  é continua o erro... 


 


Erro de tempo de execução do Microsoft VBScript error '800a01a8'


Objeto necessário: ''


/adm/lista_reclamacao_teste.asp, line 47


 


 


nao entendo o por que ele nao faz a leitura do arquivo em HTML se estiver somente um texto ele faz a leitura mas se estiver HTML ele nao lê.



			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					







	

	

		

			
xanburzum
			  

	
		
	
			 169
	
		
	

		

		

			


	
		xanburzum
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
Dá um response.write na sua string SQL para ver se esta passando valores e  como estão vindo ?


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
Compartilhar este post

			

			
Link para o post

			
			
			

			
				
Compartilhar em outros sites

				

	

			
		

	



	



					
				
					
					
					






					
				
					
					
					







	

	

		

			
xanburzum
			  

	
		
	
			 169
	
		
	

		

		

			


	
		xanburzum
	

		

	

	
	

		



	

	

		

			
		


		

			Postado 
			
				
				
			
		

	


	


	

		
		

			
poste a linha 47 atual


			
		


		

			
				
					

	
	
		

			
				
				

					
				

			
			
			
		

	


				
			
			
    
				
					
					
					
				
				
  • 
					
				
    • 
			

		


		
			

		
	


	

		

			
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