Ejemplo de Función para crear números aleatorios en ASP

Para todos aquellos que estén buscando una forma sencilla de generar números aleatorios en ASP, aquí les dejo este ejemplo:

<%
Function CrearNumerosAleatorios(strNombre)
 Dim strFecha
 'Remueve caracteres ilegales de una cadena
 strFecha = Year(Now) & String(2 - Len(Month(Now)), "0") & Month(Now) & String(2 - Len(Day(Now)), "0") & Day(Now)
 Randomize
 'Regresa el valor
 CrearNumerosAleatorios = strNombre & strFecha & "_" & CStr(Round(Rnd * 1000000))
End Function
%>