<% if session("autorizzato") = 1 then response.redirect("Link.asp") invio = request("invio") if (invio = "invio") then userid = request("userid") passwd = request("passwd") percorsopasx = Server.MapPath("/mdb-database/pasx.txt") Set oggettoFileSystem = Server.CreateObject("Scripting.FileSystemObject") Set oggettoFile = oggettoFileSystem.OpenTextFile(percorsopasx, 1) trovato = false do while not(oggettoFile.AtEndOfStream) and not(trovato) linea = oggettoFile.ReadLine if (InStr(linea, userid) > 0) then trovato = true end if loop oggettoFile.close Set oggettoFileSystem = nothing Set oggettoFile = nothing userdata = split(linea, "~:~", -1, 1) password = trim(userdata(1)) if ((trovato) and (passwd = password) ) then session("autorizzato") = 1 response.redirect("link.asp") else response.redirect("accessonegato.asp") end if else ' HTML %>


PROTEZIONE ANTISPAM
(obbligatoria per procedere alla registrazione del Vostro Travel Link)
 

Inserire nei sottostanti campi il codice
visualizzato nell'immagine.

Codice:

Ripeti :

   

<% 'fine HTML End if %>