2007 Nominees, Finalists & Winners
The list of Pocket PC and Smartphone Nominees, Finalists and Winners have been created by The Board of Experts, led by Nominations Manager, Werner Ruotsalainen. Nominees, Finalists and Winners are listed below.
Pocket PC Nominees, Finalists and Winner - by category
Pocket PC Nominees, Finalists & Winner - by category with description
Smartphone Nominees, Finalists & Winners - by category
Smartphone Nominees, Finalists & Winners - by category with description
How can I save 15% on all software?
Discuss Finalists and Winners (discuss your favorite nominations, the awards process,
or anything awards-related)
Vendors enter software into Encyclopedia (vendors must enter their free product listing in order to be eligible for future nominations)
 |
How can I get 15% off all software? All subscribers to Smartphone & Pocket PC magazine get a 15% discount on all Windows Mobile software through our exclusive VIP Subscribers site. Access to the VIP site and VIP Handango Software store with over 12,000 items is FREE for all subscribers! Subscribe now, get instant VIP access and save 15% on all software! |
| ") Do While Not rs_main.EOF if rs_main("SectName") = "Internet" then 'make a new column if a = 0 then 'only once response.write(" | ")
a =1
end if
end if
If strCat <> rs_main("SectName") Then
Response.write " " & rs_main("SectName") & " |
Smartphone Nominees, Finalists and Winners - by category
| ") Do While Not rs_main.EOF if rs_main("SectName") = "Smartphone: Internet" then 'make a new column if a = 0 then 'only once response.write(" | ")
a =1
end if
end if
If strCat <> rs_main("SectName") Then
Response.write " " & rs_main("SectName") & " |
Pocket PC Nominees, Finalists
and Winners
<%
'POCKET PC SECTION
' query to use when nominations are final, based on awardhistory
strSQL = "SELECT distinct TOP 100 PERCENT ah.Section As SectName, ah.Category As SubcatName, ah.AwardStatus, p.ProdName As ProdName, p.ProdID, " & _
"c.CompanyName, c.Web, pd.handandgoid AS handangoId, pd.url as downloadUrl, " & _
"CASE WHEN vscd.AgreementProdID IS NULL THEN '0' ELSE '1' END AS AgreementProdID " & _
"FROM Product p INNER JOIN Company c ON c.CompanyID = p.CompanyID " & _
"INNER JOIN AwardHistory ah ON p.ProdID = ah.ProdID " & _
"LEFT outer join v_SuperCDProducts_2007 vscd on p.prodid = vscd.prodid " & _
"LEFT outer join ProductDownload_ppc pd on p.prodid = pd.prodid " &_
"WHERE p.Nom2007 = 1 AND ah.[Year] = '2007' AND ah.Smartphone = 0 ORDER BY SectName, SubcatName, ProdName ASC"
'query to use when nominations are still changing
'strSQL = "SELECT DISTINCT TOP 100 PERCENT asct.SectionName As SectName, ac.CatName As SubcatName, p.ProdName As ProdName, p.ProdID, c.CompanyName, c.Web, ac.CategoryID As SubcatID, pd.handandgoid AS handangoId, pd.url as downloadUrl, " & _
' "CASE WHEN vscd.AgreementProdID IS NULL THEN '0' ELSE '1' END AS AgreementProdID " & _
' "FROM Product p INNER JOIN Category cat ON cat.CatID = p.CatID INNER JOIN AwardCategory ac ON ac.CategoryID = cat.CatID " & _
' "INNER JOIN AwardSection asct ON asct.AwardSectID = ac.AwardSectID " & _
' "INNER JOIN Company c ON c.CompanyID = p.CompanyID " & _
' "LEFT outer JOIN v_SuperCDProducts_2007 vscd on p.ProdID = vscd.prodid " & _
' "Left outer JOIN ProductDownload_ppc pd on p.ProdID = pd.prodID " & _
' "WHERE p.Nom2007 = 1 AND asct.AwardSectID IN(1,3,4,5,6,7,8,9,10,20,22) AND ac.AwardCatID <> 216 AND ac.AwardCatID <> 229 ORDER BY SectName, SubcatName, ProdName ASC "
Call ExecuteSQL(strSQL,cursortype,rs_main)
If rs_main.EOF Or rs_main.BOF Then
Response.Write "Software nominations have not been made yet for 2007."
Else
'set these so can compare to them to decide whether to write a heading
strCat = ""
strSubcat = ""
strID = ""
Response.Write " " & SpecChar(strName) & ""
Response.Write " (" & SpecChar(strDevel) & strWeb & ")" & vbcrlf & ""
if(strDownloadURL <>"") then
%>
Product Info...
<%
end if
'UNCOMMENT the next 4 lines when you want to show WINNERS and FINALISTS
If rs_main("AwardStatus") = "Finalist" Then Response.Write " " &_
" Smartphone Nominees,
Finalists and Winners " & SpecChar(strName) & ""
Response.Write " (" & SpecChar(strDevel) & strWeb & ")" & vbcrlf & ""
' TRY BUY
if(strDownloadURL <>"") then
%>
Product Info...
<%
end if
'UNCOMMENT the next 4 lines when you want to show WINNERS and FINALISTS
If rs_main("AwardStatus") = "Finalist" Then Response.Write " " &_
"
"
Do While Not rs_main.EOF
If strCat <> rs_main("SectName") Then
Response.write "" & vbcrlf &_
"
" & vbcrlf
End If
strCat = rs_main("SectName")
If strSubcat <> rs_main("SubcatName") Then
Response.write "" &_
"" & vbcrlf &_
" " & vbcrlf &_
"" & rs_main("SectName") &_
" " & vbcrlf &_
"" & vbcrlf &_
"
" & vbcrlf '&_
End If
strSubcat = rs_main("SubcatName")
'assign values to the string variables
strID=rs_main("ProdID")
strName=rs_main("ProdName")
strDevel=rs_main("CompanyName")
strWeb=rs_main("Web")
If left(strWeb, 7) <> "http://" then
strURL = "http://" & strWeb
Else
strURL = strWeb
strWeb = Mid(strWeb, 7)
End If
strURL1 = ""
strURL2 = ""
If len(strWeb) > 0 Then
strWeb = ", " & strURL1 & strweb & strURL2
Else
strWeb = ""
End If
' link to try / buy goes either to handango store or a link provided by werner
' see table productdownload
'handangoId, downloadUrl
if((rs_main("downloadurl")) <> "") then strDownloadURL = "http://" & rs_main("downloadurl")
if(rs_main("handangoId") <> "") then strDownloadURL = "/vip/handangosplash1.php?pid=" &rs_main("handangoId")
'Display the item in question
'Check to be sure field isn't empty, and replace special characters
Response.Write "" & vbcrlf &_
" " & vbcrlf &_
"" &_
"" &_
"" &_
rs_main("SubcatName") & "" &_
" " &_
" " & vbcrlf &_
"" & vbcrlf
If rs_main("AwardStatus") = "Winner" Then Response.Write " " &_
"
" & vbcrlf
'UNCOMMENT the next 2 lines when you want to show FINALISTS only
' If rs_main("AwardStatus") = "Finalist" or rs_main("AwardStatus") = "Winner" Then Response.Write " " &_
' "
" & vbcrlf
'UNCOMMENT the next 3 lines show if a product is included in BOE
'if(rs_main("AgreementProdID") <> "0") then
' response.write ("
Included in Best of Everything Software Package!
")
'end if
rs_main.MoveNext
if (Not rs_main.EOF) Then 'can't use AND because gives error :-/
if(strSubcat <> rs_main("SubcatName")) then
response.write("
")
response.write (getads())
end if
else ' always print on the last record
response.write("
")
response.write (getads())
end if
Loop
End If
rs_main.Close
'SMARTPHONE SECTION
%>
"
Do While Not rs_main.EOF
If strCat <> rs_main("SectName") Then
Response.write "" & vbcrlf &_
"
" & vbcrlf
End If
strCat = rs_main("SectName")
If strSubcat <> rs_main("SubcatName") Then
Response.write "" &_
"" & vbcrlf &_
" " & vbcrlf &_
"" & rs_main("SectName") &_
" " & vbcrlf &_
"" & vbcrlf &_
"
" & vbcrlf '&_
End If
strSubcat = rs_main("SubcatName")
'assign values to the string variables
strID=rs_main("ProdID")
strName=rs_main("ProdName")
strDevel=rs_main("CompanyName")
strWeb=rs_main("Web")
If left(strWeb, 7) <> "http://" then
strURL = "http://" & strWeb
Else
strURL = strWeb
strWeb = Mid(strWeb, 7)
End If
strURL1 = ""
strURL2 = ""
If len(strWeb) > 0 Then
strWeb = ", " & strURL1 & strweb & strURL2
Else
strWeb = ""
End If
' link to try / buy goes either to handango store or a link provided by werner
' see table productdownload
'handangoId, downloadUrl
if((rs_main("downloadurl")) <> "") then strDownloadURL = "http://" & rs_main("downloadurl")
if(rs_main("handangoId") <> "") then strDownloadURL = "/vip/handangosplash1.php?pid=" &rs_main("handangoId")
'Display the item in question
'Check to be sure field isn't empty, and replace special characters
Response.Write "" & vbcrlf &_
" " & vbcrlf &_
"" &_
"" &_
"" &_
rs_main("SubcatName") & "" &_
" " &_
" " & vbcrlf &_
" " & vbcrlf
If rs_main("AwardStatus") = "Winner" Then Response.Write " " &_
"
" & vbcrlf
'UNCOMMENT the next 2 lines when you want to show FINALISTS only
' If rs_main("AwardStatus") = "Finalist" or rs_main("AwardStatus") = "Winner" Then Response.Write " " &_
' "
" & vbcrlf
'UNCOMMENT the next 4 lines show if a product is included in BOE
'if(rs_main("AgreementProdID") <> "0") then
' a = rs_main("prodid")
' if(a <> "4230") AND (a <>"2357") AND (a <>"5395") AND (a <>"476") AND (a <>"6488") AND (a <>"3006") then
' response.write ("
Included in Best of Everything Software Package!
")
' end if
'end if
rs_main.MoveNext
if (Not rs_main.EOF) Then 'can't use AND because gives error :-/
if(strSubcat <> rs_main("SubcatName")) then
response.write("
")
response.write (getads())
end if
else ' always print on the last record
response.write("
")
response.write (getads())
end if
Loop
End If
' Close DB objects and free variables
rs_main.Close
Set rs_main = Nothing
DataConn.Close
Set DataConn = Nothing
%>