<%@ LANGUAGE=VBScript %> <% Response.Buffer = True %> Welcome to Thai Industry Network <% 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) v_userid = RS("userid") sql2 = "select * from company " &_ "where userid = "& v_userid &"" Set RS2 = IndustryNetSQL.Execute(sql2) %>

 

 
<%= FormatDateTime (date, vbLongDate) %>

User Member <%=RS("FName")& " " %><%=RS("LName")& " " %>
Company Infomation Manager [Edit]
Name <%=RS2("Name")%>
Office Address*
Zipcode*
City*
Country*
Tel.*
Fax.
Email Address*
Contact Person*
Profile
URL
Distributors
Clients*
.