Flavio Diniz

ola valeu cara resolvido pode fachar o tópico <% Function Fun_Data() dia = day(now) mes = month(now) ano = year(now) Fun_Data = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano) End Function %> teste data 2 = <% = fun_data %>

presiso da data em portugues brasil <% Session.LCID = 1046 txtdata = now() %> teste data 2 = <% = txtdata %> so que ta mostrando assim teste data 2 = 12/16/2004 15:31:01 presiso assim teste data 2 = 16/12/2004 15:31:01

ola valeu galera deu certo assim sql2 = "select top 2 * from tb_cadastro where idcategoria= "&rs("idcategoria") rs2.open sql2 rs2.movenext um abraço

é assim galera veja tambem em > canal mostra o segundo registro db

tipo tem des materias ler a segunda

ola como faço para ler o segundo registro de um db

deu certo o codigo do nosso amigo mario muito obrigado sem esse forum aprender programação seria muito mais difilcio valeu

como faço o teste nas duas tabelas para mostrar so as categorias que tem produtos cadastrados

ola pessoal tenho o seguinte tabela categoria tabela produtos como faço para mostra so as categorias que existe produtos sql = "select* from tb_cadastro where idcategoria="&("idcategoria") &"" rs.open sql obrigado

RESOLVI GALERA <% Set coneccao = Server.CreateObject("ADODB.Connection") coneccao.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dados.mdb") set rs = createobject("adodb.recordset") set rs.activeconnection = coneccao sql = "SELECT * FROM tb_cadastro ORDER BY id ASC" rs.open sql %> aqui: <%= rs("nome") &"-"&rs("telefone")&"-"&RS("id")%>

Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Driver Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado /estudo2/ACESSO A DADOS/dados.asp, line 18 <% dim conlistatel , rslistatel const caminho = "meus_dados.mdb" set conlistatel = server.createobject("ADODB.connection") set rslistatel = server.createobject("ADODB.recordset") conlistatel.open "driver={Microsoft Access Driver(*.mdb)};dbq=" & caminho rslistatel.open "tbcadastro" , conlistatel response.write rslistatel.fields("nome") & " / " & rslistatel.fields("telefone") rslistatel.close conlistatel.close %>

como para a função de redirecionamento caso der erro Response.Write ("<meta http-equiv='refresh' content='1; codigo a baixo <% Dim diagnostics if Request.ServerVariables("REQUEST_METHOD") <> "POST" then diagnostics = TestEnvironment() if diagnostics<>"" then response.write "<div style=""margin-left:20; margin-top:30; margin-right:30; margin-bottom:30;"">" response.write diagnostics response.write "<p>After you correct this problem, reload the page." response.write "</div>" else response.write "<div style=""margin-left:150"">" OutputForm() response.write "</div>" end if else response.write "<div style=""margin-left:150"">" OutputForm() response.write SaveFiles() response.write "<br><br></div>" Response.Write ("<meta http-equiv='refresh' content='1; URL=publicar_img.asp'>") end if %>

na net ta tudo funcionando beleza é so na rede que da pal

que erro é esse quando acesso o micro local da certo tipo MICRO1/SITE MICRO2/SITE DA ERRO Tipo de erro: erro '8002801c' Erro ao acessar o Registro OLE. /iisHelp/common/500-100.asp, line 154

ola era permissão no diretorio so que agora quando acesso de outro micro da esse erro tipo aqui eu acesso assim MICRO2/SITE NO OUTRO MICRO1/SITE AI DA ESSE ERRO ____________________________________ Tipo de erro: erro '8002801c' Erro ao acessar o Registro OLE. /iisHelp/common/500-100.asp, line 154 ________________________________________________ AGRADEÇO PELA AJUDA