El mas basico <% response.write"¡Hola Mundo!" %> ------- Formatear el texto <% response.write("

¡Hola Mundo!
Esta sentencia usa etiquetas HTML para formatear el texto

") %> ------- Como crear una variable <% Dim nombre nombre="Juan Soldado" response.write("Mi nombre es: " & nombre) %> ------- Como cerar una tabla en memoria <% Dim amigos(5) amigos(0) = "Angel" amigos(1) = "Luis" amigos(2) = "Josito" amigos(3) = "Pepe" amigos(4) = "Ignacio" amigos(5) = "Enrique" For i = 0 to 5 response.write(amigos(i) & "
") Next %> ------- mi primer bucle <% Dim i for i = 1 to 6 response.write("Esta es la cabecera " & i & "") next %> ------ que hora es? <% Dim h h = hour(now()) response.write("

" & now()) response.write(" (Hora de Madrid (España))

") If h < 12 then response.write("¡Buenos Dias!") else response.write("¡Buenas tardes!") end if %> ------- dias y horas Hoy es dia: <%response.write(date())%>.
La hora local del servidor es: <%response.write(time())%>. ------- nombre del día

VBScripts' funcion WeekdayName para sacar el nombre del dia de la semana:

<% response.Write(WeekDayName(1)) response.Write("
") response.Write(WeekDayName(2)) %>

Abreviatura del dia de la semana:

<% response.Write(WeekDayName(1,true)) response.Write("
") response.Write(WeekDayName(2,true)) %>

Dia de la semana actual:

<% response.Write(WeekdayName(weekday(date))) response.Write("
") response.Write(WeekdayName(weekday(date), true)) %> ----------- Nombre del mes

VBScripts' funcion MonthName para sacar el nombre del mes:

<% response.Write(MonthName(1)) response.Write("
") response.Write(MonthName(2)) %>

Abreviatura del mes:

<% response.Write(MonthName(1,true)) response.Write("
") response.Write(MonthName(2,true)) %>

mes actual:

<% response.Write(MonthName(month(date))) response.Write("
") response.Write(MonthName(month(date), true)) %> ------- Que dia y que mes es hoy Hoy es: <%response.write(WeekdayName(weekday(date)))%>,
y el mes es: <%response.write(MonthName(month(date)))%> ------- Cuanto falta para el año 3000

Contador de tiempo hasta el año 3000:

<%millennium=cdate("1/1/3000 00:00:00")%> It is <%response.write(DateDiff("yyyy", Now(), millennium))%> años hasta el año 3000!
It is <%response.write(DateDiff("m", Now(), millennium))%> meses hata el año 3000!
It is <%response.write(DateDiff("ww", Now(), millennium))%> semanas hasta el año 3000!
It is <%response.write(DateDiff("d", Now(), millennium))%> dias hasta el año 3000!
It is <%response.write(DateDiff("h", Now(), millennium))%> horas hasta el año 3000!
It is <%response.write(DateDiff("n", Now(), millennium))%> minutos hasta el año 3000!
It is <%response.write(DateDiff("s", Now(), millennium))%> segundos hasta el año 3000!

------- Que dia es dentro de 18 dias <% response.write(DateAdd("d",30,date())) %>

Sintaxis de DateAdd: DateAdd(intervalo,numero,fecha). Puedes usar DateAdd para , por ejemplo,calcualr la fecha de dentro de 30 dias a partir de hoy.

------- Esto es una fecha? <% somedate="10/30/99" response.write(IsDate(somedate)) %> -------- Convirtiendo mayusculas y minusculas <% name = "Juan Soldado" response.write(ucase(name)) response.write("
") response.write(lcase(name)) %> -------- La funcion trim <% name = " AspTutor " response.write("visita" & name & "ahora
") response.write("visita" & trim(name) & "ahora
") response.write("visita" & ltrim(name) & "ahora
") response.write("visita" & rtrim(name) & "ahora") %> ------- Dando la vuelta a un texto <% Texto = "En un lugar de la mancha ..." response.write(strReverse(Texto)) %> ------- Como redondear un numero <% i = 1722.6783223 j = 17.66634 response.write(Round(i)) response.write("
") response.write(Round(j)) %> ------- Generar un numero aleatorio <% randomize() response.write(rnd()) %> ------- Cortando un texto por la derecha o la Izquierda <% texto="Bienvenido a esta web" response.write(Left(texto,7)) response.write("
") response.write(Right(texto,7)) %> ------- Reeplazando caracteres en una variable <% texto="Bienvenido a esta Web!!" response.write(Replace(texto, "Web", "Pagina")) %> ------- Capturando caracteres de una variable <% texto="Bienvenido a AspTutor!!" response.write(Mid(texto, 9, 2)) %> -------- Llamadas a procedimientos <% sub vbproc(num1,num2) response.write(num1*num2) end sub %>

El resultado del calculo es: <%call vbproc(3,4)%>

Tambien puedes llamar al procedimiento sin call

El resultado del calculo es: <%vbproc 3,4%>

------- Formularios (metodo GET)
Pon tu nombre:

<% If Request.QueryString("fname")<>"" Then Response.Write ("Hola " & Request.QueryString("fname") & "!") Response.Write ("
¿Como estas hoy?") End If %> ------- Formularios (metodo POST)
Pon tu nombre:

<% If Request.form("fname")<>"" Then Response.Write ("Hola " & Request.form("fname") & "!") Response.Write ("
¿Como estas hoy?") End If %> ------- Radio button en formularios <% dim telefono telefono=Request.Form("telefono") %>

Selecciona tu telefono favorito:

value="Samsung"> Samsung SGH 2100
value="Nokia"> Nokia 3330
<% if telefono<>"" then Response.Write("

Tu telefono favorito es: " & telefono & "

") end if %> ------- Creando una cookie de bienvenida um=request.cookies("NumVisits") If num = "" Then response.cookies("NumVisits") = 1 Else response.cookies("NumVisits") = num + 1 End If %> <% if num="" then %> Bienvenido! Esta es la primera vez que visitas esta pagina web. <% else %> Tu has visitado esta pagina web <%response.write(num)%> veces <% end if %> ------- Como hacer Un Redirect hacia otra URL <% if Request.Form("select")<>"" then Response.Redirect(Request.Form("select")) end if %>
Ejemplo basico 1
Ejemplo basico 2

------- Controlando el buffer de ejecución <% Response.Buffer=true %>

Escribimos texto, pero este no se manda al cliente hasta que no invoquemos el flush.

Este txto sigue sin mandarse, esta aqui guardadito

Vale, ya tenemos generado todo el texto que queriamos mandar,
ahora hacemos flush al buffer y lo mandamos

<% Response.Flush %> ------- Limpiando el buffer de ejecución <% Response.Buffer=true %>

Escribimos texto, pero este no se manda al cliente hasta que no invoquemos el flush.

Este texto sigue sin mandarse, esta aqui guardadito

Lo he pensado mejor, no voy a mandar el texto,
ahora hacemos Clear al buffer y lo eliminamos

<% Response.Clear %>

Este texto, como esta despues del clear, si llega al cliente

------- Terminar una script en medio del proceso

Estoy escribiendo un texto en el cliente pero ......
<% Response.End %> Como hemos invocado un .End, se corta

------- Pasando información en un link Ejemplo
<% Response.Write(Request.QueryString) %> -------- ¿qué tamaño tiene un envio?
Introduce un texto:

<% If Request.Form("txt")<>"" Then Response.Write("Has escrito: ") Response.Write(Request.Form) Response.Write("

") Response.Write("Bytes Totales enviados: ") Response.Write(Request.Totalbytes) End If %> --------