|
||||||||||
% rsFromDate.Close rsToDate.Close rsState.Close rsCity.Close rsCategory.Close rsHiringCompany.Close rsContactName.Close rsEmail.Close rsCompanyName.Close dcnDB.Close Function funcMySqlDate(dtmChangeDate) 'CONVERTS LOCALIZED DATE FORMAT (for example: m/d/yy) TO MySQL FORMAT (yyyy-mm-dd) Dim strTempYear, strTempMonth, strTempDay strTempYear = Year(dtmChangeDate) strTempMonth = Month(dtmChangeDate) strTempDay = Day(dtmChangeDate) if Len(strTempYear) = 2 then 'Y2K TEST - 1938-2037 - ADJUST AS NECESSARY if strTempYear >= 38 then strTempYear = "19" & strTempYear else strTempYear = "20" & strTempYear end if end if if strTempMonth < 10 then strTempMonth = "0" & strTempMonth if strTempDay < 10 then strTempDay = "0" & strTempDay funcMySqlDate = strTempYear & "-" & strTempMonth & "-" & strTempDay End Function %>