=#12:00:00 PM# and (weekday (fecha,domingo)=7) or time()<= #12:00:00 AM# then
response.Write(“buenas tardes hoy es un dia laborable ” &hora&”")
else
response.Write(“buenas dias”)
end if
%>

‘**********************************************************************************************

‘**********************************************************************************************

‘********************************************************************************************

‘********************************************************************************************

<%
dim a,b,aleatorio,resultado,valor,mayusculas
valor=”1987″
response.Write(“el resultado de len es:” &len(valor)& “”)

aleatorio=1+100*rnd()
response.Write(“el numero aleatorio es:” &aleatorio& “”)

a=(65)
response.Write(asc(a)& “”)

b=”luis”
response.Write(mid(b,3,2)& “”)

mayusculas=”LUIS”
response.Write(“la letra en mayuscula es:” &UCASE(mayusculas)& “” )

raiz=25
response.Write(“la raiz de 25 es:” &sqr(raiz)& “”)

response.Write(“EL AÑO ES:” &year(date())& “”)

MES=TRIM(“7/27/2008″)
response.Write(“EL MES ES:” &month(MES)& “”)

%>

‘*************************INVERTIR UN NUMERO*************************************************

‘*************************NUMERO PALINDROMO*************************************************

‘******************************************************************************************
<%
dim r
r=1
do
response.Write r& ” borreguitos ”
if r=10 then
response.Write(“ya tengo todos los borreguitos”)
END IF
r=r+1
loop while (r

<%
dim i
for i=1 to 10
select case i
case 1:
response.Write(“este es el maximo tamaño de letra”)
case 2:
response.Write(“este es un menor tamaño de letra”)
end select
response.Write(” LUIS MIGUEL “&i&” “)
next
%>