Kal Louis

Dim ConnDB Set ConnDB = Server.CreateObject("ADODB.Connection") ConnDB.Open "DBQ=" & Server.MapPath("admin/blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" Set rs = Server.CreateObject("ADODB.Recordset") Dim dtToday dtToday = Date() 'Selecionamos todos os Produtos da Tabela Set Agenda = Server.CreateObject("ADODB.Recordset") strAgenda = "SELECT * FROM agenda Where month(data) >= " & month(dtToday) & " and day(data) >= " & day(dtToday) & " and year(data) >= " & year(dtToday) & " order by data" Agenda.PageSize = 4 if Agenda.eof then Mensagem = "Nenhum Registro Encontrado" Response.End else if Request.QueryString("pagina")="" then intpagina = 1 else if cint(Request.QueryString("pagina"))<1 then intpagina = 1 else if cint(Request.QueryString("pagina"))>Agenda.PageCount then intpagina = Agenda.PageCount else intpagina = Request.QueryString("pagina") end if end if end if end if e depois embaixo ele puxa assim: <table width="300" border="0" align="left"> <tr> <td height="1" colspan="2"> <% 'Iniciamos o Loop Agenda.AbsolutePage = intpagina intrec = 0 While intrec<Agenda.PageSize and not Agenda.eof %> &nbsp;</td> </tr> <tr> <td width="111" height="48" rowspan="2" valign="top" id="Dados"><b><font size="+3" face="Arial Black, Gadget, sans-serif"> <span class="Data_agenda"><a href="view_agenda.asp?cod=<%=Agenda("codigo")%>&" class=comente><%=day(Agenda("data"))%>/<%=Month(Agenda("data"))%></a></span> <%'=Agenda("data")%> </font></b></td> <td width="357" height="25" valign="bottom" id="Dados"><font face="Verdana, Geneva, sans-serif" class="local"><%=Agenda("local")%>&nbsp;</font></td> </tr> <tr> <td height="31" valign="top" class="cidade" id="Dados2"><%=Agenda("cidade")%> <% Agenda.MoveNext intrec = intrec + 1 if Agenda.eof then response.write " " end if Wend %></td> </tr> <tr height="10"> <td colspan="2"><center> </center></td> </tr> </table> Obrigado

Olá. estou com o seguinte problema. Fiz uma página de agenda, aonde ele simplemente pega a data e compara com a do banco. as maiores ou iguais ele retorna em forma de lista. O que está acontecendo é que sempre perto do fim do mês, dia 26, 27 ele dá esse erro: na primeira página ele deve mostrar 4 datas.. ou seja as 4 proximas, mas ele mostra as 2 primeiras e as 2 ultimas... acho que o problema é a paginação. alguém tem alguma solução? Obrigado

Olá. Tenho esse código que parte peguei na net e parte fiz, e ele está upando tudo certinho. Gostaria de saber se existe a possibilidade de na hora que ele pegar a imagem redimensionar e depois gravar na pasta. Não precisa criar miniatura, só quero que ele pegue a imagem que o usuário selecionar no form anterior e redimensione, pois gravar no pasta e no banco já está certo! Obrigado!! <!-- #include file = "upload_funcoes.asp" --> <% ' Chamando Funções, que fazem o Upload funcionar byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin %> <% ' Recuperando os Dados Digitados ---------------------- 'nome = UploadRequest.Item("nome").Item("Value") 'email = UploadRequest.Item("email").Item("Value") titulo = UploadRequest.Item("titulo").Item("Value") caso = UploadRequest.Item("caso").Item("Value") legenda = UploadRequest.Item("legenda").Item("Value") legenda2 = UploadRequest.Item("legenda2").Item("Value") legenda3 = UploadRequest.Item("legenda3").Item("Value") legenda4 = UploadRequest.Item("legenda4").Item("Value") legenda5 = UploadRequest.Item("legenda5").Item("Value") ' Tipo de arquivo que esta sendo enviado tipo_foto = UploadRequest.Item("foto").Item("ContentType") ' Caminho completo dos arquivos enviados caminho_foto = UploadRequest.Item("foto").Item("FileName") ' Nome dos arquivos enviados nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\")) ' Conteudo binario dos arquivos enviados foto = UploadRequest.Item("foto").Item("Value") ' pasta onde as imagens serao guardadas pasta = Server.MapPath("imagens") nome_foto = ""&nome_foto ' pasta + nome dos arquivos cfoto = nome_foto ' Fazendo o Upload do arquivo selecionado if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & "/" & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Close end if ' Conecta-se ao Banco de Dados 'url_conexao = Server.MapPath("blog.mdb") 'set conexao = Server.CreateObject("ADODB.Connection") 'conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao Dim conexao Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "DBQ=" & Server.MapPath("blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" ' cadastra os dados no banco de dados sql = "Insert Into ps (titulo, caso, legenda, foto) values ('"&titulo&"', '"&caso&"', '"&legenda&"', '"&cfoto&"')" conexao.Execute(sql) ' Mostra Mensagem de Confirmação na Tela 'Response.write "Dados Cadastrados com Sucesso!" ' Redireciona após 5 segundos 'response.write "<br><br>você será redirecionado em 5 segundos..<br>" response.write "<meta http-equiv='refresh' content='1; url=list_posts.asp'/>" %>

Demorei para testar mas fiz, e da seguinte forma... Dim id_com2 id_com2 = value.Form("id_com") coment = "Select * From comentarios Where id_noticia= " & id_com2 & "" Set com = ConnDB.Execute(coment) if not com.eof then while not com.eof response.write com("campo") com.movenext wend end if com.close set com=nothing isso dá o seguinte erro: Microsoft VBScript runtime error '800a01a8' Object required: '' /manut/index2.asp, line 190 onde a lina 190 é: id_com2 = value.Form("id_com") como é a forma correta para ele pegar o valor do campo que está como input?? Obrigado

Vou tentar hoje e noite e posto o que aconteceu amanhã!! Obrigado pela ajuda!!

Olá, sou novo por aqui e não encontrei nada do tipo. Tenho um sistema de notícia e queria que as pessoas colocassem comentários. Fiz um cadastro de comentário onde ele registra o nome da pessoa, data, hora, comentário e id da noticia no banco. Na hora de mostrar a notícia pensei ser apenas mostrar os comentários que o id fosse a mesma da noticia. Aonde mostra a noticia fiz um campo que mostra o id da noticia e queria que a área de comentário buscasse esse id. Pensei em algo assim Dim id_com2 id_com2 = request.Form("id_com"); coment = "Select * From comentarios Where id= " & id_com2 & "" Set com = ConnDB.Execute(coment) onde id_com é o nome do campo do form que exibe o id da notícia. acontece que não está dando certo. Como faço para ele mostrar apenas os comentários que tem um id = ao da notícia. Obrigado