Directory
	Register:   (Fields marked with * are required)
	TITLE Prof. Dr. Mr. Ms. Mrs. FIRSTNAME * LASTNAME * IDMEMBER POSTAL ADDRESS             ZIP CITY STATE/PROV COUNTRY * <% Set Conn = server.CreateObject("ADODB.Connection") Conn.Open Application("ConnectionString4") Set rsNazioni = server.CreateObject("ADODB.Recordset") SQLNazioni = "SELECT * FROM Countries ORDER BY Country" rsNazioni.Open SQLNazioni, Conn,1,1 'nazioneCorrente = 0 while not rsNazioni.EOF 'if rsNazioni("IDNazione") <> nazioneCorrente then selected = "" 'if cInt(rsNazioni("IDNazione")) = cInt(nazioneCorrente) then selected = "selected" Response.Write "" & rsNazioni("Country") & "" rsNazioni.MoveNext 'end if 'rsNazioni.MoveNext wend if rsNazioni.State > 0 then rsNazioni.Close () if Conn.State > 0 then Conn.close () Set rsNazioni = nothing set Conn = Nothing %> TELEPHONE FAX E-MAIL ADDRESS *       USERNAME * PASSWORD * RE-ENTER PASSWORD *         By registering to the protected libraries of the ERA-EDTA website you allow ERA-EDTA to use your e-mail address to send you Newletters regarding the scientific/Congress activity of the Association.