nr=måned

If Len(nr) < 3 Then
  nrConv = nrConv & 0 & nr
End If

Response.Write(nrConv)

//>Rune

Session.LCID = 1030
nr = Mid(Date, 4, 2) & "0"

Den udskriver f.eks. i juni måned: 060

Var det, det du efterlyste?

nr = string(2-len(Month(date)),"0") & Month(date) & "0"

response.write "nr: " & nr

<%
Dim strMonth, intMonth

intMonth = Month(Now())

If intMonth < 10 Then
    strMonth = "0" & intMonth & "0"
Else
    strMonth = intMonth & "0"
End If

Response.Write(strMonth)
%>

'sets a zero in front of dates
Function padChar(v,char,size)
    Dim length
    length = Len(CStr(v))
    if size>=length then
      padChar = String(size-length, char) & CStr(v)
    else
      padChar = String(size, "#")
    end if
End Function

takker mange gange for hjælpen

jeg brugte magik´s svar da det var det jeg fandt mest logisk

endnu engang tak for hjælpen

ØØØØHHHH opdagede lige at han ikke har afgivet svar, vil du venligst gøre det ??

:)