nuovo utente

**webdesigner_qua** · 19-05-2005, 10:48

salve.....
sto realizzando un sito dove per accedere ad alcune pagine c'è bisogno di essere utenti registrati.....
quando un nuovo utente effettua la registrazione non si apre la pagina di conferma.
se invece provo in localhost funziona tutto........in rete no!
qualcuno mi sà risolvere sto problema?
grazie

**99eros9** · 19-05-2005, 10:54

Ti da qualche errore?

**webdesigner_qua** · 19-05-2005, 11:15

non mi dà errori.....difatti in locale funziona.....mi dice che è impossibile aprire la pagina!

**diegoctn** · 19-05-2005, 11:16

Posta il codice.

**webdesigner_qua** · 19-05-2005, 11:18

quello della pagina dove si inseriscono i dati o della pagina di registrazione!
cmq è buono credo!infatti in localhost funziona!

**diegoctn** · 19-05-2005, 11:19

Pagina di registrazione.

**webdesigner_qua** · 19-05-2005, 11:24

ecco....
<body bgcolor="#000000" alink="#FFFFFF" link="#FFFFFF" vlink="#FFFFFF">
<script language="vbscript">
dim frm
Sub window_onLoad()
Set frm=Document.form1
End sub
Sub conferma_OnClick()
' DIMENSIONAMENTO DELLE VARIABILI
Dim StrSito
Dim StrSesso
Dim StrNome
Dim StrCognome
Dim StrTelefono
Dim StrInd
Dim StrProfessione
Dim StrCitta
Dim StrAzienda
Dim StrUser
Dim StrEmail
Dim StrPassword
Dim StrConfpassword
Dim errore
Dim i
Dim IntValori_errati
IntValori_errati = 0
errore = 0

