%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>
<%
Dim EnableLinkReg
Action = Trim(request("Action"))
EnableLinkReg = Conn.Execute("select EnableLinkReg from PE_Config")(0)
If EnableLinkReg <> True Then
FoundErr = True
ErrMsg = ErrMsg & "
")
fString = Replace(fString, Chr(10), "
")
PE_HTMLEncode = fString
End Function
%>