<%
Private Function SwapDate(ByVal dateinput)
    Dim strWorkingDate, tmpArray, assemblystring, del, i
    strWorkingDate = dateinput
    If InStr(strWorkingDate, "/") Then
        tmpArray = Split( strWorkingDate, "/" ) : del = "/"
    ElseIf InStr(strWorkingDate, "-") Then
        tmpArray = Split( strWorkingDate, "-" ) : del = "-"
    ElseIf InStr(strWorkingDate, " ") Then
        tmpArray = Split( strWorkingDate, " " ) : del = " "
    End If
    For i = 0 To UBound(tmpArray)
        tmpArray( i ) = Replace( tmparray( i ), ",", "" )
    Next
    assemblystring = tmpArray(1) & del & tmpArray(0)
    If del = " " Then assemblystring = assemblystring & ","
    assemblystring = assemblystring & del & tmpArray(2)
    SwapDate = Trim( assemblystring )
End Function
%>