Dubbelutskick...

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

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

cya,
PatrikB

Ahh! Tackar

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

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