ASP format Time function

' This function can be based on the user given the time date, time, minutes, etc., as long as the user given different style parameters can display different styles of time and date.

function Formattime (Testtime,style)
Dim n,y,r,s,f,m
n = year (testtime)
y = month (testtime)
R = Day (testtime)
s = Hour (testtime)
f = Minute (Testtime)
M = Second (testtime)
If Len (n) = 2 then n = "M" & N
If Len (y) = 1 then y = "0" & Y
If Len (r) = 1 Then R = "0" & R
If Len (s) = 1 then s = "0" & S
If Len (f) = 1 then f = "0" & F
If Len (m) = 1 Then m = "0" & M
Nn=right (n,2)
If style = 1 Then
Formattime = "<font color=" "#ff0000" ">" & N & "</font> year <font color=" "#ff0000" ">" & Y & </font> month <font color= "" #ff0000 "" > "& R &" </font> Day <font color= "" #ff0000 "" > "& S & "</font> Time"
ElseIf style = 2 Then
Formattime = R & "Day" & S & ": & F &": "& M
ElseIf style = 3 Then
Formattime = N & "year" & Y & "month" & R & "Day"
ElseIf style = 4 Then
Formattime = N & "-" & Y & "-" & R & "" & S & ":" & F
ElseIf style = 5 Then
Formattime = y & "-" & R & "&nbsp;" & S & ":" & F
ElseIf style = 6 Then
Formattime = N & "year" & Y & "month" & R & "Day" & S & ":" & F
ElseIf style = 7 Then
Formattime = N & Y & R & S & F & M
ElseIf style = 8 Then
Formattime = N & "-" & Y & "-" & R
ElseIf style = 9 Then
Formattime = N & "/" & Y & "/" & R
End If
End Function