<% Dim strDBPath Dim cnnSearch Dim Parancs Dim Parancstorol Dim ParancsInsert Dim sPassword Dim sUser Dim loginok Dim sI Dim sGomb Dim j Dim keresSor1 Dim keresSor2 Dim keresM_ag1 Dim kovMenu_ag Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=SQLOLEDB;Data Source=(local);" _ & "Initial Catalog=Yukon2;User Id=sa;Password=websa;" _ & "Connect Timeout=60;" sSQL="select v1.vevo_szemely_vezeteknev,v1.vevo_szemely_keresztnev, v1.vevo_szemely_email,v1.vevo_szemely_jelszo,v1.partner_kod, " _ & "v1.vevo_neve,vevo_cime,vevo_bankszamla,vevo_telefon,vevo_telefax " _ & " from gold_vevo_szemely v1 where vevo_szemely_kod="+Session("kod") ' sSQL="select vevo_szemely_kod,vevo_szemely_vezeteknev, vevo_szemely_keresztnev " _ ' & " from gold_vevo_szemely where vevo_szemely_email='"+sUser+"' and vevo_szemely_jelszo='"+sPassword+"' " ' sSQL="select vezeteknev,keresztnev, username,password,irsz,varos,cim,email,datum,telefon, " _ ' & " sz_nev,sz_irsz,sz_varos, sz_cim from borsodi_login where id="+Session("kod") Set Lista2=cnnSearch.Execute(sSQL) if not Lista2.eof then %> <% if lista2("partner_kod")<>"" then response.write "

Ön nem végfelhasználóként regisztrált. Az adat és jelszómódosítást csak Golding Reklámajándéknál intézheti!

" response.end end if %>

<%=UCASE(Session("nev"))%> <% sLang=Session("LANG1") select case sLang case "HUN" %> regisztrációs adatai: <% case "ENG" %>'s personal informations<% end select %>

<% select case sLang case "HUN" %>Azonosító<% case "ENG" %>User id<% end select %> *

<% select case sLang case "HUN" %>Jelszó<% case "ENG" %>Password<% end select %> *

<% select case sLang case "HUN" %>Jelszó mégegyszer<% case "ENG" %>Password again<% end select %> *

________________________________________________________

<% select case sLang case "HUN" %>Név<% case "ENG" %>Name<% end select %> *

<% select case sLang case "HUN" %>Cím<% case "ENG" %>Address<% end select %> *

<% select case sLang case "HUN" %>Cégnév<% case "ENG" %>Company<% end select %>

<% select case sLang case "HUN" %>Telefon<% case "ENG" %>Phone<% end select %>

<% select case sLang case "HUN" %>Telefax<% case "ENG" %>Fax<% end select %>

<% select case sLang case "HUN" %>Bankszámla<% case "ENG" %>Bank<% end select %>

value=" Mentés "<% case "ENG" %>value=" Save "<% end select %> name="btnOK" style="height: 22; background-color: #0099CC; color: #FFFFFF; font-family: Arial; font-weight: bold" >

value=" Mégsem "<% case "ENG" %>value=" Cancel "<% end select %> name="btnCancel" style="height: 22; background-color: #0099CC; color: #FFFFFF; font-family: Arial; font-weight: bold" onclick="window.navigate('http://www.golding.hu/Easy3/fooldal.asp?p=./login1.asp')"

<% else %>

A kapcsolat megszakadt, kérjük jelentkezzen be újra!

<% end if %>