Tjena tjejer och killar! Du får generera HTML-koden och skicka den.. du kan inte skicka en asp-fil.. för vart skall den tolkas? i mottagarens mailprogram? Funkar inte! :) Tja, det var väl inte riktigt så jag menade. Min tanke med Server.Execute var väl att aspsidans(Den sida jag vill skicka) kod skulle exeveras i cdonts loopen. Hur som helst, jag vill i allafall loopa ut ett par databasposter i htmlen som ska genereras. Hur ska jag skriva då. Så här långt har jag kommit (Eller inte kommit) Grejen är att Info loopar ut samma post två gånger och Skickar så blir det två mejl. Vad är fel??? Sen ska ju hela CDONT skriptet loopa igenom e-postadresserna i databasen också, men det har jag inte skrivit än som ni ser. Jag vill få det här att funka först. Ha det/Hampus Nu börjar det ordna sig. Så här blev grunden så nu är det väl bara att rulla på. Ha det bra/HampusSkicka en aspsida som nyhetsbrev med cdonts!
Jag håller på att göra en funktion för att skicka en aspsida som nyhetsbrev och innan jag trasslar in mej alltför mycket så tänkte jag fråga efter tips och råd.
Jag alltså ett par poster i en databas som jag skulle vilja loopa ut
1. Om jag ska göra en BODY till mejlet, kan jag då inkludera en aspsida på nåt sätt som rullar ut sina erbjudanden eller ska jag skriva all kod med html och allt i själva cdonts loopen??? Kan man kanske köra med Server.Execute i cdonts loopen???
Det är väl egentligen mitt enda problem, hur jag ska bygga BODY.
Ha det bra/HampusSv: Skicka en aspsida som nyhetsbrev med cdonts!
Sv: Skicka en aspsida som nyhetsbrev med cdonts!
Sv: Skicka en aspsida som nyhetsbrev med cdonts!
'***Här skickar vi den mailform som är vald
If Request("Action")=("Erbjudande") Then
Set Info = Conn.Execute ("Select* From erbjudande")
MailRubrik = Info("rubrik")
Set Protexnytt = Server.CreateObject("CDONTS.NewMail")
Protexnytt.From = "epostadress"
Protexnytt.To = "epostadress"
Protexnytt.Subject = "Test"
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Erbjudande</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
Do While Not Info.EOF
HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
HTML = HTML & ""& MailRubrik &"</strong></P>"
Info.MoveNext
Loop
HTML = HTML & "</body>"
HTML = HTML & "</html>"
Protexnytt.Body = HTML
Protexnytt.BodyFormat = CdoBodyFormatHTML
Protexnytt.MailFormat = CdoMailFormatMime
Protexnytt.Send
Set Protexnytt = Nothing
Info.Close
Set Info = Nothing
End If
%>Sv: Skicka en aspsida som nyhetsbrev med cdonts!
'***Här skickar den mailform som är vald
If Request("Action")=("Erbjudande") Then
Set Protexnytt = Server.CreateObject("CDONTS.NewMail")
Protexnytt.From = "epost"
Protexnytt.To = "epost"
Protexnytt.Subject = "Test"
Set Info = Conn.Execute ("Select* From erbjudande")
HTML = "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Erbjudande</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""FFFFFF"">"
Do While Not Info.EOF
HTML = HTML & "<p><font size =""3"" face=""Arial""><strong>"
HTML = HTML & "" & Info("rubrik") & "</strong></P>"
Info.MoveNext
Loop
HTML = HTML & "</body>"
HTML = HTML & "</html>"
Info.Close
Set Info = Nothing
Protexnytt.Body = HTML
Protexnytt.BodyFormat = CdoBodyFormatHTML
Protexnytt.MailFormat = CdoMailFormatMime
Protexnytt.Send
Set Protexnytt = Nothing
End If
%>