--- title: "Dubbelutskick..." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/79110-dubbelutskick" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Asa" published: "2003-06-06T21:53:12.000Z" updated: "2003-06-07T12:46:47.000Z" replies: 5 views: 203 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/79110-dubbelutskick" --- # Dubbelutskick... ## #1 — Asa, 2003-06-06T21:53Z Nån som ser nå fel i denna kod som gör att 2 mail skickas till Första AddRecipient?!? ``` <%Set User = Conn.Execute("Select * From shop_orders Where orderNr=" & Request.QueryString("send")) Set RecSet = Conn.Execute("Select * From shop_orderinfo Where orderNr=" & Request.QueryString("send")) Set jmail = Server.CreateObject("JMail.Message") jmail.AddRecipient User("Email") jmail.AddRecipient Mailen jmail.From = Mailen jmail.Subject = OrderBekrRub jmail.HTMLBody = "Här är din orderbekräftelse:
" jmail.appendHTML "" jmail.appendHTML "
" jmail.appendHTML "" jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML "
Ordernummer: " & User("ordernr") & "
" jmail.appendHTML " Kunduppgifter:
" jmail.appendHTML User("fname") & " " & User("ename") & "
" jmail.appendHTML User("adress") & "
" jmail.appendHTML User("postalnr") & " " & User("city") jmail.appendHTML "

" jmail.appendHTML User("phone") & "
" jmail.appendHTML " " & User("email") & "

" jmail.appendHTML "

" If User("ovrigt") <> "" Then jmail.appendHTML " Övrigt:
" & Replace(User("ovrigt"), vbCrLf, "
") & "" End If jmail.appendHTML "
Beställning
" jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " Do Until RecSet.EOF ArtNr = "artNr_" & RecSet("artType") Set RS = Conn.Execute("Select * From shop_products Where " & ArtNr & "='" & RecSet("artNr") & "'") Set Kat = Conn.Execute("Select * From shop_category Where id=" & RS("cat")) Set Ukat = Conn.Execute("Select * From shop_category Where id=" & Kat("ucategory")) jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " Total = Total + (RecSet("quantity") * RS("price_" & RecSet("artType"))) RecSet.MoveNext Loop jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML "
Art.nrAntalBeskrivningPris
" & RecSet("artNr") & "" & RecSet("quantity") & "" & RS("product") & "" & RS("price_" & RecSet("artType")) & " kr
Summa: " & Total & " kr
" jmail.Body = "Du kan inte läsa HTML-mail." jmail.appendText "Det var ju inte så bra..." jmail.Send(SMTP) If jmail.Send(SMTP) Then Response.Redirect "main.asp?mess=error" Else Response.Redirect "index.asp" End If%> ``` Permalänk: https://www.webforum.nu/p/79110 ## #2 — Sebbe, 2003-06-06T21:58Z Ändra ``` jmail.Send(SMTP) If jmail.Send(SMTP) Then Response.Redirect "main.asp?mess=error" Else Response.Redirect "index.asp" End If%> ``` till ``` If jmail.Send(SMTP) Then Response.Redirect "main.asp?mess=error" Else Response.Redirect "index.asp" End If%> ``` Permalänk: https://www.webforum.nu/p/1075436 ## #3 — PatrikB, 2003-06-07T09:13Z ovan bör vara lösningen ...... såg lite fel ;) cya, PatrikB Permalänk: https://www.webforum.nu/p/1075548 ## #4 — Asa, 2003-06-07T12:34Z Ahh! Tackar :) Permalänk: https://www.webforum.nu/p/1075630 ## #5 — Asa, 2003-06-07T12:45Z Nu står detta när jag kör filen. Fick ej det förrut... ``` Active Server Pages error 'ASP 0239' Cannot process file /new/send.asp, line 1 UNICODE ASP files are not supported. ``` Denna kod.. ``` <%Set User = Conn.Execute("Select * From shop_orders Where orderNr=" & Request.QueryString("send")) Set RecSet = Conn.Execute("Select * From shop_orderinfo Where orderNr=" & Request.QueryString("send")) Set jmail = Server.CreateObject("JMail.Message") jmail.AddRecipient User("Email") jmail.AddRecipient Mailen jmail.From = Mailen jmail.Subject = OrderBekrRub jmail.appendHTML "" jmail.appendHTML "
" jmail.appendHTML "" jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML "
Farsta Lås AB
Ordernummer: " & User("ordernr") & "
" jmail.appendHTML " Kunduppgifter:
" jmail.appendHTML User("fname") & " " & User("ename") & "
" jmail.appendHTML User("adress") & "
" jmail.appendHTML User("postalnr") & " " & User("city") jmail.appendHTML "

" jmail.appendHTML User("phone") & "
" jmail.appendHTML " " & User("email") & "

" jmail.appendHTML "

" If User("ovrigt") <> "" Then jmail.appendHTML " Övrigt:
" & Replace(User("ovrigt"), vbCrLf, "
") & "" End If jmail.appendHTML "
Beställning
" jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " Do Until RecSet.EOF ArtNr = "artNr_" & RecSet("artType") Set RS = Conn.Execute("Select * From shop_products Where " & ArtNr & "='" & RecSet("artNr") & "'") Set Kat = Conn.Execute("Select * From shop_category Where id=" & RS("cat")) Set Ukat = Conn.Execute("Select * From shop_category Where id=" & Kat("ucategory")) jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " Total = Total + (RecSet("quantity") * RS("price_" & RecSet("artType"))) RecSet.MoveNext Loop jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML " " jmail.appendHTML "
Art.nrAntalBeskrivningPris
" & RecSet("artNr") & "" & RecSet("quantity") & "" & RS("product") & "" & RS("price_" & RecSet("artType")) & " kr
Summa: " & Total & " kr
" jmail.Body = "Du kan inte läsa HTML-mail." jmail.appendText "Det var ju inte så bra..." If jmail.Send(SMTP) Then Response.Redirect "main.asp" Else Response.Redirect "main.asp?mess=error" End If%> ``` Permalänk: https://www.webforum.nu/p/1075635 ## #6 — Asa, 2003-06-07T12:46Z Jag skapade en ny fil å radera den gamla å då funkade det... Permalänk: https://www.webforum.nu/p/1075637 --- Tråden på webben: https://www.webforum.nu/amne/asp/79110-dubbelutskick