Notifikationer

Markér alle som læst Log ud

webbygger Nybegynder

18. februar 2006 - 21:29 Der er 37 kommentarer og
1 løsning

Logo på ordrebekræftelse!

Hej!

Jeg sidder og roder med en ordrebekræftelse som bliver sendt med Jmail.

På denne ordrebekræftelse kunne jeg godt tænke mig, at indsætte shoppens logo, men det kommer ikke med på mailen/ordrebekræftelse. Hvordan kan det være????

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 21:32 #1

Der er fejl i linie 5.....

Det betyder: lad os se noget kode

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 21:34 #2

SORRY.............

<%@LANGUAGE="VBSCRIPT"lcid=1030 %>

<%
OrderID=Request("OrderID")
%>
<%
Dim OrdersRS__value
OrdersRS__value = "0"
if (OrderID <> "") then OrdersRS__value = OrderID
%>
<%
set OrdersRS = Server.CreateObject("ADODB.Recordset")
OrdersRS.ActiveConnection = MM_CharonCart_STRING
OrdersRS.Source = "SELECT * FROM Orders WHERE OrderID=" + Replace(OrdersRS__value, "'", "''") + ""
OrdersRS.CursorType = 0
OrdersRS.CursorLocation = 2
OrdersRS.LockType = 3
OrdersRS.Open()
OrdersRS_numRows = 0
%>
<%
CustomerID=OrdersRS("CustomerID")
%>
<%
Dim CustomersRS__value
CustomersRS__value = "0"
if (CustomerID <> "") then CustomersRS__value = CustomerID
%>
<%
set CustomersRS = Server.CreateObject("ADODB.Recordset")
CustomersRS.ActiveConnection = MM_CharonCart_STRING
CustomersRS.Source = "SELECT * FROM Customers WHERE CustomerID=" + Replace(CustomersRS__value, "'", "''") + ""
CustomersRS.CursorType = 0
CustomersRS.CursorLocation = 2
CustomersRS.LockType = 3
CustomersRS.Open()
CustomersRS_numRows = 0
%>
<%
Dim OrderDetailsRS__value1
OrderDetailsRS__value1 = "0"
if (OrderID <> "") then OrderDetailsRS__value1 = OrderID
%>
<%
set OrderDetailsRS = Server.CreateObject("ADODB.Recordset")
OrderDetailsRS.ActiveConnection = MM_CharonCart_STRING
OrderDetailsRS.Source = "SELECT *,UnitPrice*Quantity as LineTotal FROM OrderDetails WHERE OrderID=" + Replace(OrderDetailsRS__value1, "'", "''") + ""
OrderDetailsRS.CursorType = 0
OrderDetailsRS.CursorLocation = 2
OrderDetailsRS.LockType = 3
OrderDetailsRS.Open()
OrderDetailsRS_numRows = 0
%>
<%
Dim Tekst
Dim Tekst_numRows

Set Tekst = Server.CreateObject("ADODB.Recordset")
Tekst.ActiveConnection = MM_CharonCart_STRING
Tekst.Source = "SELECT * FROM kontaktoplysninger"
Tekst.CursorType = 0
Tekst.CursorLocation = 2
Tekst.LockType = 1
Tekst.Open()

Tekst_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
OrderDetailsRS_numRows = OrderDetailsRS_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Ordre bekræftelse</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">

</style>

</head>
<body TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 bgcolor="#FFFFFF">
<table width="90%" border="0" cellpadding="3" class="logo">
<tr>
<td valign="top"> <table width="100%" border="0" cellpadding="5" cellspacing="1" class="story">
<tr valign="middle">
<td bgcolor="white"> </td>
<td bgcolor="white"><div align="right"><img src="../design_images/Brevlogo.jpg" width="194" height="150"></div></td>
</tr>
<tr valign="middle">
<td bgcolor="white">Kontakt Information</td>
<td width="50%" bgcolor="white"> OrdreID: <%=(OrdersRS.Fields.Item("OrderID").Value)%>    </td>
</tr>
<tr>
<td width="50%" valign="top" bgcolor="white"> <%=Server.HtmlEncode(CustomersRS.Fields.Item("FirstName").Value)%> <%=Server.HtmlEncode(CustomersRS.Fields.Item("LastName").Value)%> 
 Telefon: <%=(CustomersRS.Fields.Item("Phone").Value)%> Telefax: <%=(CustomersRS.Fields.Item("Fax").Value)%> Email: <%=(CustomersRS.Fields.Item("CustomerEmail").Value)%></td>
