Modulo Registrazione Utente

[elisab]

Ciao a tutti, ho implementato un codice già pronto per un modulo di registrazione utente all'interno del mio layout grafico. Tutto sembra funzionare ma alla compilazione del form, cliccando su invio, mi rimanda alla pagina di login errato...che cosa potrebbe essere?

Grazie per il vs aiuto,

[yro]

potrebbe essere tutto!

posta un po di codice (dentro i tag code magari)

[elisab]

<%
If Request.QueryString("step") = "2" THEN
'Rimuovo l'username e la password da caratteri illegali come per esempio '.
str_username = Replace(Request.Form("username"), "'", "''")
str_password = Replace(Request.Form("password"), "'", "''")

Set rs_login = Server.CreateObject ("ADODB.RecordSet")
strSQL = "SELECT * FROM tbl_authors WHERE name='" & str_username & "' AND pass='" & str_password & "'"
rs_login.open strSQL,adoCon

'Se la combinazione username e password non esiste, reindirizzo l'utente ad un altra pagina
If rs_login.EOF _
Or rs_login.BOF Then
Response.Redirect("login_errato.asp")
Else
'Scrivo l'user code nel cookie
Response.Cookies("Login")("userCode") = rs_login("code")
'Reindirizzo alla pagina appropriata
If adminEmail = "admin@prova.com" AND str_password = "admin" Then
Response.Redirect("setup.asp?setup=firstTime")
Else
Response.redirect("visualizza_profilo.asp")
End If
End If
End if
%>
<%
If Request.QueryString("step") = 2 Then
Dim str_db_username 'username
Dim str_wanted_username 'richiesto username
Dim str_new_usercode 'generare user code
Dim int_random_number 'numero random
Dim int_random_number_max 'valore massimo del numero randomico
Dim int_random_number_min 'valore minimo del numero randomico
Dim str_password 'password
Dim rs_new_user 'Recordsheet per il nuovo utente
Dim rs_check_username 'Recordsheet per controllare username

'Richiamo i valori
str_wanted_username = Request.form("username")
str_password = Request.form("pw1")

'Creo una nuova stringa SQL
strSQL = "SELECT * FROM tbl_authors"

'Creo un nuovo RecordSet
set rs_check_username=Server.CreateObject("ADODB.Recor dset")

'Apro il recordset e eseguo SQL
rs_check_username.Open strSQL,adoCon

'Eseguo un ciclo fino alla fine
Do While NOT rs_check_username.EOF
'Set variable to hold a database username value
str_db_username = rs_check_username("name")

'See l'username &egrave; gi&agrave; inserito nel database response.Redirect("errore.asp")
If str_db_username = str_wanted_username Then Response.Redirect("errore.asp")

'passo al record successivo
rs_check_username.MoveNext
'Loop
Loop

rs_check_username.Close
Set rs_check_username = Nothing

new_name = Request.form("username")
new_email = Request.form("email")
new_pass = Request.form("pw1")
new_nome = Request.form("nome")
new_cognome = Request.form("cognome")
new_citta = Request.form("citta")
new_provincia = Request.form("provincia")
new_cap = Request.form("cap")
new_authority = "user"
new_date = Now()
new_code = str_new_usercode
new_pagina_web = Request.form("pagina_web")

If new_name = "" OR new_email = "" OR new_pass = "" OR new_nome = "" OR new_cognome = "" OR new_citta = "" OR new_cap = "" Then
emptyValue = True
Else
If Request.Form("pw1") <> Request.Form("pw2") Then
badPass = True
Else
badPass = False
End If
emptyValue = False
End If

If emptyValue = False AND badPass = False Then
'Creo un numero random
Randomize
int_random_number_Min = 1
int_random_number_Max = 999999999
int_random_number = Int(((int_random_number_Max-int_random_number_Min+1) * Rnd) + int_random_number_Min)

'converto il numero in una stringa
int_random_number = Cstr(int_random_number)

'concateno username e il numero random
str_new_usercode = str_wanted_username + int_random_number

'Creo una nuova stringa SQL
strsql="SELECT * FROM tbl_authors"

'Creo un nuovo recordset
set rs_new_user = Server.CreateObject("ADODB.Recordset")

