Dettaglio dell'anagrafica

<% Dim Conn, CONN_USER, CONN_PASS CONN_USER = "" CONN_PASS = "" Set Conn = Server.CreateObject("ADODB.connection") Conn.Open StrConn Dim objRS, tipoana tipoana = Request("Tipo") Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "Select * from Rubrica where IDN = " & Request("ID"), Conn, 1, 3 %> <% Do While Not objRS.EOF %> <% if tipoana = "" then %> <% end if %> <% objRS.MoveNext Loop %>

Persona	<% =objRS("Titolo") %>  <% =objRS("Persona") %>
Organizzazione Ente	<% =objRS("Azienda") %>
Indirizzo	<% =objRS("Indirizzo") %>  <% =objRS("CAP") %>  <% =objRS("Citta") %>  <% =objRS("Prov") %>
Telefono	<% =objRS("Tel") %>
Fax	<% =objRS("Fax") %>
E Mail	<% =objRS("email") %>	<% if trim(objRS("email")) <> "" then %> "> <% end if %>
Sito web	<% =objRS("web") %>	<% if trim(objRS("web")) <> "" then %> "> <% end if %>
Note	<% =objRS("note") %>
CIGIR=<% =objRS("W_CIGIR") %> []  FISE-VDA=<% =objRS("W_FISEVDA") %> []  AITEC=<% =objRS("W_AITEC") %> []  LAPO=<% =objRS("W_LAPO") %> []  GIA=<% =objRS("W_GIA") %>

	Torna alla lista rubrica
	Ricerca nella banca dati