<% =title_text %>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% =title_text %> - clients

<% ' hide password enter if Session("MemberAccess") = "biz" then else %>

	<% =m_identify_yourself %>

<% =password_username %> :
<% =password_password %> :


<% =not_yet_biz_member1%> <% =not_yet_biz_member2 %>
<% =lost_password %>

<% end if 'hide password enter if Session("MemberAccess") = "biz" then conn = strAdminProvider set rs = server.CreateObject("ADODB.Recordset") strSqlStmt = "select * FROM business_meeting_point WHERE id=" & session("client_id") Set rs=Server.CreateObject("ADODB.Recordset") 'response.write strSqlStmt rs.open strSqlStmt, conn nombre=rs("nombre") apellidos=rs("apellidos") id=rs("id") kundennummer=rs("id") ' Eingang von Mitteilungen checken mitteilung=0 set rs2 = server.CreateObject("ADODB.Recordset") strSqlStmt2 = "select * FROM messages WHERE client_id='" & kundennummer & "'" Set rs2=Server.CreateObject("ADODB.Recordset") 'response.write strSqlStmt2 rs2.open strSqlStmt2, conn, 3, 3 do until rs2.eof if rs2("message_text")<>"" then mitteilung=mitteilung+1 else end if rs2.movenext loop %>

<% =m_bonjour %> <% ' no apellidos is given put nombre if rs("apellidos")<>"" then anrede=rs("nombre") & " " & rs("apellidos") else anrede=rs("nombre") end if response.write "" & anrede %>

<% =you_can_here %>
<% =change_your_data %>
<% if mitteilung>0 then %> &lastname=<% =rs("apellidos") %>&visitor=clients"> <% =you_have %> <% =mitteilung %> <% =messages_in_your_box %> <% end if %>

Salir

<% else end if 'hide below links %>