<% 'For Each x in Request.ServerVariables ' Response.Write "" & x & "" & Request.ServerVariables(x) & "" 'Next 'Response.Write "Data -> " & date 'Response.Write "Ora -> " & time %> <% 'response.write "LUNGHEZZA " & len(session("IPUtente")) if len(session("IPUtente")) = 0 then set conn = server.createobject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/Db.mdb") 'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath("\Bancattiva\db\Db.mdb") dim strSql strSql = "INSERT INTO Accessi(Ip,Data,Ora,Software) VALUES(" strSql = strSql & "'" & request.servervariables("REMOTE_ADDR") & "'" strSql = strSql & ",'" & date & "'" strSql = strSql & ",'" & time & "'" strSql = strSql & ",'" & request.servervariables("HTTP_USER_AGENT") & "')" conn.Execute strSql if err.number <> 0 then QryStr = "?Err=" & cstr(err.number) & "&Error=" & err.Description & "&Source=" & err.Source & "&Page=Register.ASP" Set objCOM = Nothing err.clear Response.Redirect ("showerror.asp" & QryStr & " - Lev1") end if strSql="UPDATE TOTAccessi SET Totale = (Totale +23)" conn.execute strSql if err.number <> 0 then QryStr = "?Err=" & cstr(err.number) & "&Error=" & err.Description & "&Source=" & err.Source & "&Page=Register.ASP" Set objCOM = Nothing err.clear Response.Redirect ("showerror.asp" & QryStr & " - Lev2") end if session("IPUtente") = request.servervariables("REMOTE_ADDR") conn.Close set conn = nothing end if %>

                                  by Studio Visentini

                                                                                                                                                                                                                          

 

 

Perchè Bancattiva

Dopo anni di lavoro su Banche Dati di Agenti, con migliaia di nominativi che stavano lì, ad invecchiare, a diventare obsoleti, nascosti, dormienti... ho pensato ad uno strumento più "vivo", sempre aggiornato, che dialogasse con gli Agenti, che si muovesse verso le imprese. Nel 1994 ho creato "Bancattiva", una banca dati, finalmente, attiva! 

Qui le Aziende possono trovare i loro Agenti più qualificati, che a loro volta possono trovare i migliori Mandati disponibili, selezionati con la massima attenzione. 

Buona ricerca! 

Gian Luca Visentini  

Il Servizio, completamente gratuito per Agenti ed Agenzie, è proposto alle Aziende Mandanti alle migliori condizioni ottenibili oggi sul mercato, grazie alla sua "forma ibrida" di Consulenza tradizionale/Servizio on-line. 

Il risultato non è il solito, spersonalizzato "servizio on-line", ma un VERO Servizio di Consulenza Manageriale, di Qualità, completo di Garanzie contrattuali, con un VERO interlocutore professionale, ma dai costi convenientemente abbattuti grazie ad un buon utilizzo della rete, ma senza esagerare.

Home

Chi siamo, cosa facciamo

Opportunità di Mandato

Agenti subito contattabili 

(già intervistati) 

Fornire Agenti

Noi lavoriamo a provvigione

Scheda Agenzia

Agenti in Pole Position

 

AREA AGENTI/AGENZIE/RIVENDITORI

Trova per "parola-chiave" tra i migliori Mandati d'Agenzia selezionati

 

 

 

 

Queste Aziende, i loro Agenti,  sono cresciuti anche grazie a noi...

... noi siamo cresciuti anche grazie a Loro

 

 

 

AREA IMPRESE

    Trova per "parola-chiave" tra gli Agenti e le Agenzie più Qualificate e di recente contatto, subito verificabili da un ns. Consulente per disponibilità e livello d'interesse