NetLogin Lite - non funge!!!

**kikysc** · 18-11-2006, 16:56

Ciao ragazzi,
ho delle pagine ASP da proteggere con accesso riservato tramite login e pw, ho trovato nella sezione scrip ASP questo tutorial: "NetLogin Lite" ma non riesco a farlo funzionare ho cambiato solo l'indirizzo e l'e-mail e inserito la stringa nella pagina che devo proteggere così come dice il file che lo accompagna...ma non funziona, mi reindirizza sulla pagina dove ho creato il link "area riservata" per accedere all'inserimento di login e pw....? Vi viene in mente niente???
Grazie a tutti

**gensole** · 19-11-2006, 01:29

a mio avviso devi postare un pò di codice.....anche perchè ci sarà chi come me non ha mai usato o visto questo script.......posta e vediamo che succede....

**kikysc** · 19-11-2006, 13:07

L'avevo postato, ma a quanto pare....!!! Boh eccolo qui:

<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<html>
<head>

<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body>
<span class="pulsantiBIG">
<%
Dim con, rs, strSql

If Request.Form("cmdSubmit") <> "" Then
'The user has submitted the page, so process the Newsletter subscription request

'Connect to the database
Set con = GetDBConnection()

'Verify that the email address does not already exist in the database
strSql = "SELECT Nome, Cognome, ente, Email FROM Subscribers WHERE Email = '" + Request.Form("txtEmail") + "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, con, 1, 2

If rs.EOF Then
'The email address does not already exist, so add it
rs.AddNew()
rs("Nome") = Request.Form("Nome")
rs("Cognome") = Request.Form("Cognome")
rs("ente") = Request.Form("Ente")
rs("Email") = Request.Form("txtEmail")
rs.Update()

'The email address has been added, show confirmation.

'MODIFY the text below is displayed when an email is added to the newsletter
%>

Complimenti, la registrazione alla mailinglist di è stata effettuata correttamente

<%

Else
'The email address already exists in the database

'MODIFY the text below is displayed when a person tries to enter the same email address
' a second time.
%>
Questa e-mail è stata già utilizzata
<%

End If

'Clean up database objects
rs.Close()
Set rs = Nothing
con.Close()
Set con = Nothing

Else

'MODIFY the text below is displayed when the page is first loaded.
%>
</span>
<form action="subscribe.asp" method="post">
<div align="justify" class="gray">

</p>

</p>
<p align="center" class="pulsanti">Nome: <font color="#FFFFFF">.........................</font>
<input name="Nome" type="text" id="Nome" value="">
</p>
<p align="center" class="pulsanti">Cognome:<font color="#FFFFFF">....................
</font>
<input name="Cognome" type="text" id="Cognome" value="">

Ente appartenenza:<font color="#FFFFFF">.....</font>
<input name="Ente" type="text" id="Ente" value="">
</p>
<p align="center" class="pulsanti">E-mail:<font color="#FFFFFF">.........................</font>
<input type="text" name="txtEmail" value="">
</p>
<p align="center">

<input type="submit" name="cmdSubmit" value="Invia">
</p>
</div>
</form>
<div align="right"></div>
</body>
</html>

Grazie!

Discussione: NetLogin Lite - non funge!!!

Strumenti discussione

Ricerca discussione

Visualizza

NetLogin Lite - non funge!!!

Permessi di invio