Mostra o programa que está no ar para webradio

Olá galera,

Tava com um tempinho hoje e como acabei de fazer um sisteminha assim, vou postar um código que pode ajudar a galera quando for desenvolver um website para webradio.

Bom eu fiz com banco de dados Access, mas a base do código é essa, pra você exibir cada locutor e programa no exato momento que ele está no ar.

Ah, outra coisa, eu utilizei o componente de manipulação de imagem Persist Asp Jpeg, caso seu servidor não o tenha instalado coloque o caminho da imagem onde chamei a página miniaturas.asp.

Essa parte do código você coloca na página onde deve aparecer a descrição do programa e horário.

Chamei ela de default.asp

CODE
<%dim saudacao,Programa, foto, Locutor

if time > #00:00:01# and time < #05:30:00# then

saudacao="Bom dia!"

Programa="No Ar: Programa 0"

Locutor="Locutor 0"

foto="<img src='miniaturas.asp?path=images/locutor 0.jpg&w=150'>"

end if

if time > #05:30:01# and time < #08:30:00# then

saudacao="Bom dia!"

Programa="No Ar: Programa 1."

Locutor="Apresentação: Locutor 1"

foto="<img src='miniaturas.asp?path=images/locutor 1.jpg&w=150'>"

end if

if time > #08:30:01# and time < #12:00:00# then

saudacao="Bom dia!"

Programa="No Ar: Programa 2."

Locutor="Apresentação: Locutor 2"

foto="<img src='miniaturas.asp?path=images/locutor2.jpg&w=150'>"

end if

if time > #12:00:01# and time < #13:00:00# then

saudacao="Boa Tarde!"

Programa="No Ar: Programa 3."

Locutor="Apresentação: Locutor3"

foto="<img src='miniaturas.asp?path=images/locutor3.jpg&w=150'>"

end if

if time > #13:00:01# and time < #13:30:00# then

saudacao="Boa Tarde!"

Programa="No Ar: Programa 4"

Locutor="Locutor 4"

foto="<img src='miniaturas.asp?path=images/locutor 4.jpg&w=150'>"

end if

if time > #13:30:01# and time < #16:00:00# then

saudacao="Boa Tarde!"

Programa="No Ar: Programa 5"

Locutor="Apresentação: Locutor 5"

foto="<img src='miniaturas.asp?path=images/locutor 5.jpg&w=150'>"

end if

if time > #16:00:01# and time < #19:00:00# then

saudacao="Boa Tarde!"

Programa="No Ar: programa 6"

Locutor="Apresentação: Locutor 6"

foto="<img src='miniaturas.asp?path=images/locutor 6.jpg&w=135'>"

end if

if time > #19:00:01# and time < #20:00:00# then

saudacao="Boa Noite!"

Programa="No Ar: Programa 7"

Locutor="Apresentação: Locutor 7"

foto="<img src='miniaturas.asp?path=images/locutor 7.jpg&w=150'>"

end if

if time > #20:00:01# and time < #00:00:00# then

saudacao="Boa Noite!"

Programa="No Ar: Programa 8"

Locutor="Locutor 8"

foto="<img src='miniaturas.asp?path=images/locutor 8.jpg&w=150'>"

end if

response.write saudacao

response.write"<br>"

response.write Programa

response.write"<br>"

response.write foto

response.write"<br>"

response.write Locutor

%>

Esse é o componente que manipula a imagem o nome deve ser miniaturas.asp

CODE
<%Response.Expires = 0

Set Jpeg = Server.CreateObject("Persits.Jpeg")

Jpeg.Open Server.MapPath(request ("Path"))

Jpeg.Quality = 100

Jpeg.Width = request("w")

Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth

Jpeg.SendBinary

%>

Testem e caso façam mudanças ou melhorias, postem.

Até próxima.