Classic ASP
Get Email Date/Time

Demonstrates getting the email "Date" header field in a CkDateTime object.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set email = Server.CreateObject("Chilkat.Email")

' Load a .eml file into the email object.
success = email.LoadEml("/home/users/chilkat/eml/myEml.eml")

set dtTime = Server.CreateObject("Chilkat.CkDateTime")
success = dtTime.SetFromRfc822(email.EmailDateStr)

' Once we have the CkDateTime object, we can get the date/time in many different formats:

' Get as a RFC822 GMT string:
bLocalTime = 0
Response.Write "<pre>" & Server.HTMLEncode( dtTime.GetAsRfc822(bLocalTime)) & "</pre>"

' Get as an RFC822 string in the local timezone.
' (remember, the daylight savings that existed at the given time in the past is applied)
bLocalTime = 1
Response.Write "<pre>" & Server.HTMLEncode( dtTime.GetAsRfc822(bLocalTime)) & "</pre>"

' Get as a 32-bit UNIX time (local or GMT..)
' The Unix time is number of seconds since the Epoch, 1970-01-01 00:00:00 +0000 (UTC). 
unixTime = dtTime.GetAsUnixTime(bLocalTime)
Response.Write "<pre>" & Server.HTMLEncode( "Unix time: " & unixTime) & "</pre>"

' One can also get the as a "DtObj" object for accessing the individual
' parts of the date/time, such as month, day, year, hour, minute, etc.
' The DtObj can be obtained in the GMT or local timezone:
set dtObj = Server.CreateObject("Chilkat.DtObj")
dtTime.ToDtObj bLocalTime,dtObj

If (dtTime.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "This should never really happen!") & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( dtObj.Day & "-" & dtObj.Month & "-" & dtObj.Year & " " & dtObj.Hour _
     & ":" & dtObj.Minute & ":" & dtObj.Second) & "</pre>"

%>
</body>
</html>