<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" LCID=1040 %> <% Dim conn Set conn = Server.CreateObject("ADODB.Connection") Dim dbConn dbConn = "Provider=SQLOLEDB; Data Source = (local); Initial Catalog = OZ; User Id = sa; Password=roma" conn.Open dbConn %> <% If Request("hValore") = "1" Then Set rsZ = Server.CreateObject("ADODB.Recordset") rsZ.CursorLocation = 3 rsZ.Open "select * from utente where utente_nome='" & Session("utente_nome") & "'", conn, 1, 2 '--- sezione campi rsZ("nome") = zNoStr (request("modal_nome")) rsZ("cognome") = zNoStr (request("modal_cognome")) rsZ("nazionalita") = zNoStr(request("modal_nazionalita")) rsZ("telefono") = zNoStr(request("modal_telefono")) rsZ("eta") = zNoStr(request("modal_eta")) rsZ("id_professione") = zNoStr(request("modal_professione")) '--- rsZ.Update rsZ.Close End If %> <% on error resume next Set rs= conn.Execute("select * from UTENTE where utente_nome='" & Session("utente_nome") & "'") if rs.eof=false then x_NOME = rs("nome") x_COGNOME=rs("COGNOME") x_TELEFONO = rs("telefono") x_ETA = rs("eta") x_ID_PROFESSIONE = rs("id_professione") end if %>
" readonly disabled>







" name="h_utente_nome" id="h_utente_nome">
<% rs.close set rs=nothing conn.close set conn=Nothing %>