<% Dim strDBPath Dim cnnSearch Dim Parancs Dim sPassword Dim sUser sVezeteknev=cstr(request.querystring("VEZETEKNEV")) sKeresztnev=cstr(request.querystring("KERESZTNEV")) sPassword=cstr(request.querystring("PASSWORD")) sPassword2=cstr(request.querystring("PASSWORD2")) sCim=cstr(request.querystring("CIM")) sEmail=cstr(request.querystring("EMAIL")) sCegnev=cstr(request.querystring("NEV")) sTelefon=cstr(request.querystring("TELEFON")) sTelefax=cstr(request.querystring("TELEFAX")) sBankszla=cstr(request.querystring("BANKSZLA")) if sPassword<>sPassword2 then %>

Az adatok kitöltése hibás!

<% else Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=SQLOLEDB;Data Source=(local);" _ & "Initial Catalog=Yukon2;User Id=sa;Password=websa;" _ & "Connect Timeout=60;" sSQL1="update gold_vevo_szemely set vevo_szemely_vezeteknev='" & sVezeteknev & "',vevo_szemely_keresztnev='" & sKeresztnev & "'" _ & ",vevo_szemely_jelszo='" & sPassword & "' " _ & ",vevo_szemely_email='" & sEmail & "'" _ &" ,vevo_neve='" & sCegnev & "',vevo_bankszamla='" & sBankszla & "'" _ & ",vevo_cime='" & sCim & "',vevo_telefax='" & sTelefax & "' " _ & ",vevo_telefon='" & sTelefon & "'" _ & " where vevo_szemely_kod="+Session("kod") 'response.write sSQL1 Set Lista2=cnnSearch.Execute(sSQL1) %>

<% sLang=Session("LANG1") select case sLang case "HUN" %>Az adatváltoztatások végrehajtása sikeres!<% case "ENG" %>You successful update your personal informations!<% end select %>

<% end if %>