Hjälp med att konvertera jmail till CDONTS

17 svar · 541 visningar · startad av LAMF 23 apr. 2007

LAMFMedlem sedan apr. 20074 inlägg

Frågan23 apr. 2007 13:14#1

Hej,
Är inte sådär superhemma på detta område så jag tänkte kolla om någon vänlig själ kan hjälpa mej översätta denna fungerande jmail kod till CDONTS.
Det är ett formulär som ska skickas som html kodat email.... (det kanske var onödigt att ens nämna :) )
Tacksam för all hjälp med detta.

<%
Set jmail = Server.CreateObject("jmail.Message")
jmail.From = "info@hymans.se"
jmail.FromName = "Intresseanmälan"
jmail.AddRecipient "info@hymans.se"
jmail.Subject = "Intresseanmälan"
jmail.HTMLBody = " Intresseanmälan " _
& "Namn: " & request.form("name") & " " _
& "Adress: " & request.form("address") & " " _
& "Postnummer: " & request.form("pnr") & " " _
& "Ort: " & request.form("city") & " " _
& "Kontaktperson: " & request.form("contactfullname") & " " _
& "Telefon: " & request.form("contacttele") & " " _
& "E-post: " & request.form("contactemail") & " " _
& "Övrigt: " & request.form("therest") & " " _
& ""

if not jmail.Send("mail.hymans.se" ) then
Response.write "FEL <pre>" & msg.log & "</pre>"
else
Response.write "Message sent succesfully!"
end if

set jmail=nothing
response.redirect "tack.html"
%>

Jag har försökt med följande CDONTS kod:

<%
Set newMail = Server.CreateObject("CDONTS.NewMail")
newMail.From = Request.Form("contactemail")
newMail.To = "info@hymans.se"
newMail.Subject = "Intresseanmälan"
HTML = HTML = HTML & ""
HTML = HTML & "Intresseanmälan "
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "Namn:" & Request.Form(""name"")"
HTML = HTML & "Adress:" & Request.Form(""address"")"
HTML = HTML & "Postnummer:" & Request.Form(""pnr"")"
HTML = HTML & "Ort:" & Request.Form(""city"")"
HTML = HTML & "Kontaktperson:" & Request.Form(""contactfullname"")"
HTML = HTML & "Telefon:" & Request.Form(""contacttele"")"
HTML = HTML & "E-post:" & Request.Form(""contactemail"")"
HTML = HTML & "Övrigt:" & Request.Form(""therest"")"
set objMail=nothing
response.redirect "tack.html"
%>

Tacksam om någon vänlig själ kan hjälpa mej att få detta att fungera.

//Micke

voigtann1Medlem sedan juni 20019 519 inlägg

23 apr. 2007 13:22#2

Välkommen till wF, när du skriver kod var snäll att använda [kod ] taggen, det är betydligt enklare att läsa.

En saker som du har glömt:

newMail.BodyFormat = 1 ' för HTML
newMail.Body = HTML ' för att lägga in din HTML variabel i bodyn
newMail.Send ' för att skicka meddelandet.

<%
Set newMail = Server.CreateObject("CDONTS.NewMail")
newMail.From = Request.Form("contactemail")
newMail.To = "info@hymans.se"
newMail.BodyFormat = 1
newMail.Subject = "Intresseanmälan"
HTML = "<p><font size =""5"" face=""Arial"">"
HTML = HTML & "Intresseanm&auml;lan<br>"
HTML = HTML & "</font>"
HTML = HTML & "<font size =""2"" face=""Arial"" color =""#000099"">"
HTML = HTML & "<b>Namn:</b>" & Request.Form("name")
HTML = HTML & "<b>Adress:</b>" & Request.Form("address")
HTML = HTML & "<b>Postnummer:</b>" & Request.Form("pnr")
HTML = HTML & "<b>Ort:</b>" & Request.Form("city")
HTML = HTML & "<b>Kontaktperson:</b>" & Request.Form("contactfullname")
HTML = HTML & "<b>Telefon:</b>" & Request.Form("contacttele")
HTML = HTML & "<b>E-post:</b>" & Request.Form("contactemail")
HTML = HTML & "<b>Övrigt:</b></font>" & Request.Form("therest")
newMail.Body = HTML
newMail.Send
set newMail=nothing
response.redirect "tack.html"
%>

