<% Dim myConn, objRS, mySQL, myConnStr, strConnection strConnection = "driver={MySQL ODBC 5.0.51 Driver};server=sql; database=sportmapwo; uid=sportmapwo; pwd=Santaham80; OPTION=3" set myConn = Server.CreateObject("ADODB.Connection") myConn.Open(strConnection) set objRS = Server.CreateObject("ADODB.Recordset") set objRS2 = Server.CreateObject("ADODB.Recordset") set objRS3 = Server.CreateObject("ADODB.Recordset") set objRS4 = Server.CreateObject("ADODB.Recordset") set objRS5 = Server.CreateObject("ADODB.Recordset") set objRS6 = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM " & _ " team, stadium, league " & _ " WHERE " &(request.querystring) & _ " AND stadium.stadium_id=team.stadium_id " & _ " AND team.league_id=league.league_id " & _ " ORDER BY team" mySQL2 = "SELECT * FROM " & _ " team, stadium, league " & _ " WHERE " &(request.querystring) & _ " AND stadium.stadium_id=team.stadium_id " & _ " AND team.league_id=league.league_id " & _ " ORDER BY capacity DESC" mySQL3 = "SELECT * FROM " & _ " team, stadium, league " & _ " WHERE " &(request.querystring) & _ " AND stadium.stadium_id=team.stadium_id " & _ " AND team.league_id=league.league_id " & _ " ORDER BY team" mySQL4 = "SELECT * FROM " & _ " team, stadium, league " & _ " WHERE " &(request.querystring) & _ " AND stadium.stadium_id=team.stadium_id " & _ " AND team.league_id=league.league_id " & _ " ORDER BY team" mySQL5 = "SELECT * FROM " & _ " team, stadium, league " & _ " WHERE " &(request.querystring) & _ " AND stadium.stadium_id=team.stadium_id " & _ " AND team.league_id=league.league_id " & _ " ORDER BY team" Set objRS = myConn.Execute(mySQL2) objRS.Close Set objRS2 = myConn.Execute(mySQL) objRS2.Close Set objRS3 = myConn.Execute(mySQL3) objRS3.Close Set objRS4 = myConn.Execute(mySQL4) objRS4.Close Set objRS5 = myConn.Execute(mySQL5) objRS5.Close %> <% set objRS=myConn.Execute(mySQL) %> Distance Chart | Distance Between <%=objRs("sarja_nimi")%> Teams
<< /<%=objRs("country_ur")%>/<%=objRs("sarja_nimi_ur")%>/"><%=objRs("sarja_nimi")%> Map
<% set objRS4=myConn.Execute(mySQL4) %> <% Do While Not objRS4.EOF %> <% objRS4.MoveNext Loop objRS4.Close Set objRS4 = Nothing %> <% set objRS4=myConn.Execute(mySQL4) %> <% Do While Not objRS4.EOF %> <% set objRS5=myConn.Execute(mySQL5) %> <% Do While Not objRS5.EOF %> <% objRS5.MoveNext Loop objRS5.Close Set objRS5 = Nothing %> <% objRS4.MoveNext Loop objRS4.Close Set objRS4 = Nothing %>
Distance Chart

Distance between <%=objRs("sarja_nimi")%> Teams

Kilometers
Miles 		/<%=objRS4("country_ur")%>/<%=objRS4("team_ur")%>/" title="<%= objRS4.Fields("team").Value %>"><%= objRS4.Fields("team").Value %>
/<%=objRS4("country_ur")%>/<%=objRS4("team_ur")%>/" title="<%= objRS4.Fields("team").Value %>"><%= objRS4.Fields("team").Value %> and <%= objRS5.Fields("team").Value %>">
<< /<%=objRs("country_ur")%>/<%=objRs("sarja_nimi_ur")%>/"><%=objRs("sarja_nimi")%> Map
<% objRS.Close Set objRS = Nothing %>