<% set fso = Server.CreateObject("Scripting.FileSystemObject") set file = fso.OpenTextFile(Server.MapPath("/public/buste_unione/temp.txt"),1) lista_mail = file.ReadAll 'qui leggo tutto il file file.Close set file = nothing set fso = nothing ArrStringa = Split(lista_mail,VbCrLf) For Each Text in ArrStringa appoggio=Text if appoggio<>"" then strSQLEV_TUTTI="SELECT * FROM Contatti INNER JOIN Comuni2000 ON Contatti.Cittą=Comuni2000.Codice WHERE IDContatto=" & appoggio Set objRSEV_TUTTI = Server.CreateObject("ADODB.Recordset") objRSEV_TUTTI.Open strSQLEV_TUTTI, objConn nomeutente=objRSEV_TUTTI("Titolo") & " " & objRSEV_TUTTI("Nome") & " " & objRSEV_TUTTI("Cognome") indirizzo=objRSEV_TUTTI("Indirizzo") cap=objRSEV_TUTTI("Contatti.CAP") comune=objRSEV_TUTTI("Comune") provincia=objRSEV_TUTTI("Provincia") objRSEV_TUTTI.Close Set objRSEV_TUTTI = Nothing %>
 


<%if Request.QueryString("prioritaria")="SI" then%> <%end if%>
 
 
 
<%=nomeutente%>
<%=indirizzo%>
<%=cap%> <%=comune%> (<%=provincia%>)
 
 J&B Srl, Via Piemonte 12 87036 Rende (Cosenza) - Telefono 0984837852, Fax 0984830987 - Partita IVA 02610180784 - http://ww.jbprof.com













<%end if Next%>