<%@ Language=VBScript %> <% Dim q, b, o, szName, szScreen, szDesc, szVer, szOS, nWidth, sz100, szPath, 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() szOS = o.GetOS() vnd = o.GetRNVendor() szDesc = o.GetDesc() sz100 = o.GetDesc100() szScreen = o.GetScreenshot() szPath = o.GetPath() nWidth = o.GetWidth() 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 %> <%=szName%> screenshot
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: TomDownload > <%=szPath%>

<%=szName%> Screenshot

Version: <%=szVer%>
System : <%=szOS%>
Description: <%=szDesc%>
<% If nWidth > 590 Then %> Click to see the screenshot of <%=szName%> in full screen

<%=szName%> <% Else %> <%=szName%> <% End If %>

<%=sz100%>




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


TomDownload