<td width="50%" valign="top" bgcolor="white"> 
Dato: <%=(OrdersRS.Fields.Item("OrderDate").Value)%></td>
</tr>
<tr bgcolor="#eeeeee">
<td width="50%" height="25">Kunde Info</td>
<td width="50%" height="25">Leverings Info</td>
</tr>
<tr bgcolor="white">
<td width="50%" valign="top" bgcolor="white"> <%=Server.HtmlEncode(CustomersRS.Fields.Item("BillingAddress1").Value)%> <%=Server.HtmlEncode(CustomersRS.Fields.Item("BillingPostalCode").Value)%>  <%=Server.HtmlEncode(CustomersRS.Fields.Item("BillingCity").Value)%> <%=(CustomersRS.Fields.Item("BillingCountry").Value)%> </td>
<td width="50%" valign="top" bgcolor="white"> <%=Server.HtmlEncode(CustomersRS.Fields.Item("DeliveryAddress1").Value)%> <%=Server.HtmlEncode(CustomersRS.Fields.Item("ShipPostalCode").Value)%>  <%=Server.HtmlEncode(CustomersRS.Fields.Item("ShipCity").Value)%> <%=(CustomersRS.Fields.Item("ShipCountry").Value)%> </td>
</tr>
<tr bgcolor="white">
<td width="50%" valign="top" bgcolor="white"> 
Evt. Bemærkning eller kommentar til ordren:<%=(OrdersRS.Fields.Item("besked").Value)%></td>
<td valign="top" bgcolor="white"> </td>
</tr>
<tr bgcolor="white">
<td valign="top" bgcolor="white">Betalingsform:
<% betaling = FormatNumber(OrdersRS.Fields.Item("Freight"))
if betaling = "70,00" then
Response.write "Efterkrav"
else
Response.write "Bank"
end if
%>
</td>
<td valign="top" bgcolor="white"> </td>
</tr>
<tr bgcolor="white">
<td valign="top" bgcolor="white"> </td>
<td valign="top" bgcolor="white"> </td>
</tr>
</table>
<table width="100%" border="1" cellpadding="5" cellspacing="0" class="story">
<tr bgcolor="#eeeeee" class="tableheader">
<td width="12%" align="center" valign="middle">Antal</td>
<td width="35%" align="center" valign="middle">Vare</td>
<td width="10%" align="center" valign="middle">Str.</td>
<td width="16%" align="center" valign="middle">Farve</td>
<td width="13%" height="25" align="center" valign="middle">Stk. pris</td>
<td width="14%" align="center" valign="middle">Total</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT OrderDetailsRS.EOF))
%>
<tr bgcolor="#FFFFFF">
<td align=center valign=middle bgcolor=#FFFFFF><%=(OrderDetailsRS.Fields.Item("Quantity").Value)%> </td>
<td height="30" valign="middle" bgcolor=#FFFFFF><%=Server.HtmlEncode(OrderDetailsRS.Fields.Item("ProductName").Value)%> </td>
<td align="center" valign=middle bgcolor=#FFFFFF><%=(OrderDetailsRS.Fields.Item("ProductSize").Value)%></td>
<td align="center" valign=middle bgcolor=#FFFFFF><%=Server.HtmlEncode(OrderDetailsRS.Fields.Item("Colour").Value)%></td>
<td align="right" valign=middle bgcolor=#FFFFFF>Kr.<%= FormatNumber((OrderDetailsRS.Fields.Item("UnitPrice").Value), 2) %></td>
<td align="right" valign=middle bgcolor=#FFFFFF>Kr.<%= FormatNumber((OrderDetailsRS.Fields.Item("LineTotal").Value), 2) %> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
OrderDetailsRS.MoveNext()
Wend
%>
</table>
<table width="100%" border="0" cellpadding="5" cellspacing="1" class="story">
<tr>
<td width="40%" rowspan="4" align="center"><table width="100%" border="0">
<tr>
<td><div align="center"><%=Replace(Tekst.Fields.Item("Emailtekst").Value, vbCrLf, " ")%></div></td>
</tr>
<tr>
<td> 
Tak for din bestilling. 
 
MVH GennemsløbsShoppen
      <a href="mailto:<%=(Tekst.Fields.Item("Email1").Value)%>"><%=(Tekst.Fields.Item("Email1").Value)%></a></td>
