<%=szName%>

<%@ Language=VBScript %> <% Dim q, szBuy, szName q = Trim(Request.QueryString("id")) Set o = CreateObject("dTomDown2.cTomDown2") b = o.GetDownloads(q) If b Then szBuy = o.GetBuyLink() szName = o.GetName() End If Set o = Nothing If b And Len(szBuy) > 5 Then Response.Redirect szBuy Response.End End If %> <%=szName%>

Main Categories