form contatti

**evetta** · 28-06-2007, 11:02

mi sapete dire dove sta l'errore che non funziona il form? non mi da nessun tipo di errore ma il form non va....

codice:

<%@ Language = "VBScript" %>
<%
Select Case Request.Querystring("Action")
Case "Send"

on error resume next
'Set variables
Dim BackURL
Dim strName
Dim strEmail
Dim strSubject
Dim strMessage
Dim strUserIP
Dim strToEmail
Dim daCdoMail

'Replace this email with your real email id
strToEmail = "info@mmad.it"
BackURL = Request.ServerVariables("HTTP_REFERER")
strName = Request.form("Name")
strEmail = Request.form("Email")
strSubject = Request.form("Subject")
strMessage = Request.form("Message")
strUserIP = Request.ServerVariables("REMOTE_ADDR")

'Create Mail Object
Set daCdoMail = CreateObject("CDONTS.NewMail")
daCdoMail.To = strToEmail
daCdoMail.From = strEmail
daCdoMail.Subject = strSubject
daCdoMail.Body = "<font size=""small"">Questo messaggio è stato inviato da " & strName & " il " & Now() & ". </font>

" & strMessage
'You can change the mail body format setting below
'0 = HTML, 1 = TEXT
daCdoMail.BodyFormat = 0
'You can change the mail format setting below
'0 = HTML, 1 = TEXT
daCdoMail.MailFormat = 0
'Set Server Side Validation to make sure we got both sender and recipient email Id to send email
If strToEmail = "" OR strEmail = "" Then
Session("msg") = "Il messaggio non può essere inviato. È necessario compilare tutti i campi."
Response.redirect (BackURL)
Else
'Now send email to the address you specified at line no. 16
daCdoMail.Send
End If
'Destroy mail object
Set daCdoMail = Nothing

'Create result text in a Sesion
Session("MsgSent") = "La Vostra richiesta di informazioni è stat inviata correttamente. Grazie."
'Redirect and show the result
Response.redirect (BackURL)
End Select
%>
<html>
<head>
<title>Bios | Consulenza, Formazione e Analisi</title>
<meta http-equiv="Content-Type" content="text/html;">
<meta name="description" content="FW MX DW MX HTML">
<SCRIPT language=javascript>
function check()
{
	if (document.myform.Name.value.length==0)
		{
			alert("Compilare il cmapo nome");
			document.myform.Name.focus();
		}
			else if(document.myform.Email.value.length==0 || document.myform.Email.value.indexOf("@")==-1 || document.myform.Email.value.indexOf(".")==-1 || document.myform.Email.value.indexOf(" ")==0)
		{
			alert("Deve essere inserito un indirizzo email valido")
			document.myform.Email.focus();
		}
	 	else if (document.myform.Subject[document.myform.Subject.selectedIndex].value.length==0)
			{
			alert("Compilare il campo oggetto");
			document.myform.Subject.focus();
		}
	else if(document.myform.Message.value==0)
		{
		alert("Compilare il corpo del messaggio");
		document.myform.Message.focus();
		}

	else
		{
		document.myform.submit()
		}
}
</SCRIPT>
<link rel="stylesheet" type="text/css" media="all" href="style.css" />
</head>
<body bgcolor="#ffffff">







<table border="0" cellpadding="0" cellspacing="0" width="800" align="center">

  <tr>

   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
   <td>[img]spacer.gif[/img]</td>
  </tr>

  <tr>
    <td rowspan="14" bgcolor="#c8dda4"></td>
   <td background="index_r1_c2.jpg"></td>
    <td rowspan="14" background="index_r1_c3.jpg"></td>
    <td colspan="9" bgcolor="#FFFFFF"></td>
    <td rowspan="14" bgcolor="#FFFFFF"></td>
    <td>[img]index_r1_c15.jpg[/img]</td>
    <td rowspan="14" bgcolor="#c8dda4"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td bgcolor="#72ac22">[img]index_r2_c2.jpg[/img]</td>
   <td rowspan="2" colspan="9">[img]index_r2_c4.jpg[/img]</td>
    <td rowspan="12"  bgcolor="#72ac22"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td rowspan="6"bgcolor="#72ac22" valign="bottom"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
   <td colspan="9" >[img]consulenza_r4_c4.jpg[/img]</td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td rowspan="2" bgcolor="#FFFFFF"></td>
    <td rowspan="8" background="consulenza_r5_c5.jpg"></td>
    <td colspan="2" bgcolor="#FFFFFF"></td>
    <td colspan="4" bgcolor="#FFFFFF"><p class="sede">CONTATTI</p></td>
    <td  bgcolor="#FFFFFF"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td rowspan="7" colspan="2" bgcolor="#FFFFFF"></td>
    <td rowspan="6" colspan="4"  bgcolor="#FFFFFF" valign="top">
	<%If Session("msgSent") = "" Then%>
