Ir para conteúdo
Fórum Script Brasil
  • 0

Consultas

Guest - leonardo -

Perguntado por Guest - leonardo -,

 Share

Pergunta

Guest - leonardo -

Guest - leonardo -

Postado
Postado

Olá pessoal tudo bem?

meu nome é leonardo

já há um tempo acompanho o otimo serviço de vocês

e agora venho pedir um hel em asp e logo mais em php :rolleyes:

seguinte...

consegui fazer a seguinte funçao com alguma ajuda de um amigo meu...

<html>
<head>
<title>..::DannTech Inform&aacute;tica LTDA -  IntraNet::..</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
Digite um Nome a ser pesquisado...
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" height="24" valign="top">
<form action="teste.asp" method="post">
       <input type = text name="buscando" size=12 style= "font-family : Verdana; font-size : 11px; width : 400px;">
<input type="submit" name="Submit" value="Buscar">
</form>
</td>
</tr>
</table>


<%
Busca = Trim(Request.form("buscando"))
%>

<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("dados/mkdiv.mdb")
DB.open constr

Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<hr>

<%
function TiraAspas(str)
str = replace(str,"'","""")
TiraAspas = str
End function


if (request("visualizar")<>"S") then
%>



<table width="100%" border="1">
<tr bgcolor="#00CCFF">
<td width="5%">
<div align="center"><strong>Codigo:</strong></div></td>
<td>
<div align="center"><strong>Nome:</strong></div></td>
</tr>
<tr>
<td height="1"> </td>

<%
Busca=TiraAspas(Busca)

strSql = "SELECT * FROM pessoas WHERE nome LIKE '%"&Busca&"%'"
objRS.Open strSQL,DB,1,1
%>



<%
If (Busca = "") then
Response.write("Você precisa escrever um nome para realizar sua pesquisa.")

ElseIf (objRS.EOF = true) then
response.write "Sua busca por <b>"&Busca&"</b> não retornou nenhum resultado, por favor tente novamente."
Else
do While not objRS.EOF
%>

</tr>
<tr>
<td width="5%"><a href="?cod=<%=objRS("codigo")%>&visualizar=S"><%=objRS("codigo")%></a></td>
<td><a href="?cod=<%=objRS("codigo")%>&visualizar=S"><%=objRS(TiraAspas("nome"))%></a></td>
<%
objRS.MoveNext
Loop
End IF
%>
</tr>
</table>
<%
else
response.write" <table width=100% border=1>"
strSql = "SELECT * FROM pessoas WHERE codigo="& Request.get("codigo")

objRS.Open strSQL,DB,1,1
Do While not objRS.EOF

%>
<tr>
<td>Codigo</td>
<td><%=objRS("codigo")%></td>
</tr>
<tr>
<td>Nome</td>
<td><%=objRS("nome")%></td>
</tr>
<!-- COLOCAR aqui O RETANTE DOS CAMPOS DA BASE DE DAODOS !.-->
 <tr>
   
 <td width="81" bgcolor="#00CCFF"><strong>Codigo</strong></td>
   <td width="100%"><%=objRS("codigo")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Empresa</strong></td>
   <td width="100%"><%=objRS("nome")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Cod. Emp.</strong></td>
   <td width="100%"><%=objRS("codigo_emp")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Titulo</strong></td>
   <td width="100%"><%=objRS("titulo")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Nome</strong></td>
   <td width="100%"><%=objRS("nome")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Endere&ccedil;o</strong></td>
   <td width="100%"><%=objRS("tip_lograd""logradouro")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>N&ordm;</strong></td>
   <td width="100%"><%=objRS("numero")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Compl.</strong></td>
   <td width="100%"><%=objRS("complement")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Bairro</strong></td>
   <td width="100%"><%=objRS("bairro")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Cidade</strong></td>
   <td width="100%"><%=objRS("cidade")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Est.</strong></td>
   <td width="100%"><%=objRS("estado")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>CEP</strong></td>
   <td width="100%"><%=objRS("cep")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Tel.1</strong></td>
   <td width="100%"><%=objRS("telefone1")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Ram.1</strong></td>
   <td width="100%"><%=objRS("ramal1")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Tel.2</strong></td>
   <td width="100%"><%=objRS("telefone2")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Ram.2</strong></td>
   <td width="100%"><%=objRS("ramal2")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Fax</strong></td>
   <td width="100%"><%=objRS("fax")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Ram.Fax</strong></td>
   <td width="100%"><%=objRS("ramalfax")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Depto.</strong></td>
   <td width="100%"><%=objRS("departamnt")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>R.G.</strong></td>
   <td width="100%"><%=objRS("rg")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>CPF</strong></td>
   <td width="100%"><%=objRS("cpf")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Sexo</strong></td>
   <td width="100%"><%=objRS("sexo")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Data Nasc.</strong></td>
   <td width="100%"><%=objRS("data_nasc")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>E-mail</strong></td>
   <td width="100%"><%=objRS("email")%></td>
 </tr>
 <tr>
   
 <td bgcolor="#00CCFF"><strong>Site</strong></td>
   <td width="100%"><%=objRS("site")%></td>
 </tr>


<%
response.write" </table>"
objRS.MoveNext
Loop
end if
%>
</body>
</html>

mas ela não volta o link....

qual seria o objetivo... seria quando a pessoa pesquisasse um nome de uma pesso no campo de texto viessem o nome completo e o codigo da pessoa (até ai tudo bem...)...eles viriam linkados onde no link seria uma funcao que mostrassse outros campos da mesma....

mas quando clico no link da um erro brutal

Erro de tempo de execução do Microsoft VBScript (0x800A01B6)

O objeto não dá suporte para a propriedade ou método: 'get'

/teste.asp, line 89

e nada...

está froid.. num to conseguindo resolver isso....

desde já agradeço...

disponibilizo os meus servicos de design... e convido a todos a passearem pelo meu forum... http://www.forumdom.com/

beleza gente...?

falou

vlw

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
Guest Visitante

Guest Visitante

Postado
Postado

eu já tinha usado este....

e foi o primeiro que usei

mas ele da o seguinte erro....

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)

O driver ODBC não oferece suporte para as propriedades solicitadas.

/teste.asp, line 91

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Visitante

Guest Visitante

Postado
Postado

<%

else

response.write" <table width=100% border=1>"

strSql = "SELECT * FROM pessoas WHERE codigo="& Request.querystring("cod")

objRS.Open strSQL,DB,1,1

Do While not objRS.EOF

%>

deveria ser isso não é?

ao menos analizando direitinho foi o que eu percebi....

e tpw

como eu faço para abrir um pop me mostrando o que ele vai carregar antes do

objRS.Open strSQL,DB,1,1

Do While not objRS.EOF

%>

porque assim eu posso debugar esse erro mais facilmente....

obrigado por tudo....

vlwzzzz

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...