<!-- #include virtual = "/_includes/DB_Conn_2k.asp" -->
<!-- #include virtual = "/_includes/banmanfunctions.asp" -->   
<!--#INCLUDE FILE='ads.asp'-->
<!--#INCLUDE virtual='/_includes/sanitizeSQL.asp'-->

<%
'Alter these codes to change BanMan ads
ZoneCodeTopBanner1 = 11 'zone id no.
ZoneCodeTopBanner2 = 468  	'width in pixels
ZoneCodeTopBanner3 = 60		'height in pixels
ZoneCodeTopBanner4 = 33333	'page id
ZoneCodeBottomBanner1 = 1
ZoneCodeBottomBanner2 = 468
ZoneCodeBottomBanner3 = 60
ZoneCodeBottomBanner4 = 33333

' To update this page for 2007 etc., change "Product.Nom2007" in the SQL query to the appropriate field.
'-----------------------------------------------
function SpecChar(str)

str = Replace(str, "&", "&amp;")
str = Replace(str, """", "&quot;")
str = Replace(str, "<", "&lt;")
str = Replace(str, ">", "&gt;")
SpecChar = str

End function

'-----------------------------------------------

strCatID = Request.Querystring("catid")
if not isInteger(strCatID) then strCatID = 11

If strCatID = "46"  Then  'Developer software
	strSQL = "SELECT TOP 100 PERCENT asct.SectionName As CatName, ac.CatName As SubcatName, p.ProdName As ProdName, p.ProdID, c.CompanyName, c.Web, ac.CategoryID As SubcatID, " & _
			"CAST(p.Description1 as nvarchar(1000)) As Description1, p.UseWith, p.Price, c.Email, p.PPC, p.HPC, p.Smartphone, p.Desktop " & _
			"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 " & _  
			"WHERE ((asct.SectionName = 'Developers') AND (p.Nom2007 = 1)) UNION "	& _			
		    "SELECT TOP 100 PERCENT asct.SectionName As CatName, ac.CatName As SubcatName, p.ProdName As ProdName, p.ProdID, c.CompanyName, c.Web, ac.CategoryID As SubcatID, " & _
			"CAST(p.Description1 as nvarchar(1000)) As Description1, p.UseWith, p.Price, c.Email, p.PPC, p.HPC, p.Smartphone, p.Desktop " & _
			"FROM Product p INNER JOIN AwardSmartphone asp ON asp.ProdID = p.ProdID  " & _
			"INNER JOIN AwardCategory ac ON ac.AwardCatID = asp.AwardCatID " & _
			"INNER JOIN AwardSection asct ON asct.AwardSectID = ac.AwardSectID " & _
			"INNER JOIN Company c ON c.CompanyID = p.CompanyID " & _
			"WHERE ((asct.SectionName = 'Developers') AND (p.NomSP2007 = 1)) ORDER BY CatName, SubcatName, ProdName ASC"	
Else
	strSQL = 	"SELECT  DISTINCT Cat.CatName AS CatName, Subcat.CatID AS SubcatID, Subcat.CatName AS SubcatName, Product.ProdID, Product.ProdName, CAST(Product.Description1 AS nvarchar(1000)) AS Description1, " &_
                      "Product.UseWith, Product.Price, Company.CompanyName, Company.Web, Company.Email, Product.PPC, Product.HPC, Product.Smartphone, " &_ 
                      "Product.Desktop, pd.handandgoid AS handangoId, pd.url as downloadUrl, ah.awardstatus as awardstatus, " &_
					  "CASE WHEN vscd.AgreementProdID IS NULL THEN '0' ELSE '1' END AS AgreementProdID " &_
					"FROM  Category Cat LEFT OUTER JOIN " &_
                      "Category Subcat ON Cat.CatID = Subcat.ParentID INNER JOIN " &_
                      "Product ON Product.CatID = Subcat.CatID INNER JOIN " &_
                      "Company ON Product.CompanyID = Company.CompanyID INNER JOIN " &_
					  "awardhistory ah on product.prodid = ah.prodid " &_
					  "LEFT outer JOIN v_SuperCDProducts_2007 vscd on product.ProdID = vscd.prodid " &_
					  "Left outer JOIN ProductDownload_ppc pd on pd.ProdID = product.prodID " &_
				"WHERE     ((Subcat.ParentID = " & strCatID & ") AND (Product.Nom2007 = 1)) and (ah.smartphone = 0) and (ah.year = 2007) " &_
				"ORDER BY Cat.CatName, SubcatName, Product.ProdName ASC"
End If    				
    				
'Response.write strSQL
'response.end
Call ExecuteSQL(strSQL,cursortype,rs_main)
Function isInteger(value)
  dim isValidE
  dim regEx
  
  isValidE = True
  set regEx = New RegExp
  
  regEx.IgnoreCase = False
  
  regEx.Pattern = "^\d+$"
  isValidE = regEx.Test(value)
  
  isInteger = isValidE
End Function
%>

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nominations: Best Software Awards 2007</title>
<META name="description" content="Nominations for the Annual Pocket PC magazine Best Product Awards">
<META name="keywords" content="Pocket PC, Handheld PC, Smartphone, awards, software">
<LINK REL="stylesheet" TYPE="text/css" HREF="/_stylesheets/regular.css"> 


</head>

<!-- #include virtual = "/_includes/buildbody_top_awards.asp"--> 
<!---    
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0">
	<TR>
		<TD WIDTH="290" HEIGHT="12" COLSPAN="2">
			<IMG SRC="images/header2_BoE_01.jpg" WIDTH="290" HEIGHT="12"></TD>
		<TD WIDTH="178" HEIGHT="141" ROWSPAN="3">
			<IMG SRC="images/header2_BoE_02.jpg" WIDTH="178" HEIGHT="141"></TD>   
	</TR>
	<TR>
		<TD WIDTH="151" HEIGHT="115">
			<IMG SRC="images/header2_BoE_03.jpg" WIDTH="151" HEIGHT="115"></TD>
		<TD WIDTH="139" HEIGHT="115">
			<IMG SRC="images/header2_BoE_04.jpg" WIDTH="139" HEIGHT="115"></TD>  
	</TR>
	<TR>
		<TD WIDTH="290" HEIGHT="14" COLSPAN="2">
			<IMG SRC="images/header2_BoE_05.jpg" WIDTH="290" HEIGHT="14"></TD>
	</TR>
	<TR>
		<TD WIDTH="151" HEIGHT="30">
			<img border="0" src="images/awards_end-user_header2_08.jpg"></TD>
		<TD WIDTH="317" HEIGHT="30" COLSPAN="2">
			<img border="0" src="images/header2_PPC_07.jpg"></TD>
	</TR>
	<TR>
		<TD WIDTH="290" HEIGHT="10" COLSPAN="2">
			<IMG SRC="images/header2_BoE_08.jpg" WIDTH="290" HEIGHT="10"></TD>
		<TD WIDTH="178" HEIGHT="10">
			<IMG SRC="images/header2_BoE_09.jpg" WIDTH="178" HEIGHT="10"></TD>
	</TR>
</TABLE>      ---->

<a href="http://www.pocketpcmag.com/nustore/asp/aftrack.asp?id=290&Req=http://www.pocketpcmag.com/vip/discount.asp">
<img border="0" src="http://www.pocketpcmag.com/awards/images/awards_page_header_2007.gif" width="468" height="181"></a></p>
<!-- #include file = "navbar_2007.htm" -->
<br />

<%
If rs_main.EOF Or rs_main.BOF Then
	Response.Write "Developer 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 "<p class='title'><font face=""Arial"" size=""5"">2007 Pocket PC Software Award Nominations</font></p>"


    	Do While Not rs_main.EOF
		
		If strCat <> rs_main("CatName") Then 
			Response.write "<table border=""1"" cellspacing=""0"" width=""100%"" cellpadding=""5"" bgcolor=""DDDDDD"" " &_
							"bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"">" & vbcrlf &_
	  						"<tr>" & vbcrlf &_
	    					"<td width=""62%""><b><font color=""#000000"" face=""Verdana"">" & rs_main("CatName") &_
	    					" Nominations</font></b> &nbsp;&nbsp;</td>" & vbcrlf &_
	    					"<td width=""38%"" align=""right""><b><a href=""nominees.asp"">" &_
	    					"<font color=""#000000"" face=""Verdana"" size=""2"">Back to Index</font></a></b></td>" & vbcrlf &_
	  						"</tr>" & vbcrlf &_
							"</table>" & vbcrlf 
		End If
		strCat = rs_main("CatName")
		
		If strSubcat <> rs_main("SubcatName") Then
			Response.write  "<a name=""" & Replace(rs_main("SubcatName")," ","") & """></a>" &_
							"<table border=""1"" cellspacing=""0"" width=""100%"" cellpadding=""5"" bgcolor=""#808080"" " &_
							"bordercolorlight=""#FFFFFF"" bordercolordark=""#FFFFFF"">" & vbcrlf &_
		  					"<tr>" & vbcrlf &_
		    				"<td width=""100%"">" &_
		    				"<b>" &_
		    				"<a href=""http://www.pocketpcmag.com/_enc/subcat_nom.asp?ub=Software&ca=" & Server.URLEncode(rs_main("CatName")) &_
		    				"&su=" & Server.URLEncode(rs_main("SubcatName")) & "&cat=" & rs_main("SubcatID") & """>" &_
		    				"<font color=""#FFFFFF"" face=""Verdana"" size=""2"">" &_
		    				 rs_main("SubcatName") & "</font></a></b>" &_
		    				 "<font color=""#FFFFFF"" face=""Verdana"" size=""1""> &nbsp;&nbsp;&lt; " &_
		    				 "Click here to see all products in category." &_
		    				 "</td>" & vbcrlf &_
		  					"</tr>" & vbcrlf &_
							"</table>" & vbcrlf '&_

		End If
		strSubcat = rs_main("SubcatName")		
		
		'assign values to the string variables
		strID=rs_main("ProdID")
		strName=rs_main("ProdName")
		strDesc=rs_main("Description1")
		'strDesctwo=rs_main("Description2")
		strDevel=rs_main("CompanyName")
		if(rs_main("Web") <>"") then 
			strWeb = Replace(rs_main("Web"),"http://","")
		else
			strWeb = ""
		end if
		strEmail = rs_main("Email")
		'-------------------------------------------------------
		' W/F Icons
		If rs_main("awardstatus") = "Winner" then
			strIcon = "<img src='images/winner.gif' alt = 'winner' align='absbottom' width='54' height='16' />"
		else
			If rs_main("awardstatus") = "Finalist"  then
				strIcon = "<img src='images/finalist.gif' alt = 'finalist' align='absbottom' width='54' height='16' />"
			else
				strIcon = ""
			end if	
			
		end if
		'
		'---------------------------------------------------------

		'Display the item in question
		'Check to be sure field isn't empty, and replace special characters 
     
     	Response.Write "<p class=""mainbody""><span class=""subhead1""><b>" & SpecChar(strName) & "</b></span>" & vbcrlf
		response.write(strIcon)
     	response.write "<br>" & vbcrlf
     	If Not strDesc = "" Then Response.Write SpecChar(strDesc) & "<BR>" & vbcrlf
     	If Not strDesctwo = "" Then Response.Write SpecChar(strDesctwo)
     	Response.Write "<br>"
     	If Not strUsewith = "" Then Response.Write "<B>Use with: </B>" & SpecChar(strUsewith) & "<br>"
     	If Not strPrice = "" Then Response.Write "<B>Price: </B>" & SpecChar(strPrice) & "<br>"
     	  'UNCOMMENT the next 3 lines show if a product is included in BOE
		if(rs_main("AgreementProdID") <> "0") then
						response.write ("<a style = 'color: blue; font-family: Verdana; size: 11px;' href = 'http://www.pocketpcmag.com/store/asp/aftrack.asp?id=297&Req=aboutcd.asp'>Included in Best of Everything Software Package!</a><br/><br />")
    	end if
		Response.Write "<B>Developer: </B>" & SpecChar(strDevel) & "<BR>" & vbcrlf
     	'Response.write "Date posted: " & SpecChar(strDate) & "<br>" & vbcrlf
     	
     	'If Not strPhone = "" Then Response.Write "<B>Phone: </B>" & strPhone & "<BR>"
     	'If Not strFax = "" Then Response.Write "<B>Fax: </B>" & strFax & "<BR>"
     	If Not strEmail = "" Then Response.Write "<B>Email: </B><a href=""mailto:" & strEmail &_
     	 """>" & strEmail & "</a><BR>"
     	If Not strWeb = "" Then Response.Write "<B>Web: </B><a target=""_blank"" href=""http://" & strWeb &_
     	""">" & strWeb & "</a><BR></P>"
        
		'the next lines show try / buy link 
		if((rs_main("downloadurl")) <> "") then strDownloadURL = "http://" & rs_main("downloadurl")
		if(rs_main("handangoId") <> "") then strDownloadURL = "/vip/handangosplash1.asp?pid=" &rs_main("handangoId") 		
	 if(strDownloadURL <>"") then
		%>
		<a style ="color: blue;" href = "<% =strDownloadURL%>">Try / Buy</a><br />

		<%		
     	 end if  '' end buy / try   
		
		rs_main.MoveNext
		'rotating ads at the end of each sub category
		
		if (Not rs_main.EOF)  Then 'can't use AND because gives error  :-/
					If strSubcat <> rs_main("SubcatName") Then
				response.write (getads())
			end if
		else
			getads()
		end if	
		Response.write "<hr noshade color=""#C0C0C0"" size=""1"">" & vbcrlf		
	Loop
End If

' Close DB objects and free variables
rs_main.Close
Set rs_main = Nothing
DataConn.Close
Set DataConn = Nothing
%><!-- #include virtual = "/_html_includes/copyright.htm" --><!-- #include virtual = "/_includes/buildbody_bottom_awards.asp"--><p>
<font face="Arial" size="5">2007 Pocket PC Software</font></p>