<% ' dont check security if its a new client (coming from 'add_new_client.asp') if request.querystring("client_access")="new_client_access" then else %> <% end if %> <<% =title_text %> - Edit - Business Meeting Point
<% conn = strAdminProvider ' wenn NEU (von add_turnierberichte.asp kommend) if request.querystring("client_access")="new_client_access" then strSqlStmt = "select * FROM business_meeting_point WHERE id IN (select MAX(id) FROM business_meeting_point)" ' wurde in 'list_turnierberichte' ist um eins erhoht, wenn von 'list_turnierberichte' als xnew='Neuer Bericht' kommt Set rs=Server.CreateObject("ADODB.Recordset") 'response.write strSqlStmt rs.open strSqlStmt, conn id=rs("id") xpassword=request.querystring("xpassword") xusername=request.querystring("xusername") session("client")=request.querystring("xpassword") else session("xnew")="" id=request.querystring("id") strSqlStmt = "select * FROM business_meeting_point WHERE id=" & id Set rs=Server.CreateObject("ADODB.Recordset") 'response.write strSqlStmt rs.open strSqlStmt, conn xpassword=rs("xpassword") xusername=rs("username") if rs.eof then response.write no_cients_in_db response.end end if end if %> <% ' graphic 'update' when it's a new client, otherwise 'register' if request.querystring("xnew")="new" OR request.querystring("xnew")="" AND request.querystring("id")="" then update_button="register_" & session("lang") & ".gif" else update_button="update_" & session("lang") & ".gif" end if %>
<% if request.querystring("xnew")="new" OR request.querystring("xnew")="" AND request.querystring("id")="" then response.write "" else response.write "" end if ' nneded in upload-foto session("companyname")= rs("nombre_de_la_empresa") %>
<% if Request.ServerVariables("HTTP_REFERER")="" & url &"" OR Request.ServerVariables("HTTP_REFERER")="" & url &"/index.asp" then %>
<% =d_kundendaten %>
picture
<% else if session("GalleryAccess") <> "super" and session("GalleryAccess") <> "admin" and session("GalleryAccess") <> "user" then %>
<% =d_kundendaten %>
picture
<% else %>
<% =d_kundendaten %>
picture
<% end if end if %>
<% =d_empresa %> ">  
<% =sec_user_nombre %> <% Response.Cookies ("nombre").Expires = DATE + 2365 %><% = rs("nombre") %>"> * <% =sec_user_apellido %> "> *
<% =sec_user_address1 %> ">      
<% =sec_user_address1 %> ">      
<% =sec_user_address2 %> ">  
<% =sec_user_address3 %> ">        
<% =sec_user_zip %> - <% =sec_user_town %> "> - "> ">
  <% ' generate categories list from database conn = strAdminProvider strSqlStmt2 = "select * FROM countries ORDER by countries_" & session("lang") & " ASC" 'response.write strSqlStmt2 Set rs2=Server.CreateObject("ADODB.Recordset") rs2.open strSqlStmt2, conn ' extract translated country name from table country (rs2) do until rs2.eof if rs("country_cliente") = rs2("country_code") then land=rs2("countries_" & session("lang")) response.write "" & land & "   " & change_country & ":" end if rs2.movenext loop %>  
<% =sec_user_tel %> ">    
<% =sec_user_mobilephone %> ">    
<% =sec_user_fax %> ">    
<% =sec_user_email %> "> *  
<% =sec_user_website %> ">
<% =password_username %> <% =password_password %>
Active >
<% =d_company_info %>
<% =d_company_info %>
<% =d_company_info %>
<% =d_company_info %>
<% 'cleanup rs.close set rs = nothing %>