</tr>
</table>
 
 </td>
<td width="60%" align="right">Sub Total:Kr. <%= FormatNumber((OrdersRS.Fields.Item("SubTotal").Value), 2) %>  </td>
</tr>
<tr>
<td align="right">Forsendelse:Kr. <%= FormatNumber((OrdersRS.Fields.Item("Freight").Value), 2) %>  </td>
</tr>
<tr>
<td align="right">Ialt Total: Kr. <%= FormatNumber((OrdersRS.Fields.Item("GrandTotal").Value), 2) %> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
OrderDetailsRS.Close()
Set OrderDetailsRS = Nothing
%>
<%
Tekst.Close()
Set Tekst = Nothing
%>
<%
CustomersRS.Close()
Set CustomersRS = Nothing
%>
<%
OrdersRS.Close()
Set OrdersRS = Nothing
%>

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 21:40 #3

Hmm... jeg burde have skrevet, at det var JMail-koden vi skulle se.. :-)

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 21:43 #4

Det må være denne her - ikk?

<%
'Start the functions
function SendEmail
'on error resume next 'This code will only work on a Win2k server.
Dim iMsg,iConf,Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

EmailPage="http://rj/V3/Email.asp?OrderID=" & OrderID & "&CustomerID=" & CustomerID
'Response.Write(EmailPage)
'Response.End()

With Flds
' assume constants are defined within script file
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
.Update
End With

With iMsg
Set .Configuration = iConf
.To = CustomerRS("CustomerEmail")
.From = "webshop@rjo.dk"
.Subject = "Charon Cart Order"
'.TextBody = "test"
.CreateMHTMLBody cstr(EmailPage)
.Send
End With
end function

function SendCdoEmail

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
dim strBody
objXML.load(Server.MapPath("xml/orders_email.xml"))
set objNodeXML=objXML.documentElement
strFrom=objNodeXML.selectSingleNode("from").Text
strSubject=objNodeXML.selectSingleNode("subject").Text
strBody=objNodeXML.selectSingleNode("body").Text
Set objXML = Nothing
'Response.Write mailbody(strBody)
'response.End()
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = strFrom
objCDOMail.To = CustomerRS("CustomerEmail")
objCDOMail.Subject = strSubject
objCDOMail.Body = mailbody(strBody)
objCDOMail.MailFormat=0
objCDOMail.BodyFormat=0
objCDOMail.Send
Set objCDOMail = Nothing
end function

'This function will replace the tokens in the XML file with contents of recordset
function mailbody(c)
tmpStr=c
tmpStr=replace(tmpStr,"#OrderID#",Session("OrderID"))
tmpStr=replace(tmpStr,"#OrderDetails#",OrderDetails)
tmpStr=replace(tmpStr,"#OrderSummary#",OrderSummary)
'Look at this next bit. In the XML file, the tokens are replaced by content from the recordset.
'So, if you've got #FirstName# in the XML file
'it will be replaced by FirstName content of recordset. Neat, eh?
for each fld in CustomerRS.Fields
if CustomerRS(fld.Name) & "" <> "" then
tmpStr=replace(tmpStr,"#" & fld.Name & "#",CustomerRS(fld.Name))
end if
next
mailbody=tmpStr
end function

function OrderDetails
tmpStr=""
while not CustomerOrderRS.eof
tmpStr=tmpStr & "ProductID - " & CustomerOrderRS("ProductID") & " "
tmpStr=tmpStr & "Product - " & CustomerOrderRS("ProductName") & " "
tmpStr=tmpStr & "Size - " & CustomerOrderRS("ProductSize") & " "
tmpStr=tmpStr & "Colour - " & CustomerOrderRS("Colour") & " "
tmpStr=tmpStr & "Quantity - " & CustomerOrderRS("Quantity") & " "
tmpStr=tmpStr & "Unit Price - £" & formatnumber(CustomerOrderRS("UnitPrice"),2) & " "
tmpStr=tmpStr & "==============" & " " & " "
CustomerOrderRS.movenext
wend
CustomerOrderRS.requery

OrderDetails=tmpStr
end function

function OrderSummary
tmpStr=""
tmpStr=tmpStr & "Subtotal - £" & formatnumber(OrdersRS("SubTotal"),2) & " "
tmpStr=tmpStr & "Shipping - £" & formatnumber(OrdersRS("Freight"),2) & " "
tmpStr=tmpStr & "Sales Tax - £" & formatnumber(OrdersRS("SalesTax"),2) & " "
tmpStr=tmpStr & "Grandtotal - £" & formatnumber(OrdersRS("GrandTotal"),2) & " " & " "

