Notifikationer

Markér alle som læst Log ud

bimmer123 Nybegynder

17. april 2006 - 18:28 Der er 2 kommentarer og
1 løsning

Hvordan sender jeg dette med ASPEmail

Jeg skal sende dette stykke kode afsted som en HTML email, hvordan bærer jeg mig ad med at få dette ind i mailer.body = ""

<html><body>
<table width="100%" border="0">
<tr>
<td align="center" valign="top">
<%=pCompany%> 
<%=pCompanyAddress%> 
<%=pCompanyZip & " " &pCompanyCity%> 
<hr>
</td>
</tr>
<tr>
<td>
Dato: <%=formatDate(Date)%>        Ordre id: <%=pOrdreid%>        Transaktions id: <%=pTransid%>
</td>
</tr>
<tr>
<td><hr></td>
</tr>
<tr>
<td>Kunde Information: </td>
</tr>
<tr>
<td>
<%=pFornavn & " " &pEfternavn%> 
<%=pAdresse%> 
<%=pPostnr & " " &pCity%> 
Telefon nr: <%=pTelefon%> 
E-mail: <%=pEmail%>
</td>
</tr>
<tr>
<td><hr></td>
</tr>
<tr>
<td>Ordre Information: </td>
</tr>
<tr>
<td>
<table border="0">
<tr>
<td width="40"> <%=getMsg(453,"qty")%></td>
<td width="189"><%=getMsg(454,"item")%></td>
<td width="148"><%=getMsg(455,"variat")%></td>
<td width="76"> <%=getMsg(456,"price")%></td>
</tr>
<%
' iterate through cart
mySQL="SELECT idCartRow, cartRows.idProduct, quantity, unitPrice, description, sku, deliveringTime, personalizationDesc FROM cartRows, products WHERE cartRows.idProduct=products.idProduct AND cartRows.idDbSessionCart="&pIdCart

call getFromDatabase(mySQL, rstemp, "accept")

do while not rstemp.eof
pIdCartRow = rstemp("idCartRow")
pIdProduct = rstemp("idProduct")
pQuantity = rstemp("quantity")
pUnitPrice = rstemp("unitPrice")
pDescription = rstemp("description")
pSku = rstemp("sku")
pPersonalizationDesc = rstemp("personalizationDesc")
%>
<tr>
<td width="40"><%=pQuantity%></td>
<td width="189"><%=pDescription%></td>
<td width="148"><%if pPersonalizationDesc<>"" then response.write " " &pPersonalizationDesc& ""%></td>
<td width="76"><%=pCurrencySign & money(getCartRowPrice(pIdCartRow)) %>,-</td>
</tr>
<%rstemp.movenext
loop%>
</table>
<tr>
<td><hr></td>
</tr>
<tr>
<td>Forsendelsesomkostninger: DKK 45,- 
Forsendelsesomkostningen er til dækning af Post Danmarks fragtgebyr. 
Leveringstid er under normale omstændigheder 3-5 dage. 
</td>
</tr>
<tr>
<td>Total inkl. moms: <%=pCurrencySign & pTotalpris%>,-</td>
</tr>
</table>
</body></html>

Synes godt om

mitbrugernavn Praktikant

17. april 2006 - 18:58 #1

du skal erstatte alle " med "" i tabel opsætningen - har her lavet et lille afsnit -
derefter sætter du skriv_mail foran og retter din asp til diverse steder

<%
skriv_mail = "<html><body>"
skriv_mail = skriv_mail & "<table width=""100%"" border=""0"">"
skriv_mail = skriv_mail & "<tr>"
skriv_mail = skriv_mail & " <td align=""center"" valign=""top"">"
skriv_mail = skriv_mail & " "& pCompany &" "
skriv_mail = skriv_mail & " "&pCompanyAddress&" "
skriv_mail = skriv_mail & " & pCompanyZip & "" &pCompanyCity& "
skriv_mail = skriv_mail & " <hr>"
skriv_mail = skriv_mail & " </td>"
skriv_mail = skriv_mail & " </tr>"
skriv_mail = skriv_mail & " <tr> "

