problema ordinamento

[Gio&Ste]

Sto avendo un problema di ordinamento query, il codice è il seguente e il problema è che vorrei come risultato della query la data più vicina.

					<%  Dim Visa3
						Set objConn = Server.CreateObject("ADODB.Connection")
						objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("mdb-database/db.mdb")
						Set RecSet = Server.CreateObject("ADODB.Recordset")
						Visa3 = "SELECT * FROM comunica where Tipo='eventi' ORDER BY ID DESC"
						RecSet.Open Visa3, objConn, adOpenDynamic, adLockOptimistic
						if RecSet.EOF Then %>
					<h3>Appuntamenti</h3>
					

Non sono presenti date per i prossimi giorni.</p><% else %>
					<%  data = RecSet("Inizio_evento")
						data1 = RecSet("Fine_evento")
						if data >= Date() or data1 >= Date() Then%>
		<div class="textimage">
		[img]images/eventi.jpg[/img]

		<h3><%=RecSet("Titolo")%><% if RecSet("Sottotitolo") <> "" Then %> - <% End if %><%=RecSet("Sottotitolo")%></h3>
		

<%	messaggio = RecSet("Articolo")
				mess = Split(messaggio)
				messaggio = ""
				for i = 0 to Ubound(mess)
				messaggio = messaggio & mess(i) & " "
				if i = 53 then exit for
			next

			Response.Write(messaggio)%> ">Dettagli</p>
		<% 	RecSet.Close
			set RecSet = Nothing %>

Altri appuntamenti</p>
		</div><% End if %><% End if %

[supergeniux]

Cambia

Visa3 = "SELECT * FROM comunica where Tipo='eventi' ORDER BY ID DESC"

con

Visa3 = "SELECT * FROM comunica where Tipo='eventi' ORDER BY ID ASC"

[Gio&Ste]

E' quello che ho fatto e poi non sarebbe comunque corretto, potrei anche inserire gli appuntamenti in modo random.
Pensavo di fare l'ordinamento su Inizio_evento, ma se l'ordine lo faccio con Inizio_evento ASC non mi compare niente, mentre se è DESC mi compare l'ultimo inserito.

[supergeniux]

Non ti compare nulla? Sei sicuro che non ci siano campi vuoti?

[Gio&Ste]

Si è possibile che tra un evento e l'altro ci siano dei campi vuoti.
E' quello il problema? lo posso bypassare ho devo fare una tabella solo per gli eventi?

[supergeniux]

Puoi fare un controllo, dove se il campo e' vuoto, inserisci ad esempio la frase "Data non disponibile".

[Gio&Ste]

ho fatto così: if RecSet.EOF Then
Posso verificare se il campo Inizio_evento è vuoto?

[supergeniux]

Se estrai piu' dati non va bene, perche' alcuni record potrebbero esistere altri no.

Prova cosi:

'Controllo su una data con questo modello GG/MM/AA
if LEN(recordset("campo")) > 7 then
   response.write recordset("campo")
else
   response.write "Data non disponibile!"
end if

[Gio&Ste]

No, così non va.

Mi faccio una nuova tabella. Speravo di risparmiarne una

[supergeniux]

Perche' cosi non va?