<!--#include file="../../Inc/Cls_Main.Asp"-->
<!--#include file="../../Inc/Cms/Cms.Asp"-->
<!--#include file="../../Inc/Cls_Ad.Asp"-->
<%
'=======================================================
Dim Action
'=======================================================
Action = LCase(Trim(Easp.Get("action:s")))
'=======================================================
Select Case Action
    Case "super"
        Call GetAd()
    Case Else
        Easp.RR "/"
End Select
Set Cms = Nothing
Set Easp = Nothing

Sub GetAd()
    Dim Id
    Id = Easp.Get("id:n:0")
    If Id = 0 Then
        Exit Sub
    Else
        Dim objAd
        Set objAd = New Cls_Ad
        objAd.SetClassId = Id
        objAd.Show()
        Set objAd = Nothing
    End If
End Sub
%>