Type mismatch ?

[zeweb]

Cosa significa quest'errore in questa parte di codice ? Premetto che raccolgo i dati di un form !

Type mismatch

/shop/aggiungi_utente.asp, line 145

If ConfermaMail Then
			InvioMail MailServer, MailAdmin, EMail, SubjectConfermaIscrizione, Replace(Replace(Replace(BodyConfermaIscrizione, "[link]", UrlEcom & "conferma.asp?"&UserIDEncode(UserID & "{~}" & EMail)), "[firma]", FirmaEMail, 1, -1, 1), "
", vbCrLf, 1, -1, 1)
End If

[99eros9]

che hai un tipo di dati non corrispondenze tra quelli che hai riportato nel codice

[steweb]

if "condizione" then
esecuzione
end if


la tua condizione è :

ConfermaMail

forse

ConfermaMail=""
o
ConfermaMail=0
manca la condizione per cui si debba verificare il ciclo!

Ciao Steweb






www.steweb.net

[deivnet]

Che tra i vari parametri che passi alla tua funzione InvioMail ce n'è uno che non corrisponde al tipo richiesto.

Controlla che i parametri che passi siano assegnati alle giuste variabili

[zeweb]

posto il codice nel caso ci fosse una buon'anima che riesca ad aiutarmi !

<%
	'VERSIONE FILE 1.4.0

	Option Explicit
%>






<%
'---Dichiarazione variabili
	Dim MailBody, Nome, Cognome, Via, Civico, Cap, Citta, Provincia, Stato, Telefono, CodFiscale, PIva, EMail, UserID, Password, Password2, Referral, IDRef, Note, Errore, Confermato, SQL, RS, PagatoReferral, Rivenditore, InvioMail

'---Recupero i valori della Form
	Nome = Trim(Replace(Request.Form("Nome"), "'", "''"))
	Cognome = Trim(Replace(Request.Form("Cognome"), "'", "''"))
	Via = Trim(Replace(Request.Form("Via"), "'", "''"))
	Civico = Trim(Replace(Request.Form("Civico"), "'", "''"))
	Cap = Trim(Replace(Request.Form("Cap"), "'", "''"))
	Citta = Trim(Replace(Request.Form("Citta"), "'", "''"))
	Provincia = Trim(Replace(Request.Form("Provincia"), "'", "''"))
	Stato = Trim(Replace(Request.Form("Stato"), "'", "''"))
	Telefono = Trim(Replace(Request.Form("Telefono"), "'", "''"))
	CodFiscale = Trim(Replace(Request.Form("CodFiscale"), "'", "''"))
	PIva = Trim(Replace(Request.Form("PIva"), "'", "''"))
	EMail = Trim(Replace(Request.Form("EMail"), "'", "''"))
	UserID = Trim(Replace(Request.Form("UserID"), "'", "''"))
	Password = Replace(Request.Form("Password"), "'", "''")
	Password2 = Replace(Request.Form("Password2"), "'", "''")
	Referral = Trim(Replace(Request.Form("Referral"), "'", "''"))
'---Se viene inserito un Referral recupero l'ID relativo
	If Referral <> "" Then
		SQL = " SELECT ID FROM Utenti WHERE UserID = '" & Referral & "' "
		Set RS = Conn.Execute(SQL)
		If Not Rs.EOF Then
			IDRef = RS("ID")
		Else
			IDRef = 0
		End If
	Else
		IDRef = 0
	End If
	Rivenditore = Request.Form("Rivenditore")
	If LCase(Rivenditore) <> "true" Then
		Rivenditore = "False"
	End If
	Note = Trim(Replace(Request.Form("Note"), "'", "''"))

'---Controllo che non ci siano altri utenti con lo stesso UserID o con la stessa EMail
	SQL = " SELECT UserId, Mail FROM Utenti WHERE UserID = '" & UserId & "' OR Mail = '" & EMail & "' "
	Set RS = Conn.Execute(SQL)
	If Not RS.EOF Then
		If UserID = RS("UserID") Then
			Errore = Errore & "101,"
		End If
		If Email = RS("Mail") Then
			Errore = Errore & "102,"
		End If
	End If

'---Effettuo controlli e genero gli errori
	If UserID = "" Then 
		Errore = Errore & "103,"
	End If
	If Password <> Password2 Then
		Errore = Errore & "104,"
	Else
		If Password = "" Then
			Errore = Errore & "105,"
		End If
	End If
	If EMail = "" Then
		Errore = Errore & "109,"
	End If
	If Nome = "" Then
		Errore = Errore & "107,"
	End If
	If Cognome = "" Then
		Errore = Errore & "108,"
	End If
	If (Via = "") OR (Civico = "") OR (Len(Cap) < 1) OR (Citta = "") OR (Provincia = "") OR (Stato = "") Then
		Errore = Errore & "110,"
	End If
	If Telefono = "" Then
		Errore = Errore & "111,"
	End If
	If (CodFiscale = "") AND (PIva = "") Then
		Errore = Errore & "112,"
	End If
	If (Len(CodFiscale) < 16) AND (CodFiscale <> "") AND (CodFiscale <> "-") Then
		Errore = Errore & "113,"
	End If
	If CodFiscale = "" Then
		CodFiscale = "-"
	End If
	If PIva = "" Then
		PIva = "-"
	End If
	If NOT(ConfermaMail) Then
		Confermato = "True"
	Else
Confermato = "False"
End If

'---Invio la mail di conferma iscrizione
If Errore = "" Then
If ConfermaMail Then
PagatoReferral = "False"
Else
PagatoReferral = "True"
End If

SQL = " Insert INTO Utenti (Nome, Cognome, Via, Civico, CAP, Citta, Provincia, Stato, Telefono, CodiceFiscale, PartitaIva, Mail, UserID, [Password], Referral, PuntiSconto, Data, Confermato, PagatoReferral) VALUES ('"& Nome &"', '"& Cognome &"', '"& Via &"', '"& Civico &"', '"& Cap &"', '"& Citta &"', '"& Provincia &"', '"& Stato &"', '"& Telefono &"', '"& CodFiscale &"', '"& PIva &"', '"& EMail &"', '"& UserID &"', '"& Password &"', "& IDRef &", " & CStr(ArrotondamentoPrezzo(PuntiScontoIniziali * 100)) & ", '"& DataToStr(Now()) &"', "& confermato &", "& PagatoReferral &" )"
Set RS = Conn.Execute(SQL)

If (IDRef <> 0) AND (NOT ConfermaMail) Then
SQL = " UPDATE Utenti SET PuntiSconto = PuntiSconto + " & CStr(ArrotondamentoPrezzo(PuntiScontoIniziali * 100)) & " WHERE ID = " & IDRef
Set RS = Conn.Execute(SQL)
End If

If LCase(Rivenditore) = "true" Then
MailBody = BodyRichiestaRivenditore
MailBody = Replace(MailBody, "[UserID]", UserID, 1, -1, 1)
MailBody = Replace(MailBody, "[firma]", FirmaEMail, 1, -1, 1)
MailBody = Replace(MailBody, "[nome]", Nome, 1, -1, 1)
MailBody = Replace(MailBody, "[cognome]", Cognome, 1, -1, 1)
MailBody = Replace(MailBody, "[indirizzo]", Via, 1, -1, 1)
MailBody = Replace(MailBody, "[civico]", Civico, 1, -1, 1)
MailBody = Replace(MailBody, "[cap]", Cap, 1, -1, 1)
MailBody = Replace(MailBody, "[citta]", Citta, 1, -1, 1)
MailBody = Replace(MailBody, "[provincia]", Provincia, 1, -1, 1)
MailBody = Replace(MailBody, "[stato]", Stato, 1, -1, 1)
MailBody = Replace(MailBody, "[telefono]", Telefono, 1, -1, 1)
MailBody = Replace(MailBody, "[codfiscale]", CodFiscale, 1, -1, 1)
MailBody = Replace(MailBody, "[piva]", PIva, 1, -1, 1)
MailBody = Replace(MailBody, "[mail]", EMail, 1, -1, 1)
MailBody = Replace(MailBody, "[note]", Note, 1, -1, 1)
MailBody = Replace(MailBody,"
", VbCrLf, 1, -1, 1)
InvioMail MailServer, EMail, MailAdmin, SubjectRichiestaRivenditore, MailBody
End If

If ConfermaMail Then
InvioMail MailServer, MailAdmin, EMail, SubjectConfermaIscrizione, Replace(Replace(Replace(BodyConfermaIscrizione, "[link]", UrlEcom & "conferma.asp?"&UserIDEncode(UserID & "{~}" & EMail)), "[firma]", FirmaEMail, 1, -1, 1), "
", vbCrLf, 1, -1, 1)
End If
Else
Response.Redirect "errore.asp?cod=" & Mid(Errore, 1, Len(Errore)-1)
End If
%>

[deivnet]

Più che il codice dello script dovresti postare il codice della funzione "InvioMail"

[zeweb]

a sapere quale'è ? e in quale file è contenuta....

[deivnet]

Prova in inc_libreria.asp

[zeweb]

dovrebbe essere questa !

'---Encode e decode UserID per mail di conferma
    Function UserIDEncode(UserID)
        Dim SetCaratteri, Lunghezza, I, Char, NewString, NewString2, LenUserID
        SetCaratteri = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"
        Lunghezza = Round(Len(UserID) / 2) * 2
        LenUserID = Hex(Instr(UserID, "{~}") - 1)
        UserID = UCase(Replace(UserID, "{~}", ""))
        For I = 1 To Lunghezza
            Char = Mid(UserID, I, 1)
            If InStr(SetCaratteri, Char) = 0 Then
                Char = "_"
            End If
            NewString = NewString & Char
        Next
        For I = 1 To Lunghezza Step 2
            NewString2 = NewString2 & Mid(NewString, I + 1, 1) & Mid(NewString, I, 1)
        Next
        UserIDEncode= "A" & Mid(LenUserID, 1, 1) & StrReverse(NewString2) & "A"
    End Function

[deivnet]

No ... non ci siamo ancora

La funzione si chiama "InvioMail" fai una ricerca per vedere se la trovi in uno di questi file

../_private/inc_variabili.asp
../_private/inc_parole.asp
include/inc_db.asp
include/inc_libreria.asp
include/inc_cookie.asp