<!-- #Include file="fGetData.asp"-->
<!-- #Include file="fDayName.asp"-->
<!-- #Include file="fUrlNota.asp"-->
<%
connstr_cw = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Password=c0m3rc10bd;Initial Catalog=IvMakerNew;Data Source=192.168.240.11"
Set conn_cw = Server.CreateObject("ADODB.connection")
conn_cw.open connstr_cw
sHora_Radio = LimpiaEnter(fGetData(	"TOP 1 des_bajada", "notas", "cod_seccion=760 AND est_activo='1' AND num_prioridad='1' AND des_titulonota<>'' AND des_titulonota IS NOT NULL ORDER BY fec_registro DESC", conn_cw))
Response.Write("document.write('"& sHora_Radio &"')")



Function LimpiaEnter(cadena)
cadena=Trim(cadena)
	If cadena <>"" Then 
		Largo=Len(Trim(cadena))
		For PosLetra= 1 To largo
				LetraEvaluada=Mid(cadena,PosLetra,1)
				Select Case LetraEvaluada
				Case Chr(9)
					LetraEvaluada=""
				Case Chr(13)
					LetraEvaluada=""
				Case  Chr(10)
					LetraEvaluada=""
				Case Else
					LetraEvaluada=LetraEvaluada
				End Select
				CadenaLimpia=CadenaLimpia & LetraEvaluada
		Next
		Cadena=CAdenaLimpia
	End if
LimpiaEnter = Cadena
End function

%>