<%
NEWURL=R("NEWURL")
If NEWURL="" Then NEWURL="internacionalizacion.asp"
src=Request.ServerVariables("SCRIPT_NAME")
Function R(campo)
R=""&trim(Request(Campo))
End function
Sub P(str)
Response.Write str
End sub
if Request.Form<>"" then
%><%
strSQL="SELECT Identificador,Nombre,Apellido1,Apellido2 FROM Usuarios Where Identificador='"&R("USUARIO")&"' and Password='"&R("PASS")&"' "
Set rsSocio=CNA.Execute(strSQL)
if rsSocio.Eof and rsSocio.Bof then
ErrorStr="No existe el socio o la contraseña no es correcta"
Session("EFLogon")=false
rsSocio.Close
else
Session("EFLogon")=true
Session("EFUsuario")=rsSocio("Identificador")
Session("EFNombre")=rsSocio("NOMBRE")
Session("EFApellido1")=rsSocio("APELLIDO1")
Session("EFApellido2")=rsSocio("APELLIDO2")
rsSocio.Close
Finaliza
Response.Redirect NEWURL
End if
End If
'Pide datos de entrada
%>
Problemática de las Pymes
HONG KONG 19/F, Chung Nam Building,1 Lockhart Road.
BEIJING Unit 618, Tower Crest Plaza, 3 Maizidian West
Road.
VALENCIA Paseo Ruzafa 9, 13
BARCELONA Balmes 211, Pral 2ª
