Dubbelutskick...

5 svar · 196 visningar · startad av Asa 6 juni 2003

AsaMedlem sedan dec. 20011 860 inlägg

6 juni 2003 21:53#1

Nån som ser nå fel i denna kod som gör att 2 mail skickas till Första AddRecipient?!?

<!--#Include file="inc/settings.asp"-->
<!--#Include file="inc/db.asp"-->

<%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 = "<html><body><span class=""rubrik1"" align=""center"">Här är din orderbekräftelse:</span><br>"
    jmail.appendHTML "<link rel=""stylesheet"" href=""" & Style & """ type=""text/css"">"
    jmail.appendHTML "<body bgcolor=""#FFFFFF"" text=""#000000"" topmargin=""0"" leftmargin=""0"" marginwidth=""0"" marginheight=""0""><br>"
    jmail.appendHTML "<table border=""0"" width=""450"" cellspacing=""3"" cellpadding=""0"" align=""center"">"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "    <td><span class=""rubrik1"">Ordernummer: " & User("ordernr") & "</span></td>"
    jmail.appendHTML "    <td align=""right""><a href=""#"" onClick=""window.print();return false""><img src=""../bilder/print.gif"" width=""18"" height=""16"" alt=""Skriv ut order"" border=""0""></a></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "      <td colspan=""2"" bgcolor=""#336699"" height=""1"" colspan=""4""></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "     <td valign=""top"" width=""60%"">"
    jmail.appendHTML "       <font color=""#336699""><b>Kunduppgifter:</font><br>"
    jmail.appendHTML         User("fname") & "&nbsp;" & User("ename") & "<br>"
    jmail.appendHTML         User("adress") & "<bR>"
    jmail.appendHTML         User("postalnr") & "&nbsp;" & User("city")
    jmail.appendHTML "       <p>"
    jmail.appendHTML         User("phone") & "<bR>"
    jmail.appendHTML "       <a href=""mailto:" & User("email") & """ class=""link2"">" & User("email") & "</a><br></b><p>"
    jmail.appendHTML "     </td>"
    jmail.appendHTML "     <td valign=""top"" width=""40%"">"
If User("ovrigt") <> "" Then
    jmail.appendHTML "         <font color=""#336699""><b>Övrigt:</font><br>" & Replace(User("ovrigt"), vbCrLf, "<br>") & "</b>"
End If
    jmail.appendHTML "     </td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "      <td colspan=""2"" height=""1"" colspan=""4""><font color=""#336699""><b>Beställning</font></b></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "      <td colspan=""2"" bgcolor=""#336699"" height=""1"" colspan=""4""></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   </table>"
    jmail.appendHTML "   <table border=""0"" cellspacing=""3"" cellpadding=""0"" width=""450"" align=""center"">"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "     <td align=""left"" width=""20%"" class=""td11""><b>Art.nr</td>"
    jmail.appendHTML "     <td align=""left"" width=""15%"" class=""td11""><b>Antal</td>"
    jmail.appendHTML "     <td align=""left"" width=""50%"" class=""td11""><b>Beskrivning</td>"
    jmail.appendHTML "     <td align=""left"" width=""15%"" class=""td11""><b>Pris</td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "      <td colspan=""4"" bgcolor=""#336699"" height=""1"" colspan=""4""></td>"
    jmail.appendHTML "   </tr>"
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 "   <tr>"
    jmail.appendHTML "      <td nowrap><b>" & RecSet("artNr") & "</b></td>"
    jmail.appendHTML "      <td nowrap><b>" & RecSet("quantity") & "</b></td>"
    jmail.appendHTML "      <td nowrap><b>" & RS("product") & "</b></td>"
    jmail.appendHTML "      <td nowrap><b>" & RS("price_" & RecSet("artType")) & " kr</b></td>"
    jmail.appendHTML "   </tr>"
