<% Response.Expires = 60 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" Response.Buffer = True Dim sHost sHost = Request.ServerVariables("HTTP_HOST") If LCase(sHost) = "localhost" then sHost = sHost & "/armyreservist" End If Dim Status, Status_Msg, sFirm, iHeight SQL = "Select * from tbl_Properties" OpenDB Status = rs("Status") Status_Msg = rs("Status_Msg") iHeight = CInt(rs("LogoHeight")) CloseDB Function GetTitle SQL = "Select * from tbl_Properties" OpenDB GetTitle = rs("SiteTitle") CloseDB end Function Sub IsFirm SQL2 = "Select Firm from tbl_Properties" OpenDB2 If rs2("Firm") = "1" then sFirm = "1" %>  
Firm Attorneys
<% Else : sFirm = "0" %>  
Information
<% End If End Sub Sub MailList SQL2 = "Select MailList from tbl_Properties" OpenDB2 If rs2("MailList") = "1" then iTop = iTop + 22 %>  
Mailing List
<% End If CloseDB2 End Sub %> <%= GetTitle %>
M E N U <% 'On Error Resume Next Dim iTop Dim vBM iTop = 22 SQL = "Select * from tbl_Menu" 'order by MenuName" OpenDB Set rs2 = rs.Clone Do until rs.eof If rs("MenuSubID") = "0" then %> <% 'If Request("SubID") <> "" then 'vBM = rs.Bookmark 'CloseDB 'SQL = "Select * from tbl_Menu where MenuSubID = " & CInt(Request("id")) & " order by MenuName" 'OpenDB rs2.MoveFirst Do until rs2.EOF If not Request("id") = "" then If CInt(rs2("MenuSubID")) = CInt(Request("id")) then If CStr(rs("MenuID")) = CStr(rs2("MenuSubID")) then %> <% End If End If End If rs2.MoveNext Loop 'CloseDB 'End If 'SQL = "Select * from tbl_Menu where MenuSubID = 0" 'OpenDB 'rs.Bookmark = vBM iTop = iTop + 22 End If rs.MoveNext Loop CloseDB IsFirm MailList %>
 
   
 
 
 
" target="_blank"> " target="_blank"> Print This Page.

 

Eric Jensen Law Firm, serving Tyler, Smith County, and all of East Texas, Call Attorney Eric Jensen
 with your legal issues!

Call quickly because your legal problems can get worse.  Call me after hours if needed. Don't wait!
903-581-1992

Reasonable Legal Fees

Representing clients for 30 years on legal matters all over East Texas.

<% If Status = "0" then Write Status_Msg Else If Request("pg") = "" then Server.Execute "page.asp" Else Server.Execute Request("pg") End If End If %>

 
Copyright 2004 Broadway Internet Services. All Rights Reserved