scusate mi potete dire cosa è sbagliato o cosa aggiungere in questo codice?
<% Option Explicit
Dim ConnDown
Dim strProvider
Dim rs,rs1
Dim SQL, SQL1,SQL2, RECDown,i %>
<html>
<title>Aggiornamento ritardi e assenze</title>
<body>
<body background="background.gif">
<center>
<h2>Database aggiornato con successo</h2>
[img]ok.gif[/img]
</center>
<% Set ConnDown=Server.CreateObject("ADODB.Connection")
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("Definitivo. mdb")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
Set rs = Server.CreateObject("ADODB.recordset")
SQL = "SELECT Classe from classi"
rs.open sql,conn
strProvider="DRIVER={Microsoft Excel Driver (*.xls)}; DriverId=790;DBQ=" & Server.MapPath ("../../../../Documents and Settings/studente/Documenti/Pocket_PC1 My Documents/ridotto. xls")
Set rs1 = Server.CreateObject("ADODB.recordset")
If rs.EOF then%>
non ci sono dati
<%Else
rs.MoveFirst
Do While Not rs.Eof
SQL1 = "SELECT * from rs("classi")"
rs1.Open SQL1, strProvider
If rs1.EOF then%>
non ci sono dati
<%Else%>
rs1.MoveFirst
Do While Not rs1.Eof
if rs1("Tipo") <>"" then
SQL2 = "INSERT INTO Movimenti (Tipo,CodStud) VALUES ('"& rs("Tipo") &"','"& rs("CodStud") &"' )"
set RECdown = connDown.execute(sql2)
end if
rs.MoveNext
loop
end if
loop
</body>
</html>
Rispondi quotando
