Ciao Ragazzi,

sono disperato! non riesco a capire cosa non vada nella pagina asp.
Ho utilizzato un codice che è già stato realizzato e funzionate (grazie anche a voi) ora l'ho semplicemente riadattato alle nuove esigenze (cambiato i nomi dei campi) ma non funziona!!!

in pratica il concetto della mia pagina è fare un riepilogo dei voti divisi per materia per ciascun ragazzo.
La pagina dà dei risultati solo che anzichè mostrarli:

Cognome Nome
mat1: voto1
mat2:voto2
...
Cognome Nome2
mat1:voto1
....

restituisce valori per

cognome nome
mat1: voto1
cognome nome2
mat1: voto1
cognome nome
mat2:voto2

Qui il codice:
codice:
<%@LANGUAGE="VBSCRIPT"%>

<%
Option Explicit
%>

<%
  
    Dim  carica, sc, cn, objRs, strsql, id_cl

    sc = ""
    sc = sc & "driver={Microsoft Access Driver (*.mdb)};dbq="
    sc = sc & Server.MapPath("../mdb-database/pagelle_web.mdb")

    Set cn = Server.CreateObject("ADODB.Connection")
    Set objRs = Server.CreateObject("ADODB.Recordset")
	
	id_cl = Request.QueryString("id_cl")
	strsql = "SELECT * FROM q_voti WHERE id_cl='" +id_cl +"'"
	cn.Open sc
	set objRs = cn.Execute(strsql)
	 
    
   %>

<%
carica="" 

Do while Not objRs.EOF 
IF Carica<>objRs("id_al") THEN 
     response.write ("[/list]")
     Carica=objRs("id_al") 
     response.write ("

"+ objRs("al_cognome") +" "+ objrs("al_nome")+ "</p><ul>") 
	 response.write ("[*]"+objRs("materia")+ ": "+ objrs("voto")+"")
ELSE
	 response.write ("[*]"+objRs("materia")+ ": "+ objrs("voto")+"")
END IF 
 objRs.MoveNext 
Loop 

objRs.Close 
Set objRs = Nothing 
Cn.Close 
Set Cn = Nothing 

%>
q_voti è una query di unione tra le tabelle:
voti (id_al;id_materia;voto)
alunni (id_al;id_cl;al_cognome;al_nome)
materia (id_materia;materia_d)
classe(id_cl;classe_d)

Grazie per l'aiuto!!!