<%
lo=session("inser")
pas=session("nasc")
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "file1\"
.Load
.UploadOnly "Images"
While Not .Eof
If .Files("Height")>=80 or .Files("Width")>=60 then
Response.write ("Le dimensioni dell'immagine
" &_
.GetFileName() &" non sono corrette (" &_
.Files("Height") &"x" & .Files("Width") &"): File non caricato
" )
else
d=.GetFileName()
dim objconn, strconn
set objconn= server.createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("/mdb-database/pino.mdb")
objconn.open strconn
dim str
str="select i from tblex where i = '"& d & "'"
dim obj
set obj = objconn.execute(str)
if obj.Eof then
strquer="update tblex set i='"& d &"' where (logi like'"&lo&"' and passwor like'"&pas&"')"
objconn.execute(strquer)
obj.close
set obj= nothing
objconn.close
set objconn=nothing
response.redirect "avvertenza10.htm"
else
response.redirect "avvertenza11.htm"
response.end
end if
.Save
end if
.MoveNext
Wend
End With
Set oUpload = Nothing
%>
Rispondi quotando
