ang o
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma","no-cache"
Response.addHeader "cache-control","private"
'Response.CacheControl = "no-cache"
Set objConn = Nothing
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open Session("DSN")
If Err.Number <> 0 then
Response.End
end if
if not Session("EnglishLanguage") then
Response.CharSet = "utf-8"
end if
Dim RuleId,strserver,CheckOK,solution,TempSolution,tRight
Dim objFs,objTextS
function GetTextFromXML(strTag)
dim objMsg,StrMsgText
Set objMsg = Nothing
Set objMsg = session("objLangxml").documentElement.selectSingleNode(strTag)
StrMsgText = objMsg.text
StrMsgText = replace(StrMsgText,"~","\r")
StrMsgText = replace(StrMsgText,"'","\'")
GetTextFromXML = StrMsgText
Set objMsg = Nothing
end function
function GetTextFromXMLDisplay(strTag)
dim objMsg,StrMsgText
Set objMsg = Nothing
Set objMsg = session("objLangxml").documentElement.selectSingleNode(strTag)
StrMsgText = objMsg.text
StrMsgText = replace(StrMsgText,"~","\r")
StrMsgText = replace(StrMsgText,"""","\""")
GetTextFromXMLDisplay = StrMsgText
Set objMsg = Nothing
end function
'strTrans1 = GetTextFromXMLDisplay("solforkid")
strTrans1 = GetSettingsXML("fieldname/field3")
strTrans2 = GetTextFromXML("ok")
strTrans3 = GetTextFromXML("cancel")
strTrans4 = GetTextFromXML("help")
sLanguageXMLFile = GetTextFromXML("ewebeditprolang")
RuleId=Request("RuleId")
strserver = request.servervariables("APPL_PHYSICAL_PATH")
' get the Global setting for Solution editing
Dim bTextOnly
bTextOnly = True
if len(trim(Session("aGlobalSet")(22))) > 0 then
if clng(trim(Session("aGlobalSet")(22))) = 1 then
bTextOnly = false
elseIf instr(Request.ServerVariables("http_user_agent"),"Mac_") > 0 Then
bTextOnly = false
end if
else
bTextOnly = false
end if
If not bTextOnly Then
If request.servervariables("HTTPS") = "off" Then
strEwebeditprohelp = "http://"& request.servervariables("SERVER_NAME") & "/ewebeditpro3/ug/wwhelp/js/html/frames.htm"
Else
strEwebeditprohelp = "https://" & request.servervariables("SERVER_NAME") & "/ewebeditpro3/ug/wwhelp/js/html/frames.htm"
End if
End if
CheckOK = Request.Form("OK")
If CheckOK <> "" Then
solution = Request.Form("solution")
'---------------------------------------------------
' This Portion gets the Style tag from the HTML
'---------------------------------------------------
StrStyleTab = Request.Form("solution")
StrStyleTabUCase = ucase(Request.Form("solution"))
If Instr(1,StrStyleTabUCase,"",1)-Instr(1,StrStyleTabUCase,"
<%end if%>
<%=strTrans1%> : <%=RuleId%>
<%If bTextOnly Then%>
<%end If%>
<%If bTextOnly Then%>
<%end If%>