22. maj 2007 - 14:02Der er
19 kommentarer og 1 løsning
Finde emails til nyhedsmail i anden tabel
Hejsa
Jeg har et system, hvori jeg skal sende en opgørelse ud til de brugere, hvis konto ikke er 0.
Mit problem er bare at brugerens email ligger i en anden tabel kaldet tbl_user. Dvs. at først skal alle brugerne, hvis konto er forskellig fra 0 udvælges og derefter skal deres emailadresser så hentes i tbl_user, hvor login_id i tbl_user er det samme som login_id i tbl_konto.
Håber i forstår hvad jeg mener.
Jeg har nedenstående kode, hvori jeg mangler at få valgt emailen. ---------------------------------- strSQL = "SELECT konto_ialt from tbl_konto where konto_ialt <> 0" Set res = Conn.Execute(strSQL)
if request.Form("TestMail") = "ON" then arrEmail = request.form("TestMailAdr") else arrEmail = res.GetRows() end if
For num = 0 to Ubound(arrEmail,2) objMail.AddRecipient(arrEmail(0, num)) objMail.HTMLBody = "<html><head><title></title></head><body vlink='#666666' link='#000000' bgcolor='#ffffff'>Dette er din Soccerzone faktura. Du skylder: " & res("konto_ialt") &"kr.</body></html>"
If objMail.Execute Then Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>" Else Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>" End If objMail.ClearRecipients Next Set objMail = Nothing
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
kan jo se linjen er magen til det jeg skrev tidligere.. så er du sikker på at kolonnenavnet hedder email som jeg har skrevet? kolonnenavnene skal selvfølgelig findes i din database for at den virker
strSQL = "SELECT email,konto_ialt from tbl_user,tbl_konto where konto_ialt <> 0 and tbl_user.login_id = tbl_konto.login_id" Set res = Conn.Execute(strSQL)
if request.Form("TestMail") = "ON" then arrEmail = request.form("TestMailAdr") else arrEmail = res.GetRows() end if
For num = 0 to Ubound(arrEmail,2) objMail.AddRecipient(arrEmail(0, num)) objMail.HTMLBody = "<html><head><title></title></head><body vlink='#666666' link='#000000' bgcolor='#ffffff'>Dette er din Soccerzone faktura. Du skylder: " & res("konto_ialt") &"kr.</body></html>"
If objMail.Execute Then Response.Write "<font color=green>" & arrEmail(0, num) & " (" & num & ") OK</font><br>" Else Response.Write "<font color=red>" & arrEmail(0, num) & " (" & num & ") FEJL</font><br>" End If objMail.ClearRecipients Next Set objMail = Nothing ---------------------------------------------- Gør jeg noget galt her?
ja, men må indrømme, at jeg ikke kan se hvorfor du først hiver det over i et array... nemmest er bare at løbe "res" igennem som er et resultset.. altså en masse rækker med 2 kolonner (email og konto_ialt) og det er jo lige præcis disse du gerne vil have udskrevet:)
hvis det er denne sql vi blev enige om strSQL = "SELECT email,konto_ialt from tbl_user,tbl_konto where konto_ialt <> 0 and tbl_user.login_id = tbl_konto.login_id"
så skal den bare se sådan ud
strSQL = "SELECT email,konto_ialt,tbl_user.navn from tbl_user,tbl_konto where konto_ialt <> 0 and tbl_user.login_id = tbl_konto.login_id"
hvis du ikke få navn ud med den så bare skriv den sådan her
strSQL = "SELECT email,konto_ialt,tbl_user.navn as navn from tbl_user,tbl_konto where konto_ialt <> 0 and tbl_user.login_id = tbl_konto.login_id"
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.