[Resolvido] No ar

celinho_macaense · Maio 3, 2010

Oi gente boa tarde a todos, gostaria de uma ajudinha de vcs, seguinte estou montando o site de minha webradio, eu mesmo estou fazendo. E oustaria de um sisteminha No ar programa X aseguir programa Y. Alguem poderia dar uma ideia??? Agradecido

xanburzum · Maio 4, 2010

você pode simplesmente, pegar as informações do seu bd, onde nele você terá cadastrado o horário e faz uma verificação simples de IF

se o horário for igual a now, você formata ele para aparecer escrito NO AR (pode colocar em vermelho, usar uma img, etc)

celinho_macaense · Maio 4, 2010

Você pode ser um pouco mais claro, tipo faz assim depois assim etc.

zeke_ · Maio 4, 2010

Você pode ser um pouco mais claro, tipo faz assim depois assim etc.

Já conseguiu? se sim beleza, mas se não ta aki uma solução.

A muito tempo atrás precisei faze isso também, precisa ate dar uma otimizada no codigo mas vai te servir.

1-Tabela (programacao)

idProg (autoincrement) 'numeracao automatica

prog_nome (nvarchar) 'nome do programa

dia (numero) ' aki você vai informar apenas o dia da semana (1-domingo, 2-segunda...etc)

hini (date/time) 'apenas a hora 00:00:00

hfin (date/time) 'apenas a hora 00:00:00

apresentador (nvarchar) 'nome do apresentador

foto (nvarchar) 'caminho da foto

2 - validacao e busca no db


<%
  function ValidaTempo(horaInicial,HoraFinal, horaComparada)  
    if (CDate(horaComparada) > CDate(horaInicial)) AND (CDate(horaComparada) < CDate(horaFinal)) then
       ValidaTempo = true
    else
       ValidaTempo = false
     end if
   End Function
		
   horaAtual = DateAdd("h", -1, Time())		
   
   
Dim diasemana
diasemana = weekdayname(weekday(date()),vbshordate)

Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_rdcconn_STRING
rs.Source = "SELECT * FROM programacao where dia = " & WeekDay(date())
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
   
   strApresentador = "Não cadastrado"
   strDescricao = "Não cadastrado"
   strNomeProg = "Não cadastrado"
   strURLFoto = "/site/library/imagens/online/nao_cadastrado.jpg"
   
   Do while not rs.eof
     if (ValidaTempo(rs("hini"),rs("hfin"),horaAtual)) = true then
       strApresentador = rs("apresentador")
       strNomeProg = rs("prog_nome")
       strURLFoto = rs("foto")
       Exit Do
     end if
     rs.MoveNext
   loop
%>

3- Exibição

<%
response.write(strApresentador) & "<BR>" & response.write(strNomeProg) & "<BR>" & response.write(strURLFoto) & "<BR>" 
%>

Espero que entenda e te ajude!

Abraços

celinho_macaense · Maio 5, 2010

tentei fazer deste jeito, mas a página ficou em branco, não exibiu as informações.

zeke_ · Maio 5, 2010

tentei fazer deste jeito, mas a página ficou em branco, não exibiu as informações.

você fez certinho as colunas da tabela que te falei?

hoje eu refiz essa consulta aqui e deu tudo certo, segue abaixo como eu fiz hoje. abraços

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/prog.asp" -->
<%  
Function ValidaTempo(horaInicial,HoraFinal, horaComparada)     
 If (CDate(horaComparada) > CDate(horaInicial)) Then
 Elseif (CDate(horaComparada) < CDate(horaFinal)) then    
    ValidaTempo = true    
 else       
 ValidaTempo = false     
End if  
 End Function
%>
<%
Dim rsProgramacao__MMColParam
rsProgramacao__MMColParam = WeekDay(date())
If (Request("MM_EmptyValue") <> "") Then 
  rsProgramacao__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsProgramacao
Dim rsProgramacao_cmd
Dim rsProgramacao_numRows

