Kan någon kolla om dom ser något fel här. Får felkod se nedan
-------------------------------------------------
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/fagelhunden/vote/poll.asp, line 14, column 59
---------------------------------------------------
här är rad 14 ser ni något fel!!!!!!!!

Rad 14: If Request.Querystring("action") = "" Then

Set RecSet = Poll.Execute("SELECT Top 1 * From fraga Where
Mid(datum,1,7)='" & Mid(date,1,7) & "'")
--------------------------------------------------------

Tacksam för snabbt svar annars är det risk för nervsamanbrott.

Thomas

Njae, den ser väl bra ut
Men sql-koden...
Set RecSet = Poll.Execute("SELECT Top 1 * From fraga Where Mid(datum,1,7)='" & Mid(date,1,7) & "'")

1. Är datumet en sträng?
2. Vet inte säkert själv, men.. kan man skriva sådär, "Where Mid(datum,1,7)" osv.. Inte funktionen Mid, utan du måste väl ha nåt fält i databasen som heter så?

Fixat

Du är väl medveten om att din kod är instabil. Om man ändrar datumformat kan det få oväntade följder. Använd istället datumkonstanter. Då kan Access optimera frågan eftersom den slipper göra ett funktionsanrop för varje värde:

<code>
Function SQLDate(Value)
If IsDate(Value) Then
SQLDate = "#" & Month(Value) & "/" & Day(Value) & "/" & Year(Value) & "#"
Else
SQLDate = "Null"
End If
End Function

Dim strSQL
Dim MinDate
Dim MaxDate

MinDate = Date - Day(Date) + 1
MaxDate = DateAdd("m", 1, MinDate)

strSQL = "SELECT TOP 1 *" & vbCrLf & _
"FROM fraga" & vbCrLf & _
"WHERE datum >= " & SQLDate(MinDate) & " AND datum < " & SQLDate(MaxDate)

Set RecSet = Poll.Execute(strSQL)
</code>

Jag använder SQLDate() funktionen för att formatera datum till amerikansk format. Har för mig att det funkar i flesta fall i Access.