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.
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"]'