OrderSummary=tmpStr
end function
%>

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 21:52 #5

Ja, men hvilken funktion bruger du til at sende med..?

Det der ser noget overkill ud.. :-)

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 21:56 #6

Shoppen er en freeware jeg har fundet derude et sted............

Mener du Jmail eller...................

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 22:03 #7

Ja, JMail..

Jeg går ud fra at du bruger funktionen "SendCdoEmail", idet den samler "body"..

Men jeg kan ikke se noget kald til funktionen "SendCdoEmail"..

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 22:12 #8

thesurfer -> for at være helt ærlige har jeg ikke en sk.. forstand på Jmail!!!

Script virker sådan set fint nok, men jeg ville gerne ha' tilføjet en logo på emailen
Demoshoppen kan du se her http://www.gennemloebsshoppen.dk/test/index.asp

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 22:26 #9

Egentligt er det ikke JMail, men CDonts.. jeg ser lige om jeg kan finde noget til dig..

/theSurfer

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 22:29 #10

Her er et eksempel med CDonts og en HTML-formatteret email:
http://www.4guysfromrolla.com/webtech/faq/Email/faq6.shtml

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 22:30 #11

HMmmm har siddet og kikket lidt på script, men fatte nada :o(
Shoppen jeg bruger finder du her http://rjo.dk/rjo/demoshop.asp

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 22:30 #12

Indholdet fra http://www.4guysfromrolla.com/webtech/faq/Email/faq6.shtml :

<%
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")

'//these are all the images that are in this message.
'//you must include them like this.
'//please note that you DO NOT have TO write the
'//entire file path in the <IMG> tag in the body after this.
'//make sure you see the image name after the path separated by a comma

objMail.AttachURL "D:\images\myImage.gif", "myImage.gif"
objMail.AttachURL "D:\images\myImage2.gif", "myImage2.gif"

HTML = HTML & "<HTML>"
HTML = HTML & "<HEAD>"
HTML = HTML & "<TITLE>Send Mail with HTML</TITLE>"
HTML = HTML & "</HEAD>"
HTML = HTML & "<BODY bgcolor=""lightyellow"">"
HTML = HTML & "<TABLE cellpadding=""4"">"
HTML = HTML & "<TR><TH>"
HTML = HTML & now() & " - "
HTML = HTML & "These are all great ASP Sites</TH></TR>"
HTML = HTML & "<TR><TD>"
HTML = HTML & "<A HREF=""http://www.4guysfromrolla.com"">"
HTML = HTML & "<IMG SRC=""myImage.gif""></A> "
HTML = HTML & "<A HREF=""http://www.4guysfromrolla.com"">"
HTML = HTML & "<IMG SRC=""myImage2.gif""></A> "
HTML = HTML & "</TD></TR></TABLE> "
HTML = HTML & "</BODY>"
HTML = HTML & "</HTML>"

objMail.From = "rob@tconsult.com"
objMail.Subject = "Your daily HTML Mail"

'you need TO add these lines FOR the mail
'to be sent in HTML format
objMail.BodyFormat = 0
objMail.MailFormat = 0

objMail.To = "you@yourhouse.com
objMail.Body = HTML
objMail.Send

Response.write("Mail was Sent")
set objMail = nothing
%>

/theSurfer

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 22:32 #13

Ser lige om jeg kan integrere det i din kode..

/theSurfer

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 22:39 #14

Ret "D:\images\myImage.gif" til en sti, til et billede på din server..

Koden:

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
dim strBody
objXML.load(Server.MapPath("xml/orders_email.xml"))
set objNodeXML=objXML.documentElement
strFrom=objNodeXML.selectSingleNode("from").Text
strSubject=objNodeXML.selectSingleNode("subject").Text
strBody=objNodeXML.selectSingleNode("body").Text
Set objXML = Nothing
'Response.Write mailbody(strBody)
'response.End()
dim billede
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.AttachURL "D:\images\myImage.gif", "myImage.gif"
billede = "<IMG SRC=""myImage.gif"">"
objCDOMail.From = strFrom
objCDOMail.To = CustomerRS("CustomerEmail")
objCDOMail.Subject = strSubject
objCDOMail.Body = billede & mailbody(strBody)
objCDOMail.MailFormat=0
objCDOMail.BodyFormat=0
objCDOMail.Send
Set objCDOMail = Nothing
end function

/theSurfer

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 22:53 #15

Jeg håber at du kan se, at det er funktionen "SendCdoEmail" som jeg har rettet til...

Nemlig linierne:
objCDOMail.AttachURL "D:\images\myImage.gif", "myImage.gif"
billede = "<IMG SRC=""myImage.gif"">"
objCDOMail.Body = billede & mailbody(strBody)

Men det skal bare se ud, som i 18/02-2006 22:39:15..

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 22:53 #16

Det vil ikke lige som det skal............logoet kommer ikke med???

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
dim strBody
objXML.load(Server.MapPath("xml/orders_email.xml"))
set objNodeXML=objXML.documentElement
strFrom=objNodeXML.selectSingleNode("from").Text
strSubject=objNodeXML.selectSingleNode("subject").Text
strBody=objNodeXML.selectSingleNode("body").Text
Set objXML = Nothing
'Response.Write mailbody(strBody)
'response.End()
dim billede
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.AttachURL "d:\web\localuser\gennemloebsshoppe.dk\public_html\design_images\Brevlogo.jpg", "myImage.gif"
billede = "<IMG SRC=""myImage.gif"">"
objCDOMail.From = strFrom
objCDOMail.To = CustomerRS("CustomerEmail")
objCDOMail.Subject = strSubject
objCDOMail.Body = billede & mailbody(strBody)
objCDOMail.MailFormat=0
objCDOMail.BodyFormat=0
objCDOMail.Send
Set objCDOMail = Nothing
end function

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 22:58 #17

Prøv det her:

Set objCDOMail = Nothing
response.write billede
end function

Vises billedet?

Prøv evt. med:

response.write billede
response.end ' afslut udskrivning

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 23:08 #18

den første viser ikke noget, men hvor skal jeg sætte

response.write billede
response.end ' afslut udskrivning

ind

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 23:10 #19

Lige før "end function" til funktionen "SendCdoEmail"..

Ligesom i 18/02-2006 22:58:09..

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 23:19 #20

Hmmmmmmmmmm

Har indsat det her

response.write billede
response.end ' afslut udskrivning
end function

function SendCdoEmail

Nu har jeg også prøvet på at slette noget script UDEN der sker nogen ændringer, det fatte jeg ikke en s... af

Sidder lige og tænker på om det er den rigtig fil vi har gang i!!!!!!

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 23:26 #21

Hehehe.. Du har bare sat det ind, et forkert sted..

En funktion begyder med Function FunktionensNavn og slutter med End Function.

Find: "function SendCdoEmail"
Det der ligger her fra og ned til "end function" hører til funktionen "SendCdoEmail".

Lige inden afslutningen på "SendCdoEmail" (dvs, "end function"), indsætter du:

response.write billede
response.end ' afslut udskrivning

Dvs, hele din SendCdoEmail-funktion skal se sådan ud:

function SendCdoEmail

Set objXML = Server.CreateObject("Microsoft.XMLDOM")
dim strBody
objXML.load(Server.MapPath("xml/orders_email.xml"))
set objNodeXML=objXML.documentElement
strFrom=objNodeXML.selectSingleNode("from").Text
strSubject=objNodeXML.selectSingleNode("subject").Text
strBody=objNodeXML.selectSingleNode("body").Text
Set objXML = Nothing
'Response.Write mailbody(strBody)
'response.End()
dim billede
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.AttachURL "d:\web\localuser\gennemloebsshoppe.dk\public_html\design_images\Brevlogo.jpg", "myImage.gif"
billede = "<IMG SRC=""myImage.gif"">"
objCDOMail.From = strFrom
objCDOMail.To = CustomerRS("CustomerEmail")
objCDOMail.Subject = strSubject
objCDOMail.Body = billede & mailbody(strBody)
objCDOMail.MailFormat=0
objCDOMail.BodyFormat=0
objCDOMail.Send
Set objCDOMail = Nothing
response.write billede
response.end ' afslut udskrivning
end function

Følg disse instruktioner:
1) Lav en backup af din fil.
2) Slet din funktion "SendCdoEmail".
3) Indsæt min funktion "SendCdoEmail".
4) Gem/save filen
5) Test det.

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 23:31 #22

