ASP Date format Problem _ Application Tips

For dates that are stored in the date-time Type field of an Access database, the effect that is read directly from the database is shown with time, such as, 2009-06-13 18:00, what if just want to show the date?
Vbscrip has a function formatdatetime (). The notes are as follows:
Returns an expression that has been formatted as a date or time.
FormatDateTime (date[, NamedFormat])
Parameters
Date
Required option. The date expression to be formatted.
NamedFormat
Options available. Indicates the value of the date/time format used, and if omitted, uses Vbgeneraldate.
Set up
The NamedFormat parameter can have the following values:

Constant	Value	Describe
Vbgeneraldate	0	Displays the date and/or time. If there is a date part, the section is displayed as a short date format. If there is a time section, the section is displayed in a long time format. If all exist, all parts are displayed.
vbLongDate	1	Displays a date using the long date format specified in the computer's regional settings.
Vbshortdate	2	Displays a date using the short date format specified in the computer locale.
Vblongtime	3	Displays the time using the time format specified in the computer locale.
vbShortTime	4	Displays the time using the 24-hour format (hh:mm).

The

only wants to display the date with the following code:
Strdate=formatdatetime (rs ("date"), 2).
because there is only one area of the computer in VBScript that is the United States, so there is only one short format
"Yyyy-mm-dd".

ASP Time Date formatted output
1,2010-10-10 00:00:00
2,2010-10-10
3,2010/10/10
4, October 2010 10 0 0 hours 00 minutes 00 seconds
5,10-10 00:00:00
6,10/10
7, October 10
Other transformations are added by program

' Convert time format Function formatdate (Byval t,byval ftype) Dim y, M, D, H, MI, S formatdate= "" If IsDate (t) =false Then Exit  Function Y=cstr (Year (t)) M=cstr (month (t)) if Len (m) =1 Then m= "0" & M d=cstr (Day (t)) if Len (d) =1 Then d= "0" & D h = CStr (hour (t)) if Len (h) =1 Then h= "0" & H mi = CStr (minute (t)) if Len (mi) =1 Then mi= "0" & mi s = CStr (s Econd (t) If Len (s) =1 Then s= "0" & S Select Case CInt (ftype) Case 1 ' yyyy-mm-dd formatdate=y & "-" & M & Amp "-" & D Case 2 ' Yy-mm-dd formatdate=right (y,2) & "-" & M & "-" & D Case 3 ' Mm-dd formatdate=m  & "-" & D Case 4 ' Yyyy-mm-dd hh:mm:ss formatdate=y & "-" & M & "-" & D & "" & H & ":" & Mi & ":" & S Case 5 ' Hh:mm:ss formatdate=h & ":" & Mi & ":" & S Case 6 ' yyyy year mm month 
DD Day Formatdate=y & "Year" & M & "Month" & D & "Day" Case 7 ' YYYYMMDD Formatdate=y & M & D case 8 ' Yyyymmddhhmmss FOrmatdate=y & M & D & H & mi & S End Select End Function 
 

How to use:

Strdate=formatdatetime (RS ("date"), 1)