<%@ LANGUAGE="VBSCRIPT" %> <% Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open datasourcename set cmd1 = Server.CreateObject("ADODB.Command") cmd1.ActiveConnection = DataConn strSQL = "SELECT JudgeFirstName, JudgeLastName, JudgeURL, JudgeComment from AwardJudge WHERE Judge2007 = 'Yes' AND JudgeThaddeus = 0 ORDER BY JudgeLastName" Set oRs = DataConn.Execute(strSQL) oRs.MoveFirst strBoard = "" %> <% '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 ZoneCodeRightSkyscraper1 = 15 ZoneCodeRightSkyscraper2 = 120 ZoneCodeRightSkyscraper3 = 600 ZoneCodeRightSkyscraper4 = 22222 %> Smartphone & Pocket PC magazine Best Software Awards: 2007 Board of Experts

2007 Board of Experts

Click here for 2006 Board of Experts

Windows Mobile Pocket PC and Smartphone experts from throughout the world have agreed to judge and select winners for each software category. These experts are authors of Smartphone and Pocket PC books, Smartphone & Pocket PC magazine contributors, Microsoft Pocket PC MVPs, Smartphone & Pocket PC magazine Support Forum helpers, and associates of top Smartphone and Pocket PC Web sites.

Smartphone & Pocket PC magazine wishes to thank these individuals. We invite you to visit their Web sites. Collectively, our experts will invest well over 1000 hours putting each piece of software through its paces. You will find their comments about the software published in 2007-08 issues of Smartphone & Pocket PC magazine. THANK YOU, EXPERTS.

<% Do until oRs.EOF vFirstName = oRs.Fields("JudgeFirstName") vLastName = oRs.Fields("JudgeLastName") vComment = oRs.Fields("JudgeComment") vURL = Replace(oRs.Fields("JudgeURL"),"http://","") vURL = Replace(vURL,";","") arrURL = Split(vURL," ",-1,1) ubURL = Ubound(arrURL) vURL1 = "" For i = 0 to ubURL If Len(arrURL(i)) > 25 Then vURL2 = Left(arrURL(i),25) & "..." Else vURL2 = arrURL(i) End If If Len(arrURL(i)) > 5 Then vURL1 = vURL1 & "" & vURL2 & "
" Next If vURL1 <> "" Then vURL1 = Left(vURL1,(Len(vURL1)-4)) Response.Write "" Response.Write "" oRs.MoveNext Loop oRs.Close Set oRs = Nothing Set DAtaConn = nothing %>
" & vFirstName & " " & vLastName & "" If vURL1 <> "" Then Response.Write vURL1 Else Response.write " " End If Response.Write "" Response.Write vComment & "