<% set con = Server.CreateObject("ADODB.Connection") con.Open strCon %> <% if cint(Request.QueryString("step")) = 2 and Request.QueryString("login") = "t" then session("clientid") = "" end if %> <% if session("clientid")<>"" then Response.Redirect("clientsdetail.asp") end if %> <% if cint(Request.QueryString("step")) = 2 then %> <% set rsclient = server.CreateObject("ADODB.Recordset") uid = replace(Request.Form("username"),"'","''") pwd = replace(Request.Form("passwd"),"'","''") mysql = "select id, uname from usermaster where id_idioma=" & session("lang" & prj)& " and uid = '"&uid&"' and pwd = '"&pwd&"'" set rsclient = con.execute(mysql) if rsclient.EOF then flag = 0 session("clientid") = "" session("clientname") = "" else session("clientid") = rsclient("id") session("clientname") = rsclient("uname") Response.Redirect("clientsdetail.asp") end if %> <% end if %> <% sqlDocuments1="select * from Documents where id_idioma=" & session("lang" & prj)& " and DocumentID=10" 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") end if %> <%=strContents%> <%rsDocuments1.Close%> <% if Request.QueryString("step") = "" or flag =0 then %>

<% end if %> <% if (Request.QueryString("step") = "" or flag =0) and session("clientid")="" then %>

<% if cint(Request.QueryString("step")) = 2 and flag = 0 and Request.QueryString("login") = "" then %> <%if session("intentos")<2 then%> <%=t_(79)%> <%end if%> <%if session("intentos") = "" then session("intentos")=1 else session("intentos")=session("intentos")+1 end if if session("intentos")>=3 then response.write(" Si las ha olvidado, llámenos o solicítelas de nuevo pulsando aquí, le llamaremos lo antes posible.") no_entrar = 1 end if %> <% end if %> <% if cint(Request.QueryString("step")) = 2 and Request.QueryString("login") = "f" then %> <%=t_(80)%> <% end if %> <% if cint(Request.QueryString("step")) = 2 and Request.QueryString("login") = "t" then %> <%=t_(81)%> <% end if %>

<%if no_entrar<>1 then%>

<%=t_(83)%> <%=t_(84)%>

<%end if%> <% end if %> <% if (Request.QueryString("step") = 2 and flag = 1) then mysql1 = "select a.id, pheading,filepath from userpublicdetails a,publication b where a.id_idioma=" & session("lang" & prj)& " and a.uid = "&session("clientid")&" and a.pid = b.id" set userpublic = server.CreateObject("ADODB.Recordset") set userpublic = con.execute(mysql1) %>
<%=t_(85)%> <% if not userpublic.EOF then while not userpublic.EOF %> <% userpublic.MoveNext wend userpublic.Close else %> <% end if %>

<%=userpublic("pheading")%>

<%=t_(86)%> <%=rsclient("uname")%>

<% end if %>