'============== MySQL TimeStamp Functions next 3
function mysqltimestamp(

asp

 ts)
dim thetime,thedate

asp

 ts=cstr(

asp

 ts)
thedate=left(

asp

 ts,instr(

asp

 ts," "-1)
thetime=right(

asp

 ts,len(

asp

 ts)-instr(

asp

 ts," ")
mysqltimestamp=mysqldate(thedate)&" "&mysqltime(thetime)
end function

function mysqlDate(d)
dim strNewDate
strNewDate = year( d ) & "-" & month( d ) & "-" & day(d)
mysqlDate = strNewDate
end function

function mysqlTime(t)
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 isNumeric( 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 strSuffix = "pm" and cInt( arTime( i ) ) < 12 then
    arTime( i ) = cInt( arTime( i ) ) + 12
    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
'============== END MySQL TimeStamp Functions