LAMFMedlem sedan apr. 20074 inlägg

24 apr. 2007 06:30#3

Tack för otroligt snabbt svar!
Har lagt till detta i CDONTS scriptet men får följande fel när jag testat formuläret "live":

Technical Information (for support personnel)

Error Type:
Sun ONE ASP VBScript compilation (0x800A03EE)
Syntax error, unexpected "identifier", expecting ")"
/mailforms/sendForet1.asp, line 11, column 50

koden ser ut så här:

<%
Set newMail = Server.CreateObject("CDONTS.NewMail")
newMail.From = Request.Form("contactemail")
newMail.To = "micke.bergman@akerstroms.se"
newMail.BodyFormat = 1
newMail.Subject = "Intresseanmälan"
HTML = "<p><font size =""5"" face=""Arial"">"
HTML = HTML & "Intresseanm&auml;lan<br>"
HTML = HTML & "</font>"
HTML = HTML & "<font size =""2"" face=""Arial"" color =""#000099"">"
HTML = HTML & "<b>Namn:</b>" & Request.Form(""name"")"
HTML = HTML & "<b>Address:</b>" & Request.Form(""address"")"
HTML = HTML & "<b>Postnummer:</b>" & Request.Form(""pnr"")"
HTML = HTML & "<b>Ort:</b>" & Request.Form(""city"")"
HTML = HTML & "<b>Kontaktperson:</b>" & Request.Form(""contactfullname"")"
HTML = HTML & "<b>Telefon:</b>" & Request.Form(""contacttele"")"
HTML = HTML & "<b>E-post:</b>" & Request.Form(""contactemail"")"
HTML = HTML & "<b>Övrigt:</b></font>" & Request.Form(""therest"")"
newMail.Body = HTML
newMail.Send
set newMail=nothing
response.redirect "tack.html"
%>

@ndersMedlem sedan juni 200032 967 inlägg

24 apr. 2007 06:36#4

Hej!

Du ska inte ha dubbla citationstecken runt fältnamnen du ska hämta med request.form. Du ska inte heller ha ett avslutande citationstecken sist på raden, eftersom strängen redan är stängd (du stänger ju strängen precis före & vi request.form).

Alltså:

HTML = HTML & "<b>Namn:</b>" & Request.Form("name")

Glöm inte heller lägga till lite radbrytningar i din html, så blir mailet lite snyggare. Då kan vi öppna strängen på slutet igen, exempel:

HTML = HTML & "<b>Namn:</b>" & Request.Form("name") & "<br>"

Mvh

voigtann1Medlem sedan juni 20019 519 inlägg

24 apr. 2007 07:23#5

Såg felet nu som @nders påpekar ;) ändrade om texten ;)

LAMFMedlem sedan apr. 20074 inlägg

25 apr. 2007 07:00#6

Tackar för hjälpen men det fungerar fortfarande inte till 100%, den verkar fungera fram till rad 20, felmeddelandet ser ut så här:

Error Type:
CDONTS.NewMail.1 (0x80020009)
Unable to connect to server
/firstnet/sendForet1.asp, line 20

Ny kod:

<%
Set newMail = Server.CreateObject("CDONTS.NewMail")
newMail.From = Request.Form("contactemail")
newMail.To = "micke@hymans.se"
newMail.BodyFormat = 1
newMail.Subject = "Intresseanmälan"
HTML = "<p><font size =""15px"" face=""Verdana"">"
HTML = HTML & "Intresseanm&auml;lan<br>"
HTML = HTML & "</font>"
HTML = HTML & "<font size =""10px"" face=""Verdana"" color =""#000099"">"
HTML = HTML & "<b>Namn:</b>" & Request.Form("name") & "<br>"
HTML = HTML & "<b>Adress:</b>" & Request.Form("address") & "<br>"
HTML = HTML & "<b>Postnummer:</b>" & Request.Form("pnr") & "<br>"
HTML = HTML & "<b>Ort:</b>" & Request.Form("city") & "<br>"
HTML = HTML & "<b>Kontaktperson:</b>" & Request.Form("contactfullname") & "<br>"
HTML = HTML & "<b>Telefon:</b>" & Request.Form("contacttele") & "<br>"
HTML = HTML & "<b>E-post:</b>" & Request.Form("contactemail") & "<br>"
HTML = HTML & "<b>Övrigt:</b></font><br>" & Request.Form("therest") & "<br>"
newMail.Body = HTML
newMail.Send
set newMail=nothing
response.redirect "tack.html"
%>