Der sker ikke en hatfis (logoet er ikke med)

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 23:37 #23

OK, så prøver med:

response.write "test: *" & billede "*"
response.end ' afslut udskrivning

Hvis den skriver "test: **", er der ikke noget i variablen "billede"..

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 23:43 #24

den skriver ingenting??????????????????

Gad vide om det er "den" rigtig fil vi leger med??????????????????????????????

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 23:47 #25

Jeg ser lige om jeg kan download demoen og kigge på den..

/theSurfer

Synes godt om

thesurfer Nybegynder

18. februar 2006 - 23:51 #26

Hvor hentede du den fra?

/theSurfer

Synes godt om

webbygger Nybegynder

18. februar 2006 - 23:56 #27

Jeg fandt den i tiderens morgen på http://activedeveloper.dk og udvikleren er http://rjo.dk/rjo/demoshop.asp

Synes godt om

webbygger Nybegynder

18. februar 2006 - 23:57 #28

her var den http://activedeveloper.dk/download/default.asp?mode=showdownload&id=705

Synes godt om

thesurfer Nybegynder

19. februar 2006 - 00:00 #29

Ja, jeg fandt den også lige..

Hvilken fil er det du redigerer i?

/theSurfer

Synes godt om

webbygger Nybegynder

19. februar 2006 - 00:03 #30

