salve,

mi trovo questo codice dove una parte di una select non si popola l'altra invece si,

non riesco a capire dove potrebbe essere il problema mi date una mano.

ALEND_mat=""
SSQL="SELECT Corsi_calendario_materie.RIf_corsoMateria, Corsi_calendario_materie.ID_CM, Corsi_calendario_materie.RIF_DOCENTE,"
SSQL=SSQL & " CORSI_CALENDARIO.ID_CALENDARIO, Corsi_calendario_materie.ora_FINE, Corsi_calendario_materie.ora_INIZIO"
SSQL=SSQL & " FROM CORSI_CALENDARIO INNER JOIN Corsi_calendario_materie ON CORSI_CALENDARIO.ID_CALENDARIO = Corsi_calendario_materie.RIF_CALENDARIO"
SSQL=SSQL & " WHERE (((Corsi_calendario_materie.RIF_CALENDARIO)=" & RIF_ID_CAL & "))"
SSQL=SSQL & " ORDER BY Corsi_calendario_materie.ora_INIZIO"
ore_tot=0
objRs.open SSQL,objCN
i=0
do while not objRs.eof
RIf_corsoMateria=objRs.fields("RIf_corsoMateria")
RIF_DOCENTE= objRs.fields("RIF_DOCENTE")
ID_CM= objRs.fields("ID_CM")
h_inizio= LEFT(objRs.fields("ora_INIZIO"),LEN(objRs.fields(" ora_INIZIO"))-3)
h_fine= LEFT(objRs.fields("ora_FINE"),LEN(objRs.fields("or a_FINE"))-3)
i=i+1




if isnumeric(RIf_corsoMateria) then
Set objCNMat = Server.CreateObject("ADODB.Connection")
objCNMat.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/mdb-database/SOFTGO_DB.mdb")
Set objRsMat = Server.CreateObject("ADODB.Recordset")
ssql="SELECT MATERIE.Materie,MATERIE.id, CORSI_MATERIE.id_corsoMateria FROM MATERIE INNER JOIN CORSI_MATERIE ON MATERIE.ID = CORSI_MATERIE.RIF_materia WHERE (((CORSI_MATERIE.id_corsoMateria)=" & RIf_corsoMateria & "))"
objRsMat.open ssql,objCNMat
matst=""
if not objRsMat.eof then matst=MATADJ(objRsMat.fields("Materie"))
if not objRsMat.eof then matid_r=objRsMat.fields("id")
objRsMat.close
objCNMat.close
set objRsMat=nothing
set objCNMat=nothing
MATERIA= ucase(matst)
MATERIA_GEN_nome= UCASE(matst)
MATERIA_id= matid_r
if len(MATERIA_GEN_nome)>80 then MATERIA_GEN_nome= left(MATERIA_GEN_nome,77) & "..."
end if


H_inizioH=left(h_inizio,instr(h_inizio,".")-1)
H_inizioM=right(h_fine,len(h_inizio)-len(H_inizioH) -1)
H_fineH=left(h_fine,instr(h_fine,".")-1)
H_fineM=right(h_fine,len(h_fine)-len(H_fineH) -1)


st_dalle="<select name='DalleH" & iho &"'>"

-------- PARTE DELL'ORA CHE NON SI POPOLA ---------

for iho= 8 to 22
if len(iho)>1 then ihst=iho
if len(iho)<2 then ihst="0" & iho
if int(ihst)=int(H_inizioH) then st_dalle= st_dalle & "<option selected value='" & ihst & "'>" & ihst & "</option>"
next
st_dalle= st_dalle & "</select>"


------------- PARTE DEI MINUTI CHE SI POPOLA ---------


st_dalle= st_dalle & "<select name='DalleM" & i &"'>"
for ihm=0 to 60 step 5
if len(ihm)>1 then ihst=ihm
if len(ihm)<2 then ihst="0" & ihm
if int(ihst)=int(H_inizioM) then st_dalle= st_dalle & "<option selected value='" & ihst & "'>" & ihst & "</option>"
next
st_dalle= st_dalle & "</select>"


------- PARTE DELL'ORA CHE NON SI POPOLA ---------


st_alle="<select name='alleH" & i &"'>"
for iho=8 to 22
if len(iho)>1 then ihst=iho
if len(iho)<2 then ihst="0" & iho
if int(ihst)=int(H_fineH) then st_alle= st_alle & "<option selected value='" & ihst & "'>" & ihst & "</option>"
next
st_alle= st_alle & "</select>"

------- PARTE DEI MINUTI CHE NON SI POPOLA ---------


st_alle= st_alle & "<select name='alleM" & i &"'>"
for ihm=0 to 60 step 5
if len(ihm)>1 then ihst=ihm
if len(ihm)<2 then ihst="0" & ihm
'if int(ihst)<>int(H_fineM) then st_alle= st_alle & "<option value='" & ihst & "'>" & ihst & "</option>"
if int(ihst)=int(H_fineM) then st_alle= st_alle & "<option selected value='" & ihst & "'>" & ihst & "</option>"
next
st_alle= st_alle & "</select>"