webForumDet fria alternativet

Select where True?

3 svar · 295 visningar · startad av webbmannen

webbmannenMedlem sedan dec. 1999826 inlägg
#1

Jag ska hämta alla epostadresser ur en Access 2000 db där ett True/False fält anger vilka som ska ha mailet och inte.

Den här koden är inte rätt men hur ska den skrivas?

SQL = "SELECT * FROM elistatextmail WHERE nyhetsbrev = True"

/webb

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Jag ser inget fel i den koden. Får du något fel eller så?

webbmannenMedlem sedan dec. 1999826 inlägg
#3

Problemet ligger kanske någon annanstans i nedanstående kod då. Tog bara för givet att det var "True" som strulade.

Problemet är att det endast skickas ut till en enda epostadress trots att det ska vara flera enligt databasens register.

En mer fullständig kod ser ut så här:

If Request.Form("send") = "Skicka brevet" Then

Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTso = objFso.OpenTextFile("sökvägen\text.txt")
text = objTso.ReadAll

Set Connect = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=sökvägen\textelista.mdb"

SQL = "SELECT * FROM elistatextmail WHERE nyhetsbrev = True"
rs.Open SQL, Connect

	Do While Not rs.EOF

	mottagare = rs("eadress")
	sender = "sändande@epostadress.se"
	Set JMail = Server.CreateObject("Jmail.Message")

	JMail.AddRecipient  mottagare
	JMail.From = sender
	JMail.Subject = "Nyhetsbrev"
	JMail.Body = replace(text,"<br>",vbCrLf)
	JMail.Send( "smtp.digikom.net" )

	rs.MoveNext
	Loop

Connect.Close
Response.Redirect "brev_skickat.asp?id=2"

End If

Vad är det jag inte ser?

/webb

webbmannenMedlem sedan dec. 1999826 inlägg
#4

Saken är löst - glömt att ändra sökväg och alltså gick frågan till fel db :r

255 ms totalt · 3 externa anrop · v20260731065814-full.30151723
132 ms — hämta forumlista (db)
121 ms — hämta statistik (db)
132 ms — hämta tråd, inlägg och bilagor (db)