Salve amici del Forum, se possibile ho bisogno di un vostro aiutino. Ho la necessità di inviare da un modulo creato in asp una mail. Allora il punto è questo: ho una pagina asp con nome cognome ecc. ho dei pulsanti invia e cancella ora da invia sull'evento onclick mi richiamo la funione in VBSCRIPT controlla campi (In pratica alcuni campi sono obbligatori) e poi nella stessa funzione mi richiamo l'altra sub InviMail dove dovrei inviare l'email.Quando richiamo la funzione mi dice Tipo non corrispondente InvioMail. Io infatti dovrei spedire l'email e rimanere sulla stessa pagina e non visualizzare un altra pagina.Mentre se metto invia mail su di un altra pagina funziona.Cmq percapire meglio vi posto lo script:
<Script Language=VBScript >
Sub Controlla()
if document.FormMail.nome.value="" & vbCrLf _
or document.FormMail.cognome.value="" & vbCrLf _
or document.FormMail.email.value="" then
alert ("Attenzione i campi contrassegnati dall'astersico sono obbligatori")
else
InviaMail()
end if
End Sub
</Script>
<Script Language=VBScript RunAt=Server>
Sub InviaMail()
dim Email
Set Email = Server.CreateObject("CDONTS.NewMail")
Email.Send document.FormMail.nome.value & " " & document.FormMail.cognome.value,"ivan.cerrato@glob cons.com","...",document.FormMail.note.value,0
Set Email = nothing
End Sub
</Script>
<BODY bgcolor="#1d3e64">
<FORM method=post name=FormMail>
<TABLE cellSpacing=1 cellPadding=1 width="50%" align=center border=2 borderColor=steelblue>
<TR>
<TD colspan=2 class=font align=middle>ModuloInvioMail</TD>
</TR>
<TR>
<TD colspan=2><HR color=yellow></TD>
</TR>
<TR>
<TD class=font1 colspan=2 align=center>I campi contrassegnati con (<FONT color=red>*</FONT>) l'astersico sono obbligatori.</TD>
</TR>
<TR>
<TD class=cella><FONT color=red>*</FONT>Nome:</TD>
<TD><INPUT name=nome size=35 ></TD>
</TR>
<TR>
<TD class=cella><FONT color=#ff0000>*</FONT>Cognome:</TD>
<TD><INPUT name=cognome size=35 ></TD>
</TR>
<TR>
<TD class=cella><FONT color=#ff0000>*</FONT>E-Mail:</TD>
<TD><INPUT name=email size=35 ></TD>
</TR>
<TR>
<TD class=cella>Telefono:</TD>
<TD><INPUT name=telefono size=35 ></TD>
</TR>
<TR>
<TD class=cella vAlign=top>Note:</TD>
<TD><TEXTAREA style="WIDTH: 100%; HEIGHT: 60px" name=note col="10" row="50"></TEXTAREA></TD>
</TR>
<TR>
<TD colspan=2 align=middle><INPUT type=button value=" Invia " onclick=Controlla() name=button1>
<INPUT type=reset value=" Cancella " name =button2>
<INPUT type=Button value=" Indietro " name =button3>
</TD>
</TR>
<TR>
<TD colspan=2><HR color=yellow></TD>
</TR>
</TABLE>
</FORM>
</P>
</BODY>
Rispondi quotando