'''
''''RICHIESTA DEI VALORI DELLE CASELLE DI TEXT
'''
StrNome = Cstr(frm.nome.value) ' CAMPO OBBLIGATORIO
StrCognome = Cstr(frm.cognome.value)' CAMPO OBBLIGATORIO
StrInd = Cstr(frm.indirizzo.value)' CAMPO OBBLIGATORIO
StrSito = Cstr(frm.sito.value)
StrCitta = Cstr(frm.citta.value) ' CAMPO OBBLIGATORIO
StrTelefono = Cstr(frm.telefono.value)
StrEmail = Cstr(frm.email.value) ' CAMPO OBBLIGATORIO
StrAzienda = (frm.azienda.value)
StrProfessione = (frm.professione.value)
StrUser = Cstr(frm.user.value) ' CAMPO OBBLIGATORIO
StrPassword = Cstr(frm.password.value) ' CAMPO OBBLIGATORIO
StrConfpassword = Cstr(frm.confpassword.value) ' CAMPO OBBLIGATORIO

IntValori_errati = 0

'
' ANALISI DEL NOME INSERITO
'
if StrNome = "" then
errore = errore + 1
Alert "Il nome non è stato inserito"
else
StrNome = Trim(StrNome)
for i = 1 to Len(StrNome)

if Mid(StrNome, i, 1) = "0" or Mid(StrNome, i, 1) = "1" or Mid(StrNome, i, 1) = "2" or Mid(StrNome, i, 1) = "3" or Mid(StrNome, i, 1) = "4" or Mid(StrNome, i, 1) = "5" or Mid(StrNome, i, 1) = "6" or Mid(StrNome, i, 1) = "7" or Mid(StrNome, i, 1) = "8" or Mid(StrNome, i, 1) = "9" or Mid(StrNome, i, 1) = "|" or Mid(StrNome, i, 1) = "\" or Mid(StrNome, i, 1) = "!" or Mid(StrNome, i, 1) = "£" or Mid(StrNome, i, 1) = "$" or Mid(StrNome, i, 1) = "%" or Mid(StrNome, i, 1) = "&" or Mid(StrNome, i, 1) = "/" or Mid(StrNome, i, 1) = "(" or Mid(StrNome, i, 1) = ")" or Mid(StrNome, i, 1) = "=" or Mid(StrNome, i, 1) = "?" or Mid(StrNome, i, 1) = "^" or Mid(StrNome, i, 1) = "[" or Mid(StrNome, i, 1) = "]" or Mid(StrNome, i, 1) = "+" or Mid(StrNome, i, 1) = "*" or Mid(StrNome, i, 1) = "ç" or Mid(StrNome, i, 1) = "@" or Mid(StrNome, i, 1) = "°" or Mid(StrNome, i, 1) = "#" or Mid(StrNome, i, 1) = "§" or Mid(StrNome, i, 1) = "," or Mid(StrNome, i, 1) = ";" or Mid(StrNome, i, 1) = "." or Mid(StrNome, i, 1) = ":" or Mid(StrNome, i, 1) = "-" or Mid(StrNome, i, 1) = "_" or Mid(StrNome, i, 1) = "<" or Mid(StrNome, i, 1) = ">" then
IntValori_errati = IntValori_errati + 1
end if
Next
if IntValori_errati <> 0 then
errore = errore + 1
Alert "Sono stati inseriti dei caratteri non validi"
frm.nome.value = ""
end if
end if
IntValori_errati = 0
'
' GESTIONE DEL COGNOME
'
if StrCognome = "" then
errore = errore + 1
Alert "Il cognome non è stato inserito"
else
StrCognome = Trim(StrCognome)
for i = 1 to Len(StrCognome)
if Mid(StrCognome, i, 1) = "|" or Mid(StrCognome, i, 1) = "\" or Mid(StrCognome, i, 1) = "!" or Mid(StrCognome, i, 1) = "£" or Mid(StrCognome, i, 1) = "$" or Mid(StrCognome, i, 1) = "%" or Mid(StrCognome, i, 1) = "&" or Mid(StrCognome, i, 1) = "/" or Mid(StrCognome, i, 1) = "(" or Mid(StrCognome, i, 1) = ")" or Mid(StrCognome, i, 1) = "=" or Mid(StrCognome, i, 1) = "?" or Mid(StrCognome, i, 1) = "^" or Mid(StrCognome, i, 1) = "[" or Mid(StrCognome, i, 1) = "]" or Mid(StrCognome, i, 1) = "+" or Mid(StrCognome, i, 1) = "*" or Mid(StrCognome, i, 1) = "ç" or Mid(StrCognome, i, 1) = "@" or Mid(StrCognome, i, 1) = "°" or Mid(StrCognome, i, 1) = "#" or Mid(StrCognome, i, 1) = "§" or Mid(StrCognome, i, 1) = "," or Mid(StrCognome, i, 1) = ";" or Mid(StrCognome, i, 1) = "." or Mid(StrCognome, i, 1) = ":" or Mid(StrCognome, i, 1) = "-" or Mid(StrCognome, i, 1) = "_" or Mid(StrCognome, i, 1) = "<" or Mid(StrCognome, i, 1) = ">" then
IntValori_errati = IntValori_errati + 1
end if
Next
if IntValori_errati <> 0 then
errore = errore + 1
Alert "Sono stati inseriti dei caratteri non validi"
frm.cognome.value = ""
end if
end if
'
' GESTIONE DELL'AZIENDA
'

IntValori_errati = 0

if StrAzienda = "" then
StrAzienda = ""

else
StrAzienda = Trim(StrAzienda)
end if

''
'''GESTIONE DEL SESSO
''
dim sex
sex=0
for i=0 to frm.sesso.Options.Length - 1
Select case frm.sesso.Options.selectedIndex
case 0
sex=1
errore=errore +1
case 1
StrSesso="M"
case 2
StrSesso="F"
end select
next
if sex<>0 then
Alert "selezionare il sesso"
end if