voigtann1Medlem sedan juni 20019 519 inlägg

25 apr. 2007 07:04#7

rad 20 är

Set newMail = Server.CreateObject("CDONTS.NewMail")

ZaimanMedlem sedan dec. 20014 239 inlägg

25 apr. 2007 08:39#8

OT ?

LAMF skrev:

Error Type:
Sun ONE ASP VBScript compilation (0x800A03EE)
Syntax error, unexpected "identifier", expecting ")"
/mailforms/sendForet1.asp, line 11, column 50

Känns som om det är Sun ASP på maskinen, Finns verkligen CDONTS på den då? Är inte det en MS produkt?

SnakesMedlem sedan okt. 2004392 inlägg

25 apr. 2007 08:50#9

Felmeddelandet har ingenting med CDONTS att göra.
ASP är en MS produkt, VBScript är en MS produkt.

Jag vet inte vad Sun ONE ASP är för nåt men jag vet att MS inte tillåter opensource.

@ndersMedlem sedan juni 200032 967 inlägg

25 apr. 2007 08:55#10

Snakes skrev:

men jag vet att MS inte tillåter opensource

Vad menar du med det?

SnakesMedlem sedan okt. 2004392 inlägg

25 apr. 2007 09:03#11

Det finns många varianter av DC och torrent clienter... Trodde detta var fallet, men skillnaden är att MS inte tillåter opensource. <---Det menade jag

Men sen när jag googla Sun One så visade det sig att Sun och Microsoft har något slags avtal och på något vis så får dem ta MS source för att göra en egen ASP.

Edit:
Hitta en bra länk för avtalet: http://news.com.com/1601-2-5184324.html

ZaimanMedlem sedan dec. 20014 239 inlägg

25 apr. 2007 09:08#12

Snakes skrev:

Men sen när jag googla Sun One så visade det sig att Sun och Microsoft har något slags avtal och på något vis så får dem ta MS source för att göra en egen ASP.

Jo men finns då CDONTS med i SUN ONE ASP? Det är min fråga.
Har för mig att CDONTS bara finns med i MS ASP... :q

SnakesMedlem sedan okt. 2004392 inlägg

25 apr. 2007 09:10#13

Google :)

Edit:
Googlade för dig och hittade denna:
http://www.sun.com/software/chilisoft/ds_asp.pdf

Sammanfattat: Om den inte skulle ha CDONTS skulle den tjuta om det, men den har tydligen det.. enligt pdf:en ovanför

voigtann1Medlem sedan juni 20019 519 inlägg

25 apr. 2007 09:25#14

http://www.levonline.com/support/support.php?article_id=227

och

http://www.levonline.com/filer/caspdoc/Ch13_SpicePack3.html

med för lite mer läsning om just Chili!Mail ;)

LAMFMedlem sedan apr. 20074 inlägg

25 apr. 2007 14:22#15

Suck :(
Jag tror ag uppgraderar till en Windows Server som har jmail istället...
Kostar mer men kanske är värt det...
Tack i alla fall för all hjälp.

voigtann1Medlem sedan juni 20019 519 inlägg

25 apr. 2007 14:39#16

ger inte upp.. men vilken är rad 20?

@ndersMedlem sedan juni 200032 967 inlägg

25 apr. 2007 17:07#17

Snakes skrev:

Det finns många varianter av DC och torrent clienter... Trodde detta var fallet, men skillnaden är att MS inte tillåter opensource. <---Det menade jag

Jag fattar fortfarande inte ett spår... Vad har DC och torrents med detta att göra? Eller open source för den delen? Varför skulle Microsoft vara emot öppen källkod?

Ledsen för OT, men jag känner att detta måste redas ut...

SnakesMedlem sedan okt. 2004392 inlägg

25 apr. 2007 17:57#18

Skickar PM för jag känner att detta har inget med denna tråd att göra.
vid midnatt ungefär, för jag måste springa iväg nu