<%@ LANGUAGE=VBScript %> <% Response.Buffer = True %> <% 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")& " " %> Change Password User Name <%=RS("Username")%> Current Password New Password Re-Password Email (Email must same as register email)

<% RS.close IndustryNetSQL.close %>