% dt = "DATE()" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
<% objConn.close Set objConn = nothing Function TimeHeadlines(thisDateTime) If Application(ScriptName & "TimeFormat") = "ShortTime" Then TimeHeadlines = FormatDateTime(thisDateTime, vbShortTime) Else TimeHeadlines = FormatDateTime(thisDateTime, vbLongTime) End If End Function %>