<%@ 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")& " " %> Company Infomation Manager [Add] Name* "> Office Address* "> Zipcode* "> City* "> Country* " size="1"> Thailand Tel.* "> Fax. "> Email Address* "> Contact Person* "> URL "> Profile "> Distributors "> Clients "> .