%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% Dim signintime Dim tmpdate tmpdate = now signintime = "0"&month(tmpdate)&right("0"&day(tmpdate),2)&right("0"&hour(tmpdate),2)&right("0"&minute(tmpdate),2)&right("0"&second(tmpdate),2) 'Set conn = Server.CreateObject("ADODB.Connection") 'conn.Open(MM_online_STRING) %>