Problema di lettura immagini con Set Fso ( Numerazioni )

[ALESSANDRO007]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>


<!-- #include file="connections.asp" -->
<%
if session("User_azienda")="" then
response.Redirect("pannellologinErr.asp")
end if
%>
<%
if request.Form("elimina")="Y" then
if isnumeric(request.Form("ide")) and request.Form("ide")<>"" then


set eliminaEV=server.CreateObject("adodb.command")
eliminaEV.activeconnection=mm_portale_string
eliminaEV.commandtext="DELETE FROM eventi where ID="&clng(replace(request.Form("ide"),"'","''"))
eliminaEV.execute()


eliminaEV.activeconnection.close()


dim fso
dim file


dim lista_files


set fso = Server.CreateObject("Scripting.FileSystemObject")
file = server.MapPath("/public/aziende/eventi/" & session("User_azienda") & "/propriEventi")
if fso.folderExists(file) then
dim singolofile


set fotos=fso.GetFolder(file)
for each x in fotos.files
if instr(x.Name,request.form("ide") & "_") > 0 then
singolofile=server.MapPath("/public/aziende/eventi/" & session("User_azienda") & "/propriEventi/" & x.Name)
lista_files=lista_files & "/public/aziende/eventi/" & session("User_azienda") & "/propriEventi/" & x.Name & "<br />"
fso.Deletefile(singolofile)
end if
next
end if


Set fso=nothing


mex="<hr><h3>Eliminazione avvenuta con successo, ho eliminato anche i seguenti files: </h3>" & lista_files


else


mex="Eliminazione non riuscita."


end if
end if


set eventi=server.CreateObject("adodb.recordset")
eventi.activeconnection=MM_portale_STRING
eventi.source="select * from eventi where idazienda="&clng(replace(session("User_azienda")," '","''"))&" order by data"
eventi.open()


%>


<%
set fso = Server.CreateObject("Scripting.FileSystemObject")
file = server.MapPath("/public/aziende/eventi/" & eventi("idazienda") & "/propriEventi/")
if fso.folderExists(file) then


set fotos=fso.GetFolder(file)
for each x in fotos.files
if instr(x.Name,eventi("id") & "_") > 0 then
%>




<img id="img_rid" src='public/aziende/eventi/<%= eventi("idazienda")%>/propriEventi/<%=x.name%>' width="80" />


<%
end if
next


end if
Set fso=nothing
%>

Cerco di essere concreto: come si evince da script faccio queste cose

1) inserisco eventi nel data-base testo
2) inserisco le immagini percorso public/ e non nel data-base
3) creo la folder al volo
4) mi ci infila dentro il file
QUI NASCE IL PROBLEMA

IL PROBLEMA è IL SEGUENTE:

L'ATTUALE SCRIPT CREA I RECORD IN SEGUENZA COME E' NORMALE CHE SIA, PERO' METTIAMO CHE IO ABBIA

RECORD N. 27 = IMMAGINE N. 27.1 N. 27.2 ECC.ECC.
RECORD N. 127 = IMMAGINE N.127.1 N. 127.2 ECC.ECC

A QUESTO PUNTO IL PERCORSO

<img id="img_rid" src='public/aziende/eventi/<%= eventi("idazienda")%>/propriEventi/<%=x.name%>' width="80" />

MI LEGGE TUTTO CIO' CHE E' 27 LE IMMAGINI SI INTERFACCIANO A VIDEO SU ENTRAMBI I RECORD

ANCHE SE FACCIO IN MODO CHE VENGANO

RINOMINATE 027.1 OPPURE 0127.1

STO SBATTENDO LA TESTA AL MURO, SE SERVE POSTO ANCHE IL FILE UPLOAD

AIUTOOOOOOOOOOOO!!!!!

[Roby_72]

Se il controllo lo fai con la if instr(x.Name,eventi("id") & "_") > 0 then è normale che accada perché cerca che la stringa sia presente.
Dovresti trovare un modo per effettuare una ricerca un po' più precisa, usando ad esempio la Left().
E' solo un'idea, forse nemmeno questa potrebbe funzionare.

Roby

[ALESSANDRO007]

Se il controllo lo fai con la if instr(x.Name,eventi("id") & "_") > 0 then è normale che accada perché cerca che la stringa sia presente.
Dovresti trovare un modo per effettuare una ricerca un po' più precisa, usando ad esempio la Left().
E' solo un'idea, forse nemmeno questa potrebbe funzionare.

Roby

Grazie Roby per aver risposto ma non ti seguo, dove lo metto left?

[Roby_72]

Tu stampi le immagini precedendole da un controllo con la Instr che per sua natura verifica la presenza di una occorrenza dentro una stringa... e quindi 12, 127, 27, 1, 7 sono sempre verificate...

Roby

[ALESSANDRO007]

Tu stampi le immagini precedendole da un controllo con la Instr che per sua natura verifica la presenza di una occorrenza dentro una stringa... e quindi 12, 127, 27, 1, 7 sono sempre verificate...

Roby

Ok grazie delle dritte Roby, ci provo se ho difficoltà ti ricontatto, grazie.

[rinaldi]

Io Alessandro ti consiglieri di salvarti l'evento nel database.
Poi recuperi l'id dell'evento e creii la cartella public/aziende/eventi/azienda[id]/evento[id]
e inserisci le foto rinomindandole recuperando la data e ora .

<% 
function nomefoto(str)
    Dim ObjRegexp
    Set ObjRegexp = New RegExp
    ObjRegexp.Global = True
    ObjRegexp.IgnoreCase = True
   ObjRegexp.Pattern = "[^0-9]"
    str = ObjRegexp.Replace(str,"")
    Set ObjRegexp = Nothing
    nomefoto = str
end function

  data = date()
  ora   = time()
  data = nomefoto(data)
  ora  = nomefoto(ora)

 Foto =data & ora
  %>

In questo modo ti sarebbe facile anche estrarre eventi tramite idazienda.

[ALESSANDRO007]

Io Alessandro ti consiglieri di salvarti l'evento nel database.
Poi recuperi l'id dell'evento e creii la cartella public/aziende/eventi/azienda[id]/evento[id]
e inserisci le foto rinomindandole recuperando la data e ora .

<% 
function nomefoto(str)
    Dim ObjRegexp
    Set ObjRegexp = New RegExp
    ObjRegexp.Global = True
    ObjRegexp.IgnoreCase = True
   ObjRegexp.Pattern = "[^0-9]"
    str = ObjRegexp.Replace(str,"")
    Set ObjRegexp = Nothing
    nomefoto = str
end function

  data = date()
  ora   = time()
  data = nomefoto(data)
  ora  = nomefoto(ora)

 Foto =data & ora
  %>

In questo modo ti sarebbe facile anche estrarre eventi tramite idazienda.

Grazie rinaldi per questa soluzione, nel frattempo avevo risolto con il suggerimento di roby, ma ne terrò conto e testerò certamente anche la tua soluzione.
Grazie ragazzi.