<% Dim vError Dim strMessage vError = Request.QueryString("pError") Select Case vError Case 1 strMessage = aStrLoginError1(vIdioma) Case 2 strMessage = aStrLoginError2(vIdioma) Case 3 strMessage = aStrLoginError3(vIdioma) Case else strMessage = Null End Select %>

<%=aStrAccesoProfesional(vIdioma)%>

<%If isNull(strMessage) Then%> <%=aStrApoyoLogin(vIdioma)%> <%Else%> <%=strMessage%> <%End If%>

<%=aStrUserName(vIdioma)%>

<%=aStrPwd(vIdioma)%>

<%=aStrEnviar(vIdioma)%>

<%Server.Execute "include_js/footer.asp"%>