Set rsProgramacao_cmd = Server.CreateObject ("ADODB.Command")
rsProgramacao_cmd.ActiveConnection = MM_prog_STRING
rsProgramacao_cmd.CommandText = "SELECT * FROM programacao WHERE dia = ?" 
rsProgramacao_cmd.Prepared = true
rsProgramacao_cmd.Parameters.Append rsProgramacao_cmd.CreateParameter("param1", 5, 1, -1, rsProgramacao__MMColParam) ' adDouble

Set rsProgramacao = rsProgramacao_cmd.Execute
rsProgramacao_numRows = 0
%>

<!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=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<ul>
<% 
 horaAtual = DateAdd("h", -1, Time())               
 diasemanadiasemana = weekdayname(weekday(date()),vbshordate)
%>
<%
Do while not rsProgramacao.eof 
%>
<%
if (ValidaTempo((rsProgramacao("hini")),(rsProgramacao("hfin")),horaAtual)) = true then
%>
<li><%=(rsProgramacao.Fields.Item("dia").Value)%> - <%=(rsProgramacao.Fields.Item("hini").Value)%> as <%=(rsProgramacao.Fields.Item("hfin").Value)%> |
<%=(rsProgramacao.Fields.Item("prog_nome").Value)%>- 
<%=(rsProgramacao.Fields.Item("apresentador").Value)%>
</li>
<% 
Exit Do
end if
%>
<%
rsProgramacao.movenext()
loop 
%>

</ul>
</body>
</html>
<%
rsProgramacao.Close()
Set rsProgramacao = Nothing
%>

celinho_macaense · Maio 5, 2010

Deixa eu te falar, criei um db com nome de db1.mdb dê uma olhada na imagem. Imagem Postada os códigos ficaram assim veja se é isso meso: indexl.asp

<!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=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<ul>
<% 
 horaAtual = DateAdd("h", -1, Time())               
 diasemanadiasemana = weekdayname(weekday(date()),vbshordate)
%>
<%
Do while not rsProgramacao.eof 
%>
<%
if (ValidaTempo((rsProgramacao("hini")),(rsProgramacao("hfin")),horaAtual)) = true then
%>
<li><%=(rsProgramacao.Fields.Item("dia").Value)%> - <%=(rsProgramacao.Fields.Item("hini").Value)%> as <%=(rsProgramacao.Fields.Item("hfin").Value)%> |
<%=(rsProgramacao.Fields.Item("prog_nome").Value)%>- 
<%=(rsProgramacao.Fields.Item("apresentador").Value)%>
</li>
<% 
Exit Do
end if
%>
<%
rsProgramacao.movenext()
loop 
%>

</ul>
</body>
</html>
<%
rsProgramacao.Close()
Set rsProgramacao = Nothing
%>

index.asp

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/programacao/indexl.asp, line 15

e por fim o prog.asp que fica na pasta Connections

<%
  function ValidaTempo(horaInicial,HoraFinal, horaComparada)  
    if (CDate(horaComparada) > CDate(horaInicial)) AND (CDate(horaComparada) < CDate(horaFinal)) then
       ValidaTempo = true
    else
       ValidaTempo = false
     end if
   End Function
                
   horaAtual = DateAdd("h", -1, Time())         
   
   
Dim diasemana
diasemana = weekdayname(weekday(date()),vbshordate)

Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_rdcconn_STRING
rs.Source = "SELECT * FROM programacao where dia = " & WeekDay(date())
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
   
   strApresentador = "Não cadastrado"
   strDescricao = "Não cadastrado"
   strNomeProg = "Não cadastrado"
   strURLFoto = "/site/library/imagens/online/nao_cadastrado.jpg"
   
   Do while not rs.eof
     if (ValidaTempo(rs("hini"),rs("hfin"),horaAtual)) = true then
       strApresentador = rs("apresentador")
       strNomeProg = rs("prog_nome")
       strURLFoto = rs("foto")
       Exit Do
     end if
     rs.MoveNext
   loop
%>

Depois de ter feito tudo isso ainda deu o seguinte erro: Microsoft VBScript runtime error '800a01a8'

Object required: ''

/programacao/indexl.asp, line 15

Rodrigo Lemela · Maio 5, 2010

Deixa eu te falar, criei um db com nome de db1.mdb dê uma olhada na imagem. Imagem Postada os códigos ficaram assim veja se é isso meso: indexl.asp

