Luka13th

Certo... mas como inserir o endereço no banco? O que eu precisaria é uma relação dos arquivos que tem na minha pasta Uploads e escolher qual arquivo quero inserir num determinado cadastro. :unsure:

Olá! Eu configurei um arquivo para que fizesse upload de imagens em uma pasta. Depois que ele faz, uma página exibe a imagem e o endereço. Até aí tudo bem. Como fazer para inserir esse caminho em um determinado registro de um banco Access? Eu gostaria de inserir uma figura num banco de notícias, agora não sei como fazer e se a melhor forma é inserir no corpo do texto ou num outro campo da tabela. :unsure:

Maravilha! Valeu galera. :lol:

Tenho uma página de acesso restrito (funciona normal), mas gostaria que ela tivesse um tempo muito longo de permissão, antes que caia automaticamente. É possível determinar o tempo que o usuário pode ficar numa página restrita? Ou então, é possível que o acesso permaneça e não caia, saindo somente quando ele clicar em logoff? Minha página: <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="erro_perm.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <!--#include file="Connections/Usuarios.asp" --> <% Dim Usuarios__MMColParam Usuarios__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Usuarios__MMColParam = Request.QueryString("ID") End If %> <% Dim Usuarios Dim Usuarios_numRows Set Usuarios = Server.CreateObject("ADODB.Recordset") Usuarios.ActiveConnection = MM_Usuarios_STRING Usuarios.Source = "SELECT * FROM Usuarios WHERE ID = " + Replace(Usuarios__MMColParam, "'", "''") + "" Usuarios.CursorType = 0 Usuarios.CursorLocation = 2 Usuarios.LockType = 1 Usuarios.Open() Usuarios_numRows = 0 %>

Valeu consegui! Obrigado. :D

Ih cara... :P Fiz igual você postou... mas dá o seguinte erro agora:

Pois é... mas olha só: criei outro documento com o recordset NoticiasHJ. O arquivo de conexão se chama CadNoticias, a tabela do banco se chama Noticias e assim tá a página (ainda dando erro): <% if NoticiasHJ.eof then response.write "não existem registros para exibir" else while not NoticiasHJ.eof response.write NoticiasHJ("data") NoticiasHJ.movenext wend end if %> <% Dim NoticiasHJ Dim NoticiasHJ_cmd Dim NoticiasHJ_numRows Set NoticiasHJ_cmd = Server.CreateObject ("ADODB.Command") NoticiasHJ_cmd.ActiveConnection = MM_CadNoticias_STRING NoticiasHJ_cmd.CommandText = "SELECT * FROM Noticias WHERE [DATA] = date()" NoticiasHJ_cmd.Prepared = true Set NoticiasHJ = NoticiasHJ_cmd.Execute NoticiasHJ_numRows = 0 %>

Coloquei assim: <% if Noticias.eof then response.write "não existem registros para exibir" else while not Noticias.eof response.write Noticias("data") Noticias.movenext wend end if %> E deu o seguinte erro:

Tenho uma página que exibe dados de um banco Access, de acordo com cada dia. Porém há dias que não haverá informações para serem exibidas. Nesse caso, como fazer para exibir uma frase no lugar dessa informação? :huh:

Obrigado! Porém consegui de outra maneira: "SELECT * FROM Noticias WHERE [DATA] = date()" ;)

Como fazer para que as notícias sejam exibidas conforme os dias vão passando? Por exemplo: Tenho em meu banco Access com registros de notícias. eventos.mdb TITULO TEXTO DATA STATUS Eu quero que a notícia que tem a data 11/11/2007, por exemplo, apareça somente nesse dia. Ou então, que não apareça mais depois desse dia. Tenho as seguintes páginas pra esse banco: cadastro_eventos.asp (form com os campos onde insiro os dados no banco) lista_eventos.asp (página que lista os registros do banco) altera_eventos.asp (form que altera o resgistro do banco) excluir_eventos.asp (form que exclui o rgistro) index.asp (página que exibe o RecordSet e que deverá mostrar ou não, as notícias filtradas por data) Se alguém puder dar uma olhada nos meus arquivos, está aí: http://www.4shared.com/file/20844657/62f02ba6/Pauta3.html Me ajudem. Grato.

Como fazer para exibir uma notícia por página? Assim como encontramos em sites como o Terra, UOL e até aqu mesmo no site. Seguinte: tenho varias noticias num banco Access e através de ASP, exibo o que eu quero delas numa página, numa lista que mostra todas. Quando a pessoa clicar numa determinada noticia (ou título dela), deverá abrir uma página somente com essa notícia. Então, para cada notícia uma página com somente ela sendo exibida. Como fazer sem ficar criando páginas (fisicamente) para cada uma delas??

Valeu galera!!! Problema resolvido. ;)

Mudei a configuração dos "erros amigáveis" e vi o que há de errado. Agora eu tenho outro problema: como definir o caminho correto para acessar meu banco de dados??? O arquivo de conexão tá assim: CadNoticias.asp <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_CadNoticias_STRING MM_CadNoticias_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=../db/noticias.mdb" %> Minha estrutura de site é: [Connections] |_____CadNoticias.asp [db] |_____noticias.mdb index.asp Dá o seguinte erro: Microsoft JET Database Engine error '80004005' 'c:\windows\system32\db\noticias.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides. /index.asp, line 138 E outra coisa... não entendo muito bem o que é "caminho físico" e "caminho relativo".

:unsure: E como eu faço isso? Desculpe a minha ignorânia no assunto.