23. juli 2009 - 14:58
Der er
2 kommentarer og 1 løsning
mail send funktion
<% Dim objCDOMail Dim strFrom, strTo, strSubject, strBody strSubject = Trim(Request.Form("Sub")) strFrom = Trim(Request.Form("Email")) strNavn = Trim(Request.Form("Navn")) strBody = "Navn: " & Trim(Request.Form("Navn"))&"<br>Adresse: " & Trim(Request.Form("Adresse"))&"<br>Postnr: "& Trim(Request.Form("Postnr"))&"<br>By: " & Trim(Request.Form("By"))&"<br>Telefon: "& Trim(Request.Form("Telefon"))&"<br>Fax: "& Trim(Request.Form("Fax"))& "<br><br>***Bestilling***<br><br>Titel: "& Trim(Request.Form("Titel"))&"<br>Antal: " & Trim(Request.Form("Antal"))&"<br>Besked: " & Trim(Request.Form("Besked")) Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strFrom objCDOMail.To = "mail@profeti.dk" objCDOMail.Subject = strSubject objCDOMail.BodyFormat=0 objCDOMail.MailFormat=0 objCDOMail.Body = strBody objCDOMail.send Set objCDOMail = Nothing %>
Annonceindlæg fra Publicis Sapient
Okay har nu prøvet dette script her i stedt for. Men får denne fejl besked: Server object error 'ASP 0177 : 800401f3' Server.CreateObject Failed /bestil_resp.asp, line 20 800401f3 Mit email script: <% set msg = Server.CreateOBject("JMail.Message") ' Angiv din afsender-adresse ' - den skal være oprettet på webhotellet msg.From = Trim(Request.Form("Email")) msg.FromName = "Rosenkransen.dk" ' Tilføj email-adresse og navn på modtageren msg.AddRecipient "mail@profeti.dk", "Annette Høyrup" ' Angiv et emne for emailen msg.Subject = "Besked fra Rosenkransen.dk" ' Selve teksten (body) msg.Body = "Navn: " & Trim(Request.Form("Navn"))&"<br>Adresse: " & Trim(Request.Form("Adresse"))&"<br>Postnr: "& Trim(Request.Form("Postnr"))&"<br>By: " & Trim(Request.Form("By"))&"<br>Telefon: "& Trim(Request.Form("Telefon"))&"<br>Fax: "& Trim(Request.Form("Fax"))& "<br><br>***Bestilling***<br><br>Titel: "& Trim(Request.Form("Titel"))&"<br>Antal: " & Trim(Request.Form("Antal"))&"<br>Besked: " & Trim(Request.Form("Besked")) ' Send mailen - ved at angive navnet på mail-serveren if (not msg.Send("mailout1.surf-town.net")) then Response.write "<pre>" & msg.log & "</pre>" else Response.write "Mailen er blevet sendt!" end if %>