<!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=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<ul>
<% 
 horaAtual = DateAdd("h", -1, Time())               
 diasemanadiasemana = weekdayname(weekday(date()),vbshordate)
%>
<%
Do while not rsProgramacao.eof 
%>
<%
if (ValidaTempo((rsProgramacao("hini")),(rsProgramacao("hfin")),horaAtual)) = true then
%>
<li><%=(rsProgramacao.Fields.Item("dia").Value)%> - <%=(rsProgramacao.Fields.Item("hini").Value)%> as <%=(rsProgramacao.Fields.Item("hfin").Value)%> |
<%=(rsProgramacao.Fields.Item("prog_nome").Value)%>- 
<%=(rsProgramacao.Fields.Item("apresentador").Value)%>
</li>
<% 
Exit Do
end if
%>
<%
rsProgramacao.movenext()
loop 
%>

</ul>
</body>
</html>
<%
rsProgramacao.Close()
Set rsProgramacao = Nothing
%>

index.asp

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/programacao/indexl.asp, line 15

e por fim o prog.asp que fica na pasta Connections

<%
  function ValidaTempo(horaInicial,HoraFinal, horaComparada)  
    if (CDate(horaComparada) > CDate(horaInicial)) AND (CDate(horaComparada) < CDate(horaFinal)) then
       ValidaTempo = true
    else
       ValidaTempo = false
     end if
   End Function
                
   horaAtual = DateAdd("h", -1, Time())         
   
   
Dim diasemana
diasemana = weekdayname(weekday(date()),vbshordate)

Dim rs
Dim rs_numRows

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_rdcconn_STRING
rs.Source = "SELECT * FROM programacao where dia = " & WeekDay(date())
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

rs_numRows = 0
   
   strApresentador = "Não cadastrado"
   strDescricao = "Não cadastrado"
   strNomeProg = "Não cadastrado"
   strURLFoto = "/site/library/imagens/online/nao_cadastrado.jpg"
   
   Do while not rs.eof
     if (ValidaTempo(rs("hini"),rs("hfin"),horaAtual)) = true then
       strApresentador = rs("apresentador")
       strNomeProg = rs("prog_nome")
       strURLFoto = rs("foto")
       Exit Do
     end if
     rs.MoveNext
   loop
%>

Depois de ter feito tudo isso ainda deu o seguinte erro: Microsoft VBScript runtime error '800a01a8'

Object required: ''

/programacao/indexl.asp, line 15

Falae kra...

Pelo que eu olhei, por cima...

Você não setou o RS...

Do while not rsProgramacao.eof

Por isso do erro...

Tenta setar o rs novamente.

Abs.

celinho_macaense · Maio 5, 2010

Desculpe a minha, mas não entendi você pode explicar como faço esta parte?

Mário Monteiro · Maio 6, 2010

qual a linha de código do erro atual que o tópico está extenso e pouco explicado

zeke_ · Maio 7, 2010

qual a linha de código do erro atual que o tópico está extenso e pouco explicado

Cara seu DB ta errado, veja no meu

Imagem Postada

Veja um exemplo funcionando:

Clique aqui

celinho_macaense · Maio 7, 2010

beleza, vi que o seu está funcionando corretamente, mas como ficou seu código? Você pode postar ae. pois eu fiz de acordo com o código acima e esta com o msm erro.

zeke_ · Maio 7, 2010

beleza, vi que o seu está funcionando corretamente, mas como ficou seu código? Você pode postar ae. pois eu fiz de acordo com o código acima e esta com o msm erro.

Segue completinho e funcionando:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="/Connections/prog.asp" -->
<%  
Function ValidaTempo(horaInicial,HoraFinal, horaComparada)     
 If (CDate(horaComparada) > CDate(horaInicial)) Then
 Elseif (CDate(horaComparada) < CDate(horaFinal)) then    
    ValidaTempo = true    
 else       
 ValidaTempo = false     
End if  
 End Function
%>
<%
Dim rsProgramacao__MMColParam
rsProgramacao__MMColParam = WeekDay(date())
If (Request("MM_EmptyValue") <> "") Then 
  rsProgramacao__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsProgramacao
Dim rsProgramacao_cmd
Dim rsProgramacao_numRows

