Como cambio el ordenamiento de las fechas

[beth]

Hola amigos tengo este formulario en asp pero los mensajes me los ordena mal ya que los mas viejos quedan primero no me doy cuenta donde está el error ya que no se mucho de asp si alguien puede ayudarme se los agradezco :( <pre>&lt;html&gt;

&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=windows-1252&quot;&gt;
&lt;meta name=&quot;GENERATOR&quot; content=&quot;Microsoft FrontPage 3.0&quot;&gt;
&lt;meta name=&quot;ProgId&quot; content=&quot;FrontPage.Editor.Document&quot;&gt;
&lt;title&gt;New Page 1&lt;/title&gt;
&lt;/head&gt;

&lt;body background=&quot;../debate/FONPA2.jpg&quot; bgcolor=&quot;#000000&quot; text=&quot;#FFFF00&quot; link=&quot;#C0C0C0&quot; vlink=&quot;#808080&quot;alink=&quot;#C0C0C0&quot; style=&quot;font-family: Comic Sans MS; font-size: 24 pt; color: #FFFF00&quot; font-weight:bold&quot;&gt;

&lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font size=&quot;4&quot; face=&quot;Arial&quot; color=&quot;#FF0000&quot;&gt;COMETA MAGICO&lt;br&gt;
&lt;/font&gt;&lt;font face=&quot;Kids&quot; size=&quot;2&quot; color=&quot;#FF0000&quot;&gt;Grafittis&lt;/font&gt;&lt;font face=&quot;Arial&quot;
size=&quot;2&quot;&gt;&lt;font color=&quot;#FF0000&quot;&gt;&lt;/font&gt;&lt;br&gt;
&lt;/font&gt;&lt;/b&gt;&lt;/p&gt;
&lt;!---#include file=&quot;conector.inc&quot;---&gt;
&lt;%ActionValue = request(&quot;action&quot;)
If ActionValue = &quot;nuevo&quot; Then
ErrorValue = 0
DondeValue = Trim(request(&quot;donde&quot;))
ComoValue = Trim(request(&quot;como&quot;))
NombreValue = Trim(request(&quot;nombre&quot;))
ApellidoValue = Trim(request(&quot;apellido&quot;))
EmailValue = Trim(request(&quot;email&quot;))
ComentarioValue = Trim(request(&quot;comentario&quot;))
FechaValue = DATE
HoraValue = TIME
If NombreValue = &quot;&quot; or ApellidoValue = &quot;&quot; or EmailValue = &quot;&quot; or ComentarioValue = &quot;&quot; or ComoValue = &quot;&quot; or DondeValue = &quot;&quot; Then%&gt;
&lt;font face=&quot;Arial&quot;&gt;

&lt;p align=&quot;center&quot;&gt;&lt;/font&gt;&lt;strong&gt;&lt;font color=&quot;#FF0000&quot; face=&quot;Arial&quot;&gt;DATOS INSUFICIENTES&lt;br&gt;
Para dejar tu graffiti en La Pared, completa todos los Datos.&lt;/font&gt;&lt;font
color=&quot;#FF0000&quot;&gt; &lt;br&gt;
&lt;/font&gt;&lt;/strong&gt;&lt;%ErrorValue = 1
Else
SQLQuery=&quot;INSERT INTO magiadebate VALUES('&quot; &amp; NombreValue &amp; &quot;','&quot; &amp; ApellidoValue &amp; &quot;','&quot; &amp; EmailValue &amp; &quot;','&quot; &amp; DondeValue &amp; &quot;','&quot; &amp; ComoValue &amp; &quot;','&quot; &amp; FechaValue &amp; &quot;','&quot; &amp; HoraValue &amp; &quot;','&quot; &amp; ComentarioValue &amp; &quot;')&quot;
Set rsVisita = Conn.Execute(SQLQuery)
End If
End If%&gt; &lt;/p&gt;

&lt;form method=&quot;POST&quot; action=&quot;guestbook.asp&quot;&gt;
&lt;input type=&quot;hidden&quot; name=&quot;action&quot; value=&quot;nuevo&quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;center&gt;&lt;tabl e
border=&quot;0&quot; width=&quot;80%&quot;&gt;
&lt;tr&gt;
&lt;td width=&quot;100%&quot; colspan=&quot;2&quot; align=&quot;center&quot; height=&quot;21&quot;&gt;&lt;font
face=&quot;Kids&quot; size=&quot;5&quot; color=&quot;#FF3333&quot;&gt;&lt;strong&gt;Tus Graffitis&lt;/strong&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width=&quot;49%&quot; height=&quot;25&quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;center&gt;&lt;p&gt ;&lt;font
face=&quot;Kids&quot; color=&quot;#FFFFFF&quot;&gt;&lt;small&gt;Autor / Author&lt;/small&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td width=&quot;76%&quot; height=&quot;25&quot; align=&quot;center&quot;&gt;&lt;font face=&quot;Kids&quot;&gt;&lt;input type=&quot;text&quot;
name=&quot;nombre&quot; size=&quot;44&quot; &lt;%If ActionValue = &quot;nuevo&quot; and ErrorValue = 1 Then%&gt;
value=&quot;&lt;%=NombreValue%&gt;&quot; &lt;%End If%&gt;&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr align=&quot;center&quot;&gt;
&lt;td width=&quot;49%&quot; height=&quot;25&quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;center&gt;&lt;p&gt ;&lt;font
face=&quot;Kids&quot; color=&quot;#FFFFFF&quot;&gt;&lt;small&gt;Pais/ Country&lt;/small&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td width=&quot;76%&quot; height=&quot;25&quot; align=&quot;center&quot;&gt;&lt;font face=&quot;Kids&quot;&gt;&lt;input type=&quot;text&quot;
name=&quot;apellido&quot; size=&quot;44&quot; &lt;%If ActionValue = &quot;nuevo&quot; and ErrorValue = 1 Then%&gt;
value=&quot;&lt;%=ApellidoValue%&gt;&quot; &lt;%End If%&gt;&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr align=&quot;center&quot;&gt;
&lt;td width=&quot;49%&quot; height=&quot;25&quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;center&gt;&lt;p&gt ;&lt;font
face=&quot;Kids&quot; color=&quot;#FFFFFF&quot;&gt;&lt;small&gt;E-Mail&lt;/small&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td width=&quot;76%&quot; height=&quot;25&quot; align=&quot;center&quot;&gt;&lt;font face=&quot;Kids&quot;&gt;&lt;input type=&quot;text&quot;
name=&quot;email&quot; size=&quot;44&quot; &lt;%If ActionValue = &quot;nuevo&quot; and ErrorValue = 1 Then%&gt;
value=&quot;&lt;%=EmailValue%&gt;&quot; &lt;%End If%&gt;&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr align=&quot;center&quot;&gt;
&lt;td width=&quot;49%&quot; valign=&quot;top&quot; height=&quot;25&quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;center&gt;&lt;p&gt ;&lt;font
face=&quot;Kids&quot; color=&quot;#FFFFFF&quot;&gt;&lt;small&gt;Tipo / Type:&lt;/small&gt;&lt;br&gt;
&lt;small&gt;&lt;small&gt;Picaros, Politicos &lt;/small&gt;&lt;/small&gt;&lt;br&gt;
&lt;small&gt;&lt;small&gt;General, Piropos, etc &lt;/small&gt;&lt;/small&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td width=&quot;76%&quot; height=&quot;25&quot; align=&quot;center&quot;&gt;&lt;font face=&quot;Kids&quot;&gt;&lt;input type=&quot;text&quot;
name=&quot;donde&quot; size=&quot;44&quot; &lt;%If ActionValue = &quot;nuevo&quot; and ErrorValue = 1 Then%&gt;
value=&quot;&lt;%=DondeValue%&gt;&quot; &lt;%End If%&gt;&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr align=&quot;center&quot;&gt;
&lt;td width=&quot;49%&quot; valign=&quot;top&quot; height=&quot;42&quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;center&gt;&lt;p&gt ;&lt;font
face=&quot;Kids&quot; color=&quot;#FFFFFF&quot;&gt;&lt;small&gt;Edad/Age:&lt;/small&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td width=&quot;76%&quot; height=&quot;42&quot; align=&quot;center&quot;&gt;&lt;font face=&quot;Comic Sans MS&quot;&gt;&lt;input type=&quot;text&quot;
name=&quot;como&quot; size=&quot;44&quot; &lt;%If ActionValue = &quot;nuevo&quot; and ErrorValue = 1 Then%&gt;
value=&quot;&lt;%=ComoValue%&gt;&quot; &lt;%End If%&gt;&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr align=&quot;center&quot;&gt;
&lt;td width=&quot;49%&quot; valign=&quot;top&quot; height=&quot;100&quot;&gt;&lt;div align=&quot;center&quot;&gt;&lt;center&gt;&lt;p&gt ;&lt;font
face=&quot;Kids&quot; color=&quot;#FFFFFF&quot;&gt;&lt;small&gt;Texto del graffiti&lt;/small&gt;&lt;br&gt;
&lt;small&gt;&lt;/small&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td width=&quot;76%&quot; height=&quot;100&quot; align=&quot;center&quot;&gt;&lt;font face=&quot;Kids&quot;&gt;&lt;textarea rows=&quot;4&quot;
name=&quot;comentario&quot; cols=&quot;37&quot;&gt;&lt;%If ActionValue = &quot;nuevo&quot; and ErrorValue = 1 Then%&gt;&lt;%=ComentarioValue%&gt;&lt;%End If%&gt;&lt;/textarea&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/center&gt;&lt;/div&gt;&lt;div align=&quot;center&quot;&gt;&lt;center&gt;&lt;p&gt ;&lt;input type=&quot;submit&quot; value=&quot;Proceder&quot;
name=&quot;B1&quot;&gt; &lt;/p&gt;
&lt;/center&gt;&lt;/div&gt;
&lt;/form&gt;

&lt;p align=&quot;center&quot;&gt;&lt;br&gt;
&lt;br&gt;
&lt;%SQLQuery = &quot;SELECT * FROM magiadebate ORDER BY fecha,hora&quot;
Set rsVisitas = Conn.Execute(SQLQuery)
If not rsVisitas.EOF Then%&gt;&lt;b&gt;&lt;font face=&quot;Kids&quot; size=&quot;5&quot;&gt;LEER LOS GRAFFITIS&lt;br&gt;
&lt;/font&gt;&lt;/b&gt;&lt;br&gt;
&lt;%End If
While not rsVisitas.EOF
HoraValue = Right(rsVisitas(&quot;hora&quot;),11)
DiaNombreValue = WeekDay(rsVisitas(&quot;fecha&quot;))
DiaValue = Day(rsVisitas(&quot;fecha&quot;))
ComoValue = Trim(rsVisitas(&quot;como&quot;))
DondeValue = Trim(rsVisitas(&quot;donde&quot;))
MesValue = Month(rsVisitas(&quot;fecha&quot;))
YearValue = Year(rsVisitas(&quot;fecha&quot;))
NombreValue = rsVisitas(&quot;nombre&quot;)
ApellidoValue = rsVisitas(&quot;apellido&quot;)
EmailValue = rsVisitas(&quot;email&quot;)
ComentarioValue = rsVisitas(&quot;comentario&quot;)
Select Case DiaNombreValue
Case &quot;1&quot;
DiaNombreValue = &quot;Domingo&quot;
Case &quot;2&quot;
DiaNombreValue = &quot;Lunes&quot;
Case &quot;3&quot;
DiaNombreValue = &quot;Martes&quot;
Case &quot;4&quot;
DiaNombreValue = &quot;Miercoles&quot;
Case &quot;5&quot;
DiaNombreValue = &quot;Jueves&quot;
Case &quot;6&quot;
DiaNombreValue = &quot;Viernes&quot;
Case &quot;7&quot;
DiaNombreValue = &quot;Sabado&quot;
End Select
Select Case MesValue
Case &quot;1&quot;
MesNombreValue = &quot;Enero&quot;
Case &quot;2&quot;
MesNombreValue = &quot;Febrero&quot;
Case &quot;3&quot;
MesNombreValue = &quot;Marzo&quot;
Case &quot;4&quot;
MesNombreValue = &quot;Abril&quot;
Case &quot;5&quot;
MesNombreValue = &quot;Mayo&quot;
Case &quot;6&quot;
MesNombreValue = &quot;Junio&quot;
Case &quot;7&quot;
MesNombreValue = &quot;Julio&quot;
Case &quot;8&quot;
MesNombreValue = &quot;Agosto&quot;
Case &quot;9&quot;
MesNombreValue = &quot;Setiembre&quot;
Case &quot;10&quot;
MesNombreValue = &quot;Octubre&quot;
Case &quot;11&quot;
MesNombreValue = &quot;Noviembre&quot;
Case &quot;12&quot;
MesNombreValue = &quot;Diciembre&quot;
End Select
FechaValue = DiaNombreValue &amp; &quot; &quot; &amp; DiaValue &amp; &quot; de &quot; &amp; MesNombreValue &amp; &quot; de &quot; &amp; YearValue
%&gt;&lt;/p&gt;
&lt;div align=&quot;center&quot;&gt;&lt;center&gt;

&lt;table border=&quot;0&quot; width=&quot;80%&quot; cellpadding=&quot;3&quot; cellspacing=&quot;7&quot;&gt;
&lt;tr&gt;
&lt;td width=&quot;100%&quot; colspan=&quot;2&quot;&gt;&lt;table border=&quot;0&quot; width=&quot;100%&quot; cellspacing=&quot;0&quot;cellpadding=&quot;0&quot; &gt;
&lt;tr&gt;
&lt;td width=&quot;50%&quot; valign=&quot;top&quot;&gt;&lt;b&gt;&lt;font color=&quot;#FFFFFF&quot; face=&quot;Comic Sans MS&quot; size=&quot;2&quot;&gt;&lt;%=FechaValue%&gt;&lt;br& gt;
&lt;%=HoraValue%&gt; &lt;/font&gt;&lt;/b&gt;&lt;/td&gt;
&lt;td width=&quot;50%&quot;&gt;&lt;b&gt;&lt;font color=&quot;#FFFFFF&quot; face=&quot;Comic Sans MS&quot; size=&quot;2&quot;&gt;Tipo &lt;%=DondeValue%&gt;&lt;br&gt;
&lt;/font&gt;&lt;font face=&quot;Comic Sans MS&quot; size=&quot;2&quot;&gt;Edad &lt;%=ComoValue%&gt;&lt;/font&gt;&lt;/b&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/td&gt;
&lt;/tr&gt;

&lt;tr&gt;
&lt;td width=&quot;50%&quot;&gt;&lt;font face=&quot;Comic Sans MS&quot; color=&quot;#FFFFFF&quot;&gt;&lt;b&gt;&lt;p
align=&quot;center&quot;&gt;&lt;%=NombreValue &amp; &quot; &quot;%&gt;&lt;%=ApellidoValue%&gt;&lt;/b&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td width=&quot;50%&quot;&gt;&lt;font face=&quot;Comic Sans MS&quot; color=&quot;#FFFFFF&quot;&gt;&lt;b&gt;&lt;p
align=&quot;center&quot;&gt;&lt;%=EmailValue%&gt;& lt;/b&gt;&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td width=&quot;100%&quot; colspan=&quot;2&quot; bordercolorlight=&quot;#C0C0C0&quot; bordercolordark=&quot;#808080&quot;
bordercolor=&quot;#000000&quot;&gt;&lt;%=Comentari oValue%&gt;&lt;/b&gt;&lt;/font&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/center&gt;&lt;/div&gt;

&lt;p align=&quot;center&quot;&gt;&lt;br&gt;
&lt;%rsVisitas.MoveNext
Wend%&gt;&lt;/p&gt;
&lt;/body&gt;
&lt;/html&gt;
</pre>