Ir para conteúdo
Fórum Script Brasil

Rodrigo_Linhas

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    64

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Rodrigo_Linhas postou

  1. Rodrigo_Linhas
    Olá Galera tenho uma duvida aqui e não estou conseguindo fazer! Tenho uma página Asp que ela puxa os dados de um Banco de Dados (.MDB) ACCESS só que nessa página ela puxa todos os dados cadastrados do banco e eu preciso que ela só puxe 1 cadastro e sempre o ultimo dados cadastrado, será que alguém Pode me ajudar? :unsure: Segue o Código abaixo: <% cnpath="DBQ=" & Server.MapPath("Noticias.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource 'Abre o Recordset Set noticia = Server.CreateObject( "ADODB.Recordset" ) noticia.ActiveConnection = conn noticia.open "SELECT * FROM Noticias" %> <html> <head> <title> </title> </head> <body> <% if not noticia.eof then while not noticia.eof %> <div id="photos" class="galleryview"> <div class="panel"> <img src="<%=noticia("imagem")%>" width="570" height="210"/> <div class="panel-overlay"> <h2><%=noticia("titulo")%></h2> <p><%=noticia("subtitulo")%></p> </div> </div> <% noticia.Movenext wend end if %>
  2. Rodrigo_Linhas
    Haaaa cara já saquei o B.O, consegui arrumar a formatação, assim que eu terminar vou postar aqui pra galera que quiser um calendario! Muito obrigado! Abraços
  3. Rodrigo_Linhas
    Desde já muito obrigado pela ajuda Jow você me ajudou muito! olha como esta ficando: http://www.linhasrodoviarias.com.br/diary/.../calendario.asp Agora só Teve um Probleminha! eu não consigo formatar o tipo de texto das datas e o nem o tamanho height, eu coloco varios números mas não adianta a altura fica na mesma o que será? :( olha como eu deixei o códio na parte de baixo: <div align="center"> <TABLE BORDER="1" CELLSPACING="0" FONT face="Verdana" size="1" BGCOLOR="#FCFAEA" width="217" height="3" cellpadding="0" bordercolor="#87785F" id="table4"> <% ' Write spacer cells at beginning of first row if month doesn't start on a Sunday. If iDOW <> 1 Then Response.Write vbTab & "<TR>" & vbCrLf iPosition = 1 Do While iPosition < iDOW Response.Write vbTab & vbTab & "<TD> </TD>" & vbCrLf iPosition = iPosition + 1 Loop End If ' Write days of month in proper day slots iCurrent = 1 iPosition = iDOW Do While iCurrent <= iDIM ' If we're at the begginning of a row then write TR If iPosition = 1 Then Response.Write vbTab & "<TR>" & vbCrLf End If ' If the day we're writing is the selected day then highlight it somehow. If iCurrent = Day(dDate) Then Response.Write vbTab & vbTab & "<TD BGCOLOR=#91FB00><A target=""Registro"" HREF=""search&value=1&SearchFor=" & iCurrent & "%2F" & Month(dDate) & "%2F" & Year(dDate) & "&SearchOption=Equals&SearchField=Aviso+de+Vencimento""><FONT SIZE=""1""><B>" & iCurrent & "</B></FONT><BR><BR></TD>" & vbCrLf Else Response.Write vbTab & vbTab & "<TD><A target=""Registro"" HREF=""search&value=1&SearchFor=" & iCurrent & "%2F" & Month(dDate) & "%2F" & Year(dDate) & "&SearchOption=Equals&SearchField=Aviso+de+Vencimento""><FONT SIZE=""-1"">" & iCurrent & "</FONT></A><BR><BR></TD>" & vbCrLf End If ' If we're at the endof a row then write /TR If iPosition = 7 Then Response.Write vbTab & "</TR>" & vbCrLf iPosition = 0 End If ' Increment variables iCurrent = iCurrent + 1 iPosition = iPosition + 1 Loop ' Write spacer cells at end of last row if month doesn't end on a Saturday. If iPosition <> 1 Then Do While iPosition <= 7 Response.Write vbTab & vbTab & "<TD> </TD>" & vbCrLf iPosition = iPosition + 1 Loop Response.Write vbTab & "</TR>" & vbCrLf End If %> </TABLE></div>
  4. Rodrigo_Linhas
    Olá galera, estou em uma duvida terrivel com um calendario! Preciso muito formatar a largura e altura das tabelas só que não consigo, afinal não manjo! Obs Necessito formatar as tabelas onde ficam as datas Segue o código abaixo: <% ' ***Begin Function Declaration*** ' New and improved GetDaysInMonth implementation. ' Thanks to Florent Renucci for pointing out that I ' could easily use the same method I used for the ' revised GetWeekdayMonthStartsOn function. Function GetDaysInMonth(iMonth, iYear) Dim dTemp dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1)) GetDaysInMonth = Day(dTemp) End Function ' Previous implementation on GetDaysInMonth 'Function GetDaysInMonth(iMonth, iYear) ' Select Case iMonth ' Case 1, 3, 5, 7, 8, 10, 12 ' GetDaysInMonth = 31 ' Case 4, 6, 9, 11 ' GetDaysInMonth = 30 ' Case 2 ' If IsDate("February 29, " & iYear) Then ' GetDaysInMonth = 29 ' Else ' GetDaysInMonth = 28 ' End If ' End Select 'End Function Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth) Dim dTemp dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth) GetWeekdayMonthStartsOn = WeekDay(dTemp) End Function Function SubtractOneMonth(dDate) SubtractOneMonth = DateAdd("m", -1, dDate) End Function Function AddOneMonth(dDate) AddOneMonth = DateAdd("m", 1, dDate) End Function ' ***End Function Declaration*** Dim dDate ' Date we're displaying calendar for Dim iDIM ' Days In Month Dim iDOW ' Day Of Week that month starts on Dim iCurrent ' Variable we use to hold current day of month as we write table Dim iPosition ' Variable we use to hold current position in table ' Get selected date. There are two ways to do this. ' First check if we were passed a full date in RQS("date"). ' If so use it, if not look for seperate variables, putting them togeter into a date. ' Lastly check if the date is valid...if not use today If IsDate(Request.QueryString("date")) Then dDate = CDate(Request.QueryString("date")) Else If IsDate(Request.QueryString("day") & "-" & Request.QueryString("month") & "-" & Request.QueryString("year")) Then dDate = CDate(Request.QueryString("day") & "-" & Request.QueryString("month") & "-" & Request.QueryString("year")) Else dDate = Date() ' The annoyingly bad solution for those of you running IIS3 If Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 Then Response.Write "The date you picked was not a valid date. The calendar was set to today's date.<BR><BR>" End If ' The elegant solution for those of you running IIS4 'If Request.QueryString.Count <> 0 Then Response.Write "The date you picked was not a valid date. The calendar was set to today's date.<BR><BR>" End If End If 'Now we've got the date. Now get Days in the choosen month and the day of the week it starts on. iDIM = GetDaysInMonth(Month(dDate), Year(dDate)) iDOW = GetWeekdayMonthStartsOn(dDate) %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Linhas Rodoviárias.com.br</title> <!-- Outer Table is simply to get the pretty border--> </head> <body link="#797E82" vlink="#797E82" alink="#797E82" bgcolor="#F6F3E7" topmargin="0" leftmargin="0"> <div align="center"> <TABLE BORDER=1 CELLSPACING=0 BGCOLOR=#FCFAEA width="200" cellpadding="0" bordercolor="#87785F" height="3" id="table1"> <TR> <TD BGCOLOR=#8EC601 ALIGN="center" COLSPAN=7> <TABLE WIDTH=312 BORDER=0 CELLSPACING=0 CELLPADDING=0 id="table2"> <TR> <TD ALIGN="right"> <p align="center"><A HREF="./calendario.asp?date=<%= SubtractOneMonth(dDate) %>"> <span style="text-decoration: none"> <img border="0" src="http://www.linhasrodoviarias.com.br/diary/IMG/seta.gif" width="9" height="9"> <img border="0" src="http://www.linhasrodoviarias.com.br/diary/IMG/seta.gif" width="9" height="9"> <img border="0" src="http://www.linhasrodoviarias.com.br/diary/IMG/seta.gif" width="9" height="9"></span></A></TD> <TD ALIGN="center"><FONT COLOR=#FFFFFF><B><%= MonthName(Month(dDate)) & " " & Year(dDate) %></B></FONT></TD> <TD ALIGN="left"> <p align="center"><A HREF="./calendario.asp?date=<%= AddOneMonth(dDate) %>"> <span style="text-decoration: none"> <img border="0" src="http://www.linhasrodoviarias.com.br/diary/IMG/seta.gif" width="9" height="9"> <img border="0" src="http://www.linhasrodoviarias.com.br/diary/IMG/seta.gif" width="9" height="9"> <img border="0" src="http://www.linhasrodoviarias.com.br/diary/IMG/seta.gif" width="9" height="9"></span></A></TD> </TR> </TABLE> </TD> </TR> <TR> <TD ALIGN="center" BGCOLOR=#87785F width="20"> <FONT COLOR=#FFFFFF face="Verdana" size="2"><B>Dom</B><BR><IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></FONT></TD> <TD ALIGN="center" BGCOLOR=#87785F width="30"> <b><font face="Verdana" size="2" color="#FFFFFF">Seg</font></b><FONT COLOR=#FFFFFF face="Verdana" size="2"><BR><IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></FONT></TD> <TD ALIGN="center" BGCOLOR=#87785F width="30"> <FONT COLOR=#FFFFFF face="Verdana" size="2"><B>Ter</B><BR><IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></FONT></TD> <TD ALIGN="center" BGCOLOR=#87785F width="30"> <b><font face="Verdana" size="2" color="#FFFFFF">Qua</font></b><FONT COLOR=#FFFFFF face="Verdana" size="2"><BR><IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></FONT></TD> <TD ALIGN="center" BGCOLOR=#87785F width="30"> <b><font face="Verdana" size="2" color="#FFFFFF">Qui</font></b><FONT COLOR=#FFFFFF face="Verdana" size="2"><BR><IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></FONT></TD> <TD ALIGN="center" BGCOLOR=#87785F width="30"> <FONT COLOR=#FFFFFF face="Verdana" size="2"><b>Sex</b><BR><IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></FONT></TD> <TD ALIGN="center" BGCOLOR=#87785F width="30"> <FONT COLOR=#FFFFFF face="Verdana" size="2"><B>Sáb</B><BR><IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0></FONT></TD> </TR> <% ' Write spacer cells at beginning of first row if month doesn't start on a Sunday. If iDOW <> 1 Then Response.Write vbTab & "<TR>" & vbCrLf iPosition = 1 Do While iPosition < iDOW Response.Write vbTab & vbTab & "<TD> </TD>" & vbCrLf iPosition = iPosition + 1 Loop End If ' Write days of month in proper day slots iCurrent = 1 iPosition = iDOW Do While iCurrent <= iDIM ' If we're at the begginning of a row then write TR If iPosition = 1 Then Response.Write vbTab & "<TR>" & vbCrLf End If ' If the day we're writing is the selected day then highlight it somehow. If iCurrent = Day(dDate) Then Response.Write vbTab & vbTab & "<TD BGCOLOR=#8EC601><A target=""Registro"" HREF=""http://www.linhasrodoviarias.com.br/edicao/calendario/Banners_list.asp?a=search&value=1&SearchFor=" & iCurrent & "%2F" & Month(dDate) & "%2F" & Year(dDate) & "&SearchOption=Equals&SearchField=Aviso+de+Vencimento""><FONT SIZE=""1""><B>" & iCurrent & "</B></FONT><BR><BR></TD>" & vbCrLf Else Response.Write vbTab & vbTab & "<TD><A target=""Registro"" HREF=""http://www.linhasrodoviarias.com.br/edicao/calendario/Banners_list.asp?a=search&value=1&SearchFor=" & iCurrent & "%2F" & Month(dDate) & "%2F" & Year(dDate) & "&SearchOption=Equals&SearchField=Aviso+de+Vencimento""><FONT SIZE=""-1"">" & iCurrent & "</FONT></A><BR><BR></TD>" & vbCrLf End If ' If we're at the endof a row then write /TR If iPosition = 7 Then Response.Write vbTab & "</TR>" & vbCrLf iPosition = 0 End If ' Increment variables iCurrent = iCurrent + 1 iPosition = iPosition + 1 Loop ' Write spacer cells at end of last row if month doesn't end on a Saturday. If iPosition <> 1 Then Do While iPosition <= 7 Response.Write vbTab & vbTab & "<TD> </TD>" & vbCrLf iPosition = iPosition + 1 Loop Response.Write vbTab & "</TR>" & vbCrLf End If %> </TABLE> </div> Esse é o link do calendário! http://www.linhasrodoviarias.com.br/diary/.../calendario.asp Assim que eu conseguir terminar vou postar aqui esse calendario!
  5. Rodrigo_Linhas
    Mas esse mês num esta errado? 4/1/2010 Acho que você teria que tirar o codigo desc e deixar só o data desc SELECT * FROM noticias order by datar desc
  6. Rodrigo_Linhas
    Olha eu até entendi o que você me disse, só que eu não sei onde coloco, ou misturo com esses que já tem, essa é minha duvida cara, eu não manjo muito de asp! :wacko: Vou explicar melhor meu projeto: Tenho um select assim: [Estados] ....quando você seleciona um estado, ex. (São Paulo) vai aparecer todas as cidades de São Paulo no select abaixo! [Cidades].....ai beleza se eu selecionar a cidade ele vai para o link desejado só que não esta puxando os dados.... veja o modelo: http://www.linhasrodoviarias.com.br/1/2/ o banco esta assim: BANCO Tabela1: tb_Lanc_categ cod: 1 categoria: Acre Tabela2: tb_lanc_sub cod_tipo: 1 codcat: 1 desclanc: Rio Branco
  7. Rodrigo_Linhas
    Eu coloquei esse código mas ainda não funciona... <% else Response.redirect("http://www.linhasrodoviarias.com.br/busca/resultado.asp?txtCidadeOrigem=são+PAULO&estado=" & rsa("cod_tipo") & "&cidade=" & rsa("codcat") & "&botao=Buscar") end If %> Como eu tenho que montar esse Recordset(rs)? Ele esta assim: <% if request.queryString("at")= "" then db = Server.MapPath("dados.mdb") Set cnn = Server.CreateObject("adodb.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db &";" SQL="SELECT * FROM tb_Lanc_categ ORDER by categoria" SET rs = Server.CreateObject("Adodb.recordset") rs.Open SQL,cnn if not rs.eof then lista = rs.getrows() total = ubound(lista,2) end if rs.close set rs = nothing %> Eu to com uma dificuldade de montar isso, já fiz varios testes mas não estou conseguindo!
  8. Rodrigo_Linhas
    olhei aqui e me confundi todo! o que tem q ser feito? :wacko:
  9. Rodrigo_Linhas
    Então tenho um banco de dados em .mdb e ele esta assim: dados.mdb BANCO Tabela1: tb_Lanc_categ cod: número categoria: texto Tabela2: tb_lanc_sub cod_tipo: número codcat: número desclanc: texto link1: número link2: número Gostaria que o request.Form("cod_tipo") puxasse da tabela 2, só que não estou conseguindo Se quiserem ver esse projeto o link é esse: http://www.linhasrodoviarias.com.br/1/2/
  10. Rodrigo_Linhas
    :( Olá galera será que não tem ninguém que possa me ajudar???
  11. Rodrigo_Linhas
    Olha eu achei o erro, na verdade é que esta faltando algum código... estou usando o seguinte código para puxar do banco de dados! " & request.Form("cod_tipo") & " " & request.Form("codcat") & " Só que quando redireciona ele num puxa nada, oque será que esta faltando?
  12. Rodrigo_Linhas
    Olá boa tarde, estou com um problema para redirecionar... Tenho essa linha abaixo só q a parte em asp não esta lendo! Response.redirect("http://www.linhasrodoviarias.com.br/busca/resultado.asp?txtCidadeOrigem=são+PAULO&estado= " & request.Form("cod_tipo") & " &cidade= " & request.Form("codcat") & " &botao=Buscar") Quando redireciona fica assim: http://www.linhasrodoviarias.com.br/busca/...mp;botao=Buscar Porque será que ele não esta puxando os dados? Segue o cógico completo: <% Response.Charset="ISO-8859-1" 'linha responsavel pela acentuação%> <HTML> <HEAD> <TITLE>Busca de Cidades</TITLE> <META NAME="Author" CONTENT="Wellington Marinheiro"> &lt;script src="lanc_ComboAjax.js"> </script> </HEAD> <BODY> <% if request.queryString("at")= "" then db = Server.MapPath("dados.mdb") Set cnn = Server.CreateObject("adodb.Connection") cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db &";" SQL="SELECT * FROM tb_Lanc_categ ORDER by categoria" SET rs = Server.CreateObject("Adodb.recordset") rs.Open SQL,cnn if not rs.eof then lista = rs.getrows() total = ubound(lista,2) end if rs.close set rs = nothing %> <CENTER> Utilizando AJAX para atualizar um COMBOBOX <hr> <form name="form" action="index.asp?at=1" method="post"> <table border="1" bgcolor=#F4F4F4 width=40% align="center"> <tr> <td><B>Categoria</B> <td> <select name="categoria" class="select" Onchange="atualizaLanc(this.value);"> <option value="">selecionar... <% for t=0 to total response.write "<option value=" & lista(0,t) & "|" & lista(1,t) &">" & lista(1,t) & "</option>" next%> </select> <tr> <td><B>Lançamento:</B> <td> <div id="lanc"> <select name="Lancamento"> <option value="">Selecionar categoria</option> </select> </div> <tr> <td colspan="2" align="center"> <INPUT TYPE="submit" value="Enviar"> </tr> </table> </form> </CENTER> <% else Response.redirect("http://www.linhasrodoviarias.com.br/busca/resultado.asp?txtCidadeOrigem=são+PAULO&estado= " & request.Form("cod_tipo") & " &cidade= " & request.Form("codcat") & " &botao=Buscar") end If %> </body> </html>
  13. Rodrigo_Linhas
    Nossa cara resolvel meu problema, muito obrigado!!! Agradeçooooo :D
  14. Rodrigo_Linhas
    Olá galera, estou quebrando a cabeça aqui com um código. Por favor me ajudem!!! Preciso filtrar alguns dados de um banco de dados ACCESS só que não consigo! Quero que a pagina só apareça os (Banners) Vendidos... no Bando tem uma coluna com o nome Vendido e os cadastros dessa coluna estão como sim e não e em branco. Então minha nessecidade é de fazer um filtro colocando sim para só aparecer os dados que estao com sim. esta ai o código abaixo e o link da pagina: Link da Pagina <%@Language="VBScript"%> <%Option Explicit%> <%Response.Expires = 0%> <% Dim objConn Dim varConn Dim varSql Dim rsBanners Dim i Set objConn = Server.CreateObject("ADODB.Connection") varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Edicao\db\Banners.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password=" objConn.Open varConn varSql = "SELECT * " varSql = varSql & "FROM Banners " varSql = varSql & "ORDER BY Empresa ASC " Set rsBanners = Server.CreateObject("ADODB.Recordset") rsBanners.CursorType = 0 rsBanners.CursorLocation = 3 rsBanners.LockType = 3 rsBanners.PageSize = 1000 rsBanners.CacheSize = 1000 rsBanners.Open varSql, objConn If Request.QueryString("Dados") <> "" Then rsBanners.AbsolutePage = Request.QueryString("Dados") Else If Not rsBanners.EOF Then rsBanners.AbsolutePage = 1 End If End If %>
×
×
  • Criar Novo...