% response.buffer=True %>
<%
dim formField
dim plugin_id
dim plugin_instance_id
rowClass = "odd"
formField = request("formField")
plugin_id = request("plugin_id")
plugin_instance_id = request("plugin_instance_id")
response.write("" & VbCrLf)
response.write("" & VbCrLf)
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
if len(plugin_id) > 0 then
strSQL = "SELECT * FROM epcms_plugins where plugin_id = " & plugin_id
Set rs = LoadRSFromDB(strSQL)
if not rs.EOF then
thisPluginID = rs("plugin_id")
thisPluginName = rs("plugin_name")
thisPluginFunctionPrefix = rs("plugin_function_prefix")
response.write("
Plugins > " & thisPluginName & "
" & VbCrLf)
eval(thisPluginFunctionPrefix & "Setup()")
end if
set rs = Nothing
else
response.write("
" & VbCrLf)
response.write("
" & VbCrLf)
response.write("" & VbCrLf)
response.write("| Plugin name | " & VbCrLf)
response.write("Select | " & VbCrLf)
response.write("
" & VbCrLf)
strSQL = "SELECT * FROM epcms_plugins"
Set rs = LoadRSFromDB(strSQL)
if not rs.EOF then
Do While not rs.EOF
thisPluginID = rs("plugin_id")
thisPluginName = rs("plugin_name")
thisPluginFunctionPrefix = rs("plugin_function_prefix")
response.write("" & VbCrLf)
response.write("| " & thisPluginName & " | " & VbCrLf)
response.write("![]() | " & VbCrLf)
response.write("
" & VbCrLf)
if rowClass = "odd" then
rowClass = "even"
else
rowClass = "odd"
end if
rs.movenext
Loop
end if
rs.close
set rs = Nothing
response.write("
")
response.write("
" & VbCrLf)
end if
response.write("
" & VbCrLf)
Response.Write("" & VbCrLf)
Response.Write("" & VbCrLf)
%>