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