<%
''''''''''''''''''''''''''''
''''''''Variables'''''''''''
'Name of File
file_name = "resultsadmin.asp"
'Number of Press Releases on the front page
num_of_releases = 5
' DSN String to connect to database
dsn_string = "DSN=mesa;UID=mesa;PWD=m4r1n;DATABASE=customers"
%>
Lightspeed Technologies
<%
''''''''''''''''''''''''''''
''''''''Functions'''''''''''
Function DBQuery(obj_name, sql_statement)
If NOT con_opened = 1 THEN
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open dsn_string
con_opened = 1
End If
'If obj_name = "none" THEN
' Con.Execute(MySQL)
'Else
'Response.Write(sql_statement)
'Response.Write(obj_name)
'Response.End
Set obj_name = Con.Execute(sql_statement)
'End If
End Function
Function FormatTime(time_value)
t_hour = DatePart("h", time_value)
t_min = DatePart("n", time_value)
IF t_min = 0 THEN
t_min = "00"
END IF
If t_hour > 12 THEN
t_hour = t_hour - 12
t_am_pm = "PM"
ELSE
t_am_pm = "AM"
END IF
FormatTime = t_hour&":"&t_min&" "&t_am_pm
End Function
'''''''Functions END''''''''
''''''''''''''''''''''''''''
%>