functions_email.asp

Synes godt om

thesurfer Nybegynder

19. februar 2006 - 00:11 #31

Hmmm.. jeg tror ikke at den bliver brugt..

Omdøb "functions_email.asp" til f.eks. "functions_email________.asp"

Siger den at der er fejl?

/theSurfer

Synes godt om

thesurfer Nybegynder

19. februar 2006 - 00:16 #32

Det er sent.. jeg smutter i seng.. kigger forbi igen i morgen..

/theSurfer

Synes godt om

webbygger Nybegynder

19. februar 2006 - 00:18 #33

Jeg har slettet den helt og det "virker" stadig bare uden logo!!!

Det første script jeg sendt til dig var fra Email.asp og det var der jeg tilføjet logoet, men der kom kun et kryds med

Synes godt om

webbygger Nybegynder

19. februar 2006 - 00:18 #34

OKAY .....tak for hjælpen indtil nu!

Godnat

Synes godt om

webbygger Nybegynder

19. februar 2006 - 11:12 #35

Hej thesurfer!

Nu har jeg Jmail script som ligge i OrderConfirmed.asp

SendJmailEmail

'Response.Write Mailbody

function SendJmailEmail

Set JMail = Server.CreateObject("JMail.Message")
JMail.From = (shopmail.Fields.Item("Email1").Value)
JMail.FromName = (shopnavn.Fields.Item("Shopnavn").Value)
JMail.Subject ="Ordrebekræftelse"
JMail.AddRecipient CustomersRS("CustomerEmail")

JMail.AddRecipientCC "info@shoppen.dk"

JMail.ContentType = "text/html"
JMail.Body = Mailbody
JMail.Send "shoppen.dk"
end function

function SiteRoot
'This function tries to ascertain the site root. If it's wrong, enter your own manually
CurrentPage=Request.ServerVariables("SCRIPT_NAME")
SiteRoot="http://" & Request.ServerVariables("SERVER_NAME") & left(CurrentPage,instrrev(CurrentPage,"/"))
end function

Function Mailbody
'on error resume next
Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")
' Call the remote machine the request
objXML.open "POST", SiteRoot & "email.asp", False
objXML.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXML.send("OrderID=" & OrderID)
' return the response
Mailbody = objXML.responsetext
' clean up
Set objXML = Nothing
End Function

Synes godt om

thesurfer Nybegynder

20. februar 2006 - 00:02 #36

Så prøver vi bare igen.. kode skal se sådan ud:

JMail.AddURLAttachment "http://www.domaene.dk/fil.jpg", "nytfilnavn.jpg"
billede = billede = "<IMG SRC='myImage.gif'>"
JMail.Body = billede & Mailbody

Jeg har brug ' i stedet for "" .. hvis det ikke virker med ', prøv med "" ..

/theSurfer

Synes godt om

webbygger Nybegynder

26. maj 2006 - 20:19 #37

Hej thesurfer................smider du et svar, så jeg kan få ryddet lidt op?

Synes godt om

thesurfer Nybegynder

26. maj 2006 - 21:57 #38

Det kan jeg godt.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS