Newsgroup: it.comp.lang.visual-basic
Titolo: Tabella ABI/CAB

Premesso che ho già visto sul sito comune e quella disponibile
(DBComuniEBanche.zip ) è abbastanza imprecisa e incompleta, qualcuno ha una
tabella Banche/ABI/CAB completa o sa dirmi dove reperirla ?
Grazie !!
Marco.



Stavo girellando nel sito 
www.abi.it
 e 
www.associazionecbi.it
 quando,
grazie ad un errore non gestito dal povero programmatore ASP di
quest'ultimo, ho potuto facilmente scaricare il sorgente che si
e' incartato.
Oltre a suggerirti di dare un'occhiata anche tu presso detti siti
per vedere se rendono disponibile l'elenco che cerchi, mi lancio
in un OT, pubblicando qui, cosi' la prossima volta il malcapitato
sviluppatore stara' piu' attento:
<codice>
<%
' ##(S): esRicercaFT
' ##(D): sub per la ricerca fulltext
Sub esRicercaFT (id)
	lpIdModu = request("idModu")
	lpPag = request("pag")	
	lpRis = request("Ris")
	lvMaxrec = 10 
 
	' #### recupero le parole
	ricerca = request.form("cerca") 
	session("ricerca") = ricerca
 
	parole = split(ricerca," ")
	for x = 0 to uBound(parole)
		criterio = criterio & "(""" &
Replace(parole(x),"'","''") & """ OR  " & """dall''" &
Replace(parole(x),"dall'","dall''") & """ OR " & """nell''" &
Replace(parole(x),"nell'","nell''") & """ OR " & """dell''" &
Replace(Replace(parole(x),"dell'",""),"'","''") & """ OR " & """l''" &
Replace(Replace(parole(x),"l'",""),"'","''") & """ OR " & """all''" &
Replace(Replace(parole(x),"all'",""),"'","''")  & """ OR " & """un''"
& Replace(Replace(parole(x),"un'",""),"'","''") & """" & ") AND "
	next
	If lpPag = "" Then
	lvSql = "SELECT
id,data_pubb,id_madr,id_mode,titolo,convert(varchar(1000),testo) as
abstract, '' as link FROM pagine WHERE CONTAINS(pagine.*,' " &
left(criterio,len(criterio) - 5) & " ') AND id_stat = 4 and id_mode
NOT IN (7,3,5,2,21,20) AND data_pubb <= GetDate() and visibile=1 " &_
			"UNION " &_
			"SELECT
id,data_pubb,id_madr,'',titolo,abstract, '' FROM notizie WHERE
CONTAINS(notizie.*,' " & left(criterio,len(criterio) - 5) & " ') AND
id_stat = 4 AND data_pubb <= GetDate() " &_
			"UNION " &_
			"SELECT id,data_pubb,id_madr,2000,etichetta as
titolo,convert(varchar(1000),testo) as abstract,link FROM links WHERE
CONTAINS(links.*,' " & left(criterio,len(criterio) - 5) & " ') AND
id_stat = 4 AND data_pubb <= GetDate() " &_
			"UNION " &_
			"SELECT
id,data_pubb,id_madr,'',titolo,risposta as abstract,'' FROM faq WHERE
CONTAINS(faq.*,' " & left(criterio,len(criterio) - 5) & " ') AND
id_stat = 4 AND data_pubb <= GetDate() " &_
			"UNION " &_
			"SELECT
id,data_pubb,id_madr,'',titolo,abstract,'' FROM eventi WHERE
CONTAINS(eventi.*,' " & left(criterio,len(criterio) - 5) & " ') AND
id_stat = 4 AND data_pubb <= GetDate() " &_
			"UNION " &_
			"SELECT id,data_pubb,id_madr,1000,titolo,
abstract,'' FROM documenti WHERE CONTAINS(documenti.*,' " &
left(criterio,len(criterio) - 5) & " ') AND id_stat = 4 AND data_pubb
<= GetDate() " &_
			"ORDER BY titolo"
		Session("cbiLvSqlRic") = lvSql
	Else
		lvSql = Session("cbiLvSqlRic")
	End If
 
	If lpPag = "" Then lpPag = 1 else lpPag = cInt(lpPag)
 
	'response.write lvSql
	set lrRic = Server.CreateObject("ADODB.Recordset")
	lrRic.ActiveConnection = loConn
	lrRic.Source = lvSql
	lrRic.CursorType = adOpenStatic
	lrRic.PageSize = lvMaxRec
	lrRic.Open
	%>
	<center>
	<table width="100%" cellpadding="0" cellspacing="0"
border="0"><!-- tabella esplosione pagine -->
		<tr valign="top">
			<td colspan="2">
			<font <%=fontNote%>><font color="#<%=c7%>">
			<div align="left">
			<b>Risultati della ricerca:</b>
			</div>
			</font></font><br><br>
			</td>
		</tr>
		<%
		If not lrRic.eof Then
			' #### mi calcolo l'intervallo di record
visualizzati
			lvFine = lpPag * lvMaxRec
			lvInizio = lvFine - (lvMaxRec-1)
			if lvTotRec < lvFine then lvFine = lvTotRec
			lvRec = 1
			lrRic.AbsolutePage = lpPag
			lvTotRec = lrRic.RecordCount
			lvTotPag = lrRic.PageCount
			%>
			<tr>
				<td colspan="2">
				<div  align="right">
				<font <%=fontNote%>>
				record trovati: <b><%=lvTotRec%></b>
				</font>
				</div>
			</tr>
			<tr>
				<td colspan="2">
				<table>
				<%
				Do While (not lrRic.Eof) And (lvRec <=
lvMaxrec)
					If lrRic("id_mode") > "0" Then
						If lrRic("id_mode") =
1000 Then
							lvAncor="<a
href=""down.asp?id=" & lrRic("id_madr") & "&id_modu=" & lrRic("id") &
""" target=""_blank"">"
						ElseIf
