<%@ Language=VBScript %> <% Dim q, b, o, szName, szSize, szDesc, sz100, szPath, szVer, szOS, d(), dn, dx, i, vnd q = Trim(Request.QueryString("id")) Set o = CreateObject("dTomDown2.cTomDown2") b = o.GetDownloads(q) If b Then Redim d(5) szName = o.GetName() szVer = o.GetVer() szSize = o.GetSize() szOS = o.GetOS() szDesc = o.GetDesc() sz100 = o.GetDesc100() szPath = o.GetPath() vnd = o.GetRNVendor() dn = o.GetDownNum() d(1) = o.GetDown(1) d(2) = o.GetDown(2) d(3) = o.GetDown(3) d(4) = o.GetDown(4) d(5) = o.GetDown(5) Randomize i = Fix(Rnd * dn) + 1 dx = d(i) End If Set o = Nothing Dim szImg If Len(vnd) > 3 And Len(vnd) < 6 Then szImg = "/dr.asp?q=" & vnd & "&r=http://tomdownload.com/a/images/diamond.gif" Else szImg = "/a/images/diamond.gif" End If %> Downloading <%=szName%> <%=szVer%>
Home  |  Editor Picks  |  New Releases  |  Submit  |  Sitemap  |  Contact  |  More...

Main Categories
Audio & MP3
Business & Finance
Games
Desktop Enhancements
Home & Education
Internet Tools
Multimedia & Design
Software Development
Utilities
Web Authoring
Mac Software

Location: <%=szPath%>

Downloading <%=szName%> ...

Version : <%=szVer%>
File Size: <%=szSize%>
System : <%=szOS%>

Downloading Links:
<% For i=1 to dn If Len(vnd) > 3 And Len(vnd) < 6 Then Response.Write "" & d(i) & "
" Else Response.Write "" & d(i) & "
" End If Next %>
If the downloading can not start automatically, please click one of the above links

Description:
<%=szDesc%>

<%=sz100%>





Copyright © 2003-2008 tomdownload.com - Shareware Downloads and Reviews     Privacy | Terms of Use


TomDownload