<%@ LANGUAGE=VBScript %> <% Response.Buffer = True session("Status_Edit_Product") = 0 %> <% IF Session("Common_Access") < 1 THEN 'msgbox "Invalid User Name OR Password",48,"Warning" Response.Clear 'error logon warning Response.Redirect "Default.asp" END IF %> <% Set IndustryNetSQL = Server.CreateObject("ADODB.Connection") IndustryNetSQL.Open "thaiindustry", "tinhosting", "tinhosting" sql = "select * from usermember " & _ "where username = '"& session("UserName") & "'" Set RS = IndustryNetSQL.Execute(sql) %>

	<%= FormatDateTime (date, vbLongDate) %>

User Member <%=RS("FName")& " " %><%=RS("LName")& " " %> . . User Name <%=RS("Username")%> First Name <%=RS("FName") %> Last Name <%=RS("LName")%> Register Date <%=RS("Register_d")%> Last Access <%=RS("Last_Access_d")%> User Type <%=RS("User_are")%> . .