rs_new_user.CursorType = 2
rs_new_user.LockType = 3

'apro recordsheet e eseguo la stringa SQL
rs_new_user.open strsql,adocon

'setto recordsheet e aggiungo un nuovo record
rs_new_user.AddNew

'Enter a new record into the database
rs_new_user.Fields("name") = new_name
rs_new_user.Fields("email") = new_email
rs_new_user.Fields("pass") = new_pass
rs_new_user.Fields("nome") = new_nome
rs_new_user.Fields("cognome") = new_cognome
rs_new_user.Fields("citta") = new_citta
rs_new_user.Fields("provincia") = new_provincia
rs_new_user.Fields("cap") = new_cap
rs_new_user.Fields("authority") = "user"
rs_new_user.Fields("dataregistrazione") = Now
rs_new_user.Fields("code") = str_new_usercode
rs_new_user.Fields("pagina_web") = Request.form("pagina_web")
If conf_email = "False" Then
rs_new_user.Fields("stato") = "Active"
End If

'aggiorno il recordset
rs_new_user.Update

rs_new_user.Close
set rs_new_user = Nothing

curSubFolders = ""
tempArray = Split(Replace(Request.ServerVariables("URL"), "\", "/"), "/")
Dim i
i = 0
For each chunk in tempArray
i = i + 1
Next
For j = 0 to (i-2)
curSubFolders = curSubFolders & tempArray(j) & "/"
Next

If conf_email = "True" AND tipoMail <> "None" Then
strFromName = pageTitle & " Webmaster"
strFromEmail = adminEmail
strRecipientsEmail = new_email
strRecipientsName = new_name
strSubject = pageTitle & " Registration"
strMessage = "------------------------------------------" & vbCrLf & _
"Grazie per esserti registrato, " & strRecipientsName & "! Per completare la registrazione, inserisci un indirizzo email valido." & vbCrLf & _
"Per completare la registrazione, clikka sul seguente indirizzo:" & vbCrLf & _
" " & homePage & curSubFolders & "attivo.asp?userCode=" & str_new_usercode & vbCrLf & vbCrLf & _
"Grazie," & vbCrLf & pageTitle & " Webmaster"

Select Case LCase(tipoMail)
Case "aspemail"
Set objNewMail = Server.CreateObject("Persits.MailSender")
objNewMail.Host = mailServer
objNewMail.FromName = strFromName
objNewMail.AddReplyTo strFromEmail
objNewMail.From = strFromEmail
objNewMail.AddAddress strRecipientsEmail, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
On Error Resume Next '## Ignora Errore
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email: " & Err.Description & ""
End if
Case "aspmail"
Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.FromName = strFromName
objNewMail.FromAddress = strFromEmail
'objNewMail.AddReplyTo = strFromEmail
objNewMail.RemoteHost = mailServer
objNewMail.AddRecipient strRecipientsName, strRecipientsEmail
objNewMail.Subject = strSubject
objNewMail.BodyText = strMessage
On Error Resume Next '## Ignora Errore
SendOk = objNewMail.SendMail
If not(SendOk) <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & objNewMail.Response & ""
End if
Case "cdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
On Error Resume Next '## Ignora Errore
objNewMail.Send strFromEmail, strRecipientsEmail, strSubject, strMessage
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
On Error Resume Next '## Ignora Errore

Case "cdosys"
Set objMessage = CreateObject("CDO.Message")
objMessage.Sender = strFromEmail
objMessage.TextBody = strMessage
objMessage.To = strFromEmail
objMessage.Subject = strSubject
objMessage.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
On Error Resume Next '## Ignora Errore



Case "chilicdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
On Error Resume Next '## Ignora Errore
objNewMail.Host = mailServer
objNewMail.To = strRecipientsEmail
objNewMail.From = strFromEmail
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
On Error Resume Next '## Ignora Errore
Case "jmail"
Set objNewMail = Server.CreateObject("Jmail.smtpmail")
objNewMail.ServerAddress = mailServer
objNewMail.AddRecipient strRecipientsEmail
objNewMail.Sender = strFromEmail
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
objNewMail.Priority = 3
On Error Resume Next '## Ignora Errore
objNewMail.Execute
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
Case "jmail4"
Set objNewMail = Server.CreateObject("Jmail.Message")
'objNewMail.MailServerUserName = "mioUserName"
'objNewMail.MailServerPassword = "MiaPassword"
objNewMail.From = strFromEmail
objNewMail.FromName = strFromName
objNewMail.AddRecipient strRecipientsEmail, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
On Error Resume Next '## Ignora Errore
objNewMail.Send(mailServer)
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
Case "smtp"
Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")
objNewMail.MailServer = mailServer
objNewMail.Recipients = strRecipientsEmail
objNewMail.Sender = strFromEmail
objNewMail.Subject = strSubject
objNewMail.Message = strMessage
On Error Resume Next '## Ignora Errore
objNewMail.SendMail2
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
End Select
Set objNewMail = Nothing
On Error Goto 0


Response.Redirect("benvenuto.asp")
Else
Session("tmpUN") = new_name
Response.Redirect("login.asp?disp=login")
End If
End If
End If
%>

[elisab]

<HTML>
<HEAD>
<TITLE>TITOLO PAGINA</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1250">
<link rel="stylesheet" type="text/css" href="css/styles.css">
</HEAD><BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<center>

<TABLE WIDTH=775 BORDER=0 CELLPADDING=0 CELLSPACING=0 class="frame">
<TR>
<TD rowspan="2">
[img]images/logo.gif[/img]</TD>
<TD>
[img]images/homepage.gif[/img][img]images/location.gif[/img][img]images/serate.gif[/img][img]images/multimedia.gif[/img][img]images/end_menu.gif[/img]</TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF" width="570" height="67" class="arancio_reg">
<form action="login.asp?step=2" method="post">
<div align="left">
<left>
<table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="400">
<tr>
<td width="492" colspan="5" height="3"></td>
</tr>
<tr>
<td colspan="5" height="3"></td>
</tr>
<tr>
<td>Username</td>
<td>
<input type="text" name="username" size="10" maxlength="80" value="<%If Request.QueryString("disp") = "login" Then Response.Write(Session("tmpUN")) Else Response.Write(str_users_name) End If%>"></td>
<td>Password</td>
<td><input type="password" name="password" size="10" maxlength="80"></td>
<td><input type="submit" value="Accedi"></td>
</tr>
</table>

</center>

</div>
</form>

</center>
Vuoi fare parte della community?
<font color="#FF6600">Registrati subito!</font>

</TD>
</TR>
<TR>
<TD bgcolor="#FFFFFF">
<table border="0" width="205" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" height="278" id="table1">
<tr>
<td height="24" width="23"></td>
<td height="24"></td>
<td height="24" width="23"></td>
</tr>
<tr>
<td height="27" width="23"></td>
<td height="27">
<p align="center">
[img]images/feste_txt.gif[/img]</td>
<td height="27" width="23"></td>
</tr>
<tr>
<td></td>
<td class="grigio_reg">
<font color="#FF6600" size="2">10.09.07</font>

Testo testo


<font color="#FF6600" size="2">17.09.07</font>

Testo testo


<font color="#FF6600" size="2">24.09.07</font>

Testo testo</td>
<td></td>
</tr>
</table>
</TD>
<TD bgcolor="#FFFFFF">
<p align="center">
<SCRIPT LANGUAGE="JavaScript">
<!--
function DoSubmit(obj) {
var nome = obj.nome.value;
var cognome = obj.cognome.value;
var username = obj.username.value;
var password = obj.pw1.value;
var confirmation = obj.pw2.value;
var email = obj.email.value;
var citta = obj.citta.value;
var cap = obj.cap.value;
var strMailFilter = /^.+@.+\..{2,3}$/;
var strIllegalChars = /[\(\)\<\>\,\;\:\\\/\*\-\+\=\"\[\]]/;

var submitform = true;
var error = '************************* REGISTRAZIONE *************************\n\n';
error += ' Attenzione : \n\n';

if (nome.length < 3 ) {
error += ' + Nome &egrave; un campo richiesto \n';
submitform = false;
}
if (nome.length > 20 && isNaN(nome) ) {
error += ' + Nome pu&ograve; essere massimo 20 caratteri \n';
submitform = false;
}
if (nome.length > 1 && nome.match(strIllegalChars) ) {
error += ' + Nome contiene caratteri non consentiti \n';
submitform = false;

}


if (cognome.length < 1) {
error += ' + Cognome &egrave; un campo obbligatorio \n';
submitform = false;
}

if (cognome.length > 20 ) {
error += ' + Cognome pu&ograve; essere massimo 20 caratteri \n';
submitform = false;
}
if (cognome.length > 1 && cognome.match(strIllegalChars)) {
error += ' + Cognome contiene caratteri non consentiti \n';
submitform = false;
}


if (username.length < 1) {
error += ' + Username &egrave; una campo richiesto \n';
submitform = false;
}
if (username.length > 20) {
error += ' + Username pu&ograve; essere massimo 20 caratteri \n';
submitform = false;
}
if (username.length > 1 && username.match(strIllegalChars)) {
error += ' + Nome contiene caratteri non consentiti \n';
submitform = false;
}

if (password.length < 5) {
error += ' + Password deve essere minimo 5 caratteri \n';
submitform = false;
}
if (password.length > 20) {
error += ' + Password pu&ograve; essere massimo 20 caratteri \n';
submitform = false;
}
if (confirmation.length < 1) {
error += ' + Conferma password &egrave; un campo obbligatorio \n';
submitform = false;
}
if (password != confirmation) {
error += ' + Password non &egrave; uguale \n';
submitform = false;
}
if (email.length < 1) {
error += ' + Email &egrave; un campo obbligatorio \n';
submitform = false;
}

if (email.length > 30) {
error += ' + Email &egrave; massimo 30 caratteri \n';
submitform = false;
}
if (email.length > 1 && email.match(strIllegalChars)) {
error += ' + Email contiene caratteri non consentiti \n';
submitform = false;
}
if (email.length > 1 && !email.match(strIllegalChars) && !(strMailFilter.test(email))) {
error += ' + Email non &egrave; valida \n';
submitform = false;
}

if (citta.length < 3 ) {
error += ' + Citta &egrave; un campo richiesto \n';
submitform = false;
}
if (citta.length > 15 ) {
error += ' + Citta pu&ograve; essere massimo 15 caratteri \n';
submitform = false;
}
if (citta.length > 1 && citta.match(strIllegalChars)) {
error += ' + Citta contiene caratteri non consentiti \n';
submitform = false;
}

if (cap.length < 4 ) {
error += ' + Cap &egrave; un campo richiesto \n';
submitform = false;
}

if (cap.length > 4 && isNaN(cap) ) {
error += ' + Cap contiene caratteri non consentiti \n';
submitform = false;
}

if (submitform) {
obj.submit();
}
else {
error += '\n************************* REGISTRAZIONE *************************\n\n';
alert (error);
return false;
}
}
-->
</script>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="14">
</table>


<form name="registrationForm" method="post" action="registrazione.asp?step=2" onReset="return confirm('Sei sicuro di voler cancellare tutti i dati nel form?')">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="black" width="100%">
<tr>
<td width="100%" colspan="2">I campi contrassegnati con * sono obbligatori.</td>
</tr>
<tr>
<td width="100%" height="8" colspan="2"></td>
</tr>
<tr>
<td>
<% If emptyValue = True AND new_nome = "" Then %>
<font color="#000000">
<% End If %>
Nome
<% If emptyValue = True AND new_nome = "" Then %>
</font>
<% End If %>
*</td>
<td width="100%"> <input name="nome" value="<%=new_nome%>" size="30" maxlength="20"></td>
</tr>
<tr>
<td></td>
<td width="100%"></td>
</tr>
<tr>
<td height="8">[img]images/trans.gif[/img]</td>
<td height="8" width="100%"></td>
</tr>
<tr>
<td>
<% If emptyValue = True AND new_cognome = "" Then %>
<font color="#000000">
<% End If %>
Cognome
<% If emptyValue = True AND new_cognome = "" Then %>
</font>
<% End If %>
*</td>
<td width="100%"> <input name="cognome" value="<%=new_cognome%>" size="30" maxlength="20"></td>
</tr>
<tr>
<td></td>
<td width="100%"></td>
</tr>
<tr>
<td height="8">[img]images/trans.gif[/img]</td>
<td height="8" width="100%"></td>
</tr>
<tr>
<td>
<% If emptyValue = True AND new_name = "" Then %>
<font color="#000000">
<% End If %>
Username
<% If emptyValue = True AND new_name = "" Then %>
</font>
<% End If %>
*</td>
<td width="100%"> <input name="username" type="text" value="<%=new_name%>" size="30" maxlength="20"></td>
</tr>
<tr>
<td height="8"></td>
<td height="8" width="100%"></td>
</tr>
<tr>
<td></td>
<td width="100%"></td>
</tr>
<tr>
<td height="8">
<% If emptyValue = True AND new_pass = "" Then %>
<font color="#000000">
<% End If %>
Password
<% If emptyValue = True AND new_pass = "" Then %>
</font>
<% End If %>
*</td>
<td height="8" width="100%"> <input name="pw1" type="password" value="" size="30" maxlength="20"></td>
</tr>
<tr>
<td></td>
<td width="100%"></td>
</tr>
<tr>
<td height="10"></td>
<td height="10" width="100%"></td>
</tr>
<tr>
<td></td>
<td width="100%"></td>
</tr>
<tr>
<td height="8">
<% If emptyValue = True AND Request.Form("pw2") = "" Then %>
<font color="#000000">
<% End If %>
Conferma Password
<% If emptyValue = True AND Request.Form("pw2") = "" Then %>
</font>
<% End If %>
*</td>
<td height="8" width="100%"> <input name="pw2" type="password" value="" size=30" maxlength="20"></td>
</tr>
<tr>
<td></td>
<td width="100%"></td>
</tr>
<tr>
<td height="8"></td>
<td height="8" width="100%"></td>
</tr>
<tr>
<td>
<% If emptyValue = True AND new_email = "" Then %>
<font color="#000000">
<% End If %>
Email
<% If emptyValue = True AND new_email = "" Then %>
</font>
<% End If %>
*</td>
<td width="100%"> <input name="email" type="text" value="<%=new_email%>" size="30" maxlength="30"></td>
</tr>
<tr>
<td height="8"></td>
<td height="8" width="100%"></td>
</tr>

[elisab]

<tr>
<td>
<% If emptyValue = True AND new_citta = "" Then %>
<font color="#000000">
<% End If %>
Citta
<% If emptyValue = True AND new_citta = "" Then %>
</font>
<% End If %>
*</td>
<td width="100%"> <input name="citta" type="text" value="<%=new_citta%>" size="30" maxlength="20"></td>
</tr>
<tr>
<td height="8"></td>
<td height="8" width="100%"></td>
</tr>
<tr>
<td></td>
<td width="100%"></td>
</tr>
<tr>
<td>
<% If emptyValue = True AND new_provincia = "" Then %>
<font color="#000000">
<% End If %>
Provincia
<% If emptyValue = True AND new_provincia = "" Then %>
</font>
<% End If %>
*</td>
<td width="100%"><select name="provincia" size="1">
<option value="EE"<%If new_provincia = "EE" Then Response.Write(" selected") End If%>>
EE</option>
<option value="AG"<%If new_provincia = "AG" Then Response.Write(" selected") End If%>>
AG</option>
<option value="AL"<%If new_provincia = "AL" Then Response.Write(" selected") End If%>>
AL</option>
<option value="AN"<%If new_provincia = "AN" Then Response.Write(" selected") End If%>>
AN</option>
<option value="AO"<%If new_provincia = "AO" Then Response.Write(" selected") End If%>>
AO</option>
<option value="AP"<%If new_provincia = "AP" Then Response.Write(" selected") End If%>>
AP</option>
<option value="AQ"<%If new_provincia = "AQ" Then Response.Write(" selected") End If%>>
AQ</option>
<option value="AR"<%If new_provincia = "AR" Then Response.Write(" selected") End If%>>
AR</option>
<option value="AT"<%If new_provincia = "AT" Then Response.Write(" selected") End If%>>
AT</option>
<option value="AV"<%If new_provincia = "AV" Then Response.Write(" selected") End If%>>
AV</option>
<option value="BA"<%If new_provincia = "BA" Then Response.Write(" selected") End If%>>
BA</option>
<option value="BG"<%If new_provincia = "BG" Then Response.Write(" selected") End If%>>
BG</option>
<option value="BI"<%If new_provincia = "BI" Then Response.Write(" selected") End If%>>
BI</option>
<option value="BL"<%If new_provincia = "BL" Then Response.Write(" selected") End If%>>
BL</option>
<option value="BN"<%If new_provincia = "BN" Then Response.Write(" selected") End If%>>
BN</option>
<option value="BO"<%If new_provincia = "BO" Then Response.Write(" selected") End If%>>
BO</option>
<option value="BR"<%If new_provincia = "BR" Then Response.Write(" selected") End If%>>
BR</option>
<option value="BS"<%If new_provincia = "BS" Then Response.Write(" selected") End If%>>
BS</option>
<option value="BZ"<%If new_provincia = "BZ" Then Response.Write(" selected") End If%>>
BZ</option>
<option value="CA"<%If new_provincia = "CA" Then Response.Write(" selected") End If%>>
CA</option>
<option value="CB"<%If new_provincia = "CB" Then Response.Write(" selected") End If%>>
CB</option>
<option value="CE"<%If new_provincia = "CE" Then Response.Write(" selected") End If%>>
CE</option>
<option value="CH"<%If new_provincia = "CH" Then Response.Write(" selected") End If%>>
CH</option>
<option value="CL"<%If new_provincia = "CL" Then Response.Write(" selected") End If%>>
CL</option>
<option value="CN"<%If new_provincia = "CN" Then Response.Write(" selected") End If%>>
CN</option>
<option value="CO"<%If new_provincia = "CO" Then Response.Write(" selected") End If%>>
CO</option>
<option value="CR"<%If new_provincia = "CR" Then Response.Write(" selected") End If%>>
CR</option>
<option value="CT"<%If new_provincia = "CT" Then Response.Write(" selected") End If%>>
CT</option>
<option value="CZ"<%If new_provincia = "CZ" Then Response.Write(" selected") End If%>>
CZ</option>
<option value="EN"<%If new_provincia = "EN" Then Response.Write(" selected") End If%>>
EN</option>
<option value="FC"<%If new_provincia = "FC" Then Response.Write(" selected") End If%>>
FC</option>
<option value="FE"<%If new_provincia = "FE" Then Response.Write(" selected") End If%>>
FE</option>
<option value="FG"<%If new_provincia = "FG" Then Response.Write(" selected") End If%>>
FG</option>
<option value="FI"<%If new_provincia = "FI" Then Response.Write(" selected") End If%>>
FI</option>
<option value="FR"<%If new_provincia = "FR" Then Response.Write(" selected") End If%>>
FR</option>
<option value="GE"<%If new_provincia = "GE" Then Response.Write(" selected") End If%>>
GE</option>
<option value="GO"<%If new_provincia = "GO" Then Response.Write(" selected") End If%>>
GO</option>
<option value="GR"<%If new_provincia = "GR" Then Response.Write(" selected") End If%>>
GR</option>
<option value="IM"<%If new_provincia = "IM" Then Response.Write(" selected") End If%>>
IM</option>
<option value="IS"<%If new_provincia = "IS" Then Response.Write(" selected") End If%>>
IS</option>
<option value="KR"<%If new_provincia = "KR" Then Response.Write(" selected") End If%>>
KR</option>
<option value="LC"<%If new_provincia = "LC" Then Response.Write(" selected") End If%>>
LC</option>
<option value="LE"<%If new_provincia = "LE" Then Response.Write(" selected") End If%>>
LE</option>
<option value="LI"<%If new_provincia = "LI" Then Response.Write(" selected") End If%>>
LI</option>
<option value="LO"<%If new_provincia = "LO" Then Response.Write(" selected") End If%>>
LO</option>
<option value="LT"<%If new_provincia = "LT" Then Response.Write(" selected") End If%>>
LT</option>
<option value="MC"<%If new_provincia = "MC" Then Response.Write(" selected") End If%>>
MC</option>
<option value="ME"<%If new_provincia = "ME" Then Response.Write(" selected") End If%>>
ME</option>
<option value="MI"<%If new_provincia = "MI" Then Response.Write(" selected") End If%>>
MI</option>
<option value="MN"<%If new_provincia = "MN" Then Response.Write(" selected") End If%>>
MN</option>
<option value="MO"<%If new_provincia = "MO" Then Response.Write(" selected") End If%>>
MO</option>
<option value="MS"<%If new_provincia = "MS" Then Response.Write(" selected") End If%>>
MS</option>
<option value="MT"<%If new_provincia = "MT" Then Response.Write(" selected") End If%>>
MT</option>
<option value="NA"<%If new_provincia = "NA" Then Response.Write(" selected") End If%>>
NA</option>
<option value="NO"<%If new_provincia = "NO" Then Response.Write(" selected") End If%>>
NO</option>
<option value="NU"<%If new_provincia = "NU" Then Response.Write(" selected") End If%>>
NU</option>
<option value="OR"<%If new_provincia = "OR" Then Response.Write(" selected") End If%>>
OR</option>
<option value="PA"<%If new_provincia = "PA" Then Response.Write(" selected") End If%>>
PA</option>
<option value="PC"<%If new_provincia = "PC" Then Response.Write(" selected") End If%>>
PC</option>
<option value="PD"<%If new_provincia = "PD" Then Response.Write(" selected") End If%>>
PD</option>
<option value="PE"<%If new_provincia = "PE" Then Response.Write(" selected") End If%>>
PE</option>
<option value="PN"<%If new_provincia = "PN" Then Response.Write(" selected") End If%>>
PN</option>
<option value="PO"<%If new_provincia = "PO" Then Response.Write(" selected") End If%>>
PO</option>
<option value="PR"<%If new_provincia = "PR" Then Response.Write(" selected") End If%>>
PR</option>
<option value="PT"<%If new_provincia = "PT" Then Response.Write(" selected") End If%>>
PT</option>
<option value="PU"<%If new_provincia = "PU" Then Response.Write(" selected") End If%>>
PU</option>
<option value="PV"<%If new_provincia = "PV" Then Response.Write(" selected") End If%>>
PV</option>
<option value="PZ"<%If new_provincia = "PZ" Then Response.Write(" selected") End If%>>
PZ</option>
<option value="RA"<%If new_provincia = "RA" Then Response.Write(" selected") End If%>>
RA</option>
<option value="RC"<%If new_provincia = "RC" Then Response.Write(" selected") End If%>>
RC</option>
<option value="RE"<%If new_provincia = "RE" Then Response.Write(" selected") End If%>>
RE</option>
<option value="RG"<%If new_provincia = "RG" Then Response.Write(" selected") End If%>>
RG</option>
<option value="RI"<%If new_provincia = "RI" Then Response.Write(" selected") End If%>>
RI</option>
<option value="RN"<%If new_provincia = "RN" Then Response.Write(" selected") End If%>>
RN</option>
<option value="RM"<%If new_provincia = "RM" Then Response.Write(" selected") End If%>>
RM</option>
<option value="SA"<%If new_provincia = "SA" Then Response.Write(" selected") End If%>>
SA</option>
<option value="SI"<%If new_provincia = "SI" Then Response.Write(" selected") End If%>>
SI</option>
<option value="SO"<%If new_provincia = "SO" Then Response.Write(" selected") End If%>>
SO</option>
<option value="SP"<%If new_provincia = "SP" Then Response.Write(" selected") End If%>>
SP</option>
<option value="SR"<%If new_provincia = "SR" Then Response.Write(" selected") End If%>>
SR</option>
<option value="SS"<%If new_provincia = "SS" Then Response.Write(" selected") End If%>>
SS</option>
<option value="SV"<%If new_provincia = "SV" Then Response.Write(" selected") End If%>>
SV</option>
<option value="TA"<%If new_provincia = "TA" Then Response.Write(" selected") End If%>>
TA</option>
<option value="TE"<%If new_provincia = "TE" Then Response.Write(" selected") End If%>>
TE</option>
<option value="TN"<%If new_provincia = "TN" Then Response.Write(" selected") End If%>>
TN</option>
<option value="TO"<%If new_provincia = "TO" Then Response.Write(" selected") End If%>>
TO</option>
<option value="TP"<%If new_provincia = "TP" Then Response.Write(" selected") End If%>>
TP</option>
<option value="TR"<%If new_provincia = "TR" Then Response.Write(" selected") End If%>>
TR</option>
<option value="TS"<%If new_provincia = "TS" Then Response.Write(" selected") End If%>>
TS</option>
<option value="TV"<%If new_provincia = "TV" Then Response.Write(" selected") End If%>>
TV</option>
<option value="UD"<%If new_provincia = "UD" Then Response.Write(" selected") End If%>>
UD</option>
<option value="VA"<%If new_provincia = "VA" Then Response.Write(" selected") End If%>>
VA</option>
<option value="VB"<%If new_provincia = "VB" Then Response.Write(" selected") End If%>>
VB</option>
<option value="VC"<%If new_provincia = "VC" Then Response.Write(" selected") End If%>>
VC</option>
<option value="VE"<%If new_provincia = "VE" Then Response.Write(" selected") End If%>>
VE</option>
<option value="VI"<%If new_provincia = "VI" Then Response.Write(" selected") End If%>>
VI</option>
<option value="VR"<%If new_provincia = "VR" Then Response.Write(" selected") End If%>>
VR</option>
<option value="VT"<%If new_provincia = "VT" Then Response.Write(" selected") End If%>>
VT</option>
<option value="VV"<%If new_provincia = "VV" Then Response.Write(" selected") End If%>>
VV</option>
</select></td>
</tr>
<tr>
<td height="8"></td>
<td height="8" width="100%"></td>
</tr>
<tr>
<td>
<% if (not isNumeric (new_cap)) OR len(new_cap) =<4 then %>
<font color="#000000">
<% End if %>
<% If emptyValue = True AND new_cap = "" Then %>
<font color="#000000">
<% End If %>
C.A.P
<% If emptyValue = True AND new_cap = "" Then %>
</font>
<% End If %>
<% if (not isNumeric (new_cap)) OR len(new_cap) =<4 then %>
</font>
<% End if %>

*
</td>
<td width="100%"> <input name="cap" type="text" value="<%=new_cap%>" size="5" maxlength="5"></td>
</tr>
<tr>
<td></td>
<td width="100%"></td>
</tr>
<tr>
<td height="8"></td>
<td height="8" width="100%"></td>
</tr>
<tr>
<td height="16">Sito Web</td>
<td height="16" width="100%"> <input name="pagina_web" type="text" value="<%=Request.Form("pagina_web")%>" size="30" maxlength="30"></td>
</tr>
<tr>
<td height="8">

<input type="hidden" name="ip" value="<%=Request.ServerVariables("REMOTE_ADDR")%> ">
<%
ip = Request.ServerVariables("REMOTE_ADDR")
response.Write("IP: " &ip)
%></td>
<td height="8" width="100%"></td>
</tr>
<tr>

<td width="100%" colspan="2">

</p>



<input type="button" value="Registrati" onClick="DoSubmit(document.registrationForm)">
<input type="reset" value="Cancella" >
</p></td>
<td width="100%" colspan="2">
</td>
</tr>
</table>
</center>
</div>
</form>
</TD>
</TR>
</TABLE>
</center>
</BODY>
</HTML>

[yro]

ecco appunto... sarebbe meglio scrivere il codice tra i tag [ code ] comunque...


hai controllato se nonostante ti mandi alla pagina con l'errore il db sia stato implementato coi dati inseriti?

[elisab]

il db nn si implementa...ho provato ad eliminare la prima parte di codice dove sono inclusi i due campi del login e funziona tutto però nn posso omettere questa parte...

[yro]

ok, quindi è ovvio che il problema è che dopo aver tentato di inserire i dati (invano) fa il login, ma non essendoci i dati da errore...

quindi bisogna capire perche non inserisce i dati...

prova a togliere le redirect che ci sono dopo l'inserimento dei dati in modo da rimanere sulla pagina che scrive sul db per vedere se da qualche errore...

do per scontato che i percorsi del db siano corretti e che la cartella ove cè il db abbia i permessi di scrittura...

[elisab]

i percorsi sono tutti giusti perchè se tolgo la parte di LOGIN funziona tutto...

[yro]

Originariamente inviato da elisab
i percorsi sono tutti giusti perchè se tolgo la parte di LOGIN funziona tutto...

puoi fare una modifica ai tuoi post precedenti differenziando la parte che se togli funziona tutto?
magari la metti in neretto...