 |
 |
|||
 |
||||
  |
 |
|
||
|
|
|
|||
|
|
||||
|
|
|
|
||
|
|
|||||||
|
|
Register now
as... |
 |
|
 |
<% Dim MyDate Dim strMonth Select Case Month(Date) Case 1 strMonth = "-Ene-" Case 2 strMonth = "-Feb-" Case 3 strMonth = "-Mar-" Case 4 strMonth = "-Abr-" Case 5 strMonth = "-May-" Case 6 strMonth = "-Jun-" Case 7 strMonth = "-Jul-" Case 8 strMonth = "-Ago-" Case 9 strMonth = "-Sep-" Case 10 strMonth = "-Oct-" Case 11 strMonth = "-Nov-" Case 12 strMonth = "-Dic-" End Select Mydate = Day(Date) & strMonth & Year(Date) %> <% =MyDate %> |
 |
|