Total = Total + (RecSet("quantity") * RS("price_" & RecSet("artType")))
RecSet.MoveNext
Loop
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "     <td colspan=""4"" align=""center""><hr size=""1"" noshade color=""" & Color1 & """></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "     <td align=""right"" colspan=""4""><b>Summa: " & Total & " kr</b></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "</table>"	

    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%>

SebbeMedlem sedan jan. 20032 285 inlägg

6 juni 2003 21:58#2

Ä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%>

PatrikBMedlem sedan mars 20002 836 inlägg

7 juni 2003 09:13#3

ovan bör vara lösningen ...... såg lite fel ;)

cya,
PatrikB

AsaMedlem sedan dec. 20011 860 inlägg

7 juni 2003 12:34#4

Ahh! Tackar :)

AsaMedlem sedan dec. 20011 860 inlägg

7 juni 2003 12:45#5

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..

<!--#Include file="inc/db.asp"-->
<!--#Include file="inc/settings.asp"-->

<%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 "<link rel=""stylesheet"" href=""" & Style & """ type=""text/css"">"
    jmail.appendHTML "<body bgcolor=""#FFFFFF"" text=""#000000"" topmargin=""0"" leftmargin=""0"" marginwidth=""0"" marginheight=""0""><br>"
    jmail.appendHTML "<table border=""0"" width=""450"" cellspacing=""3"" cellpadding=""0"" align=""center"">"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "    <td colspan=""2""><font face=""verdana, arial"" size=""6"" color=""#336699""><strong>Farsta Lås AB</strong></font></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "    <td><span class=""rubrik1""><strong>Ordernummer:</strong> " & User("ordernr") & "</span></td>"
    jmail.appendHTML "    <td align=""right""></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "      <td colspan=""2"" bgcolor=""#336699"" height=""1"" colspan=""4""></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "     <td valign=""top"" width=""60%"">"
    jmail.appendHTML "       <font color=""#336699""><b>Kunduppgifter:</font><br>"
    jmail.appendHTML         User("fname") & "&nbsp;" & User("ename") & "<br>"
    jmail.appendHTML         User("adress") & "<bR>"
    jmail.appendHTML         User("postalnr") & "&nbsp;" & User("city")
    jmail.appendHTML "       <p>"
    jmail.appendHTML         User("phone") & "<bR>"
    jmail.appendHTML "       <a href=""mailto:" & User("email") & """ class=""link2"">" & User("email") & "</a><br></b><p>"
    jmail.appendHTML "     </td>"
    jmail.appendHTML "     <td valign=""top"" width=""40%"">"
If User("ovrigt") <> "" Then
    jmail.appendHTML "         <font color=""#336699""><b>Övrigt:</font><br>" & Replace(User("ovrigt"), vbCrLf, "<br>") & "</b>"
End If
    jmail.appendHTML "     </td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "      <td colspan=""2"" height=""1"" colspan=""4""><font color=""#336699""><b>Beställning</font></b></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "      <td colspan=""2"" bgcolor=""#336699"" height=""1"" colspan=""4""></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   </table>"
    jmail.appendHTML "   <table border=""0"" cellspacing=""3"" cellpadding=""0"" width=""450"" align=""center"">"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "     <td align=""left"" width=""20%"" class=""td11""><b>Art.nr</td>"
    jmail.appendHTML "     <td align=""left"" width=""15%"" class=""td11""><b>Antal</td>"
    jmail.appendHTML "     <td align=""left"" width=""50%"" class=""td11""><b>Beskrivning</td>"
    jmail.appendHTML "     <td align=""left"" width=""15%"" class=""td11""><b>Pris</td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "      <td colspan=""4"" bgcolor=""#336699"" height=""1"" colspan=""4""></td>"
    jmail.appendHTML "   </tr>"
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 "   <tr>"
    jmail.appendHTML "      <td nowrap><b>" & RecSet("artNr") & "</b></td>"
    jmail.appendHTML "      <td nowrap><b>" & RecSet("quantity") & "</b></td>"
    jmail.appendHTML "      <td nowrap><b>" & RS("product") & "</b></td>"
    jmail.appendHTML "      <td nowrap><b>" & RS("price_" & RecSet("artType")) & " kr</b></td>"
    jmail.appendHTML "   </tr>"
Total = Total + (RecSet("quantity") * RS("price_" & RecSet("artType")))
RecSet.MoveNext
Loop
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "     <td colspan=""4"" align=""center""><hr size=""1"" noshade color=""" & Color1 & """></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "   <tr>"
    jmail.appendHTML "     <td align=""right"" colspan=""4""><b>Summa: " & Total & " kr</b></td>"
    jmail.appendHTML "   </tr>"
    jmail.appendHTML "</table>"	

    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%>

AsaMedlem sedan dec. 20011 860 inlägg

7 juni 2003 12:46#6

Jag skapade en ny fil å radera den gamla å då funkade det...