<%@ Language=VBScript %> <% Option Explicit %> Dettaglio anagrafica
Equestrian

̃

Ü
Scrivici
Scrivi al Web Master
Home page
Rubrica
Utilità
Attacchi
Mappa del sito
Ư
Equestrian
 


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
<% objRS.Close Set objRS = Nothing Conn.Close Set Conn = Nothing %>
C&S Realizzazione Mario Fenocchio Mail to Webmaster

Stampa

® 1999,2004