Assign the value of formatdatetime(now(), vbshortdate) to a variable .. lets say "TimeValue". Then make use of the following "if" loop to identify whether it is a AM or PM.
Dim strTemp
if DatePart("h", TimeValue) >= 12 then
strTemp = "PM"
Else
strTemp = "AM"
End if
Note: This is what struck me immediately after seeing your response. Just check out whether there are anyother better approach.
Best Regards
Vadivel
MVP ASP/ASP.NET
http://vadivel.thinkingms.com