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