Frågan#1
Halloj!
Har en, i mitt tycke en väl fungerande e-postlista som pumpar via Jmail. Nu funderar jag på att bygga på skriptet med en funktion för att även spara ner utskicken till en db. Detta mest bara för att det kan vara kul/användbart/nyttigt att ha kvar tidigare utskick. Hur gör jag det på smuttigaste sättet?
Slingan för att skicka ut ser ut så här:
Do While Not RecSet.EOF
Set jmail = Server.CreateObject("JMail.Message")
jmail.Logging = True
jmail.From = dinemail
jmail.Fromname = dittnamn
jmail.AddRecipient ""& RecSet("Email") &""
jmail.Subject = Request.Form("Subject")
jmail.appendHTML"<font face=verdana size=1>"
jmail.appendHTML"<b>Nyhetsbrev från " & sidnamn & "!</b><br>"
jmail.appendHTML"---------------------------------------------------------------------<br>"
jmail.appendHTML"<b>Skickades:</b> " & Now & "<br>"
jmail.appendHTML"---------------------------------------------------------------------<br>"
jmail.appendHTML Meddelande & "<br>"
jmail.appendHTML"</font>"
jmail.Send (smtpadress)
Set jmail = nothing
X = X + 1
RecSet.MoveNext
Loop
RecSet.Close
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing
Var och hur bör inserten till db:n göras :q
