datepart

Ett enkelt fel någonstans antar jag men ser det inte själv. iaf såhär ser koden ut:

		SQL = "SELECT dmArkiv.*, dmArkivTyp.*" _
		& " FROM dmArkiv INNER JOIN dmArkivTyp ON dmArkiv.dmTypID = dmArkivTyp.dmTypID"
		[b]& " WHERE dmAr = #" & datepart("yyyy",date()) & "# "[/b]
		set rs = dbCom.Execute(SQL)
		dim strAr, strSpelare, strKlubb, strTyp
		
		strAr = rs("dmAr")
		strSpelare = rs("dmSpelare")
		strKlubb = rs("dmKlubb")
		strTyp = rs("dmTyp")
			do while not rs.eof
				response.write strAr & strSpelare & strKlubb & strTyp & "<br>"
			rs.movenext
			loop
	%>

Koden ger följande fel:

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0400)
Programsats förväntas.
/TMP43ipb5205i.asp, line 8
& " WHERE dmAr = #" & datepart("yyyy",date()) & "# "