Errore di run-time

**fruttosio79** · 16-09-2005, 22:14

Guardate questo codice:

codice:

<%
FUNCTION fixQuotes( theString )
	fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION

email = TRIM( Request( "email" ) )

' controlla se esiste già un indirizzo mail uguale
FUNCTION alreadymail( email )
	sqlString = "SELECT newsletter_email FROM newsletter " &_
    	"WHERE newsletter_email ='" & fixQuotes( email ) & "'"
  		Set Con = Server.CreateObject( "ADODB.Connection" )
		Con.Open "dsn"  
  		SET RS = Con.Execute( sqlString )
  		IF RS.EOF THEN
  	  		alreadymail = FALSE
  		ELSE
  	  		alreadymail = TRUE
  		END IF
  		RS.Close
  		Con.Close
		Set Con = Nothing
END FUNCTION

' verifica di una mail già presente
IF alreadymail( email ) THEN
	Response.Write "<center>"
	Response.Write "Indirizzo e-mail già presente nelle liste"
	Response.Write "<form action='default.asp'>"
	Response.Write "<input type='submit' value='torna alla home page'>" 
	Response.Write "</form>"
	Response.Write "</center>"
ELSE
	' verifica della corretta digitazione della mail
	FUNCTION invalidEmail( email )
	  Dim Reg
	  Set Reg = New RegExp 	'inizializzo la regexp
	  Reg.Global = True
	  Reg.Ignorecase = True
	  Reg.pattern = "^([a-z|\d][a-z|\d|.]*)?[a-z|\d]\@[a-z|\d][a-z|\d|.]*\.[a-z|\d]+$"
	
	  invalidEmail = Not(Reg.Test(email))
	
	  set Reg = Nothing
	END FUNCTION

	IF invalidEmail( email ) THEN
		Set Con = Server.CreateObject( "ADODB.Connection" )
		Con.Open "dsn"
		sqlString = "INSERT INTO newsletter( newsletter_email, newsletter_dataregistrazione ) " & "VALUES ('" & fixQuotes( email ) & "', now())"
		Con.Execute sqlString
	%>
	<html>
	<head>
	<title>Dati registrati</title>
	</head>
	<body>
	I tuoi dati sono stati inseriti.
	

	Torna alla home page
	[/b]
	</body>
	</html>
	<%
	ELSE
		Response.Write "Errore nella digitazione dell' e-mail"	
	END IF
	
	Con.Close
	Set Con = Nothing	
END IF
%>

In locale mi funziona mentre online mi esce errore:

Errore di run-time di Microsoft VBScript error '800a01a8'
Necessario oggetto: ''

e viene indiucato in questa posizione:
Con.Close

Come è possibile che esca errore?

Ciaooooo

**Alethesnake** · 17-09-2005, 00:05

perché invalidEmail restituisce false.
così ti salta l'if e la creazione/apertura della connessione

**teorema55** · 17-09-2005, 08:12

Dopo avere trasformato

codice:

IF invalidEmail( email ) THEN

in

codice:

IF NOT invalidEmail( email ) THEN

porta anche la chiusura/distruzione della Con ALL'INTERNO della condizione (prima di ELSE).

Domanda: perchè non creare la connessione una volta per tutte all'inizio della pagina e distruggerla alla fine?

**fruttosio79** · 17-09-2005, 13:23

Ora tutto ok, grazie a tutti dei consigli:

codice:

<%
'apre connessione con db
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "dsn"  
	
FUNCTION fixQuotes( theString )
	fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION

email = TRIM( Request( "email" ) )

' controlla se esiste già un indirizzo mail uguale
FUNCTION alreadymail( email )
	sqlString = "SELECT newsletter_email FROM newsletter " &_
    "WHERE newsletter_email ='" & fixQuotes( email ) & "'"
  	SET RS = Con.Execute( sqlString )
  	IF RS.EOF THEN
  		alreadymail = FALSE
  	ELSE
  		alreadymail = TRUE
  	END IF
  	RS.Close
END FUNCTION

IF alreadymail( email ) THEN
	Response.Write "<center>"
	Response.Write "Indirizzo e-mail già presente nelle liste"
	Response.Write "<form action='default.asp'>"
	Response.Write "<input type='submit' value='torna alla home page'>" 
	Response.Write "</form>"
	Response.Write "</center>"
ELSE
	' verifica della corretta digitazione della mail
	FUNCTION invalidEmail( email )
		Dim Reg
		Set Reg = New RegExp 	'inizializzo la regexp
		Reg.Global = True
		Reg.Ignorecase = True
		Reg.pattern = "^([a-z|\d][a-z|\d|.]*)?[a-z|\d]\@[a-z|\d][a-z|\d|.]*\.[a-z|\d]+$"
	
		invalidEmail = Reg.Test(email)
	
		set Reg = Nothing
	END FUNCTION

	IF invalidEmail( email ) THEN
		sqlString = "INSERT INTO newsletter( newsletter_email, newsletter_dataregistrazione ) " & "VALUES ('" & fixQuotes( email ) & "', now())"
		Con.Execute sqlString
	%>
	<html>
	<head>
	<title>Dati registrati</title>
	</head>
	<body>
	I tuoi dati sono stati inseriti.
	

	Torna alla home page
	[/b]
	</body>
	</html>
	<%
	ELSE
		Response.Write "Errore nella digitazione dell' e-mail"	
	END IF
END IF

'Chiude connessione db
Con.Close
Set Con = Nothing	
%>

Discussione: Errore di run-time

Strumenti discussione

Ricerca discussione

Visualizza

Errore di run-time

Permessi di invio