Hjälp!!

Hur kan jag få koden under här att endast lista samma datum en gång??

Nu listar den typ 20001008 flera gånger pga
av att just det datumet finns med på flera
poster i databasen..

<%
Set objConn = CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=I:\Inetpub\cgi-bin\ha\contact.mdb")
SQL = ""

Set rsContacts = CreateObject("ADODB.Recordset")
Set rsContacts.ActiveConnection = objConn
rsContacts.Open "SELECT \* FROM ContactView2 order by Date"

%>

<form method="GET" action="sort.asp">
<Select Name="datum" size="10">
<%
Do While Not rsContacts.EOF
%>

<option value="<%= rsContacts("Date") %>"><%= rsContacts("Date") %></option>
<%
rsContacts.MoveNext
loop
%>

<%
rsContacts.close
set rsContacts = Nothing
objConn.close
set objConn = Nothing
%>

</Select>
<input type="submit" value="skicka">

Tack på förhand

Hej!

... då finns det inbyggd funktion i språket SQL som heter "Join", som gör att de bara blockar ut en av varje i ett fält...

------------------
        )|(
       (o o)
-oo0-(_)-0oo-----
webeye.nu

Hur använder jag "Join" i exemplet ovan?

hello,

Detta kanske du kan använda dig av:

<form method="GET" action="sort.asp">
<Select Name="datum" size="10">
<%
Do While Not rsContacts.EOF

If rsContacts("Date") <> chkDate Then
%>

<option value="<%= rsContacts("Date") %>"><%= rsContacts("Date") %></option>
<%
chkDate = rsContacts("Date")
End If
rsContacts.MoveNext
loop
%>

Kanske inte den bästa lösningen, men tror att den ska funka. (gjord direkt i "kontoret", ej testad)

mvh
//PatrikB

Hänger med där men får det här felmeddelandet:

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/ha/datumsort.asp, line 28

loop
^

Opsss...

Missade koden under <Option> ..

Nu funkar det..

Kanon..

Tack

He, He .... lätt hänt att man missar ngt ...

//PatrikB