<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
If Len(Request.Cookies("MiPais")) = 0 Then response.Redirect("bienvenidos.asp") End If
%>
<%
Dim MiPais
Dim MiPais_cmd
Dim MiPais_numRows
Set MiPais_cmd = Server.CreateObject ("ADODB.Command")
MiPais_cmd.ActiveConnection = MM_Latintrademark_STRING
MiPais_cmd.CommandText = "SELECT * FROM paises WHERE ((ID_pais) = '"&Request.Cookies("MiPais")&"')"
MiPais_cmd.Prepared = true
Set MiPais = MiPais_cmd.Execute
MiPais_numRows = 0
%>
<%
If MiPais.EOF Then response.Redirect("bienvenidos.asp") End If
%>
Registro de Marcas y Patentes en <%=(MiPais.Fields.Item("Pais").Value)%>
