%@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 %>
|
|||||||||||