NyhetsBrev

håller på och utvecklar min sida något mer.
Men när det kommer till nyhetsbrev så står jag
rätt stummm. Nåra tips på vart man kan hitta nyhetsbrev?

Tjena!

Nyhetsbrev... hmm... beror pa vad du har for komponent installerad? Jmail, CDONTS???

Nar du vet finns det om hur man gor har pa wF om du soker lite... annars sok pa google lite...

/Chris

Mitt hotel stödjer bägge.. Ja jo jag vet att google finns. Men ja syftar mer på om folk ha tips. Mena sök du på nyhetsbrev du lär ju få många träffar :)

Jag har en gjort en sådan sida vet ej dock om den är bra men du får koden direkt ifrån den. Så du får nog ändra lite.
Var ett år edan jag skrev detta javascriptet har jag med för att det inte skall bli timeout. Jag har lyckats skicka mail till 5000 med detta script. Mer har jag inte försökt.

<!--#Include File="../_misc/nyhetsbrev.asp"-->
<!--#Include File="head.asp"-->
<%
Dim sMessage, iPage
If Len(session("Id")) <= 0 Then response.Redirect "default.asp?error=2"

Server.ScriptTimeOut = 120000
Session.TimeOut = 360
	
SQL = "Select * From Usr Where UsrId = "&Session("id")&""
Set Rs2 = Conn.execute(SQL)

SQL = "Select * From Emailadresses Where UsrId = "&Session("Id")&""
Set Rs = Conn.Execute(SQL)

iPage = Request.Querystring("page")

If not iPage <= 1 and not len(iPage) = 0 Then
	Rs.Move(iPage*10-9) 
else
	iPage=iPage+1
End if

If Not iPage >= 2 Then
	Session("Message") = Request.Form("Message")
	Session("Subject") = Request.Form("subject")
	Session("From") = Rs2("Email")
	Session("fromname") = Rs2("title")

	iVIP = Rs2("VIP")
End If

Do until rs.eof or icount => 10
	If Len(iVip) = 0 or iVip = 0 Then
	strMessage = Session("message")
	Else
	strMessage = Session("message")
	End If
	iCount = iCount+1
	sEmail = Rs("Email")
	set msg = Server.CreateOBject( "JMail.Message" )
	msg.From = Session("from")
	msg.FromName = Session("fromname")
	msg.Body = strMessage
	msg.AddRecipient sEmail
	msg.Subject = Session("subject")
	msg.Send("mail.ebid.se")
	set msg = Nothing
	Rs.MoveNext
	If Not Rs.Eof And iCount = 10 Then Response.Write "<Script language=javascript>location.href='sendit.asp?page="&iPage+1&"'</Script>"
Loop
Set Rs = Nothing
If iPage = 1 Then
SQL = "Insert Into Sent(UsrId,Sent,Subject,Message) Values("&Session("Id")&",#"&now()&"#,'"&sSubject&"','"&sMessage&"')"
Set Rs = Conn.Execute(SQL)
End If
conn.close
%>
<!--#Include File="bottom.asp"-->

oh tack :)