3 svar · 390 visningar · startad av Bire
Hur gör man för att det ska skickas ett E-mail till mig så fort det har tillkommit uppgifter i min databas som är kopplad till min webshop ? Jag kliar mig i skallen och funderar så att jag håller på att bli tokig ! Jag vill få en order mailad från webshopen alltså, samt en orderbekräftelse till kunden !
HJÄÄÄLP !
------------------
//BIRE
http://bire.cjb.net
bire@telia.com
Det gör du väl lättast på samma sida som du för in uppgifterna i databasen.
Ex:
==========================================================
set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "minadress@here.se"
objMail.From = "avsandare@there.se"
objMail.Subject = "Rubriken..."
objMail.Body = "Nu har du fått mejl..."
objMail.Send
set objMail = Nothing
==========================================================
------------------
/ Torbjörn Hansson
Jag bifogar url till min shop som är under utveckling om det kan vara till någon hjälp... Jag fattar inte vart jag ska lägga in mailfunktionen alls ! http://bire.webhostme.com/aspshop/
------------------
//BIRE
http://bire.cjb.net
bire@telia.com
Hejsan Bire, vore kul att höra om du fick ording på denna funktion som du efterfrågade.
Speciellt när jag själv behöver ha lite hjälp med att få min orderbekräftelse att fungera.
Jag försökte lösa det såhär men cdonts vill bara inte skicka det, nån som vet var felet kan vara??
<%
set conntemp = Server.CreateObject("ADODB.Connection")
DSNtemp = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp = DSNtemp & "DBQ=" & Server.MapPath(" ../artiklar.mdb")
conntemp.Open DSNtemp
set rs = conntemp.Execute(" SELECT * From TempTab Where kundID='" & Session("AFnummer") & "'")
Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strBody
Dim lngImportance
strFrom = "ÅFnummer: " & Session("AFnummer")
Do While Not rs.EOF
strBody = "Artikelnummer: " & rs("txtArtikelNr")
strBody = strBody & " Färgkod: " & rs("txtFargkod")
strBody = strBody & " Antal: " & rs("nAntal")
strBody = strBody & " Önskat lev.datum: " & rs("levdatum")
rs.MoveNext
Loop
strFrom=request.form("txtFrom")
strTo="look@doingit.nu"
strSubject = request.form("txtSubject")
strBody=request.form("txtArtikelNr,txtFargkod,nAntal,levdatum")
lngImportance = request.form("optImportance")
Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom,strTo,strSubject,strBody,lngImportance
Set myCDONTSMail = Nothing
%\>
<body bgcolor="#CCCCCC" text="#333399">
<div align="center">
<p> </p>
<p> </p>
<p><font face="Arial, Helvetica, sans-serif" size="3">Tack för din beställning.
Vi ska ta hand om den så fort vi kan. </font> </p>
</div>
<%
set conntemp = Server.CreateObject("ADODB.Connection")
DSNtemp = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp = DSNtemp & "DBQ=" & Server.MapPath(" ../artiklar.mdb")
conntemp.Open DSNtemp
set rs = conntemp.Execute("DELETE FROM TempTab Where kundID='" & Session("AFnummer") & "'")
%>