<%@ 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%>