Ir para conteúdo

POWERED BY:

Arquivado

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

inicio

Busca

Por , em ASP Clássico

Recommended Posts

inicio    0

inicio
Postado

Obrigado pela ajuda

O codigo abaixo realiza a busca mais nao cria o link, e os dados estão desordenados.

A resposta que aparece é:

Resultado da Pesquisa - Foram encontradas as seguintes ocorrências:James Nascimento

<A HREF='james.nascimento@bol.com.br>

32201180teste de inclusão de dados

O código é:

 

<!-- Created: 00:00:00 --><html>	<head>		<meta name="GENERATOR" Content="ASP Express 5.0">		<title>Untitled</title>	</head>	<body><%Caminho = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\web\localuser\jamesnascimento\banco\banco.mdb;"Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open Caminhovalor=request.Form("nomeag")SqlStr= "SELECT * FROM Tabela1 WHERE nome_ag LIKE '%" &valor& "%'"Set Rs = oConn.Execute(SqlStr)If Rs.EOF thenResponse.Write("Não Foram encontradas ocorrências para palavra digitada")ElseResponse.Write("Resultado da Pesquisa - Foram encontradas as seguintes ocorrências:")Link=rs.fields("emailag")Do until Rs.eofIf rs.fields.count>0 thenelseResponse.Write("Não Foram encontrados nenhuma ocorrência para a palavra digitada")End IfResponse.Write(Rs.fields("nome_ag")&"<br>")Response.Write("<A HREF='"& RS.Fields("emailag")&">"&"<BR>")Response.Write("<b>"& rs.fields ("telag")&"</B></a>")Response.Write("<b>"& rs.fields ("assuntoag")&"</B></a>")Rs.movenextLoopend if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

Substitua essa

Response.Write(Rs.fields("nome_ag")&"<br>")
Response.Write("<A HREF='"& RS.Fields("emailag")&">"&"<BR>")
Response.Write("<b>"& rs.fields ("telag")&"</B></a>")
Response.Write("<b>"& rs.fields ("assuntoag")&"</B></a>")

 

por essa

Response.Write(Rs.fields("nome_ag")&"<br>")
Response.Write("<A HREF=""mailto:"& RS.Fields("emailag")&""">"& RS.Fields("emailag")&"</a><BR>")
Response.Write("<b>"& rs.fields ("telag")&"</B>")
Response.Write("<b>"& rs.fields ("assuntoag")&"</B>")

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