Originariamente inviato da diegoctn
Posta lo script.
codice:
Set RS = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT * from [DATI$]", "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)
Set oRs = Server.CreateObject("ADODB.Recordset")
oRS.Open "tabella", GetConnection, 2, 2
Do Until Rs.Eof
If Rs("id") <> "" Then
bolErrorCAT = true
if bolErrorCAT = true then
oRS.AddNew
if IsNull(Rs("ALFANUMERICO")) or IsEmpty(Rs("ALFANUMERICO")) or Len(Rs("ALFANUMERICO"))="" then
oRs("ALFANUMERICO")= NULL
else
oRs("ALFANUMERICO")= Rs("ALFANUMERICO")
end if
oRs.Update
......