Salve a tutti!
Ho un problema alquanto strano ed insolito. Oggi pomeriggio, finito di scrivere una pagina asp, ho controllato se una query di tipo "insert into" riusciva ad inserire i dati nel database. Andava perfettamente, si trattava di un ciclo che inseriva a ripetizione dei dati in una tabella. Poco fa, ho ripreso in mano il programma, ho ritestato l'applicazione e con mio stupore.....NON VA PIU'! non mi sembra di aver modificato niente -.-'. La cosa che proprio nn capisco è che non mi viene segnalato alcun tipo di errore. Anzi, alcune istruzioni (un redirect) vengono eseguite, a dimostrazione che la query DEVE essere eseguita. Ma non capisco come mai, sul database non ho risultati! nella tabella del db non riesco ad inserire righe. O meglio, vi riesco da un'altra pagina (che avevo già realizzato in passato ed è strutturata diversamente...ma va ancora!)..ma da quella fatta oggi, non va più. Non capisco proprio........ posto di seguito un pezzo di sorgente
maxid = "SELECT TOP 1 ID_Voto FROM Voto ORDER BY ID_Voto DESC"
Set objRsc = cna.Execute(maxid)
a = objRsc("ID_Voto")
maxid = cint(a)
maxid = maxid + 1
'************************************************* *******'
dim appog, i, l
l = Session("classe")
strAlu = "SELECT Cognome FROM Alunni " & _
"WHERE Classe = '" & l & "' " & _
"ORDER BY Cognome"
Set objRsc = cna.Execute(strAlu)
do while not objRsc.EOF
i = objRsc("Cognome")
'************************************************* ****
id_al = "SELECT DISTINCT ID_Alun FROM Alunni WHERE " & _
"Cognome = '" & i & "'"
Set objRsd = cna.Execute(id_al)
b = objRsd("ID_Alun")
id_al = cint(b)
'************************************************* *******
appog = "note" & objRsc("Cognome")
strIns = "INSERT INTO Voto(ID_Voto, ID_Alun, Voto, Data, Tipo_Prova, Materia, Notes) VALUES (" & _
maxid & "," & _
id_al & "," & _
"'" & Request.Form("objRsc(""Cognome"")") & "'," & _
"'" & Request.Form("data") & "'," & _
"'" & Request.Form("nomeprova") & "'," & _
"'" & Request.Form("materia") & "'," & _
"'" & appog & "')"
response.write "tu ma"
Set objRse = cna.Execute(strIns)
maxid = maxid + 1
objRsc.movenext
loop
response.redirect "aggiornamento.asp"
else
end if
vi ringrazio in anticipo !
Rispondi quotando
