Riporto una parte del codice
selezione = Request.QueryString("selezione")
campionati = Request.QueryString("campionato")
calcio = Request.QueryString("calcio")
giron = Request.QueryString("girone")
gir=Ucase(giron)
scelta=Request.QueryString("scelta")
ar = Request.QueryString("ar")
giornata = Request.QueryString("giornata")
k = Request.QueryString("k")
an=Request.QueryString("an")
an1=Mid(an,1,2)
an2=Mid(an,3,4)
anno="S.S. 20"&an1&"/20"&an2
db="calcio"&an1
if k=16 or k=15 then
societaA="societa11,societa12,societa21,societa22,societa31,societa32,societa41,societa42,societa51,societa52,societa61,societa62,societa71,soc
ieta72,societa81,societa82,andata,replicaA"
societaR="societa12,societa11,societa22,societa21,societa32,societa31,societa42,societa41,societa52,societa51,societa62,societa61,societa72,soc
ieta71,societa82,societa81,ritorno,replicaB"
end if
if k=14 or k=13 then
societaA="societa11,societa12,societa21,societa22,societa31,societa32,societa41,societa42,societa51,societa52,societa61,societa62,societa71,soc
ieta72,andata,replicaA"
societaR="societa12,societa11,societa22,societa21,societa32,societa31,societa42,societa41,societa52,societa51,societa62,societa61,societa72,soc
ieta71,ritorno,replicaB"
end if
-----
-----
------
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/"&db&".mdb")
sql= "SELECT (giornata) FROM squadre"&giron&campionati
rs.open sql,conn
a=rs("giornata")
b=giornata
if (b-a>1) and (ar="andata") then
%>
<script language="JavaScript" type="text/javascript">
alert('Inserire i risultati delle gare di andata precedenti. Grazie!');
history.go(-1);
</script>
<%
end if
if ((b+k-1)-a)>1 and (ar="ritorno") then
%>
<script language="JavaScript" type="text/javascript">
alert('Inserire i risultati delle gare di ritorno precedenti. Grazie!');
history.go(-1);
</script>
<%
end if
rs.close
if ar="andata" then
sql= "SELECT " & societaA & " FROM serie"&giron&campionati & " WHERE giornata = " & giornata
rs.open sql,conn
sb=rs.GetRows()
rs.close
else
sql= "SELECT " & societaR & " FROM serie"&giron&campionati &" WHERE giornata = " & giornata
rs.open sql,conn
sb=rs.GetRows()
rs.close
end if
conn.close
set rs=nothing
set conn=nothing