Restting the Date in IIS to be the same as the system regional setting

Just use this funtion and forget server/ configuration issues.

<%
Function fmtDateTime(byval d, byval pat)
    Dim Tokens, token, delim, i, date_part, time_part, DateTokens, TimeTokens
 If IsNull(d) Then
        fmtDateTime = ""
        Exit Function
    End If
If TypeName(d) <> "Date" Or Not IsDate(d) Then
        fmtDateTime = "Invalid date parameter."
        Exit Function
    End If
    If InStr(pat, " ") > 0 Then
        Tokens = Split(pat, " ") ' should be 2 tokens --> (0)date (1)time
    Else
        Tokens = Split(pat, "") ' date OR time formatting
    End If
    bIsDate = False : bIsTime = False
     For Each token In Tokens
        If InStr(token, "-") > 0 Or InStr(token, "/") > 0 Then
           If InStr(token, "-") Then
                delim = "-"
            ElseIf InStr(token, "/") Then
                delim = "/"
            End If
DateTokens = Split(token, delim)
      For i = 0 To UBound(DateTokens)
                 Select Case CStr(DateTokens(i))
                    Case "yy"
                        DateTokens(i) = Right(CStr(DatePart("yyyy", d)), 2)
                    Case "yyyy"
                        DateTokens(i) = CStr(DatePart("yyyy", d))
                    Case "m"
                        DateTokens(i) = CStr(DatePart("m", d))
                    Case "mm"
                        DateTokens(i) = ZeroPad(CStr(DatePart("m", d)),2)
                    Case "d"
                        DateTokens(i) = CStr(DatePart("d", d))
                    Case "dd"
                        DateTokens(i) = ZeroPad(CStr(DatePart("d", d)),2)
                    Case Else
                        fmtDateTime = "Invalid date format : " & token
                        Exit Function
                End Select
            Next
            date_part = Join(DateTokens, delim)
        End If
          If InStr(token, ":") > 0 Then
           TimeTokens = Split(token, ":")
            For i = 0 To UBound(TimeTokens)
                Select Case CStr(TimeTokens(i))
                    Case "h"
                        TimeTokens(i) = Right(CStr(DatePart("h", d)), 2)
                    Case "hh"
                        TimeTokens(i) = ZeroPad(CStr(DatePart("h", d)),2)
                    Case "m", "mm"  ' always zero-pad minutes
                        TimeTokens(i) = ZeroPad(CStr(DatePart("n", d)),2)
                    Case "s", "ss"  ' always zero-pad seconds
                        TimeTokens(i) = ZeroPad(CStr(DatePart("s", d)),2)
                    Case Else
                        fmtDateTime = "Invalid time format : " & token
                        Exit Function
                End Select
            Next
            time_part = Join(TimeTokens, ":")
        End If
    Next  
    fmtDateTime =  Trim(date_part & " " & time_part)
End Function
Function ZeroPad(byval str, byval iSize)
    ZeroPad = String((iSize - Len(str)), "0") & Trim(str)
End Function
%>

use:

fmtDateTime(Now(), "yyyy-mm-dd")

fmtDateTime(Now(), "mm/dd/yyyy")

fmtDateTime(Now(), "hh:mm:ss")



just change the order YYYY mm dd  as pleased