53 messaggi dal 04 maggio 2005
Ciao a tutti,
ho un semplice form per l'invio email da sito di cui riporto il codice:

<%@ LANGUAGE = JScript %>
<%
//Crea le variabili identificative dei campi del form
var nome = new String(Request.Form("nome"));
var cognome = new String(Request.Form("cognome"));
var email = new String(Request.Form("email"));
var citta = new String(Request.Form("citta"));
var indirizzo = new String(Request.Form("indirizzo"));
var telefono = new String(Request.Form("telefono"));
var messaggio = new String(Request.Form("messaggio"));
//Crea l'oggetto CDONTS per l'invio dell'email
var EMAIL = new ActiveXObject("CDONTS.NewMail");
//Modificare l'indirizzo di esempio col proprio
EMAIL.To = "info@dominio.it";
//Indica il mittente
EMAIL.From = email;
//Indica l'oggetto della mail
EMAIL.Subject = "Comunicazione dal sito web "
//Indica il corpo dell'email
EMAIL.Body = "Messaggio da: " + nome + "," + cognome + " \n\n " + indirizzo + "," + citta + "Telefono: " + telefono + " \n\n " + messaggio
//Invia l'email
EMAIL.Send();
%>

funzionava tutto tranquillamente fino al passaggio su server win 2003  Ora, quando provo ad inviare una richiesta, ho questo errore:

Microsoft JScript runtime error '800a0046'

Permission denied

/email.asp, line 22



Ho provato a controllare i permessi e sono ok solo che non risolvo nulla. Qualcuno sa aiutarmi?

Grazie
324 messaggi dal 20 settembre 2001
www.iromtek.com
var EMAIL = new ActiveXObject("CDONTS.NewMail"); 


uhm ma win2003 server usa il codsys per inviare le email...
credo sia questo (anche se ilo messaggio d'errore fa pensare ad un problema di permessi)

cmq prova così a cambiare solo queste 2 righe

//Crea l'oggetto CDONTS per l'invio dell'email 
var EMAIL = new ActiveXObject("CDO.Message"); 

//Indica il corpo dell'email 
EMAIL.HTMLBody = "Messaggio da: " + nome + "," + cognome + " \n\n " + indirizzo + "," + citta + "Telefono: " + telefono + " \n\n " + messaggio 

"Il problema delle persone è che cercano negli altri qualità che questi non posseggono mentre dovrebbero apprezzare ed esaltare le qualità che gli altri realmente posseggono"
53 messaggi dal 04 maggio 2005
Ciao Sghillo,
ho provato a cambiare le righe che mi hai indicato ed ora ho questo tipo di errore:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/email.asp, line 4

var nome = new String(Request.Form("nome"));


Che faccio?

Grazie per l'aiuto
141 messaggi dal 08 luglio 2004
Sul server 2003 devi fare così

Set Mail = Server.CreateObject("CDO.Message")
Set iBp = mail.BodyPart.AddBodyPart
Set Flds = iBp.Fields
Flds("urn:schemas:mailheader:content-type") = "text/plain; charset=""iso-8859-1"""
Flds("urn:schemas:mailheader:content-transfer-encoding") = "quoted-printable"
Flds.Update
Body = "Inserisci intestazione" & vbCrLf
Body = Body & Messaggio & vbCrLf
Mail.From = email
Mail.To = "info@dominio.it"
' message subject
Mail.Subject = "Messaggio inviato da " & nome & " " & cognome
' message body
Mail.textbody = body
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
Set Mail = nothing
body=""

P.S.: puoi anche levarlo <%@ LANGUAGE = JScript %>

Ciao e fammi sapere
324 messaggi dal 20 settembre 2001
www.iromtek.com
var nome = new String(replace(Request.Form("nome"),"'","''");

prova così

"Il problema delle persone è che cercano negli altri qualità che questi non posseggono mentre dovrebbero apprezzare ed esaltare le qualità che gli altri realmente posseggono"
53 messaggi dal 04 maggio 2005
albsteen ha scritto:
Sul server 2003 devi fare così

Set Mail = Server.CreateObject("CDO.Message")
Set iBp = mail.BodyPart.AddBodyPart
Set Flds = iBp.Fields
Flds("urn:schemas:mailheader:content-type") = "text/plain; charset=""iso-8859-1"""
Flds("urn:schemas:mailheader:content-transfer-encoding") = "quoted-printable"
Flds.Update
Body = "Inserisci intestazione" & vbCrLf
Body = Body & Messaggio & vbCrLf
Mail.From = email
Mail.To = "info@dominio.it"
' message subject
Mail.Subject = "Messaggio inviato da " & nome & " " & cognome
' message body
Mail.textbody = body
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
Set Mail = nothing
body=""

P.S.: puoi anche levarlo <%@ LANGUAGE = JScript %>

Ciao e fammi sapere



Ciao Albsteen,
come faccio ad inserire nel tuo codice il controllo dei campi sul form? (come indicato sopra)

Grazie mille per l'aiuto
53 messaggi dal 04 maggio 2005
sghillo ha scritto:
var nome = new String(replace(Request.Form("nome"),"'","''");

prova così




Mi dà sempre lo stesso errore
141 messaggi dal 08 luglio 2004
Devi inserirlo prima del codice che ti ho scritto

Nome = Request.Form("Nome")
Nome = Replace(Request.Form("Nome"),"'","")
Nome = Replace(Nome,"*","")
Nome = Replace(Nome,"%","")
Nome = Replace(Nome,"?","")

e questo per ogni campo del form

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.