Problemi con IF (della serie aiuto mi sono perso)

**miotz** · 21-07-2005, 11:22

Ragazzi questo codice mi da errori... non capisco perche' pero'

codice:

<html>

<head>
<title></title>
</head>

<body bgcolor="#ffffFF">
<%

Dim con, nome, nominat, p1, p2, rtip 

nominat = Request.Form("new_nominat")
nome = Request.Form("newuser")
p1 = Request.Form("pwd1")
p2 = Request.Form("pwd2")
rtip = Request.Form("tipo")


'Apre la connessione al database
Set objConn = Server.CreateObject("ADODB.Connection")
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\public\tra.mdb")
objConn.Open ConnectionString

'Controlla se il nominativo esiste gia
Set askusr = Server.CreateObject("ADODB.Recordset")
askusr.Open "SELECT * FROM users where nominativo = '" & nominat & "' ", objConn, 1, 2

If askusr("nominativo") <> "" Then

	Response.Write "
<center>"
	Response.Write "

<font color='#000000' face='Tahoma' size='2'>Errore - Nominativo già presente.</font></p>" & vbCrLf
	Response.Write "

<font face='Tahoma' color='#FFFF00' size='2'>Torna indietro</font></p></center>" & vbCrLf

Else

'Controlla se il userid esiste gia
Set askusid = Server.CreateObject("ADODB.Recordset")
askusid.Open "SELECT * FROM users where utente = '" & nome & "' ", objConn, 1, 2

If askusid("utente") <> "" Then
	Response.Write "
<center>"
	Response.Write "

<font color='#000000' face='Tahoma' size='2'>Errore - Userid già presente.</font></p>" & vbCrLf
	Response.Write "

<font face='Tahoma' color='#FFFF00' size='2'>Torna indietro</font></p></center>" & vbCrLf

Else


'Controlla autenticazione
If p1 <> p2 Then

	Response.Write "
<center>"
	Response.Write "

<font color='#000000' face='Tahoma' size='2'>Errore - Le password inserite non coincidono.</font></p>" & vbCrLf
	Response.Write "

<font face='Tahoma' color='#FFFF00' size='2'>Torna indietro</font></p></center>" & vbCrLf

	 Else


'Creazione oggetti recordset
Set con = Server.CreateObject("ADODB.Recordset")
con.Open "SELECT * FROM users", objConn, 1, 2

	con.AddNew

con("nominativo") = nominat
con("utente") = nome
con("password") = p1


If rtip = "Amministratore" Then

con("tipo") = "plus"

Else

con("tipo") = "norm"

End If


con.Update

End If

'Response.Redirect ("done.asp")



con.Close
Set con = Nothing

askusr.Close
Set askusr = Nothing

askusid.Close
Set askusid = Nothing
	
%>



</body>

</html>

**maximum** · 21-07-2005, 11:26

Qual è l'errore che ti viene restituito?

**miotz** · 21-07-2005, 11:33

allora, se il nominativo esiste gia' mi dice:

---------------------------------------
Errore - Nominativo già presente.

Torna indietro
error '80020009'

/ticket/upguser.asp, line 40
---------------------------------------

se metto un nominativo diverso e uno userid uguale a uno che c'e' gia' mi dice:

---------------------------------------
error '80020009'

/ticket/upguser.asp, line 28
---------------------------------------

se infine entrambi nominativo e userid non esistono gia' nel mio db mi restituisce ancora l'errore

---------------------------------------
error '80020009'

/ticket/upguser.asp, line 28
---------------------------------------

**maximum** · 21-07-2005, 11:50

Le linee 28 e 40, dello script di sopra, quali sono?

**miotz** · 21-07-2005, 11:55

la 28 dovrebbe essere

If askusr("nominativo") <> "" Then

la 40

If askusid("utente") <> "" Then

**maximum** · 21-07-2005, 11:59

Prova a scriverle così:

codice:

If not IsNull(askusr("nominativo")) Then 

If not IsNull(askusid("utente")) Then

**miotz** · 21-07-2005, 12:08

mi ritorna questo adesso:

------------------------------------------------------
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/ticket/upguser.asp, line 95
-------------------------------------------------------

ho aggiunto un end if prima della %>

codice:

 

Set askusid = Nothing
End If	
%>

ma mi dice ancora

------------------------------------------------------
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/ticket/upguser.asp, line 97
-------------------------------------------------------

**maximum** · 21-07-2005, 12:10

Controlla che tutti gli IF siano aperti e chiusi.
Molto probabilmente qualcuno non lo è.

**miotz** · 21-07-2005, 12:18

hai ragione, adesso ho chiuso gli if e non mi da piu' errori.
pero' la faccenda non funziona: cosi' com'e' adesso mi dice "errore, nominativo gia' presente" qualsiasi sia il nominativo che inserisco
(maximum scusa se ti annoio eh... sei veramente gentile)

**maximum** · 21-07-2005, 12:21

Errore mio, ripristina con la sintassi originale.

Discussione: Problemi con IF (della serie aiuto mi sono perso)

Strumenti discussione

Ricerca discussione

Visualizza

Problemi con IF (della serie aiuto mi sono perso)

Permessi di invio