After Googleing. I came across a related page which gave me the following sollution. Sadly I couldnt get it to work

it just gives me a blank 00-00-00 and not the converted date. While the the structure looks acceptable, not sure whats happening to the actual date.
Is there anyone out there who has used ASP with Mysql dates?
<%
'====================
function mysqlDate( d, dir )
'====================
'if not isDate( d ) then call errorMessage( d & " is not a date " )
'if not isDate( d ) then exit function
if not isDate( d ) then d = Date()
dim strNewDate
select case dir
case 1 '=== store in db
strNewDate = year( d ) & "-" & month( d ) & "-" & day( d )
case 2 '=== use with asp
strNewDate = month( d )& "/" & day( d ) & "/" & year( d )
end select
strNewDate = cDate( strNewDate )
mysqlDate = strNewDate
end function
'====================
function mysqlTime( t, dir )
'====================
dim strSuffix, arTime, i, x
t = trim( Lcase( t ) )
if inStr( t, "pm" ) > 0 OR inStr( t, "am" ) > 0 then
strSuffix = right( t, 2 )
t = left( t, inStr( t, strSuffix ) -2 )
t = trim( t )
end if
for i = 1 to len( t )
x = mid( t, i, 1 )
if not isReallyNumeric( x ) and x <> ":" then t = replace( t, x, "" )
next
arTime = split( t, ":" )
t = ""
for i = 0 to 2
if uBound( arTime ) < i then redim preserve arTime( i )
if i = 0 then
if dir = 1 then
if strSuffix = "pm" and cInt( arTime( i ) ) < 12 then
arTime( i ) = cInt( arTime( i ) ) + 12
end if
else
if cInt( arTime( i ) ) > 12 then
arTime( i ) = cInt( arTime( i ) ) - 12
strSuffix = "PM"
else
strSuffix = "AM"
end if
end if
end if
do until len( arTime( i ) ) = 2
arTime( i ) = "0" & arTime( i )
loop
t = t & arTime( i )
if i < 2 then t = t & ":"
next
arTime = null
if dir = 2 then t = t & " " & strSuffix
'debug( t )
mysqlTime = t
end function
%>
<html>
<head>
<title>Date Conversion Test</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<P>Normal Date: <%response.write(date())%></P>
<P>MySQL Date: <% Response.Write(mysqlDate(1, Date)) %></P>
</body>
</html>