PageRenderTime 8ms CodeModel.GetById 2ms app.highlight 1ms RepoModel.GetById 2ms app.codeStats 0ms

/SQL/scripts/pref/theme.asp

http://github.com/khaneh/Orders
ASP | 42 lines | 37 code | 5 blank | 0 comment | 0 complexity | c37de684cfa8f705ec985c04a740181f MD5 | raw file
 1<!-- #INCLUDE FILE="../inc/mla_sql_include.asp" -->
 2<%
 3	Dim myStrTree
 4
 5	If Request.Form("mla_cfg_cancel") <> "" Then
 6		Response.Redirect "default.asp"
 7		Response.End
 8	End If
 9
10	If Request.Form("mla_cfg_submit") <> "" Then
11		Response.Cookies("Option")("Theme") = Request.Form("mla_cfg_theme")
12		Response.Cookies("Option").Expires = #1/1/2020#
13		Response.Redirect "default.asp?refresh=1"
14		Response.End
15	End If
16
17	myStrTree = getTreeStr("3_1", Array())
18%>
19
20<!-- #INCLUDE FILE="../inc/metaheader.asp" -->
21<BODY>
22	<P CLASS="treeinfo"><% = myStrTree %></P>
23	<FORM NAME="mla_cfg" METHOD=POST ACTION="theme.asp">
24		<TABLE BORDER=0 CELLPADDING=2 CELLSPACING=0 CLASS="hcontent" SUMMARY="Option Form">
25			<TR><TD CLASS="caption" COLSPAN=2><% = myTObj.getTerm(22) & " \ " &  myTObj.getTerm(23) %></TD></TR>
26			<TR>
27				<TD CLASS="formlabel"><% = myTObj.getTerm(492) %>  :</TD>
28				<TD><% = getListBox("mla_cfg_theme", mla_cfg_themes, 0, 1, "", mla_cfg_theme, "alphanumeric", "") %></TD>
29			</TR>
30			<TR><TD COLSPAN=2>&nbsp;</TD></TR>
31			<TR>
32				<TD COLSPAN=2 ALIGN=CENTER>
33					<INPUT TYPE="submit" VALUE="<% = myTObj.getTerm(51) %>" NAME="mla_cfg_cancel" onClick="document.nocheck = true;"> &nbsp;
34					<INPUT TYPE="submit" VALUE="<% = myTObj.getTerm(54) %>" NAME="mla_cfg_submit">
35				</TD>
36			</TR>
37		</TABLE>
38	</FORM>
39
40</BODY>
41</HTML>
42<!-- #INCLUDE FILE="../inc/mla_sql_end.asp" -->