Just nu i M3-nätverket
Gå till innehåll

Diamen

Medlem
  • Antal inlägg

    7
  • Gick med

  • Senaste besök

    Aldrig
  1. ASP koden är tagen och jag har inte lagt ner någon tid att banta ner den. Har nu döpt om NyEpost till NyEpost2. Hoppas att det lösennå´t. De två olika mail taggarna ligger dock inte i samma fil, men de aktiveras efter varandra i var sin fil. Har fungerat förut men så i Oktobr slutade det att funka... Funderar på vad det kan vara?
  2. Hej. Jag har en ehandel där jag skickar ett beställningsmail till leverantör och ett orderbekräftelsemail till kund. Båda dessa får jag dåld kopia på. Detta har funkat fint för mig fram till början Oktober. Numera skickas beställningen men orderbekräftelsen fastnar. Är dert någon som kan hjälpa. Önsar att få svar på pannecke@comhem.se Koder för beställning: [log] <% Dim NyEpost, Meddelandet, ant, prs, Summa, TotSumma %> <% Set NyEpost = Server.CreateObject("CDONTS.NewMail") %> <% NyEpost.To = "creative-audio@telia.com" %> <% NyEpost.Bcc = "pannecke@comhem.se" %> <% NyEpost.Importance = 2 %> <% NyEpost.From = RecSet("Epost") %> <% NyEpost.Subject = "KundNr " & RecSet("KID") & ", Webshop beställning, " & RecSet("Fnamn") & " " & RecSet("Enamn") %> <% Meddelandet = "Kund Nr: " & RecSet("KID") & vbCrLf %> <% Meddelandet = Meddelandet & "Företag: " & RecSet("Foretag") & vbCrLf %> <% Meddelandet = Meddelandet & "Namn: " & RecSet("Fnamn") & " " & RecSet("Enamn") & vbCrLf %> <% Meddelandet = Meddelandet & "Adress: " & RecSet("Adress") & vbCrLf %> <% Meddelandet = Meddelandet & "PostNr. " & RecSet("PostNr") & " " & RecSet("PostOrt") & vbCrLf %> <% Meddelandet = Meddelandet & "Tel: " & RecSet("Tel") & vbCrLf %> <% Meddelandet = Meddelandet & "Mobil: " & RecSet("Mobil") & vbCrLf %> <% Meddelandet = Meddelandet & "E-post: " & RecSet("Epost") & vbCrLf & vbCrLf %> <% Meddelandet = Meddelandet & "Order nr. " & RecSet3("SID")& vbCrLf & vbCrLf %> <% Do Until RecSet3.EOF ant = RecSet3("Antal") prs = RecSet3("Pris") Summa = ant * prs %> <% Meddelandet = Meddelandet & RecSet3("Antal") & "st, " & RecSet3("ProdNr") & vbCrLf & RecSet3("Artist") & ", " & RecSet3("Titel") & vbCrLf & "Summa: " & Summa & vbCrLf & vbCrLf %> <% TotSumma = TotSumma + Summa RecSet3.MoveNext Loop %> <% Meddelandet = Meddelandet & vbCrLf & "Summa köp : " & TotSumma & " kr" %> <% NyEpost.Body = Meddelandet %> <% NyEpost.Send %> Koder för orderbekräftelsen: <% Dim NyEpost, Meddelandet %> <% Set NyEpost = Server.CreateObject("CDONTS.NewMail") %> <% NyEpost.To = RecSet("Epost") %> <% NyEpost.cc = "pannecke@comhem.se" %> <% NyEpost.Importance = 2 %> <% NyEpost.From = "creative-audio@telia.com" %> <% NyEpost.Subject = "Orderbekräftelse från Creative-Audio" %> <% Meddelandet = "Hej " & RecSet("Fnamn") & ". " & vbCrLf & vbCrLf & "Vi har tagit emot din beställning." & vbCrLf & vbCrLf %> <% Meddelandet = Meddelandet & "Vi levererar dina varor så fort vi kan, Vid förskottsbetalning på " & vbCrLf %> <% Meddelandet = Meddelandet & "PG 558435-4 inom 5 dagar så bjuder vi på frakten vid köp av alla " & vbCrLf %> <% Meddelandet = Meddelandet & "typer av skivor. Har inte beloppet gått in på PG inom 5 dagar så " & vbCrLf %> <% Meddelandet = Meddelandet & "går produkterna iväg till dig med postförskott och frakt." & vbCrLf & vbCrLf %> <% Meddelandet = Meddelandet & "Vid köp där andra produkter finns med tillkommer frakten." & vbCrLf & vbCrLf %> <% Meddelandet = Meddelandet & "Vid frågor om din order, kontakta oss på creative-audio@telia.com," & vbCrLf%> <% Meddelandet = Meddelandet & "var vänlig uppge ditt kundnummer som är: " & Session("KID") & "." & vbCrLf & vbCrLf %> <% Meddelandet = Meddelandet & "Du har berställt följande varor:" & vbCrLf & vbCrLf %> <% Do Until RecSet3.EOF ant = RecSet3("Antal") prs = RecSet3("Pris") Summa = ant * prs %> <% Meddelandet = Meddelandet & RecSet3("Antal") & "st, " & RecSet3("ProdNr") & vbCrLf & RecSet3("Artist") & ", " & RecSet3("Titel") & vbCrLf & "Summa: " & Summa & vbCrLf & vbCrLf %> <% TotSumma = TotSumma + Summa RecSet3.MoveNext Loop %> <% Meddelandet = Meddelandet & vbCrLf & "Summa köp : " & TotSumma & " Inkl moms." %> <% NyEpost.Body = Meddelandet %> <% NyEpost.Send %> [/log] [inlägget ändrat 2006-12-07 22:57:35 av Diamen] [inlägget ändrat 2006-12-07 22:58:13 av Diamen] [inlägget ändrat 2006-12-09 05:50:32 av Maratonmannen]
  3. Som sagt. Jag har en e-handelida som körs i accessdatabas än så länge. Jag har en tabell dår jag lagrar beställningen, med vilken kund det rör sig om, vad han beställt och antal. För att inte lagra samma info i två tabeller så vill jag hämta en ArtikelId, antal och totalpris från beställningstabellen och resten om produkten från produkt tabellen. Men nu har jag fastnat.
  4. Har en e-handel sida . Har använt cdonts för att jag ska få en bekräftelse till min e-post när någon gör en beställning. Hemsidan där beställningarna görs ligger på min server . Beställningen går iväg men fastnar under c:/Inetpub/mailroot/queue, den skickas alltså inte med mail. Förut fastnade mailen under c:/Inetpub/mailroot/pickup men jag installerade om IIS så att smtp servern kom igång och då flytades alla beställningar till c:/Inetpub/mailroot/queue. Det har funkat förut men inte längre. Fattar inte riktigt vad som felet kan vara .Jag har cdonts.dll i datorn och IIS installerat är det något jag har missat tacksam för svar. Så här ser formuläret som jag använder ut <% Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "eshop@creative-audio.se" objCDO.To = "diamen@bredband.net" objCDO.Value("Reply-To") = Request.Form("email") objCDO.Subject = "Stockfisch bestallning, " & Request.Form("Kontakt") Dim strBody Strbody = strBody & "Tack för din Beställning." & vbCrLf & vbCrLf objCDO.Body = strBody objCDO.Send Set objCDO = Nothing %> [inlägget ändrat 2005-08-01 12:17:11 av Diamen]
  5. är det ingen som kan försöka hjälpa mig
  6. Mina mail fastnar i Inetpub/Mailroot/pickup. Det har det gjort sedan jag fick intallera om servern. MAO. har det funkat innan, men vad har jag gjort för fel?
  7. Varje gång jag startar internet explorer så varnar virus programmet för Trojan horse downloaders small 18 T och att den finns i sysupd.dll. Har tagit bord den med virusprogrammet. Kört spybot och även CW shredder. Men den kommer tillbaka hela tiden. Någon som vet vad detta rör sig om. Och hur får jag bort problemet /Diamen
×
×
  • Skapa nytt...