Hi,
 
Wondering if you can assist me on this:
 
I've a searchpage that searches for records for a
particular date.
 
My searches only return records when I key in my
search date (the 
variable
is known as "strsearchvalue") as "mm/dd/yyyy".
 
But when the records are displayed, the date format
displayed on screen 
is
in "dd/mm/yy". Also, when I view the records in MS
Access 2000, the 
dates
are stored as "dd/mm/yy".
 
My question: How do I format my "strsearchvalue" so
that I can key in 
my
search as "dd/mm/yy" ?
 
Example:
If I key in a search as 10/12/02 (for dd/mm/yy) it
will return "No 
Records"
 
If I key in a search as 12/10/02 (for mm/dd/yy) it
will return "No 
Records"
 
If I key in search as 12/10/2002 (for mm/dd/yyyy) it
will return 
records
where the dates are displayed as "dd/mm/yy" (10/12/02)
 
 
 
My System locale settings are: English(Australia)
Regional Options: Short Date Format dd/mm/yy
 
 
Below are snippets of the codes:
 
<%
strsearchcriteria = Request.Form("searchcriteria")
strsearchvalue = Request.Form("searchvalue")
 
If strsearchcriteria = "All" Then
   strcriteria = "WHERE SerialNumber LIKE '%" &
strsearchvalue & "%' OR SerialNumber1 LIKE '%" &
strsearchvalue & "%' OR Date LIKE '" & strsearchvalue
& "%' OR LogRecord LIKE '" & strsearchvalue & "%' OR
UserName LIKE '" & strsearchvalue & "%' ORDER BY Date"
ElseIf strsearchcriteria = "SerialNumber" Then
   strcriteria = "WHERE SerialNumber LIKE '%" &
strsearchvalue & "%' OR SerialNumber1 LIKE '%" &
strsearchvalue & "%' ORDER BY Date, 
SerialNumber"
ElseIf strsearchcriteria = "Date" Then
   strcriteria = "WHERE Date LIKE '" & strsearchvalue
& "' ORDER BY SerialNumber" ElseIf strsearchcriteria 
"UserName" Then
   strcriteria = "WHERE UserName LIKE '" &
strsearchvalue & "%' ORDER 
BY
Date, SerialNumber"
End If
 
Set objCommand = Server.CreateObject("ADODB.Command")
 
objCOmmand.ActiveConnection = strConnect
objCommand.CommandText = "SELECT SerialNumber,
SerialNumber1, Date, LogRecord, UserName FROM History
" & strcriteria objCommand.CommandType = adCmdText Set
objRS = objCommand.Execute %>
 
 
To display the date, the code is simply:
 
Response.Write "<TD>" & objRS("Date")& "</TD>"
 
 
 
 
Many thanks in advance.
 
Regards,
Dennis


__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com

www.adopenstatic.com/faq/dateswithaccess.asp

Cheers
Ken

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: "dennis lee" <denleetw@y...>
Subject: [access_asp] ASP date formats and Access


: Hi,
:  
: Wondering if you can assist me on this:
:  
: I've a searchpage that searches for records for a
: particular date.
:  
: My searches only return records when I key in my
: search date (the 
: variable
: is known as "strsearchvalue") as "mm/dd/yyyy".
:  
: But when the records are displayed, the date format
: displayed on screen 
: is
: in "dd/mm/yy". Also, when I view the records in MS
: Access 2000, the 
: dates
: are stored as "dd/mm/yy".
:  
: My question: How do I format my "strsearchvalue" so
: that I can key in 
: my
: search as "dd/mm/yy" ?
:  
: Example:
: If I key in a search as 10/12/02 (for dd/mm/yy) it
: will return "No 
: Records"
:  
: If I key in a search as 12/10/02 (for mm/dd/yy) it
: will return "No 
: Records"
:  
: If I key in search as 12/10/2002 (for mm/dd/yyyy) it
: will return 
: records
: where the dates are displayed as "dd/mm/yy" (10/12/02)
:  
:  
:  
: My System locale settings are: English(Australia)
: Regional Options: Short Date Format dd/mm/yy
:  
:  
: Below are snippets of the codes:
:  
: <%
: strsearchcriteria = Request.Form("searchcriteria")
: strsearchvalue = Request.Form("searchvalue")
:  
: If strsearchcriteria = "All" Then
:    strcriteria = "WHERE SerialNumber LIKE '%" &
: strsearchvalue & "%' OR SerialNumber1 LIKE '%" &
: strsearchvalue & "%' OR Date LIKE '" & strsearchvalue
: & "%' OR LogRecord LIKE '" & strsearchvalue & "%' OR
: UserName LIKE '" & strsearchvalue & "%' ORDER BY Date"
: ElseIf strsearchcriteria = "SerialNumber" Then
:    strcriteria = "WHERE SerialNumber LIKE '%" &
: strsearchvalue & "%' OR SerialNumber1 LIKE '%" &
: strsearchvalue & "%' ORDER BY Date, 
: SerialNumber"
: ElseIf strsearchcriteria = "Date" Then
:    strcriteria = "WHERE Date LIKE '" & strsearchvalue
: & "' ORDER BY SerialNumber" ElseIf strsearchcriteria 
: "UserName" Then
:    strcriteria = "WHERE UserName LIKE '" &
: strsearchvalue & "%' ORDER 
: BY
: Date, SerialNumber"
: End If
:  
: Set objCommand = Server.CreateObject("ADODB.Command")
:  
: objCOmmand.ActiveConnection = strConnect
: objCommand.CommandText = "SELECT SerialNumber,
: SerialNumber1, Date, LogRecord, UserName FROM History
: " & strcriteria objCommand.CommandType = adCmdText Set
: objRS = objCommand.Execute %>
:  
:  
: To display the date, the code is simply:
:  
: Response.Write "<TD>" & objRS("Date")& "</TD>"

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~