<%@ Language=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Dim objConn Dim objRS Dim strSQL Dim strDate Dim strTime On Error Resume Next Session("strConnection") = "DSN=PF;FIL=MS Access;" Session("sessionTimeout") = 30 Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open Session("strConnection") strSQL = "SELECT lupDate, lupTime FROM profile" Set objRS = objConn.Execute(strSQL) If Not objRS.EOF Then strTime = objRS.Fields("lupTime") strDate = objRS.Fields("lupDate") strDate = Day(CDate(strDate)) & "-" & MonthName(Month(CDate(strDate)),True) & "-" & Year(CDate(strDate)) End If objConn.Close Set objConn = Nothing 'image_map.jpg %> Pretty Fit
กก กก
กก Franchisee Online Order System
กก
User ID:
Password:





Best viewed with IE 6.0 and above, and a minimum resolution of 800x600