Set rsProgramacao_cmd = Server.CreateObject ("ADODB.Command")
rsProgramacao_cmd.ActiveConnection = MM_prog_STRING
rsProgramacao_cmd.CommandText = "SELECT * FROM programacao WHERE dia = ?" 
rsProgramacao_cmd.Prepared = true
rsProgramacao_cmd.Parameters.Append rsProgramacao_cmd.CreateParameter("param1", 5, 1, -1, rsProgramacao__MMColParam) ' adDouble

Set rsProgramacao = rsProgramacao_cmd.Execute
rsProgramacao_numRows = 0
%>

<!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=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<ul>
<% 
 horaAtual = DateAdd("h", -1, Time())               
 diasemanadiasemana = weekdayname(weekday(date()),vbshordate)
%>
<%
Do while not rsProgramacao.eof 
%>
<%
if (ValidaTempo((rsProgramacao("hini")),(rsProgramacao("hfin")),horaAtual)) = true then
%>
<li><%=(rsProgramacao.Fields.Item("dia").Value)%> - <%=(rsProgramacao.Fields.Item("hini").Value)%> as <%=(rsProgramacao.Fields.Item("hfin").Value)%> |
<%=(rsProgramacao.Fields.Item("prog_nome").Value)%>- 
<%=(rsProgramacao.Fields.Item("apresentador").Value)%>
</li>
<% 
Exit Do
end if
%>
<%
rsProgramacao.movenext()
loop 
%>

</ul>
</body>
</html>
<%
rsProgramacao.Close()
Set rsProgramacao = Nothing
%>

Se funcionar, não se esqueça de marcar o tópico como RESPONDIDO.

Abraços!

celinho_macaense · Maio 7, 2010

Mesmo erro:

Active Server Pages error 'ASP 0126'

Include file not found

/programacao/indexl.asp, line 2

The include file '/Connections/prog.asp' was not found.

Será que num é meu servidor cara? Uso Rede Host.

saloeric · Maio 7, 2010

Falta o include, o zeke passou o código dele, que tem um include em cima e você não o tem

zeke_ · Maio 7, 2010

Mesmo erro:

Active Server Pages error 'ASP 0126' 

Include file not found 

/programacao/indexl.asp, line 2 

The include file '/Connections/prog.asp' was not found.

Será que num é meu servidor cara? Uso Rede Host.

Pô, foi mau nao achei que isso precisava passar prá você né.... rsrsrs

mas ta ai

prog.asp

Dim MM_prog_STRING
MM_prog_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Server.MapPath("/dbs/")&"/programas.mdb"

celinho_macaense · Maio 7, 2010

kara acho que estou com azar msm, coloquei o código acima, mas continua com o este erro: Active Server Pages error 'ASP 0126'

Include file not found

/programacao/indexl.asp, line 2

The include file '/Connections/prog.asp' was not found.

zeke_ · Maio 7, 2010

kara acho que estou com azar msm, coloquei o código acima, mas continua com o este erro: Active Server Pages error 'ASP 0126'

Include file not found

/programacao/indexl.asp, line 2

The include file '/Connections/prog.asp' was not found.

faz assim, remove essa linha 2

e coloca isso no lugar

<%
MM_prog_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\caminho_do_seu_banco\programas.mdb
%>

celinho_macaense · Maio 7, 2010

Agora aparece este erro:

ADODB.Command error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/programacao/indexl.asp, line 29

zeke_ · Maio 7, 2010

Agora aparece este erro:

ADODB.Command error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/programacao/indexl.asp, line 29

Cara desisto! hahaha brincadeira

pega o meu fonte clicando aqui

descompacte e envia a pasta para o servidor, na raiz, ou altere o caminho do db!

Arquivado

[Resolvido] No ar

Recommended Posts

celinho_macaense 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

celinho_macaense 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

zeke_ 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

celinho_macaense 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

zeke_ 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

celinho_macaense 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Rodrigo Lemela 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

celinho_macaense 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

zeke_ 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

celinho_macaense 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

zeke_ 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

celinho_macaense 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

saloeric 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

zeke_ 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

celinho_macaense 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

zeke_ 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

celinho_macaense 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

zeke_ 2