Sortera efter vecka!

Hej jag har information liggande i en databas som jag skulle vilja plocka ut!
Men jag vill att det ska plockas ut för varje vecka.. alltså är det vecka 42 så ska det plockas ut för vecka 42---

Här är kodensom jag har provat det med..

<%
vecka = DatePart("ww", Date(), 2)<BR>
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/vmatch.mdb")%>
<%SQLsats = "SELECT * FROM vmatch WHERE vecka = " & vecka
Set RecSet = Con.Execute(SQLsats)
Do Until RecSet.EOF
%>
<tr>
<td colspan="2"><b><font color="#000000">Herrar A</font></b></td>
</tr>
<tr>
<td><b>Vem: </b></td>
<td width="90%"><%=RecSet("hemma")%> vs <%=RecSet("borta")%></td>
</tr>
<tr>
<td><b>Var:</b></td>
<td width="90%"><%=RecSet("tid")%>, <%=RecSet("datum")%></td>
</tr>
<tr>
<td><b>När</b></td>
<td width="90%"><%=RecSet("plats")%></td>
</tr><% RecSet.MoveNext
loop
RecSet.Close
Con.Close
%> </table>

Det blir detta felmedlande:
Microsoft JET Database Engine error '80040e07'
Data type mismatch in criteria expression.

/kavlinge/index.asp, line 181

Vad ska jag göra??

mvh martin
1

Välkommen till wF!
Vad är vecka för datatyp i access?

mvh icaaq

vecka = DatePart("ww", Date(), 2)<BR>

Hur har <BR> hamnat där? :)

Det var först text men ny är dte ändrat till nummer...!
Men jag har kommit lite längre faktiskt!
Kolla på denna koden vad är felet??
<%
vecka = DatePart("ww", Date(), 2)
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/vmatch.mdb")%>
<%SQLsats = "SELECT * FROM vmatch WHERE vecka = " & vecka AND lag= "herrara' ORDER by datum DESC "
Set RecSet = Con.Execute(SQLsats)
Do Until RecSet.EOF
%>
<tr>
<td colspan="2"><b><font color="#000000">Herrar A</font></b></td>
</tr>
<tr>
<td><b>Vem: </b></td>
<td width="90%"><%=RecSet("hemma")%> vs <%=RecSet("borta")%></td>
</tr>
<tr>
<td><b>Var:</b></td>
<td width="90%"><%=RecSet("tid")%>, <%=RecSet("datum")%></td>
</tr>
<tr>
<td><b>När</b></td>
<td width="90%"><%=RecSet("plats")%></td>
</tr><% RecSet.MoveNext
loop
RecSet.Close
Con.Close
%>

Får detta felmedlande:
Microsoft VBScript runtime error '800a000d'
Type mismatch: '[string: "SELECT * FROM vmatch"]'

/kavlinge/index.asp, line 180

[red]
"SELECT * FROM vmatch WHERE vecka = '" & vecka &"'"
[/red]

om det är text :)

mvh icaaq

Är det ett heltal så borde det vara

SQLsats = "SELECT * FROM vmatch WHERE vecka = "& vecka &" AND lag = 'herrara' ORDER by datum DESC"

Sen är nog inte datum nåt vidare bra namn på en kolumn.

Tack för hjälpen det löste sig!

mvh martin!