Hvor går det galt?

det er fordi værdien vNumber er null. Hvis du vil ignorere null-vædier (og sætte dem til 0 i stedet), kan du bruge isnull.

Function AddZ(ByVal vNumber)
  if isnull(vNumber) then
    AddZ = "00"
  else
    AddZ = CStr(vNumber) 'LINIE3

    If len(AddZ) < 2 Then _
        AddZ = "0" & AddZ
  end if
End Function

Nej, hvis RS("lastseen") = "" skal der stå "Er endnu ikke set". Hvis jeg benytter dit eksempel, får jeg ikke fejlen, men så står der 00-00- 00:00:00.

Sagt på en anden måde: Hvis RS("lastseen") = "" så har brugeren endnu ikke logget på efter oprettelse af profil, og så skal der står "Er endnu ikke set". Kan du hjælpe med den?

hvad mener du med RS("lastseen") = ""? er RS("lastseen") null eller ""? - der er stor forskel - jeg går ud fra, du bruger datoformat i din database. I så fald vil rs("lastseen") enten være dato eller null da "" ikke accepteres i en sådan type felt.

<%
Function AddZ(ByVal vNumber)
    AddZ = CStr(vNumber)

    If len(AddZ) < 2 Then _
        AddZ = "0" & AddZ
End Function
%>

<%
    Dim vLastSeen
    If not isnull(RS("lastseen")) then
      vLastSeen = RS("lastseen")
      vLastSeen = AddZ(day(vLastSeen)) & "-" & AddZ(month(vLastSeen)) & "-" & year(vLastSeen) & " " & AddZ(hour(vLastSeen)) & ":" & AddZ(Minute(vLastSeen)) & ":" & AddZ(Second(vLastSeen))
    else
      vLastSeen = "Er endnu ikke sat"
    end if
%>

Vh Mathias.

Fik ikke rigtig klaret det, men har heller ikke kigget på det så meget siden. Hvis jeg finder frem til løsningen, smider jeg svaret her. Men tak for hjælpen, rod :o)