Titan Tube

<%OpenDB() Set objRS = GetData("SELECT ID, Title, Content FROM tblContent") Do While Not objRS.EOF If Session("ADMIN_ID") = "" Then Response.Redirect("login.asp") End If Dim arryLoginSession arryLoginSession = Split (Session("ADMIN_ID"),"::") If arryLoginSession(3) = "Super Admin" Then%>

Welcome [<%=arryLoginSession(1)%>].  You are logged in as [<%=arryLoginSession(2)%>] and have been granted [<%=arryLoginSession(3)%>] privileges.  To log-out, click here.

" action="updatepage.asp" method="post"> " name="hdnID">

Edit Company Page

Print Preview

<%=objRS("Content")%>

<%else%>

Welcome [<%=arryLoginSession(1)%>].  You are logged in as [<%=arryLoginSession(2)%>] and have been granted [<%=arryLoginSession(3)%>] privileges.  To log-out, click here.

<%=objRS("Content")%>

<%end if objRS.MoveNext Loop objRS.Close Set objRS = Nothing CloseDB() %>

 
   

5739 Natural Bridge Road
St. Louis, MO 63120-1696

Home   |  Capabilities  |  Quality  |  Finishing  | Contact  |  Gallery
© 2007 Titan Tube Fabricators, Inc. 
Toll Free (888) 937-7225
 Created & maintained by Mid America, Inc.

Telephone: (314)381-2828
Fascimile: (314)381-5908