Kalender med database!.
Hej Eksperter....Jeg har kopieret en gratis kalender fra activedeveloper lavet af Dennis Knappe, mit mål er at lave en kalender hvor de datoer hvor der er en "event" linker til en anden side .....
her er min kode:
<%set Conn = server.createobject("ADODB.Connection")
dsn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
dsn = dsn & "DBQ=" & server.mappath("database.mdb")
Conn.open dsn
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
Response.Write "<td align=center>"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
Response.Write "<strong><font color='#FF0000'>"
End If
Sqlevent = "Select * from datoer where dag=" & dtmtoday
Set datoer = Conn.Execute(Sqlevent) <---- linie 70
if datoer="" then
Response.Write Day(dtmCurDate)
Response.Write "</strong></td>"
else
Response.Write "<strong><font color='#0000FF'><a href='mode=vis&id="& datoer("id") &"'>"
Response.Write Day(dtmCurDate)
Response.Write "</a></font></strong></td>"
end if
blnLast = False
Else
Response.Write "-</td>"
blnLast = True
End If
Else
Response.Write "-</td>"
blnLast = True
End if
Next
End If
Next
Conn.Close
set Conn = Nothing%>
Og her er min fejl:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
kalender.asp, line 70