<table cellSpacing="1" border="0" bordercolor="#111111" id="table1">
    <form action="Contact.asp?Action=Send" method="post" name="myform">

   <tr>
            <td colspan="2"><p class="corpo">Per eventuali chiarimenti o per richiedere informazioni, 
              Vi invitiamo a compilare l'apposito form.</p></td>
    </tr>
    <%If Session("msg") <> "" Then%>
   <tr>
    <td colspan="2">
	<p class="corpo"><%=Session("msg")%></p></td>
    </tr>
    <%End If%>
   <tr>
    <td colspan="2">
	</td>
    </tr>
  <tr>
            <td class="nortex"><p class="corpo">Nome</p></td>
    <td class="nortex">
    <input maxLength="25" size="25" name="Name" value="<%= Request.form("Name") %>"></td></tr>
  <tr>
    <td class="nortex"><p class="corpo">email</p></span></td>
    <td class="nortex">
    <input maxLength="25" size="25" name="Email" value="<%= Request.form("Email") %>"></td></tr>
  <tr>
    <td class="nortex"><p class="corpo">Oggetto</p></td>
    <td class="nortex"> 
    <input maxLength="25" size="25" name="Name" value="<%= Request.form("Subject") %>"></td></tr>
  <tr>
    <td class="nortex" valign="top"><p class="corpo">Messaggio</p></td>
    <td class="nortex">
    <textarea name="Message" rows="12" cols="25"><%= Request.form("Message") %></textarea></td></tr>
   <tr>
    <td class="nortex"></td>
    <td class="nortex">
    <input onclick="check()" type="button" value="Invio messaggio" name="sendmessage" style="float: center; font-weight:bold"></td></tr>
   <tr>
    <td class="nortex" colspan="2"></td>
    </tr>
   <tr>
    <td class="nortex" colspan="2">
    
	

</td>
    </tr>
  </form>
  </table>
<%Else%>
<table cellSpacing="1" border="0" bordercolor="#111111" id="table2">
    
 
   <tr>
    <td align="right">
	<p class="corpo">Messaggio Inviato</p>
	</td>
    </tr>   
   <tr>
    <td>
	<p class="corpo"><%=Session("MsgSent")%></p>;</td>
    </tr>
   <tr>
    <td>
	
	
	</td></tr>
      </table>
<%End If
'Destroy session variables
Session("MsgSent") = ""
Session("msg") = ""
%>
	</td>
    <td rowspan="7" bgcolor="#FFFFFF"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
   <td bgcolor="#FFFFFF"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td rowspan="2"bgcolor="#FFFFFF"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td rowspan="6" bgcolor="#72ac22" valign="bottom"><p align="right" class="claim">ti 
        insegnamo

        a trattarli al meglio</p>[img]index_r5_c2.jpg[/img]</td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td  bgcolor="#FFFFFF"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td rowspan="2"bgcolor="#FFFFFF" valign="top"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td colspan="4" bgcolor="#FFFFFF"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
   <td colspan="9" background="consulenza_r13_c4.jpg"></td>
   <td>[img]spacer.gif[/img]</td>
  </tr>
  <tr>
    <td colspan="3" bgcolor="#FFFFFF"></td>
   <td colspan="2"  background="index_r7_c5.jpg"></td>
    <td bgcolor="#72ac22" align="center"><p class="menupiede"> 
      Home Page | Sede | Contatti</p></td>
    <td background="index_r7_c11.jpg"></td>
    <td colspan="2" bgcolor="#FFFFFF"></td>
<td>[img]index_r7_c15.jpg[/img]</td>
   <td>[img]spacer.gif[/img]</td>
  </tr>

</table>

</body>
</html>

**Mems** · 28-06-2007, 11:04

CDONTS funziona solo su macchine Windows 2000.
Da XP e Server 2003 in poi c'è CDOSYS.

Nella tua pagina ci sta
on error resume next
commentala
' on error resume next
vedrai che ti darà un errore del tipo
server.createObject failed
oppure
stringa dell'interfaccia non valida
sulla riga
set daCdoMail = CreateObject("CDONTS.NewMail")

**evetta** · 28-06-2007, 11:15

adesso almeno qualcosa fa...
ho dovuto mettere di nuovo il campo oggetto come select ed almento all'azione sendo riesce ad arrivar.
Qui però ha dei problemi perche mi dice che non riesce a trovare la pagina...

Che vuol dire???Non deve trovare una pagina..deve solo eseguire l'azione!!!o mi sbaglio?

**Mems** · 28-06-2007, 11:17

Secondo me dice che non può VISUALIZZARE la pagina...
... dalle opzioni avanzate di explorer TOGLI la spunta dalla voce Mostra Messaggi di Errore HTTP Brevi.

**evetta** · 28-06-2007, 11:21

poichè adesso sto lavorando in una sottodirectory test non funziona...
ho infatti provato a mettere il form nella root rincipale e va..mi sembra stranissimo ma è così..

sai dirmi però perchè?vorrei quanto meno capire...

**evetta** · 28-06-2007, 11:25

le vie dell'internet sono infinite!!!
adesso non funziona nemmeno nella root principale...

mi dice
IMPOSSIBILE TROVARE LA PAGINA
HTTP 404 - File non trovato
Internet Information Services

**evetta** · 28-06-2007, 11:32

Ho fatto una scoperta:
poichè il form l'ho ripreso da uno script che ho scricato (qui su html.it) se nella stessa root in cui ho il mio file metto anche il file con lo script originale allora il mio form funziona, altrimenti no!!!

Perchè?
Il problema è che peò mi prende tutte le diciture dal file oroginale, non dal mio...

Come posso fare?

**Mems** · 28-06-2007, 12:25

Sono 2 file?
Uno con la form e l'altra col codice?
Verifica l'action della form.

**evetta** · 28-06-2007, 14:31

no, ho risolto...
non sono due file, ma avendo cambiato il nome al file mi ero dimenticata di acmbiarlo nell'action del form...
Sbadata!

Grazie comunque..

**ciamp** · 20-10-2008, 12:54

Uso anche io Questo script, sai dirmi come posso recapitare una mail con i dati inviati, anche al mittente, per conoscenza della form inviata?
Se indico
daCdoMail.To = strToEmail
daCdoMail.Cc = strEmail
mi recapita 2 volte il msg sia al mittente che al destinatario

Discussione: form contatti

Strumenti discussione

Ricerca discussione

Visualizza

form contatti

form contatti

Permessi di invio