''''GESTIONE DEL NUMERO DEL TELEFONO

IntValori_errati = 0

if StrTelefono = "" then
StrTelefono= "0"
else
if Isnumeric(StrTelefono) <> true then
IntValori_errati = IntValori_errati + 1
end if
end if
if IntValori_errati <> 0 then
Alert "Il Telefono inserito non è corretto"
frm.telefono.value = ""
end if

'
' Gestione dell'indirizzo
'
IntValori_errati = 0

if StrInd = "" then
errore = errore + 1
Alert "L'indirizzo non è stato inserito"
else
StrInd = Trim(StrInd)
for i = 1 to Len(StrInd)
if Mid(StrInd, i, 1) = "|" or Mid(StrInd, i, 1) = "\" or Mid(StrInd, i, 1) = "!" or Mid(StrInd, i, 1) = "£" or Mid(StrInd, i, 1) = "$" or Mid(StrInd, i, 1) = "%" or Mid(StrInd, i, 1) = "&" or Mid(StrInd, i, 1) = "/" or Mid(StrInd, i, 1) = "(" or Mid(StrInd, i, 1) = ")" or Mid(StrInd, i, 1) = "=" or Mid(StrInd, i, 1) = "?" or Mid(StrInd, i, 1) = "^" or Mid(StrInd, i, 1) = "[" or Mid(StrInd, i, 1) = "]" or Mid(StrInd, i, 1) = "+" or Mid(StrInd, i, 1) = "*" or Mid(StrInd, i, 1) = "ç" or Mid(StrInd, i, 1) = "@" or Mid(StrInd, i, 1) = "°" or Mid(StrInd, i, 1) = "#" or Mid(StrInd, i, 1) = "§" or Mid(StrInd, i, 1) = ";" or Mid(StrInd, i, 1) = ":" or Mid(StrInd, i, 1) = "-" or Mid(StrInd, i, 1) = "_" or Mid(StrInd, i, 1) = "<" or Mid(StrInd, i, 1) = ">" then
IntValori_errati = IntValori_errati + 1
end if
Next
if IntValori_errati <> 0 then
errore = errore + 1
Alert "Sono stati inseriti dei caratteri non validi"
frm.indirizzo.value = ""
end if
end if
'
' Gestione della professione
'
IntValori_errati = 0

if StrProfessione = "" then
StrProfessione=""

else
StrProfessione = Trim(StrProfessione)
for i = 1 to Len(StrProfessione)
if Mid(StrProfessione, i, 1) = "|" or Mid(StrProfessione, i, 1) = "\" or Mid(StrProfessione, i, 1) = "!" or Mid(StrProfessione, i, 1) = "£" or Mid(StrProfessione, i, 1) = "$" or Mid(StrProfessione, i, 1) = "%" or Mid(StrProfessione, i, 1) = "&" or Mid(StrProfessione, i, 1) = "/" or Mid(StrProfessione, i, 1) = "(" or Mid(StrProfessione, i, 1) = ")" or Mid(StrProfessione, i, 1) = "=" or Mid(StrProfessione, i, 1) = "?" or Mid(StrProfessione, i, 1) = "^" or Mid(StrProfessione, i, 1) = "[" or Mid(StrProfessione, i, 1) = "]" or Mid(StrProfessione, i, 1) = "+" or Mid(StrProfessione, i, 1) = "*" or Mid(StrProfessione, i, 1) = "ç" or Mid(StrProfessione, i, 1) = "@" or Mid(StrProfessione, i, 1) = "°" or Mid(StrProfessione, i, 1) = "#" or Mid(StrProfessione, i, 1) = "§" or Mid(StrProfessione, i, 1) = ";" or Mid(StrProfessione, i, 1) = ":" or Mid(StrProfessione, i, 1) = "-" or Mid(StrProfessione, i, 1) = "_" or Mid(StrProfessione, i, 1) = "<" or Mid(StrProfessione, i, 1) = ">" then
IntValori_errati = IntValori_errati + 1
end if
Next
if IntValori_errati <> 0 then
errore = errore + 1
Alert "Sono stati inseriti dei caratteri non validi"
frm.professione.value = ""
end if
end if

'
''Gestione del sito
'
if StrSito = "" then
StrSito = ""
else
if Mid(StrSito, 1, 1) <> "w" or Mid(StrSito, 2, 1) <> "w" or Mid(StrSito, 3, 1) <> "w" or Mid(StrSito, 4, 1) <> "." then
Alert "Sono stati immessi caratteri non validi"
errore = errore + 1
frm.sito.value=""
else
StrSito = Trim(StrSito)
end if
end if

'
' Gestione della città
'
IntValori_errati = 0
if StrCitta = "" then
errore = errore + 1
Alert "La città non è stata inserita"
else
StrCitta = Trim(StrCitta)
for i = 1 to Len(StrCitta)
if Mid(StrCitta, i, 1) = "|" or Mid(StrCitta, i, 1) = "\" or Mid(StrCitta, i, 1) = "!" or Mid(StrCitta, i, 1) = "£" or Mid(StrCitta, i, 1) = "$" or Mid(StrCitta, i, 1) = "%" or Mid(StrCitta, i, 1) = "&" or Mid(StrCitta, i, 1) = "/" or Mid(StrCitta, i, 1) = "(" or Mid(StrCitta, i, 1) = ")" or Mid(StrCitta, i, 1) = "=" or Mid(StrCitta, i, 1) = "?" or Mid(StrCitta, i, 1) = "^" or Mid(StrCitta, i, 1) = "[" or Mid(StrCitta, i, 1) = "]" or Mid(StrCitta, i, 1) = "+" or Mid(StrCitta, i, 1) = "*" or Mid(StrCitta, i, 1) = "ç" or Mid(StrCitta, i, 1) = "@" or Mid(StrCitta, i, 1) = "°" or Mid(StrCitta, i, 1) = "#" or Mid(StrCitta, i, 1) = "§" or Mid(StrCitta, i, 1) = "," or Mid(StrCitta, i, 1) = ";" or Mid(StrCitta, i, 1) = ":" or Mid(StrCitta, i, 1) = "-" or Mid(StrCitta, i, 1) = "_" or Mid(StrCitta, i, 1) = "<" or Mid(StrCitta, i, 1) = ">" then
IntValori_errati = IntValori_errati + 1
end if
Next
if IntValori_errati <> 0 then
errore = errore + 1
Alert "Sono stati inseriti dei caratteri non validi"
frm.citta.value = ""
end if
end if
' ' GESTIONE INDIRIZZO E-MAIL

IntValori_errati = 0
Dim conta_valori_at
Dim conta_valori_punto

conta_valori_at = 0

if StrEmail = "" then
errore = errore + 1
Alert "L' E-mail non è stata inserita"
else
if Mid(StrEmail, 1, 1) = "@" then
IntValori_errati = IntValori_errati + 1
else
for i = 1 to Len(StrEmail)
if Mid(StrEmail, i, 1) = "|" or Mid(StrEmail, i, 1) = "€" or Mid(StrEmail, i, 1) = "'\'" or Mid(StrEmail, i, 1) = "!" or Mid(StrEmail, i, 1) = "£" or Mid(StrEmail, i, 1) = "$" or Mid(StrEmail, i, 1) = "%" or Mid(StrEmail, i, 1) = "&" or Mid(StrEmail, i, 1) = "/" or Mid(StrEmail, i, 1) = "(" or Mid(StrEmail, i, 1) = ")" or Mid(StrEmail, i, 1) = "=" or Mid(StrEmail, i, 1) = "?" or Mid(StrEmail, i, 1) = "^" or Mid(StrEmail, i, 1) = "[" or Mid(StrEmail, i, 1) = "]" or Mid(StrEmail, i, 1) = "+" or Mid(StrEmail, i, 1) = "*" or Mid(StrEmail, i, 1) = "ç" or Mid(StrEmail, i, 1) = "°" or Mid(StrEmail, i, 1) = "#" or Mid(StrEmail, i, 1) = "§" or Mid(StrEmail, i, 1) = "," or Mid(StrEmail, i, 1) = ";" or Mid(StrEmail, i, 1) = ":" or Mid(StrEmail, i, 1) = "<" or Mid(StrEmail, i, 1) = ">" or Mid(StrEmail, i, 1) = "'" then
IntValori_errati = IntValori_errati + 1
end if
if Mid(StrEmail, i, 1) = "@" then
conta_valori_at = conta_valori_at + 1
end if
Next
end if
if conta_valori_at <> 1 then
IntValori_errati = IntValori_errati + 1
end if
if IntValori_errati <> 0 then
errore = errore + 1
Alert "Sono stati inseriti caratteri non validi"
frm.email.value = ""
end if
end if

' GESTIONE USER

if StrUser = "" then
errore = errore + 1
Alert "User non inserita"
end if

' GESTIONE PASSWORD

if StrPassword = "" then
errore = errore + 1
Alert "Password non inserita"
end if
' GESTIONE CONFERMA PASSWORD

if StrConfpassword = "" then
errore = errore + 1
Alert "Conferma password non inserita"
else
if StrConfpassword<>StrPassword then
errore = errore + 1
Alert "confermare la password correttamente"
frm.confpassword.value=""
end if
end if

if errore = 0 then
if confirm ("Sei sicuro dei dati?") then
Location.href="Confregistrazione.asp?nome="&StrNom e&"&cognome="&StrCognome&"&indirizzo="&StrInd&"&ci tta="&StrCitta&"&user="&StrUser&"&password="&StrPa ssword&"&confpassword="&StrConfpassword&"&azienda= "&StrAzienda&"&sesso="&StrSesso&"&sito="&StrSito&" &email="&StrEmail&"&telefono="&StrTelefono&"&profe ssione="&StrProfessione
else
Alert "Ok non eseguire"
end if
else
Exit sub
end if
end sub

</script>

**webdesigner_qua** · 19-05-2005, 11:32

<form name= Form1>
<div align="center">
<table width="422" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="211" height="151"> <div align="center"><font color="#0000FF"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">[img]logo_nuovo.png[/img]</font></font></div></td>
<td width="211" bgcolor="#000000"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FF0000">
<div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Registrazione</font></div></td>
</tr>
<tr>
<td colspan="2"><div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif">INFORMATIVA
PER IL TRATTAMENTO DI DATI PERSONALI AI SENSI DELL’ART. 10 LEGGE
674/96 </font></div></td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
<tr>
<td height="19" colspan="2"> <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">In
conformità con la legge 675/96 sulla tutela dei dati personali,
i dati (obbligatori quelli contrassegnati con *) che vorrà comunicarci
sono raccolti allo scopo di accedere e redigere la pubblicazione su
ThelightMaker.it; potranno essere comunicati a quei soggetti cui disposizione
di legge danno facoltà di accesso, alle pubbliche autorità
competenti e ad operatori del settore in questione. Lei ha la possibilità
di accedere liberamente ai suoi dati per aggiornarli, modificarli o
cancellarli scrivendo al responsabile dell’archivio della società:</font></div></td>
</tr>
<tr>
<td colspan="2"> <div align="center"><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">S
F di FITTIPALDI Stelvio

Str. S. Anastasio, 72

00042 – Anzio (RM) </font>

</div></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<table border="0" width="37%">
<tr>
<td width="17%"><font color="#0000FF">NOME</font></td>
<td width="41%"><span style="background-color: #FFFF00"><font color="#0000FF">
<input type= text name="nome" size="28">
</font></span></td>
<td width="42%"><font color="#0000FF">(*)</font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">COGNOME</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= text name="cognome" size="28">
(*) </font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">AZIENDA</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= text name="azienda" size="28" maxlength=2 >
</font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">SESSO</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<select size="1" name="sesso" style="font-weight: bold; font-size:">
<option>
<option>M
<option>F
</select>
(*) </font> <tr>
<td width="17%"><font color="#0000FF">INDIRIZZO</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= text name="indirizzo" size="28">
(*) </font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">PROFESSIONE</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= text name="professione" size="28">
</font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">SITO INTERNET</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= text name="sito" size="28">
</font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">CITTA'</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= text name="citta" size="28">
(*) </font></td>
</tr>
<tr>
<tr>
<td width="17%"><font color="#0000FF">TELEFONO</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= text name="telefono" size="28">
</font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">E-MAIL</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= text name="email" size="28">
(*) </font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">USERNAME</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= text name="user" size="28">
(*) </font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">PASSWORD</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= password name="password" size="28">
(*) </font></td>
</tr>
<tr>
<td width="17%"><font color="#0000FF">CONFERMA PASSWORD</font></td>
<td width="84%" colspan="2"><font color="#0000FF">
<input type= password name="confpassword" size="28">
(*) </font></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="19" colspan="2"> <div align="center"><font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Compilando
questo modulo si autorizza il trattamento dei propri dati personali.
</font></div></td>
</tr>
<tr>
<td></td>
<td></td>
</tr>
<tr>
<td><div align="center"><font face="Comic Sans MS" color="#0000FF">
<input type="BUTTON" name=conferma value= ACCETTA style="color: #0000FF; font-family: Comic Sans MS; font-size: 1 em; font-weight: bold">
</font></div></td>
<td><div align="center">
<input type="SUBMIT" name="HOME" value=Reimposta style="color: #0000FF; font-family: Comic Sans MS; font-size: 1 em; font-weight: bold">
</div></td>
</tr>
<tr>
<td><font color="#0000FF"> (*) CAMPO OBBLIGATORIO </font></td>
<td></td>
</tr>

è questo...cmq ripeto che in locale funzione...

**diegoctn** · 19-05-2005, 11:40

Ok. Questa è a posto. Il problema è quindi la pagina di conferma. Sicuro di averla nell'host? Richiamala in maniera secca.

**webdesigner_qua** · 19-05-2005, 11:42

cosa intendi per richiamala in maniera secca?
ti devo postare il codice anche di quella?

Discussione: nuovo utente

Strumenti discussione

Ricerca discussione

Visualizza

nuovo utente

grazie x la risp

quale?

ecco il codice

seconda parte

???

Permessi di invio