Erro em script

[AspAL 0]

É um código q pega o dia de hoje, e a hora de hoje. Se hj for segunda, ele cria uma conexão com o banco e compara a hora atual com as horas cadastradas no banco... se a horas forem iguais, ele imprime a programação atual.

 

<%	dia = weekdayname(weekday(date))	hora = hour(now)		if (dia="segunda-feira") then		DIM CONEXAO, RSTABELA	SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")	CONEXAO.OPEN "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MAPPATH("/programacao.mdb")	SET RSTABELA = CONEXAO.EXECUTE("SELECT * FROM programacao")		horario = RSTABELA("HORA")	while not rstabela.eof		if (hora=horario) then	programa = RSTABELA("PROGRAMA")	response.write programa		else		rstabela.movenext	wend	end if	end if%>

mas está dando erro... pq?

[Salgado 4]

Não seria por isso?

 dia = dia=weekdayname(weekday(date))

E outra coisa, se o servidor não for PT-BR não vem "Segunda-Feira"

[AspAL 0]

Não seria por isso?

dia = dia=weekdayname(weekday(date))

E outra coisa, se o servidor não for PT-BR não vem "Segunda-Feira"

já consertei isso, como tb já notei q faltava um END IF... só tinha um, precisa-se de 2. Já coloquei os 2, e continua com erro... olhe o código acima, está atualizado mas o erro continua... o q poderá ser?

[Salgado 4]

Veja se rola assim:

<%
dia = weekdayname(weekday(date))
hora = hour(now)

if (dia="segunda-feira") then
DIM CONEXAO, RSTABELA
SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")

CONEXAO.OPEN "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MAPPATH("/programacao.mdb")

SET RSTABELA = CONEXAO.EXECUTE("SELECT * FROM programacao")

horario = RSTABELA("HORA")

while not rstabela.eof
	if (hora=horario) then
		programa = RSTABELA("PROGRAMA")
		response.write programa &"<br>"
	End If
	rstabela.movenext
wend
end if
%>

[AspAL 0]

Veja se rola assim:

<%dia = weekdayname(weekday(date))hora = hour(now)if (dia="segunda-feira") then	DIM CONEXAO, RSTABELA	SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")	CONEXAO.OPEN "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MAPPATH("/programacao.mdb")	SET RSTABELA = CONEXAO.EXECUTE("SELECT * FROM programacao")	horario = RSTABELA("HORA")	while not rstabela.eof		if (hora=horario) then			programa = RSTABELA("PROGRAMA")			response.write programa &"<br>"		End If		rstabela.movenext	wendend if%>

o código funcionou OK, mas não está escrevendo o registro.Por ex, agr são 17h.ai quando ele faz a comparação da hora atual, com a hr cadastrada no banco, elas são iguais, então teria de ser mostrado o programa correspondente à essa hora. Mas não está escrevendo. e agr?acrescentei nas linhas:response.write programa &"<br>"o seguinte:response.write "<font face=tahoma>" & programa & "<br>"mas ainda assim n rolou...

[Salgado 4]

Mova a alimentação da variavel Horario para dentro do WHILE.

[AspAL 0]

Mova a alimentação da variavel Horario para dentro do WHILE.

até agr, essa é a versão mais nova do script:

 

<%

dia = weekdayname(weekday(date))

hora = hour(now)

 

if (dia="segunda-feira") then

DIM CONEXAO, RSTABELA

SET CONEXAO = SERVER.CREATEOBJECT("ADODB.CONNECTION")

 

CONEXAO.OPEN "PROVIDER = MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & SERVER.MAPPATH("/programacao.mdb")

 

SET RSTABELA = CONEXAO.EXECUTE("SELECT * FROM programacao ORDER BY id DESC")

 

while not rstabela.eof

horario = RSTABELA("hora")

if (hora=horario) then

programa = RSTABELA("programa")

response.write "<font face=tahoma>" & programa & "<br>"

else

rstabela.movenext

End If

wend

end if

%>

 

ele não dá erro, mas também não imprime os resultados da comparação... não entendo pq o response.write n funciona... já tentei um <%response.write "oi!" %> e ele funcionou, mas esse aí n roda...

 

tb já olhei no banco, e ele contém registros para serem exibidos.. agr estou numa sinuca de bico! putz! e aí, alguma sugestão?

[Salgado 4]

Cara, do geito que está você coloca seu código em Loop Infinito na primeira vez que algo atender o seu IF. Repare que o código que postei é um pouco diferente desse.