Ciao Ragazzi
ho un semplice form su pagina asp è vorrei che il campo email
non deve essere lasciato vuoto non mi interessa la correttezza dei caratteri solamente che non venga lasciato vuoto per distrazione perchè darebbe un errore quando si invierebbe,
ho provato con gli script che ho trovato facendo una ricerca sul forum va non mi vanno nessuno, cioe mi correggo non riesco a farli andare io, vi posto solamente il codice asp e solamente il campo email
cosa mi potete suggerire?
grazie

codice:



	
codice:

	
<%
dim a1
a1 = request.querystring("a1")

if(len(a1)=0)then
	Form()
else
	InsertData()
end if
%>



<%

function Form()
%>


<form method="POST" action="registrazione.asp?a1=post">
<input type="text" name="email" size="20" value="<%=request.querystring("email")%>"


<%
end function

function InsertData()

nota_informativa = request.form("nota_informativa")
referente = request.form("referente")
nome = request.form("nome")
cognome = request.form("cognome")
album = request.form("album")
nome_arte = request.form("nome_arte")
sito = request.form("sito")
email = request.form("email")
siae = request.form("siae")



 		     Dim objCDO                 ' Email object
                     Dim strFromNome               ' From persons' real nome
                     Dim strFromEmail, strToEmail  ' Email addresses
                  
                     Dim strSubject, strBody       ' Pagina web
                   
		    
		     
		     strSubject    = "Modulo contatto"
		     strFromNome   = Trim(Request.Form("nome"))
             strFromEmail  = Trim(Request.Form("email"))
             strToEmail    = "info@clurican.com"
		     strBody       = Trim(Request.Form("pagina_web"))

            Set objCDO = Server.CreateObject("CDO.message")

              objCDO.From    = strFromNome & " <" & strFromEmail & ">"
              objCDO.To      = strToEmail
              objCDO.Subject = strSubject
			  objCDO.textBody    = vbnewline & "Nota Informativa: " & Request.Form("nota_informativa")& vbnewline & "Referente: " & Request.Form("referente")& vbnewline & "Nome: " & Request.Form("nome")& vbnewline & "Cognome: " & Request.Form("cognome")& vbnewline & "Album: " & Request.Form("album")& vbnewline & "Nome arte: " & Request.Form("nome_arte")& vbnewline & "Sito: " & Request.Form("sito")& vbnewline & "Url email: " & Request.Form("email")& vbnewline & "S.I.A.E: " & Request.Form("siae")          
			   objCDO.Send
			  Set objCDO = Nothing


	
response.redirect("confrec.htm")
end function

%>