<% set con = Server.CreateObject("ADODB.Connection") con.Open strCon sqlDocuments1="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=5" set rsDocuments1=server.CreateObject("ADODB.Recordset") rsDocuments1.Open sqlDocuments1,con,1,2 if not rsDocuments1.EOF then strContents=rsDocuments1("content") title=rsDocuments1("ptitle") description=rsDocuments1("pdescription") keywords=rsDocuments1("pkeywords") docid=rsDocuments1("DocumentID") end if %> <% if request.querystring("id")<>"" then mysql = "select * from staff where id_idioma=" & session("lang" & prj)& " and id="& request.querystring("id") else mysql = "select id,name from staff where id_idioma=" & session("lang" & prj)& " order by sort" end if set rsser = server.CreateObject("ADODB.Recordset") set rsser = con.execute(mysql) if request.querystring("id")<>"" then if not rsser.EOF then %>
<% if rsser("phone") <> "" then %> <% end if %> <% if rsser("qualification") <> "" then %> <% end if %> <% if rsser("imgdisplay") = true and rsser("picturepath") <> "" then %> <% end if %>
<%=t_(22)%> <%=rsser("name")%>
<%=t_(23)%> " class="gen"><%=rsser("email")%>
<%=t_(24)%> <%=server.HTMLEncode ( rsser("phone"))%>
<%=t_(25)%>

<%=rsser("qualification")%>
<%if rsser("picturepath")="" then%> <%=t_(25)%><%else%>" ><%end if%>
 
<%=t_(27)%>		  
<% end if else %>
<%=strContents%>  
<% if not rsser.EOF then while not rsser.EOF%>

"><%=rsser("name")%>

<% rsser.MoveNext wend end if end if rsser.Close set rsser = nothing %> <%rsDocuments1.Close%>