Salve ragazzi ho un form in cui viene inserito tra i vari dati il numero della carta di credito.

I dati vengono sia inviati via E-Mail che inseriti in un Database.

Ora io vorrei fare in modo che dei dei nuleri della carta di credito via mail fossero inviati solo le ultime 4 cifre mentre nel database siano inseriti tutti i numeri.

Ho trovato l'istruzione right() ma provando a collocarla all'interno dello script per inviare la mail mi da errore.
Ecco lo script:
codice:
<% 
Set Config = Server.CreateObject("CDO.Configuration") 
Set Fields = Config.Fields 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "cpe@plannersgrp.net" 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456" 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.eurnetcity.net" 
Fields.Update 
Set MiaMail = CreateObject("CDO.Message")
Set MiaMail.Configuration = Config 
MiaMail.From = "cpe@plannersgrp.net"
MiaMail.To = "cpe@plannersgrp.net"
MiaMail.Bcc = request("Email")

MiaMail.Subject = "Informations for CPE 2007"
MiaFromName = request.form("Nome")
MiaFromAddress =  request.form("mail")

MiaFamilyName = request.form("familyName")
MiaName = request("name")
MiaAddress = request("address")
MiaZipCode = request("ZipCode")
MiaCity = request("City")
MiaCountry =request("Country")
MiaPhone =request("Phone")
MiaFax =request("Fax")
MiaEMail =request("EMail")
MiaFamilyName2 =request("FamilyName2")
MiaFamilyName3 =request("FamilyName3")
MiaName2 =request("Name2")
MiaName3 =request("Name3")
MiaGiornoArrivo =request("giornoArrivo")
MiaGiornoPartenza =request("giornoPartenza")
MiaSingola =request("singola")
MiaDoppia =request("doppia")
MiaCostoTotale =request("costoTotale")
MiaAmericanExpress =request("AmericanExpress")
MiaDiners =request("Diners")
MiaVisa =request("Visa")
MiaEurocard =request("Eurocard")
MiaNameCard =request("NameCard")
MiaNumberCard =request("NumberCard")
MiaDataScadenza =request("dataScadenza")
MiaCodiceSicurezza =request("CodiceSicurezza")

MiaMail.TextBody = "Family Name:" & Trim(Request.Form("familyName")) & vbcrlf &  "Name: " & Trim(Request.Form("name")) & vbcrlf & "Address: " & Trim(Request.Form("address")) & vbcrlf & "Zip Code: " & Trim(Request.Form("ZipCode")) & vbcrlf & "City: " & Trim(Request.Form("city")) & vbcrlf & "Country: " & Trim(Request.Form("Country")) & vbcrlf & "Phone: " & Trim(Request.Form("Phone")) & vbcrlf & "Fax: " & Trim(Request.Form("Fax")) & vbcrlf & "E-Mail: " & Trim(Request.Form("EMail")) & vbcrlf & "Family Name: " & Trim(Request.Form("FamilyName2")) & vbcrlf & "Name: " & Trim(Request.Form("Name2")) & vbcrlf & "FamilyName3: " & Trim(Request.Form("FamilyName3")) & vbcrlf & "Name: " & Trim(Request.Form("Name3")) & vbcrlf & "Check In: " & Trim(Request.Form("giornoArrivo")) & vbcrlf & "Check Out: " & Trim(Request.Form("giornoPartenza")) & vbcrlf & "Singola: " & Trim(Request.Form("Singola")) & vbcrlf & "Doppia: " & Trim(Request.Form("doppia")) & vbcrlf & "Price: " & Trim(Request.Form("costoTotale")) & vbcrlf & "American Express: " & Trim(Request.Form("AmericanExpress")) & vbcrlf & "Diners: " & Trim(Request.Form("Diners")) & vbcrlf & "Visa: " & Trim(Request.Form("Visa")) & vbcrlf & "Eurocard: " & Trim(Request.Form("Eurocard")) & vbcrlf & "Name Card: " & Trim(Request.Form("NameCard")) & vbcrlf & "Card Number: " & Trim(Request.Form Right("numberCard")4)  & vbcrlf & "Exipiration Date: " & Trim(Request.Form("dataScadenza"))
Quella in rosso è la parte dove ho provato a inserire la funzione right() ma mi dice che c'è un'errore di sintassi.

Potete cortesemente aiutarmi.