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><html>
 
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
 
<body background="../debate/FONPA2.jpg" bgcolor="#000000" text="#FFFF00" link="#C0C0C0" vlink="#808080"alink="#C0C0C0" style="font-family: Comic Sans MS; font-size: 24 pt; color: #FFFF00" font-weight:bold">
 
<p align="center"><b><font size="4" face="Arial" color="#FF0000">COMETA MAGICO<br>
</font><font face="Kids" size="2" color="#FF0000">Grafittis</font><font face="Arial"
size="2"><font color="#FF0000"></font><br>
</font></b></p>
<!---#include file="conector.inc"--->
<%ActionValue = request("action")
If ActionValue = "nuevo" Then
	ErrorValue = 0
	DondeValue = Trim(request("donde"))
	ComoValue = Trim(request("como"))
	NombreValue = Trim(request("nombre"))
	ApellidoValue = Trim(request("apellido"))
	EmailValue = Trim(request("email"))
	ComentarioValue = Trim(request("comentario"))
	FechaValue = DATE
	HoraValue = TIME
	If NombreValue = "" or ApellidoValue = "" or EmailValue = "" or ComentarioValue = "" or ComoValue = "" or DondeValue = "" Then%>
<font face="Arial">
 
<p align="center"></font><strong><font color="#FF0000" face="Arial">DATOS INSUFICIENTES<br>
Para dejar tu graffiti en La Pared, completa todos los Datos.</font><font
color="#FF0000"> <br>
</font></strong><%ErrorValue = 1
	Else
		SQLQuery="INSERT INTO magiadebate VALUES('" & NombreValue & "','" & ApellidoValue & "','" & EmailValue & "','" & DondeValue & "','" & ComoValue & "','" & FechaValue & "','" & HoraValue & "','" & ComentarioValue & "')"
		Set rsVisita = Conn.Execute(SQLQuery)		
	End If
End If%> </p>
 
<form method="POST" action="guestbook.asp">
  <input type="hidden" name="action" value="nuevo"><div align="center"><center><tabl  e
  border="0" width="80%">
    <tr>
      <td width="100%" colspan="2" align="center" height="21"><font
      face="Kids" size="5" color="#FF3333"><strong>Tus Graffitis</strong></font></td>
    </tr>
    <tr>
      <td width="49%" height="25"><div align="center"><center><p>  ;<font
      face="Kids" color="#FFFFFF"><small>Autor / Author</small></font></td>
      <td width="76%" height="25" align="center"><font face="Kids"><input type="text"
      name="nombre" size="44" <%If ActionValue = "nuevo" and ErrorValue = 1 Then%>
      value="<%=NombreValue%>" <%End If%>></font></td>
    </tr>
    <tr align="center">
      <td width="49%" height="25"><div align="center"><center><p>  ;<font
      face="Kids" color="#FFFFFF"><small>Pais/ Country</small></font></td>
      <td width="76%" height="25" align="center"><font face="Kids"><input type="text"
      name="apellido" size="44" <%If ActionValue = "nuevo" and ErrorValue = 1 Then%>
      value="<%=ApellidoValue%>" <%End If%>></font></td>
    </tr>
    <tr align="center">
      <td width="49%" height="25"><div align="center"><center><p>  ;<font
      face="Kids" color="#FFFFFF"><small>E-Mail</small></font></td>
      <td width="76%" height="25" align="center"><font face="Kids"><input type="text"
      name="email" size="44" <%If ActionValue = "nuevo" and ErrorValue = 1 Then%>
      value="<%=EmailValue%>" <%End If%>></font></td>
    </tr>
    <tr align="center">
      <td width="49%" valign="top" height="25"><div align="center"><center><p>  ;<font
      face="Kids" color="#FFFFFF"><small>Tipo / Type:</small><br>
      <small><small>Picaros, Politicos </small></small><br>
      <small><small>General, Piropos, etc </small></small></font></td>
      <td width="76%" height="25" align="center"><font face="Kids"><input type="text"
      name="donde" size="44" <%If ActionValue = "nuevo" and ErrorValue = 1 Then%>
      value="<%=DondeValue%>" <%End If%>></font></td>
    </tr>
    <tr align="center">
      <td width="49%" valign="top" height="42"><div align="center"><center><p>  ;<font
      face="Kids" color="#FFFFFF"><small>Edad/Age:</small></font></td>
      <td width="76%" height="42" align="center"><font face="Comic Sans MS"><input type="text"
      name="como" size="44" <%If ActionValue = "nuevo" and ErrorValue = 1 Then%>
      value="<%=ComoValue%>" <%End If%>></font></td>
    </tr>
    <tr align="center">
      <td width="49%" valign="top" height="100"><div align="center"><center><p>  ;<font
      face="Kids" color="#FFFFFF"><small>Texto del graffiti</small><br>
      <small></small></font></td>
      <td width="76%" height="100" align="center"><font face="Kids"><textarea rows="4"
      name="comentario" cols="37"><%If ActionValue = "nuevo" and ErrorValue = 1 Then%><%=ComentarioValue%><%End If%></textarea></font></td>
    </tr>
  </table>
  </center></div><div align="center"><center><p>  ;<input type="submit" value="Proceder"
  name="B1"> </p>
  </center></div>
