AIUTO URGENTE! FORM PER E-MAIL!

lunedì 04 luglio 2005 - 12.03

Radiant Profilo | Newbie

Salve salvino!
Praticamente è una settimana che provo a fare un form che in teoria è semplice ovvero: il cliente entra, inserisce i suoi dati compresa la sua e-mail, compreso il tipo e la quantità del prodotto, e poi invia. La pagina asp dovrebbe fare due cose: 1- restituire all'utente una pagina di conferma dati, 2- inviare un'emal di conferma all'utente e una a me perchè possa contattarlo per l'ordine. Ora, mi sono rifatto a vari esempi trovati sul web, modificandoli ad uopo, MA NON ME NE FUNZIONA NEMMENO UNO!!!!!!!!!!!! L'ultimo addirittura sembra perfetto, ma quando invia i dati con POST alla pagina .asp, mi da ERRORE 500, e dice che la pagina .asp non può essere visualizzata: MA CHI LA VUOLE VISUALIZZARE!!!!!!?????????? Vi prego, c'è qualche mito che mi possa dare un codice funzionante? O un qualche tipo di aiuto? Devo consegnare sto cavolo di lavoro!

stee85 Profilo | Senior Member

Prova a postare il codice

Ste

Radiant Profilo | Newbie

Dunque il codic della pagina asp che processa è:

<%

Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim LastName
Dim Address
Dim PostCode
Dim City
Dim Province
Dim HomeTel
Dim Mobile
Dim E-mail
Dim Quantità
Dim Tipo

EmailFrom = "info@dominio.com"
EmailTo = "info@dominio.com"
Subject = "Confrma ordine"
Name = Trim(Request.Form("Name"))
LastName = Trim(Request.Form("LastName"))
Address = Trim(Request.Form("Address"))
PostCode = Trim(Request.Form("PostCode"))
City = Trim(Request.Form("City"))
Province = Trim(Request.Form("Province"))
HomeTel = Trim(Request.Form("HomeTel"))
Mobile = Trim(Request.Form("Mobile"))
E-mail = Trim(Request.Form("E-mail"))
Quantità = Trim(Request.Form("Quantità"))
Tipo = Trim(Request.Form("Tipo"))

Dim validationOK
validationOK=true
If (Trim(Name)="") Then validationOK=false
If (Trim(LastName)="") Then validationOK=false
If (Trim(Address)="") Then validationOK=false
If (Trim(PostCode)="") Then validationOK=false
If (Trim(HomeTel)="") Then validationOK=false
If (Trim(E-mail)="") Then validationOK=false
If (Trim(Quantità)="") Then validationOK=false
If (Trim(Tipo)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)

Dim Body
Body = Body & "Nome: " & Name & VbCrLf
Body = Body & "Cognome: " & LastName & VbCrLf
Body = Body & "Indirizzo: " & Address & VbCrLf
Body = Body & "C.A.P.: " & PostCode & VbCrLf
Body = Body & "Città: " & City & VbCrLf
Body = Body & "Provincia: " & Province & VbCrLf
Body = Body & "Telefono abitazione: " & HomeTel & VbCrLf
Body = Body & "Telefono Cellulare: " & Mobile & VbCrLf
Body = Body & "E-mail: " & E-mail & VbCrLf
Body = Body & "Quantità: " & Quantità & VbCrLf
Body = Body & "Tipo: " & Tipo & VbCrLf

Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send

Response.Redirect("ok.htm?" & EmailFrom)
%>


Questo è in realtà il codice di una versione semplificata che mi andrebbe bene lo stesso, restituisce la pagina di conferma all'utente e manda l'e-mail a me con i dati x contattare l'acquirente. E' questa che mi da l'Errore 500 e mi dice che è impossibile visualizzare la pagina .asp e a me sembra giusto!!!! AIUTO!!!!!!!!

stee85 Profilo | Senior Member

Io per spedire le mail ho sempre utilizzato un programma - cdonts - che puoi scaricare tranquillamente da internet solo che poi deve essere installato anche sul server.

Cmq se non vuoi installare quel programma questa sera quando sono a casa guardo se ho qulche cosa che ti può essere utili
Ciao

Ste

LiukS Profilo | Newbie

ciao,
io normalmente uso questo codice,
avendo un server di posta smtp faccio tutto da codice
facendo soltanto un Imports di
Imports System.IO
Imports System.Web.Mail

