asp kalender med mySQL db
Nu sidder jeg og roder lidt med at få den her kalender til at virker, men kan ikke finde fejlen.hele min kode ser sådan her ud
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "DRIVER={MySql}; SERVER=databserne.dk; DATABASE= database_navn; UID=myusernavn; PWD=**************"
Conn.Open()
'------------------------------------------------------------------------------
IF Request("dato") = "" THEN
dato = DATE
ELSE
dato = Request("dato")
END IF
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
dato_maaned = month(dato)
'------------------------------------------------------------------------------
SELECT CASE dato_maaned
CASE 1,3,5,7,8,10,12
dato_antal_dage_maaned = 31
CASE 2
IF year(dato) MOD 4 = 0 THEN
dato_antal_dage_maaned = 29
ELSE
dato_antal_dage_maaned = 28
END IF
CASE 4,6,9,11
dato_antal_dage_maaned = 30
END SELECT
'------------------------------------------------------------------------------
SELECT CASE dato_maaned
CASE 1
maaned_frem = month(dato) + 1
aar_frem = year(dato)
maaned_tilbage = 12
aar_tilbage = year(dato) - 1
CASE 12
maaned_frem = 1
aar_frem = year(dato) + 1
maaned_tilbage = month(dato) - 1
aar_tilbage = year(dato)
CASE ELSE
maaned_frem = month(dato) + 1
aar_frem = year(dato)
maaned_tilbage = month(dato) - 1
aar_tilbage = year(dato)
END SELECT
'------------------------------------------------------------------------------
SELECT CASE dato_maaned
CASE 1
maaned_navn = "Januar"
CASE 2
maaned_navn = "Februar"
CASE 3
maaned_navn = "Marts"
CASE 4
maaned_navn = "April"
CASE 5
maaned_navn = "Maj"
CASE 6
maaned_navn = "Juni"
CASE 7
maaned_navn = "Juli"
CASE 8
maaned_navn = "August"
CASE 9
maaned_navn = "September"
CASE 10
maaned_navn = "Oktober"
CASE 11
maaned_navn = "November"
CASE 12
maaned_navn = "December"
END SELECT
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
dato_dag = day(dato)
'------------------------------------------------------------------------------
dato_foerste_mandag_maened = "01-" & month(dato) & "-" & year(dato)
dato_mandag_uge = (DatePart("W", dato_foerste_mandag_maened, VBMonday)) - 1
dato_uge = DatePart("WW", dato)
'------------------------------------------------------------------------------
'------------------------------------------------------------------------------
Response.Write "<b>" & maaned_navn & "(" & Ucase(Left(maaned_navn,3)) & ")" & ": " & dato & " (uge " & dato_uge & ") -" & "</b>" & " (dagsdato er: " & DATE & ").<br>"
'------------------------------------------------------------------------------
%>
<form method="POST" name="form_dato" action="kalender.asp">
<p>Skriv et dato:<br>
<input type="text" name="dato" size="20"><br>
<input type="submit" value="Send" name="B1"></p>
</form><br>
<a href="kalender.asp?dato=<%= "1-" & maaned_tilbage & "-" & aar_tilbage%>">Forige måned</a> -
<a href="kalender.asp?dato=<%= "1-" & maaned_frem & "-" & aar_frem%>">Næste måned</a><br><br>
<table border="1" width="100%">
<tr>
<th width="14%"> M</th>
<th width="14%"> T</th>
<th width="14%"> O</th>
<th width="14%"> T</th>
<th width="14%"> F</th>
<th width="15%"> L</th>
<th width="15%"> S</th>
</tr>
</table>
<table border="0" width="100%">
<%
'-------------------------------------------------------------------------------
strSql = " "&_
"SELECT dato "&_
"FROM artikel "&_
"GROUP BY dato "&_
"HAVING (MONTH(dato) = '"& month(dato) &"' ) AND (YEAR(dato) = '"& year(dato) &"' ) "&_
"ORDER BY dato DESC"
'-------------------------------------------------------------------------------
z = 1
For y = 1 to 6
Response.Write "<tr>"
For x = 1 to 7
Response.Write "<th width=""" & "14%" & """>"
Response.Write " "
If x <= dato_mandag_uge AND y = 1 Then
Response.Write " "
Elseif z > dato_antal_dage_maaned Then
Response.Write " "
Else
z_dato = z & "-" & month(dato) & "-" & year(dato)
Response.Write "<a href=""" & "kalender.asp?dato=" & z_dato & """>"
If z_dato = day(DATE) & "-" & month(DATE) & "-" & year(DATE) THEN
Response.Write "<b><font color=" & """#FF0000""" & ">" & z & "</font></b>"
ElseIf z = dato_dag Then
Response.Write "<b><font color=" & """#0000FF""" & ">" & z & "</font></b>"
Else
Response.Write z
End If
Response.Write "</a>"
'-------------------------------------------------------------------------------
Set RS = Conn.Execute(strSQL)
IF rs.EOF = TRUE AND rs.BOF = TRUE THEN
ELSE
While NOT rs.EOF
IF day(rs("dato")) = z THEN
Response.Write " " & "<img border=""" & "0""" & "src=""" & "redbullet.gif""" & ">"
END IF
rs.Movenext
Wend
END IF
'-------------------------------------------------------------------------------
z = z + 1
End If
Response.Write "</th>"
Next
Response.Write "</tr>"
Next
%>
</table><br>
<%
'-------------------------------------------------------------------------------
strSql = " "&_
"SELECT * "&_
"FROM artikel "&_
"WHERE (DAY(dato) = '"& day(dato) &"' ) AND (MONTH(dato) = '"& month(dato) &"' ) AND (YEAR(dato) = '"& year(dato) &"' ) "&_
"ORDER BY dato DESC"
'-------------------------------------------------------------------------------
Set RS = Conn.Execute(strSQL)
IF rs.EOF = TRUE AND rs.BOF = TRUE THEN
Response.Write "ingen artikler."
ELSE
While NOT rs.EOF
Response.Write " " & "<img border=""" & "0""" & "src=""" & "arrow-blk-fwd.gif""" & "> " & rs("rubrik") & " (" & rs("dato") & ")" & "<br>"
rs.Movenext
Wend
END IF
Conn.Close
Set Conn = Nothing
%>
Men hver gang jeg prøver at køre den skriver den dette:
Error Type:
ADODB.Recordset.1 (0x80004005)
SQLState: 4 Native Error Code: 1064 [TCX][MyODBC]You have an error in your SQL syntax. Check the manual that corresponds to your MySQL server version for the right syntax to use near '(dato) = '12' ) AND (MONTH(dato) = '1' ) AND (YEAR(dato) = '200
/ex/kalender.asp, line 169
Når jeg så fjerne koden "Set RS = Conn.Execute(strSQL)" så virker det hele fint på nær at jeg ikke kan trække noget ud af databasen.
Hjælp, jeg kan simplehen ikke finde ud af hvor fejlen er. :-/