%>

strHost = "din mail server"

Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost

Mail.From = "din mail adresse
Mail.FromName = "tekst"
Mail.AddAddress "mailmodtager" 'hvis det er en fast modtager
' Mail.AddAddress strbookingemail 'hvis det er fra db

Mail.IsHTML = True
' message overskrift
Mail.Subject = mailoverskrift 'tekst til overskrift
' message body er det der skal fremsendes

Mail.Body = skriv_mail

strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message

du kan sætte det op først og så udskrive skriv_mail tilsidst for at se hvordan det ser ud inden du sender

Synes godt om

bimmer123 Nybegynder

17. april 2006 - 19:50 #2

Alt det er jeg med på hvordan får jeg SQL sætningen og udtræket fra databasen ind i skriv_mail...?

Altså den her del:

<%
' iterate through cart
mySQL="SELECT idCartRow, cartRows.idProduct, quantity, unitPrice, description, sku, deliveringTime, personalizationDesc FROM cartRows, products WHERE cartRows.idProduct=products.idProduct AND cartRows.idDbSessionCart="&pIdCart

call getFromDatabase(mySQL, rstemp, "accept")

do while not rstemp.eof
pIdCartRow = rstemp("idCartRow")
pIdProduct = rstemp("idProduct")
pQuantity = rstemp("quantity")
pUnitPrice = rstemp("unitPrice")
pDescription = rstemp("description")
pSku = rstemp("sku")
pPersonalizationDesc = rstemp("personalizationDesc")
%>
<tr>
<td width="40"><%=pQuantity%></td>
<td width="189"><%=pDescription%></td>
<td width="148"><%if pPersonalizationDesc<>"" then response.write " " &pPersonalizationDesc& ""%></td>
<td width="76"><%=pCurrencySign & money(getCartRowPrice(pIdCartRow)) %>,-</td>
</tr>
<%rstemp.movenext
loop%>

Synes godt om

mitbrugernavn Praktikant

17. april 2006 - 20:07 #3

<%
' iterate through cart
mySQL="SELECT idCartRow, cartRows.idProduct, quantity, unitPrice, description, sku, deliveringTime, personalizationDesc FROM cartRows, products WHERE cartRows.idProduct=products.idProduct AND cartRows.idDbSessionCart="&pIdCart

call getFromDatabase(mySQL, rstemp, "accept")

do while not rstemp.eof
pIdCartRow = rstemp("idCartRow")
pIdProduct = rstemp("idProduct")
pQuantity = rstemp("quantity")
pUnitPrice = rstemp("unitPrice")
pDescription = rstemp("description")
pSku = rstemp("sku")
pPersonalizationDesc = rstemp("personalizationDesc")
%>

skriv_mail = skriv_mail & " <tr> "
skriv_mail = skriv_mail & " <td width=”"40”">” & pQuantity & ”</td>”
skriv_mail = skriv_mail & " <td width="189">” & pDescription & ”</td>”
skriv_mail = skriv_mail & " <td width="148">”

<%
if pPersonalizationDesc <> "" then
%>
skriv_mail = skriv_mail & ” " & pPersonalizationDesc & "
<%
end if
%>
skriv_mail = skriv_mail & ” </td>”
skriv_mail = skriv_mail & " <td width=”"76"”>” & pCurrencySign &”
skriv_mail = skriv_mail & " money(getCartRowPrice(pIdCartRow)) & ”</td>”
skriv_mail = skriv_mail & " </tr>”
<%
rstemp.movenext
loop
'her vil den løbe i en løkke og så tager du det sidste og sætter skriv_mail foran
som jeg beskrev ved første svar
</table>
<tr>
<td><hr></td>
</tr>
<tr>
<td>Forsendelsesomkostninger: DKK 45,- 
Forsendelsesomkostningen er til dækning af Post Danmarks fragtgebyr. 
Leveringstid er under normale omstændigheder 3-5 dage. 
</td>
</tr>
<tr>
<td>Total inkl. moms: <%=pCurrencySign & pTotalpris%>,-</td>
</tr>
</table>
</body></html>
%>

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
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
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

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