<%@ 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 Judge2004 = 'Yes' 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
%>
Pocket PC magazine Best Software Awards: 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 Pocket PC books, Pocket PC
magazine contributors, Microsoft Pocket PC MVPs, Pocket PC magazine
Support Forum helpers, and associates of top Pocket PC Web sites.
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 2005 issues of 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)) > 5 Then vURL1 = vURL1 & "" & arrURL(i) & " "
Next
If vURL1 <> "" Then vURL1 = Left(vURL1,(Len(vURL1)-4))
Response.Write "
" & vFirstName & " " & vLastName & "
"
Response.Write "
"
If vURL1 <> "" Then
Response.Write vURL1
Else
Response.write " "
End If
Response.Write "
"
Response.Write vComment & "
"
oRs.MoveNext
Loop
oRs.Close
Set oRs = Nothing
Set DAtaConn = nothing
%>
