<% iScheme = Request("scheme") If IsNumeric(iScheme) then strFees = "SELECT * FROM " & tablPfx & "Pack WHERE packID = " & CLng(iScheme) & ";" Set rs = objConn.Execute(strFees) If Not rs.EOF Then nextScheme = rs("pname") If nextpackID = 1000 then isallowtrial = CBool(rs("isallowtrial")) Else: isTrial = False End If price = rs("price") descr = rs("descr") pdur = rs("pdur") adur = rs("adur") isadexpire = CBool(rs("isadexpire")) alimit = rs("alimit") If alimit = 0 then alimit = strText_PostUnlimited isallowlock = CBool(rs("isallowlock")) nimage = CInt(rs("nimage")) isallowhot = CBool(rs("isallowhot")) End If rs.close End If dstyle = Application("Classify_Main_Config" & strUnique)(30) css = replace(dstyle, ".css", "") %> <%= nextScheme %>
<%= nextScheme %>
<%= strText_PackageDescription %>:  <%= descr %>
<%= strText_PackageExpire %>:  <%= FormatDateTime(CDate(session("user_pack_expire" & strSUnique)), 1) %>
<%= strText_Youmaypost %>:  <%= alimit %> <%= strText_Ads %>