Ir para conteúdo

POWERED BY:

Arquivado

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

m4r1n0

Select em caixa de texto !!

Por , em ASP Clássico

Recommended Posts

jrcardozo    4

jrcardozo
Postado

verifique se você não abriu o arquivo access enquanto tenta fazer a consulta.Destrua os objetoque não estiverem mais sendo usado

Compartilhar este post

Link para o post
Compartilhar em outros sites

m4r1n0    0

m4r1n0
Postado

O engraçado que locamente ele funciona, quando eu jogo pro site, ele da esse erro !! doidera !

 

Segue o CODIGO !!

 

Feito em DW ( modificado )

 

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/Let.asp" --><%Dim rsDim rs_numRowsSet rs = Server.CreateObject("ADODB.Recordset")rs.ActiveConnection = MM_Let_STRINGrs.Source = "SELECT * FROM log ORDER BY id ASC"rs.CursorType = 0rs.CursorLocation = 2rs.LockType = 1rs.Open()rs_numRows = 0%><%Dim rsNomeDim rsNome_numRowsrsNome_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0rs_numRows = rs_numRows + Repeat1__numRows%><%if Request.Cookies("philoginadmin") <> "True" then	Response.Redirect("philogin_admin.asp")end if%>  <html><head><title>GrupoLet - Movimentação de Usuários</title><link href="interface.css" rel="stylesheet" type="text/css"><style type="text/css"><!--.style1 {	color: #608BB5;	font-size: 14px;	font-weight: bold;}.style10 {font-size: 6pt;	font-weight: bold;}.style11 {color: #000099}.style12 {font-weight: bold}.style15 {font-size: 12px}.style16 {font-family: verdana, tahoma, arial, helvetica, sans-se}.style18 {font-family: verdana, tahoma, arial, helvetica, sans-se; font-weight: bold; }.style22 {font-size: 9px}.style23 {font-family: verdana, tahoma, arial, helvetica, sans-se; font-size: 10px; }.style26 {font-family: verdana, tahoma, arial, helvetica, sans-se; font-weight: bold; font-size: 12px; }--></style></head><body bgcolor="#FFFFFF" link="#DD0000" vlink="#DD0000" alink="#000000"><h3 align="center"><font size="2" face="arial,helvetica"><img src="icons/title.jpg" width="768" height="150" border="0" usemap="#Map">  <map name="Map">	<area shape="rect" coords="657,127,768,151" href="philogin_admin.asp" target="_self" alt="Acesso Restrito">  </map></font></h3><p align="center"><font face="arial,helvetica"><a href="philogin_admin.asp"><span class="style15">Mostrar Usuário</span></a><span class="style15"><a href="philogin_admin.asp">s </a> </span></font><font size="2" face="arial,helvetica"><span class="style12">| </span></font><font face="arial,helvetica"><a href="philogin_admin-messageall.asp" class="style15">Enviar mensagem para todos</a></font><font size="2" face="arial,helvetica"><strong> |  </strong></font><font face="arial,helvetica"><a href="analise_critica.asp" class="style15">Registrar Análise Crítica</a></font><strong><font size="2" face="arial,helvetica"> | </font> </strong><font face="arial,helvetica"><a href="signupform.asp" class="style15">Cadastar Novo Usuário</a></font><font size="2" face="arial,helvetica"> <strong>| </strong></font><font face="arial,helvetica"><a href="philogin_admin-signout.asp" class="style15">Encerrar</a></font><br>  <br></p><p align="center"> </p><% If Not rs.EOF Or Not rs.BOF Then %>  <table width="622" border="1" align="center" cellspacing="0">	<tr class="highlight">	  <td width="45"><div align="center" class="style15"><span class="style18">ID</span></div></td>	  <td width="101"><div align="center" class="style15"><span class="style18">CPF</span></div></td>	  <td width="120"><div align="center"><span class="style26">Nome</span></div></td>	  <td width="120"><div align="center"><span class="style15"><span class="style18">Sobrenome</span></span></div></td>	  <td width="120"><div align="center" class="style15"><span class="style18">Data</span></div></td>	  <td width="90"><div align="center" class="style15"><strong>Situação</strong></div></td>	</tr>  </table>      <% While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) %><%Set rsNome = Server.CreateObject("ADODB.Recordset")rsNome.ActiveConnection = MM_Let_STRINGrsNome.Source = "SELECT firstname, surname  FROM users  WHERE username = '"&rs.Fields.Item("username").Value&"'"rsNome.CursorType = 0rsNome.CursorLocation = 2rsNome.LockType = 1rsNome.Open()%>	<table width="624" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC">	  <tr>		<td width="44"><div align="center" class="style22"><span class="style16"><%=(rs.Fields.Item("id").Value)%></span></div></td>		<td width="99"><div align="center" class="style23"><%=(rs.Fields.Item("username").Value)%></div></td>		<td width="120"><div align="center"><span class="style23"><%=(rsNome.Fields.Item("firstname").Value)%></span></div></td>		<td width="120"><div align="center"><span class="style23"><%=(rsNome.Fields.Item("surname").Value)%></span></div></td>		<td width="120"><div align="center" class="style22"><span class="style16"><%=(rs.Fields.Item("Data").Value)%></span></div></td>		<td width="88"><div align="center" class="style22"><span class="style16"><%=(rs.Fields.Item("descricao").Value)%></span></div></td>	  </tr>	</table>	<%   Repeat1__index=Repeat1__index+1  Repeat1__numRows=Repeat1__numRows-1  rs.MoveNext()Wend%><% End If ' end Not rs.EOF Or NOT rs.BOF %><p align="center" class="style1"> </p><% If rs.EOF And rs.BOF Then %>  <p align="center" class="style1">Nenhum registro encontrado ! </p>  <% End If ' end rs.EOF And rs.BOF %>  <p align="center" class="style1"><br>  <a href="philogin_admin.asp" class="bluelink style15">V<span class="style16">olt</span>ar</a><br>  <br>  <img src="icons/barra_baixo.jpg" width="768" height="15"><span class="introduction"><br>  <span class="style10"><span class="style11">COPYRIGHT © 2007 -</span> GRUPOLET<span class="style11"> - RECURSOS HUMANOS </span></span></span></p></body></html><%rs.Close()Set rs = Nothing%><%rsNome.Close()Set rsNome = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

m4r1n0    0

m4r1n0
Postado

o cara la falou que banco de dadps ACCESS ja e muiltusuario padrao, que n precisa mecher em nada e q ta com todas as permissões ! Doidera !

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

normalmente é assim mas sempre devemos colocar em uma pasta especifica que eles orientam e que fica acima da raiz do site para não ser acessada via browser

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