Hehe skummt att den fungerade med gamla databasen :). IIS servern kanske ballade ur och visade en gammal sida där det fungerade :). Får testa det i morgon.
Edit:
Urk nu förstår jag ingenting, samma kod fungerar perfekt med den gamla databasen, bara man ändrar sökvägen och fält namnen. När jag kör den här koden med den nya databasen får jag det här felet. Kan det vara att nya databasen är gjord i access xp? Den gamla är gjord i Access 2000
Feltyp:
Microsoft JET Database Engine (0x80040E10)
Det har inte angetts något värde för en eller flera nödvändiga parametrar.
/skv/klar/begdagar.asp, line 34
<html>
<body>
<!-- #include virtual="skv/klar/adovbs.inc" -->
<%
DIM dat , dat2 , dat3
dat = DateAdd("d", -120, date)
dat2 = DateAdd("d", -180, date)
dat3 = DateAdd("d", -360, date)
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
connect.provider = "Microsoft.jet.oledb.4.0"
connect.Open "data source=" & server.mapPath("lager.mdb")
If Request.QueryString("datum")= "d120" OR Request.QueryString("datum")= "d180" OR Request.QueryString("datum")= "d360" Then
Set RecSet = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("datum") = "d120" Then
d = "SELECT fltRegnr, fltArsmodell, fltVagnspec, fltFarg, fltStartdatumlager, fltInbytssalj FROM tblBil WHERE tblBil.fltStartdatumlager BETWEEN #" & dat & "# AND '2001-01-01' ORDER BY fltStartdatumlager ASC"
ElseIf Request.QueryString("datum") = "d180" Then
d = "SELECT fltRegnr, fltArsmodell, fltVagnspec, fltFarg, fltStartdatumlager, fltInbytssalj FROM tblBil WHERE tblBil.fltStartdatumlager BETWEEN #" & dat2 & "# AND '2001-01-01' ORDER BY fltStartdatumlager ASC"
ElseIf Request.QueryString("datum") = "d360" Then
d = "SELECT fltRegnr, fltArsmodell, fltVagnspec, fltFarg, fltStartdatumlager, fltInbytssalj FROM tblBil WHERE tblBil.fltStartdatumlager BETWEEN #" & dat3 & "# AND '2001-01-01' ORDER BY fltStartdatumlager ASC"
End if
RecSet.Open d, Connect, adOpenStatic, adLockOptimistic
%>
<table border="0" width="auto">
<tr>
<td colspan=6><center><b>Uppdaterad <%=Date%></b></center>
</tr>
<tr bgcolor="yellow">
<td><B>Reg. nr</B></td>
<td><B>Årsm</B></td>
<td><B>Vagnspecifikation</B></td>
<td><B>Färg</B></td>
<td><B>Inbyt. Säljare</B></td>
<td><B>Indatum</B></td>
</tr>
<% Do Until RecSet.EOF %>
<tr>
<td><%= RecSet("fltRegnr")%></td>
<td><%= RecSet("fltArsmodell")%></td>
<td><%= RecSet("fltVagnspec")%></td>
<td><%= RecSet("fltFarg")%></td>
<td><%= RecSet("fltInbytssalj")%></td>
<td><%= RecSet("fltStartdatumlager")%></td>
</tr>
<% RecSet.MoveNext
Loop
RecSet.Close
Connect.Close
End if
%>
</tr>
</table>
</body>
</html>