' Börja med personnumret
strPers = "770420, 2020"

' Dela sedan upp det
strBirth = split(strPers,",")
strYear = left(strBirth(0),4)
strMonth = mid(strBirth(0),3,2)
strDay = right(strBirth(0),2)
strGenerated = strYear & "-" & strMonth & "-" & strDay

' strGenerated blir allt så ett korrekt datum
' i detta fall 1977-04-20
' Vill du sen skriva ut det snyggt så kan du applicera följande kod som jag hittade bland tipsen här.

dag = WeekdayName(weekday(strGenerated))
dag = ucase(left(dag,1)) & mid(lcase(dag),2)
response.write dag & " " & day(strGenerated) & " " & MonthName(month(strGenerated)) & " " & year(strGenerated)

' Denna kod skall skriva ut det på följande sett
' Onsdag 20 april 1977