Lagra många poster!

5 svar · 192 visningar · startad av webbSAJTEN 24 feb. 2005

webbSAJTENMedlem sedan jan. 2002992 inlägg

Frågan24 feb. 2005 10:48#1

Tjenare!
Jag skulle vilja veta hur man går till väga för att skicka ut till mail till alla som är registrerade på min hemsida.
Inte ett vanligt mail, utan allt sparas i en databas.
Den måste få reda på allas användarnamn, förnamn, efternamn m.m.
Allt det finns i tabellen Anv i databasen.
Sen ska allt lagras som ett utgående mail i tabellen Inkorg.

Är det någon som förstår?

PoffeMedlem sedan apr. 20022 743 inlägg

24 feb. 2005 10:51#2

Där du ska skicka det så gör du en loop som loopar igenom alla poster i användartabellen, precis som när du ska skriva ut alla anävndare. Fast istället för att skriva ut dem så sätter du en insert i loopen som lägger till posten i tabellen Inkorg.

Fredde MannenMedlem sedan nov. 20014 054 inlägg

24 feb. 2005 10:51#3

^
_____|
Stämmer bra.. :)

Missuppfatta en grej..

webbSAJTENMedlem sedan jan. 2002992 inlägg

24 feb. 2005 10:53#4

tackar! Jag ska testa lite =)
Återkommer om jag får problem!

webbSAJTENMedlem sedan jan. 2002992 inlägg

24 feb. 2005 11:02#5

Är det ungefär såhär ni menar??

SQl = "Select ID, StrFnamn, strEnamn, anv from anv"
	Set skicka = Connect.Execute(SQL)
	
	do until skicka.eof
	
	Dim AllaTill, AllaFran, AllaTillID, AllaFranID, AllaintStatus, AllaDatum, AllaRubrik, AllaMail
AllaTill = skicka("Anv")
AllaFran = "Moderator"
AllaTillID = skicka("ID")
AllaFranID = "0"
AllaintStatus = "0"
AllaDatum = now()
AllaRubrik = request.form("rubrik")
AllaMail = request.Form("mail")

sql = "INSERT INTO inkorg(strTill,strFran,intTillID,intFranID,intStatus,strDatum,strRubrik,strMail) VALUES('"& AllaTill &"', '"& AllaFran &"', "& AllaTillID &", '"& AllaFranID &"', "& AllaintStatus &", '"& AllaDatum &"', '"& AllaRubrik &"', '"& AllaMail &"')"
	     'response.Write(SQL)
		 Connect.Execute(sql),,128
		 
		 skicka.MoveNext
		 Loop

webbSAJTENMedlem sedan jan. 2002992 inlägg

24 feb. 2005 11:08#6

Det funkade faktiskt jättebra =)
tack för hjälpen!