ad inizio pagina

In teoria a me è sempre funzionato ci dovrebbe essere la possibilità di mettere anche la CCN e la CC

Spero ti possa essere utile


Dim Attach As New Mail.MailAttachment(File)
Message.Attachments.Add(Attach)
Message.To = Mail
Message.From = MailFrom
Message.Subject = "Invio allegati"
Message.Priority = MailPriority.Normal
Message.Body = S
Message.BodyFormat = MailFormat.Text
SmtpMail.SmtpServer = ServerMail
SmtpMail.Send(Message)


Radiant Profilo | Newbie

Salve LiukS e Ste, grazie per cercare di aiutarmi, dunqe questo sito è su aruba che utilizza windows 2003 server con supporto .net, ora ho provato anche il tuo codice, LiukS, ma continua a darmi lo stesso problema, l'ho inserito in questa maniera:

<%

Imports System.IO
Imports System.Web.Mail

Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim LastName
Dim Address
Dim PostCode
Dim City
Dim Province
Dim HomeTel
Dim Mobile
Dim E-mail
Dim Quantità
Dim Tipo

EmailFrom = "info@dominio.com"
EmailTo = "info@dominio.com"
Subject = "Confrma ordine olio"
Name = Trim(Request.Form("Name"))
LastName = Trim(Request.Form("LastName"))
Address = Trim(Request.Form("Address"))
PostCode = Trim(Request.Form("PostCode"))
City = Trim(Request.Form("City"))
Province = Trim(Request.Form("Province"))
HomeTel = Trim(Request.Form("HomeTel"))
Mobile = Trim(Request.Form("Mobile"))
E-mail = Trim(Request.Form("E-mail"))
Quantità = Trim(Request.Form("Quantità"))
Tipo = Trim(Request.Form("Tipo"))

Dim validationOK
validationOK=true
If (Trim(Name)="") Then validationOK=false
If (Trim(LastName)="") Then validationOK=false
If (Trim(Address)="") Then validationOK=false
If (Trim(PostCode)="") Then validationOK=false
If (Trim(HomeTel)="") Then validationOK=false
If (Trim(E-mail)="") Then validationOK=false
If (Trim(Quantità)="") Then validationOK=false
If (Trim(Tipo)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)

Dim Body
Body = Body & "Nome: " & Name & VbCrLf
Body = Body & "Cognome: " & LastName & VbCrLf
Body = Body & "Indirizzo: " & Address & VbCrLf
Body = Body & "C.A.P.: " & PostCode & VbCrLf
Body = Body & "Città: " & City & VbCrLf
Body = Body & "Provincia: " & Province & VbCrLf
Body = Body & "Telefono abitazione: " & HomeTel & VbCrLf
Body = Body & "Telefono Cellulare: " & Mobile & VbCrLf
Body = Body & "E-mail: " & E-mail & VbCrLf
Body = Body & "Quantità: " & Quantità & VbCrLf
Body = Body & "Tipo: " & Tipo & VbCrLf

Dim Attach As New Mail.MailAttachment(File)
Message.Attachments.Add(Attach)
Message.To = EmailTo
Message.From = EmailFrom
Message.Subject = Subject
Message.Priority = MailPriority.Normal
Message.Body = Body
Message.BodyFormat = MailFormat.Text
SmtpMail.SmtpServer = ServerMail
SmtpMail.Send(Message)

Response.Redirect("ok.htm?" & EmailFrom)
%>

è corretto? comunque anche così mi dice HTTP 500 - Errore interno del server
Internet Explorer ed è impossibile visualizzare la pagina, non riesco a capire perchè non mi processa correttamente, e ho provato con mille codici diversi... i files li metto nella cartella public di aruba, che tra parentesi è quella che permette all'utente di interagire... non è che devo mettere qualche pagina in quell cgi-bin? ma non credo... non so veramente dove sbattere la capoccia...

LiukS Profilo | Newbie

Ma per servermail cosa metti?

Radiant Profilo | Newbie

be per server mail, siccome sto facendo le prove su un altro dominio che ho (www.immobiliareonori.it) metto quello cioè smtp.immobiliareonori.it e come mail a cui va mandato l'ordine metto info@immobiliareonori.it .
Questo è codice che ho fatto secondo le tue indicazioni:

<%

Imports System.IO
Imports System.Web.Mail

Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim LastName
Dim Address
Dim PostCode
Dim City
Dim Province
Dim HomeTel
Dim Mobile
Dim E-mail
Dim Quantità
Dim Tipo

