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.

Olá! Eu sou iniciante com o uso de ASP e até de publicação de sites. Gostaria de saber se tem algum segredo pra publicar páginas .asp. Eu montei um pequeno site e ele funciona muito bem através do IIS. Mas quando eu envio através de FTP para minh conta (que suporta ASP), não consigo abrir os arquivos no browser... dá um erro: HTTP 500 - erro interno do servidor Internet Explorer. O que devo fazer?

Eu não tenho prática em assusntos como hospedagem de sites, DNS e registros. Só dou conta de fazer sites. Porém, tive que ver isso para minha cunhada nessa semana. Ela conseguiu o domínio, registrou, tudo certo... mas para hospedar, procurou outro serviço. Então tive que fazer a alteração de DNS passada pelo ovo serviço de hospedagem (Windows). Tranquilo, de boa... mas quando acesso via FTP para enviar os arquivos, acontece o problema. Eu até consigo logar e ver que existe uma página default.htm. Mas quando vou enviar algum arquivo, criar pastas ou excluir, dá Acesso Negado. Por que isso? Não teria que funcionar corretamente? Me ajudem. :o

noticias.mdb ID - TITULO - TEXTO - AUTOR - FONTE - STATUS - DATA - TIPO cadastro.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/CadNoticias.asp" --> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.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 %> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_CadNoticias_STRING MM_editTable = "Noticias" MM_editRedirectUrl = "lista.asp" MM_fieldsStr = "TITULO|value|TEXTO|value|AUTOR|value|FONTE|value|DATA|value|TIPO|value|STATUS|value" MM_columnsStr = "TITULO|',none,''|TEXTO|',none,''|AUTOR|',none,''|FONTE|',none,''|DATA|',none,NULL|TIPO|',none,''|STATUS|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim Cadastro__MMColParam Cadastro__MMColParam = "1" If (Request.QueryString("ID") <> "") Then Cadastro__MMColParam = Request.QueryString("ID") End If %> <% Dim Cadastro Dim Cadastro_numRows Set Cadastro = Server.CreateObject("ADODB.Recordset") Cadastro.ActiveConnection = MM_CadNoticias_STRING Cadastro.Source = "SELECT * FROM Noticias WHERE ID = " + Replace(Cadastro__MMColParam, "'", "''") + "" Cadastro.CursorType = 0 Cadastro.CursorLocation = 2 Cadastro.LockType = 1 Cadastro.Open() Cadastro_numRows = 0 %> <html> //Aqui tem um Form com campos para cada item do banco Access. </html> <% Cadastro.Close() Set Cadastro = Nothing %> lista.asp (onde aparecem listadas as notícias) <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="Connections/CadNoticias.asp" --> <% Dim Historico Dim Historico_numRows Set Historico = Server.CreateObject("ADODB.Recordset") Historico.ActiveConnection = MM_CadNoticias_STRING Historico.Source = "SELECT ID, STATUS, TIPO, TITULO FROM Noticias" Historico.CursorType = 0 Historico.CursorLocation = 2 Historico.LockType = 1 Historico.Open() Historico_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Historico_numRows = Historico_numRows + Repeat1__numRows %> <html> <head> <title>Histórico de Notícias</title> </head> <body> <table width="630" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"><img src="images/top_historico.gif" width="630" height="50"></div></td> </tr> </table> <table width="630" border="0" align="center" cellpadding="0" cellspacing="2"> <tr> <td><div align="right"><a href="fim.asp" class="style10">sair</a> </div></td> </tr> </table> <td width="500"> <table width="500" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC"> <tr bgcolor="#CCCCCC"> <td width="10" height="17"><div align="center"><span class="style9">ID</span></div></td> <td width="150" height="17" class="style9"><div align="left">Título</div></td> <td width="20" height="17" class="style9"><div align="center">Status</div></td> <td width="100" height="17" class="style9"><div align="center">Tipo</div></td> <td width="36" height="17" colspan="2" class="style9"><div align="center">Ação</div></td> </tr> <% While ((Repeat1__numRows <> 0) AND (NOT Historico.EOF)) %> <tr valign="bottom" class="style9"> <td width="10"><div align="center"><%=(Historico.Fields.Item("ID").Value)%></div></td> <td width="150" class="style9"><div align="left"><%=(Historico.Fields.Item("TITULO").Value)%></div></td> <td width="20" class="style9"><div align="center"><%=(Historico.Fields.Item("STATUS").Value)%></div></td> <td class="style9"><div align="center"><%=(Historico.Fields.Item("TIPO").Value)%></div></td> <td width="15" class="style9"><div align="center"><a href="Altera.asp?ID=<%=(Historico.Fields.Item("ID").Value)%>"><img src="images/alterar.gif" alt="ALTERAR" width="15" height="13" border="0"></a></div></td> <td width="15" class="style9"><div align="center"><a href="Excluir.asp?ID=<%=(Historico.Fields.Item("ID").Value)%>"><img src="images/excluir.gif" alt="EXCLUIR" width="15" height="13" border="0"></a></div></td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Historico.MoveNext() Wend %> </table> </td> </tr> </table> </body> </html> <% Historico.Close() Set Historico = Nothing %>

Se caso você tiver o Windows XP Home (como é o meu caso :P) você pode usar algum outro Web Server. Eu uso o simples e pequeno BabyWeb Server. Tem até suporte à ASP. http://www.snapfiles.com/get/babywebserver.html

Montei um sistema de notícias usando Access+ASP+Dreamweaver. Eu gostaria de exibir essas notícias, discriminando por data, por exemplo: 1- Em uma página, aparecem as notícias do dia. 2- Em outra página, as notícias de ontem. Queria saber como fazer para que a notícia que está sendo exibida numa página, no dia seguinte, só fique sendo exibida em outra... automaticamente.