<%@ LANGUAGE=VBScript %> <% Response.Buffer = True %> <% IF Session("Common_Access") < 9 THEN 'msgbox "Invalid User Name OR Password",48,"Warning" Response.Clear 'error logon warning Response.Redirect "default2.asp" END IF %> <% Set IndustryNetSQL = Server.CreateObject("ADODB.Connection") IndustryNetSQL.Open "thaiindustry", "tinhosting", "tinhosting" sql0 = "select count(*) from usermember " Set RS0 = IndustryNetSQL.Execute(sql0) sql = "select * from usermember " & _ "order by Register_d desc, " & _ " UserID asc" Set RS = IndustryNetSQL.Execute(sql) %>

	<%= FormatDateTime (date, vbLongDate) %>
	User Count <%=RS0(0)%>

<% Do WHILE not RS.eof %> <%RS.MoveNext%> <%IF NOT RS.eof THEN%> <%RS.MoveNext%> <%END IF%> <%Loop%> Register Date Last Access UserID User Name UserPassword First Name Last Name User Confirm User Type Company User Are Email Country <%=FormatDateTime(RS("Register_d") ,vbshortDate)%> <%=FormatDateTime(RS("Last_Access_d"),vbshortDate)%> <%=RS("UserID") %> <%=RS("Username") %> <%=RS("Userpasswd") %> <%=RS("FName") %> <%=RS("Lname") %> <%=RS("UserConfirm") %> <%=RS("Utype") %> <%=RS("CompanyName") %> <%=RS("User_are") %> <%=RS("UserEmail") %> <%=RS("Country") %> <%=FormatDateTime(RS("Register_d") ,vbshortDate)%> <%=FormatDateTime(RS("Last_Access_d"),vbshortDate)%> <%=RS("UserID") %> <%=RS("Username") %> <%=RS("Userpasswd") %> <%=RS("FName") %> <%=RS("Lname") %> <%=RS("UserConfirm") %> <%=RS("Utype") %> <%=RS("CompanyName") %> <%=RS("User_are") %> <%=RS("UserEmail") %> <%=RS("Country") %>

<% RS.close IndustryNetSQL.close %>