UpdateDB (2)

<%
ForReading = 1

Dim fs, f
Dim Op
dim Riga

Dim sName
Dim sCat
Dim sDesc
Dim sDim
dim sDummy
dim sVbVer

Dim ErrValue

'imposto il Percorso di salvataggio sul server e salvo il file

'-------------------------------------------------------------

PercorsoSource="d:\InetPub\Hosting\Beginend\Vbasic\uploads\markfile\"
PercorsoDest="d:\InetPub\Hosting\Beginend\Vbasic\uploads\"

'PercorsoSource="c:\"

'PercorsoDest="c:\download\"

ErrValue=0

Set fs = CreateObject("Scripting.FileSystemObject")

if fs.FileExists(PercorsoSource & "record.txt")=True then

'apro una connessione per il database

'------------------------------------------------------------------------------------

set Db = Server.CreateObject("ADODB.Connection")
set Rs = Server.CreateObject("ADODB.Recordset")
Db.Open "DSN=tt_link;"

SQLQuery ="SELECT * FROM download"
Rs.open SQLQuery, Db, 1, 2


Set f = fs.OpenTextFile(PercorsoSource & "record.txt", ForReading, TristateFalse)

Op=0

Do While f.AtEndOfStream <> True

'Leggo la linea dal File

riga=f.ReadLine

'Processo solo le righe che non siano commenti

if Left(riga,1)<>"'" then

'Se non ho nessun record in elaborazione, inizializzo

' la procedura e le variabili

if Op = 0 then
if left(Riga,5)="START" Then
Op=1
sName=""
sCat=""
sDesc=""
sDim=""
sVbVer=""
end if

'Altrimenti, passo all'elaborazione dei campi

else

'Nome del file
if Left(Riga,5)="NAME:" then
sName=trim(mid(riga,6))

'Versione VB del file
elseif Left(Riga,6)="VBVER:" then
svbVer=trim(mid(riga,7))

'Descrizione
elseif Left(Riga,5)="DESC:" then
sDummy=Trim(mid(riga,6))
if sDummy <>"" then
sDesc = sDesc + " " + sDummy
end if

'Categoria
elseif Left(Riga,4)="CAT:" then
sCat=trim(mid(riga,5))

'Dimensioni
elseif Left(Riga,4)="DIM:" then
sDim=trim(mid(riga,5))

'Fine del record: controllo errori e salvataggio dati
elseif Left(Riga,3)="END" then

'termine elaborazione record record
Op=0

'errore record per mancanza di dati
if sName="" or sCat="" or sDesc="" or sDim="" or sVbVer="" then

response.write "<P><B>**** ERRORE NEL RECORD ****<BR>"
response.write "TIPO ERRORE: Mancanza dati necessari<BR>"
response.write "NOME: " & sName & "<BR>"
response.write "CATEGORIA: " & sCat & "<BR>"
response.write "DESCRIZIONE: " & sDesc & "<BR>"
response.write "VBVER: " & sVbVer & "<BR>"
response.write "DIMENSIONI: " & sDim & "<BR></B>"
response.write "</P>"

else

if fs.FileExists(percorsosource & sname)=False then

response.write "<P><B>**** ERRORE NEL RECORD ****<BR>"
response.write "TIPO ERRORE: File inesistente<BR>"
response.write "NOME: " & sName & "<BR>"
response.write "CATEGORIA: " & sCat & "<BR>"
response.write "VBVER: " & sVbVer & "<BR>"
response.write "DESCRIZIONE: " & sDesc & "<BR>"
response.write "DIMENSIONI: " & sDim & "<BR></B>"
response.write "</P>"
else

response.write "<P>Elaborazione OK:<BR>"
response.write "NOME: " & sName & "<BR>"
response.write "CATEGORIA: " & sCat & "<BR>"
response.write "DESCRIZIONE: " & sDesc & "<BR>"
response.write "VBVER: " & sVbVer & "<BR>"
response.write "DIMENSIONI: " & sDim & "<BR>"
response.write "</P>"



'Salvo i dati nel database
'-------------------------
On error Resume Next

Rs.addnew
Rs.Fields("NomeEseguibile")= sName
Rs.Fields("Titolo")=sName
Rs.Fields("Dimensione")=sDim
Rs.Fields("Categoria")=sCat
Rs.Fields("VersioneVB")=sVbVer
Rs.Fields("Descrizione")=sDesc
Rs.Fields("DataInserimento")=now()
rs.Fields("Tipo")="U"
rs.Fields("IDUser")=11
Rs.update

on error goto 0

Set MyFile = fs.GetFile(PercorsoSource & sName)
MyFile.Copy PercorsoDest & sName
'Cancello il file dalla directory temporanea
'MyFile.delete

end if

end if



end if

end if 'ok

end if 'ok

Loop

on error resume next
Rs.close
Db.close
set Rs=nothing
set Db=nothing

on error goto 0

f.Close

else

response.write "File record.txt non presente! Elaborazione non possibile"

end if

set fs=nothing
%>