</form>
 
<p align="center"><br>
<br>
<%SQLQuery = "SELECT * FROM magiadebate ORDER BY fecha,hora"
Set rsVisitas = Conn.Execute(SQLQuery)
If not rsVisitas.EOF Then%><b><font face="Kids" size="5">LEER LOS GRAFFITIS<br>
</font></b><br>
<%End If
While not rsVisitas.EOF
	HoraValue = Right(rsVisitas("hora"),11)
	DiaNombreValue = WeekDay(rsVisitas("fecha"))
	DiaValue = Day(rsVisitas("fecha"))
	ComoValue = Trim(rsVisitas("como"))
	DondeValue = Trim(rsVisitas("donde"))
	MesValue = Month(rsVisitas("fecha"))
	YearValue = Year(rsVisitas("fecha"))
	NombreValue = rsVisitas("nombre")
	ApellidoValue = rsVisitas("apellido")
	EmailValue = rsVisitas("email")
	ComentarioValue = rsVisitas("comentario")
	Select Case DiaNombreValue
		Case "1"
			DiaNombreValue = "Domingo"
		Case "2"
			DiaNombreValue = "Lunes"			
		Case "3"
			DiaNombreValue = "Martes"		
		Case "4"
			DiaNombreValue = "Miercoles"		
		Case "5"
			DiaNombreValue = "Jueves"		
		Case "6"
			DiaNombreValue = "Viernes"		
		Case "7"
			DiaNombreValue = "Sabado"		
	End Select
	Select Case MesValue
		Case "1"
			MesNombreValue = "Enero"
		Case "2"
			MesNombreValue = "Febrero"			
		Case "3"
			MesNombreValue = "Marzo"		
		Case "4"
			MesNombreValue = "Abril"		
		Case "5"
			MesNombreValue = "Mayo"		
		Case "6"
			MesNombreValue = "Junio"		
		Case "7"
			MesNombreValue = "Julio"		
		Case "8"
			MesNombreValue = "Agosto"		
		Case "9"
			MesNombreValue = "Setiembre"		
		Case "10"
			MesNombreValue = "Octubre"		
		Case "11"
			MesNombreValue = "Noviembre"		
		Case "12"
			MesNombreValue = "Diciembre"		
	End Select
	FechaValue = DiaNombreValue & " " & DiaValue & " de " & MesNombreValue & " de " & YearValue
	%></p>
<div align="center"><center>
 
<table border="0" width="80%" cellpadding="3" cellspacing="7">
  <tr>
    <td width="100%" colspan="2"><table border="0" width="100%" cellspacing="0"cellpadding="0"  >
      <tr>
        <td width="50%" valign="top"><b><font color="#FFFFFF" face="Comic Sans MS" size="2"><%=FechaValue%><br&  gt;
<%=HoraValue%>        </font></b></td>
        <td width="50%"><b><font color="#FFFFFF" face="Comic Sans MS" size="2">Tipo <%=DondeValue%><br>
        </font><font face="Comic Sans MS" size="2">Edad <%=ComoValue%></font></b></td>
      </tr>
    </table>
    </td>
  </tr>
 
  <tr>
    <td width="50%"><font face="Comic Sans MS" color="#FFFFFF"><b><p
    align="center"><%=NombreValue & " "%><%=ApellidoValue%></b></font></td>
    <td width="50%"><font face="Comic Sans MS" color="#FFFFFF"><b><p
    align="center"><%=EmailValue%>&  lt;/b></font></td>
  </tr>
  <tr>
    <td width="100%" colspan="2" bordercolorlight="#C0C0C0" bordercolordark="#808080"
    bordercolor="#000000"><%=Comentari  oValue%></b></font>
</td>
  </tr>
</table>
</center></div>
 
<p align="center"><br>
<%rsVisitas.MoveNext
Wend%></p>
</body>
</html>
 </pre>      
   
 