EmailFrom = "info@immobiliareonori.it"
EmailTo = "info@immobiliareonori.it"
Subject = "Confrma ordine olio"
Name = Trim(Request.Form("Name"))
LastName = Trim(Request.Form("LastName"))
Address = Trim(Request.Form("Address"))
PostCode = Trim(Request.Form("PostCode"))
City = Trim(Request.Form("City"))
Province = Trim(Request.Form("Province"))
HomeTel = Trim(Request.Form("HomeTel"))
Mobile = Trim(Request.Form("Mobile"))
E-mail = Trim(Request.Form("E-mail"))
Quantità = Trim(Request.Form("Quantità"))
Tipo = Trim(Request.Form("Tipo"))

Dim validationOK
validationOK=true
If (Trim(Name)="") Then validationOK=false
If (Trim(LastName)="") Then validationOK=false
If (Trim(Address)="") Then validationOK=false
If (Trim(PostCode)="") Then validationOK=false
If (Trim(HomeTel)="") Then validationOK=false
If (Trim(E-mail)="") Then validationOK=false
If (Trim(Quantità)="") Then validationOK=false
If (Trim(Tipo)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)

Dim Body
Body = Body & "Nome: " & Name & VbCrLf
Body = Body & "Cognome: " & LastName & VbCrLf
Body = Body & "Indirizzo: " & Address & VbCrLf
Body = Body & "C.A.P.: " & PostCode & VbCrLf
Body = Body & "Città: " & City & VbCrLf
Body = Body & "Provincia: " & Province & VbCrLf
Body = Body & "Telefono abitazione: " & HomeTel & VbCrLf
Body = Body & "Telefono Cellulare: " & Mobile & VbCrLf
Body = Body & "E-mail: " & E-mail & VbCrLf
Body = Body & "Quantità: " & Quantità & VbCrLf
Body = Body & "Tipo: " & Tipo & VbCrLf

Dim Attach As New Mail.MailAttachment(File)
Message.Attachments.Add(Attach)
Message.To = EmailTo
Message.From = EmailFrom
Message.Subject = Subject
Message.Priority = MailPriority.Normal
Message.Body = Body
Message.BodyFormat = MailFormat.Text
SmtpMail.SmtpServer = smtp.immobiliareonori.it
SmtpMail.Send(Message)

Response.Redirect("ok.htm?" & EmailFrom)
%>

ti sembra corretto? contnua a darmi sempre lo stesso problema cioè "impossibilie visualizzare la pagina" riferendosi a questa, cioè contact.asp, ed errorre 500.... il problema è che me lo ha fatto anche con un form che processava in .php3, di cui però non garantirei la correttezza, e anche un altro .asp.

Che palle.

non è che per caso qualcuno ha un codice che gli ha funzonato in modo che possa provarlo per vedere se almeno quello funziona?
Non so se ho già detto che i server di Aruba a cui mi appoggio hanno Windows2003 Server, e hanno supporto Asp.Net, potrebbe dipendere da quello?
AIUTOOOO!!!!!

Picio Profilo | Newbie

Che poi tra l'altro, come si fa ad installare ad cDonts sul server di aruba? dovrebbero farlo loro, no? ma avendo supporto asp.net non dovrebbero già averlo?

LiukS Profilo | Newbie

E' molto strano che non ti funzioni il codice che ti ho mandato,
anche perchè io lo utilizzo normalmente,
come server io ho un Windows Server 2003 con supporto aspx e
come server di posta ne utilizzo uno interno senza autenticazione,
il codice che ti ho mandato lo scritto in VB.net,
quindi non so proprio il perchè non funziona.
Quando lo fai girare in locale ti funziona oppure no?

Radiant Profilo | Newbie

Se ti devo dire la verità non l'ho provato, ma in locale come farebbe cmq a mandare la mail? a me è quello che serve come verifica...
che poi non si è capito perchè invece di processare cerca di aprirmela la pagina asp, e mi da poi quell'errore 500... eventualmente stasera che dici, posto anche il codice del form? solo che siccome l'ho moificato con Frontpage (mea culpa) è un vero casino...

LiukS Profilo | Newbie

se hai una connessione ad internet prova ad utilizzare lo stesso server di mail,
poi non saprei cosa voglia dire l'errore 500...


Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5