Loop med if satser...

Hejsan! Varför vill inte detta fungera:

<%
DO Until rs.EOF OR X = 500
X=X+1
if rs("kom") = "" then
datum = "Aldrig"
else

    if len(Hour(rs("kom"))) = 1 then
      intHour = "0"&Hour(rs("kom"))
    else
      intHour = Hour(rs("kom"))
    end if

    if len(Minute(rs("kom"))) = 1 then
      intMinute = "0"&Minute(rs("kom"))
    else
      intMinute = Minute(rs("kom"))
    end if

    strDatum = intHour & ":" & intMinute 

datum = FormatDateTime(rs("kom"), vbLongDate) & " kl " & strDatum
end if

Alla som har loggat in skriv ut, sen blir det detta fel på dom som inte loggat in:

Microsoft VBScript runtime error '800a000d' 
Type mismatch: 'FormatDateTime' 

/kommun/sok_resultat.asp, line 90

Trodde de skulle lösa sig med if satsen...

if isdate(rs("kom")) then

Samma resulltat... de va väl första if satsen som skulle bytas ut? :)

Jo, men det skulle givetvis vara if not isdate....

Det var jag som var lite snabb på tangenterna, så inte hjärnan hängde med.

Mvh

hehe okej ;) Annars e de jag som är lite trög... ;) Eller så va de både och!

Tack så mycket! :)