lrRic("id_mode") = 2000 Then
							lvAncor="<a
href="""& lrRic("link")&""" target=""_blank"">"
						Else
							lvAncor="<a
href=""inside.asp?ris=1&id=" & lrRic("id") & """>"
						End If
					Else
						lvAncor="<a
href=""inside.asp?ris=1&id=" & lrRic("id_madr") & "&id_modu=" &
lrRic("id") & """>"
					End If
					%>
					<tr valign="top">
						<td>
						<ul>
						<font <%=fontNote%>>
						<li
type="square"><%=lvAncor%><b><%=lrRic("Titolo")%></b></a><br>
						<%
lvAbstract=lrRic("abstract")
						If len(lvAbstract) >
100 Then
lvAbstract=left(lrRic("abstract"),100) & "..."
							If
right(lvAbstract,1)<>" " Then
lvAbstract=left(lvAbstract,instrRev(lvabstract," ")) & "..."
							End If
						End If
						%>
<i><%=lvAbstract%></i></li>
						</font>
						</ul>
						</td>
					</tr>
					<%
					lvRec = lvRec +1
					lrRic.MoveNext
				Loop
				 %>
				</table>
				</td>
			</tr>
			<%If lvTotPag > 1 Then%>
				<tr>
					<%
					If (lpPag > 1) then%>
						<td valign="middle">
						<font <%=fontnote%>>
						<a
href="inside.asp?pag=<%=lpPag-1%>&id=<%=id%>"><font
color="#<%=c7%>">pagina precedente</font></a>
						</font>
						</td>	
					<%End If%>
					<%If (lpPag < lvTotPag) Then%>
						<td align="right">
						<font <%=fontnote%>>
						<a
href="inside.asp?pag=<%=lpPag+1%>&id=<%=id%>"><font
color="#<%=c7%>">pagina successiva</font></a>
						</font>
						</td>			
					<%End If%>
				</tr>
				<tr>
					<td align="center"
colspan="2">
					<font <%=fontNote%>>
					<%
					' #### faccio la paginazione
per saltare tra le pagine 
					lvSx = 4
					lvDx = 5
					lvMinore = (lvSx - lpPag)
					If lvMinore >= 0 then
						lvSx = lvSx - LvMinore
- 1
						lvDx = lvDx + LvMinore
+ 1
						lvInizio = lpPag -
lvSx
						lvFine = lpPag + lvDx
					Else
						lvInizio = lpPag -
lvSx
						lvFine = lpPag + lvDx
					End IF
 
					If lvFine > lrRic.PageCount
Then lvFine = lrRic.PageCount
					If lrRic.PageCount <= 10  Then
lvInizio = 1
					If lvFine - lvInizio < 9 And
lrRic.PageCount > 10 Then lvInizio = lvFine - 9
					For lvY = lvInizio To lvFine
						If lpPag = lvY Then
							If
lrRic.PageCount > 1 Then
							%>
<b><%=lvY%></b>
							<%
							End If
						Else
						%>
							<a
href="inside.asp?ris=1&pag=<%=lvY%>&id=<%=id%>"><font
color="#<%=c7%>"><%=lvY%></font></a>
						<%
						End If
					Next
					%>
					</font>
					</td>
				</tr>
				<%
			End If
		Else
			%>
			<tr valign="top">
				<td>
				<font <%=fontnote%>
				<div align="left">
				<b>La ricerca non ha portato a
risultati</b>
				</div>
				</font>
				</td>
			</tr>
		<%End If%>
		</table>
		</center>
		<%
		lrRic.close
		set lrRic = Nothing
End Sub
%>
</codice>
-- 
ciao, hal

Ehm, chiedo umilmente perdono: il mio post precedente contiene 281
righe.
Vi prego di ricoprire i sassi con la gommapiuma prima di lapidarmi :-(
-- 
ciao, hal