Can anyone figure this out?

<% Response.ContentType = "text/vnd.wap.wml" %>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
 <%
  Dim strDBConn
  Dim CONN_DSN
  Dim DataConn
  Dim dbData
  Dim sqlSTR
  Dim i
  
  'Will use i to make card# increment
  i=1
  
  'Database Connection
  'DSN
  CONN_DSN = "Switchboard" 'modify this with your DSN name
  
  strDBConn = "DSN=" & CONN_DSN 
  'Open Database Connection
  Set DataConn = Server.CreateObject("ADODB.Connection") 
  DataConn.Open strDBConn, CONN_USER, CONN_PASS 'This is line22
  
  'Assemble SQL query for La Liga database
  sqlSTR = "SELECT * FROM tblLaLiga"
  
  'Execute SQL Query creating recordset dbData
  set dbData = DataConn.Execute(sqlSTR)
  
  IF NOT dbData.eof THEN'if recordset is not empty
   Do while not dbData.eof 'Do until you get to the end of the recordset
 %>
 <card id='card<%=i%>'  title='La Liga'>
 <do type='options' label='Next'>
 <go href='#card<%=i+1%>'/>
 </do>
 <do type='accept' label='Up'>
 <go href='/score/soccer.wml'/>
 </do>
 <p><b>02 March 2004</b></p><br>
	<%
    'Write Results
    Response.Write dbData("Home Team") & "  " & dbData("ScoreH") & "<br>" 'Show home team name, score, then <br> to next line
    Response.Write dbData("Away Team") & "  " & dbData("ScoreA") & "<br><br>" 'same as above, but 2 returns
    Response.Write dbData("Time") & "<br><br>" 'Show time, then 2 returns
    
	%>
<a accesskey='1' href='#card<%=i+1%>' title='Next'>Next</a><br/>
<a accesskey='2' href='/score/soccer.wml' title='Up'>Back to Scores</a></p>
  </card>

 <%  
 	'Increment i
 	i = i+1
 	
 	'Move to the next record before we loop
 	dbData.movenext

  loop
  END IF
  

  'Close Recordset and Dataconn
  dbData.close
  set dbData = nothing
  DataConn.Close
  set DataConn = nothing
  %>
  </wml>