CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

rr-web Nybegynder

07. januar 2003 - 14:10 Der er 12 kommentarer og
1 løsning

JMAIL PROBLEMER

Hejsa

Jeg har nedenstående asp kode, som skriver noget data ud på skærmen i en tabel. Dette vil jeg meget gerne have at jeg kan sende som mail ved hjælp af komponenten Jmail.

Er her nogen der har forslag ???

Se nedenstående kode :)


<html>
<body>

</tr>
<%
set ordre = server.createobject ("adodb.recordset")
ordre.open "select * from ordrer,brugere where ordrer.brugernavn=brugere.brugernavn", database

while not ordre.eof

if farve = "#cccccc" then
farve = "#eeeeee"
else farve = "#ccccc"
end if
%> 

<table>
<td> Fornavn </td>
<td> Efternavn </td>
<td> Adresse </td>
<td> Postnummer </td>
<td> By </td>
<td> E-mail </td>
<td> Telefon </td>
<td> Vare </td>
<td> Antal </td>

<td>




<tr bgcolor = "<% =farve %>">

<td> <% = ordre.fields ("Fornavn")%> </td>
<td> <% = ordre.fields ("efternavn")%> </td>
<td> <% = ordre.fields ("gade")%> </td>
<td> <% = ordre.fields ("postnummer")%> </td>
<td> <% = ordre.fields ("Bynavn")%> </td>
<td> <% = ordre.fields ("email")%> </td>
<td> <% = ordre.fields ("telefon")%> </td>
<td> <% = ordre.fields ("vare")%> </td>
<td> <% = ordre.fields ("antal")%> </td>

</tr>

<%
ordre.movenext
Wend
%>

</body>
</html>

Synes godt om

eagleeye Praktikant

07. januar 2003 - 15:11 #1

Du er nød til at bygge det op i en streng eller direkte i JMail body'en.
Jeg kan ikke helt huske om ikke JMail har en HTMLbody eller man sætter contentype = "text/html" og så ligger i JMail body

str = "<table>"
str = str & "<td> Fornavn </td>"
str = str & "<td> Efternavn </td>"
str = str & "<td> Adresse </td>"

osv.
osv.

og tilsidst :)

JMail.Body = str

Synes godt om

rr-web Nybegynder

07. januar 2003 - 15:14 #2

ehh,mmmm det kan jeg ikke helt overskue, hvad gør jeg så mht. asp koden ???

Synes godt om

eagleeye Praktikant

07. januar 2003 - 15:31 #3

<html>
<body>

</tr>
<%
set ordre = server.createobject ("adodb.recordset")
ordre.open "select * from ordrer,brugere where ordrer.brugernavn=brugere.brugernavn", database

while not ordre.eof

if farve = "#cccccc" then
farve = "#eeeeee"
else farve = "#ccccc"
end if
%> 

<%
str = "<table>"
str = str = "<td> Fornavn </td>"
str = str = "<td> Efternavn </td>"
str = str = "<td> Adresse </td>"
str = str = "<td> Postnummer </td>"
str = str = "<td> By </td>"
str = str = "<td> E-mail </td>"
str = str = "<td> Telefon </td>"
str = str = "<td> Vare </td>"
str = str = "<td> Antal </td>"

str = str = "<td>"

str = str = ""
str = str = ""

str = str = "<tr bgcolor = """ & farve & """>"

str = str = "<td>" & ordre.fields ("Fornavn") & " </td>"
str = str = "<td>" & ordre.fields ("efternavn") & " </td>"
str = str = "<td>" & ordre.fields ("gade") & " </td>"
str = str = "<td>" & ordre.fields ("postnummer") & " </td>"
str = str = "<td>" & ordre.fields ("Bynavn") & " </td>"
str = str = "<td>" & ordre.fields ("email") & " </td>"
str = str = "<td>" & ordre.fields ("telefon") & " </td>"
str = str = "<td>" & ordre.fields ("vare") & " </td>"
str = str = "<td>" & ordre.fields ("antal") & " </td>"

str = str = "</tr>"

ordre.movenext
Wend

'for udskrive tabellen i browseren
Respone.write str

'for at få med i mailen:
Jmail.body = "<html><body>" & str & "</body></html>"

%>

</body>
</html>

Synes godt om

rr-web Nybegynder

07. januar 2003 - 16:16 #4

eagleeye, nu har jeg prøvet (se nedenstående kode) og for det første skriver den false på skærmen. Udover det sender den en mail hvor HTML koderne står i (og mit mail program understøtter html beskeder) og mellem html koderne står der false.

Men jeg håber du lige kan gennemskue hvad der er i vejen:


<html>
<body>

</tr>
<%
set ordre = server.createobject ("adodb.recordset")
ordre.open "select * from ordrer,brugere where ordrer.brugernavn=brugere.brugernavn", database

while not ordre.eof

if farve = "#cccccc" then
farve = "#eeeeee"
else farve = "#ccccc"
end if
%> 

<%
str = "<table>"
str = str = "<td> Fornavn </td>"
str = str = "<td> Efternavn </td>"
str = str = "<td> Adresse </td>"
str = str = "<td> Postnummer </td>"
str = str = "<td> By </td>"
str = str = "<td> E-mail </td>"
str = str = "<td> Telefon </td>"
str = str = "<td> Vare </td>"
str = str = "<td> Antal </td>"

str = str = "<td>"

str = str = ""
str = str = ""

str = str = "<tr bgcolor = """ & farve & """>"

str = str = "<td>" & ordre.fields ("Fornavn") & " </td>"
str = str = "<td>" & ordre.fields ("efternavn") & " </td>"
str = str = "<td>" & ordre.fields ("gade") & " </td>"
str = str = "<td>" & ordre.fields ("postnummer") & " </td>"
str = str = "<td>" & ordre.fields ("Bynavn") & " </td>"
str = str = "<td>" & ordre.fields ("email") & " </td>"
str = str = "<td>" & ordre.fields ("telefon") & " </td>"
str = str = "<td>" & ordre.fields ("vare") & " </td>"
str = str = "<td>" & ordre.fields ("antal") & " </td>"

str = str = "</tr>"

ordre.movenext
Wend

'for udskrive tabellen i browseren
// Response.write str

mail2me = "minadr@mitdomæne.dk"

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Sender = "butik@hobbycentret.dk"
JMail.SenderName = "Hobby-Butikken"
JMail.Subject = "Så er der ordre fra butikken"

JMail.ServerAddress = "smtp.mail.dk"

'for at få med i mailen:
Jmail.body = "<html><body>" & str & "</body></html>"

JMail.AddRecipient mail2me
JMail.Execute
Set JMail = Nothing
%>

</body>
</html>

Synes godt om

eagleeye Praktikant

07. januar 2003 - 16:22 #5

hov jeg har også lavet en fejl i linien...:

str = str = "<td> Fornavn </td>"

De skal alle hvade nummer to = til et & tegn:

str = str & "<td> Fornavn </td>"

Synes godt om

eagleeye Praktikant

07. januar 2003 - 16:24 #6

Hvis det mail program ikke understytter HTML kode så vil den vel vise HTML tagesne.

Prøv at tilføje denne efter Jmail.Subject = "....

JMail.ContentType = "text/html"

Synes godt om

rr-web Nybegynder

07. januar 2003 - 16:33 #7

nu forsvandt html tagsenee, men den skriver bare falsk i indhold, hvad kan det være ????

Synes godt om

rr-web Nybegynder

07. januar 2003 - 16:35 #8

hey gider du ikke lige forklare nedenstående en gang til :)

hov jeg har også lavet en fejl i linien...:

str = str = "<td> Fornavn </td>"

De skal alle hvade nummer to = til et & tegn:

str = str & "<td> Fornavn </td>"

Synes godt om

eagleeye Praktikant

07. januar 2003 - 17:17 #9

i alle linier står sådan her:

str = str = "xxxxxxxxxxxxxxxxx"

Nummer 2 = tegn i alle de linier skal være et og tegn.

str = str & "xxxxxxxxxxxxxxxxx"

Det er faktisk derfor den skriver false da den sætter str = væriden af tjekke str = "xxxxxxxxxxxx" da str ikke er = "xxxxxxxx" skriver den false.

Synes godt om

eagleeye Praktikant

07. januar 2003 - 17:18 #10

Ved at skrive & ligger den "xxxxxxxxx" til sidst i strengen str

Synes godt om

rr-web Nybegynder

07. januar 2003 - 18:12 #11

nu virker det... mange tak :)

Synes godt om

rr-web Nybegynder

07. januar 2003 - 19:23 #12

eagleeye ... jeg har lige et problem, den tager kun den første række i min db, hvis der er flere rækker tager den ikke dem... koden er nedenfor:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Tak</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>



<%
set ordre = server.createobject ("adodb.recordset")
ordre.open "select * from ordrer,brugere where ordrer.brugernavn=brugere.brugernavn", database

while not ordre.eof

if farve = "#cccccc" then
farve = "#eeeeee"
else farve = "#ccccc"
end if
%> 

<%
str = "<table>"
str = str & "<td> Fornavn </td>"
str = str & "<td> Efternavn </td>"
str = str & "<td> Adresse </td>"
str = str & "<td> Postnummer </td>"
str = str & "<td> By </td>"
str = str & "<td> E-mail </td>"
str = str & "<td> Telefon </td>"
str = str & "<td> Vare </td>"
str = str & "<td> Antal </td>"
str = str & "<td> Pris </td>"
str = str & "<td> moms </td>"
str = str & "<td> forsendelse </td>"
str = str & "<td> Total </td>"

str = str & "<td>"

str = str & ""
str = str & ""

str = str & "<tr bgcolor = """ & farve & """>"

str = str & "<td>" & ordre.fields ("Fornavn") & " </td>"
str = str & "<td>" & ordre.fields ("efternavn") & " </td>"
str = str & "<td>" & ordre.fields ("gade") & " </td>"
str = str & "<td>" & ordre.fields ("postnummer") & " </td>"
str = str & "<td>" & ordre.fields ("Bynavn") & " </td>"
str = str & "<td>" & ordre.fields ("email") & " </td>"
str = str & "<td>" & ordre.fields ("telefon") & " </td>"
str = str & "<td>" & ordre.fields ("vare") & " </td>"
str = str & "<td>" & ordre.fields ("antal") & " </td>"
str = str & "<td>" & ordre.fields ("pris") & " </td>"
str = str & "<td>" & ordre.fields ("moms") & " </td>"
str = str & "<td>" & ordre.fields ("forsendelse") & " </td>"
str = str & "<td>" & ordre.fields ("total") & " </td>"

str = str & "</tr>"

ordre.movenext
Wend

'for udskrive tabellen i browseren
// Response.write str

mail2me = "rico@servicezonen.dk"

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Sender = "butik@hobbycentret.dk"
JMail.SenderName = "Hobby-Butikken"
JMail.Subject = "Så er der ordre fra butikken"
JMail.ContentType = "text/html"
JMail.ServerAddress = "smtp.mail.dk"

'for at få med i mailen:
Jmail.body = "<html><body>" & str & "</body></html>"

JMail.AddRecipient mail2me
JMail.Execute
Set JMail = Nothing
ordre.close
%>

Tak fordi du handlede i
Hobby Centerets Webshop. Varerne vil blive afsendt hurtigst muligt. 
</body>
</html>

Synes godt om

eagleeye Praktikant

07. januar 2003 - 20:41 #13

Prøv at flytte rundt på disse linier:

<%
set ordre = server.createobject ("adodb.recordset")
ordre.open "select * from ordrer,brugere where ordrer.brugernavn=brugere.brugernavn", database

while not ordre.eof

if farve = "#cccccc" then
farve = "#eeeeee"
else farve = "#ccccc"
end if
%> 

<%
str = "<table>"
str = str & "<td> Fornavn </td>"
str = str & "<td> Efternavn </td>"
str = str & "<td> Adresse </td>"
str = str & "<td> Postnummer </td>"
str = str & "<td> By </td>"
str = str & "<td> E-mail </td>"
str = str & "<td> Telefon </td>"
str = str & "<td> Vare </td>"
str = str & "<td> Antal </td>"
str = str & "<td> Pris </td>"
str = str & "<td> moms </td>"
str = str & "<td> forsendelse </td>"
str = str & "<td> Total </td>"

str = str & "<td>"

str = str & ""
str = str & ""

str = str & "<tr bgcolor = """ & farve & """>"

str = str & "<td>" & ordre.fields ("Fornavn") & " </td>"
str = str & "<td>" & ordre.fields ("efternavn") & " </td>"
str = str & "<td>" & ordre.fields ("gade") & " </td>"
str = str & "<td>" & ordre.fields ("postnummer") & " </td>"
str = str & "<td>" & ordre.fields ("Bynavn") & " </td>"
str = str & "<td>" & ordre.fields ("email") & " </td>"
str = str & "<td>" & ordre.fields ("telefon") & " </td>"
str = str & "<td>" & ordre.fields ("vare") & " </td>"
str = str & "<td>" & ordre.fields ("antal") & " </td>"
str = str & "<td>" & ordre.fields ("pris") & " </td>"
str = str & "<td>" & ordre.fields ("moms") & " </td>"
str = str & "<td>" & ordre.fields ("forsendelse") & " </td>"
str = str & "<td>" & ordre.fields ("total") & " </td>"

str = str & "</tr>"

ordre.movenext
Wend

Til dette der ser ud som om tabellen bliver lavet inden for while og der mangler noget med <tr>

<%
set ordre = server.createobject ("adodb.recordset")
ordre.open "select * from ordrer,brugere where ordrer.brugernavn=brugere.brugernavn", database

str = "<table><tr>"
str = str & "<td> Fornavn </td>"
str = str & "<td> Efternavn </td>"
str = str & "<td> Adresse </td>"
str = str & "<td> Postnummer </td>"
str = str & "<td> By </td>"
str = str & "<td> E-mail </td>"
str = str & "<td> Telefon </td>"
str = str & "<td> Vare </td>"
str = str & "<td> Antal </td>"
str = str & "<td> Pris </td>"
str = str & "<td> moms </td>"
str = str & "<td> forsendelse </td>"
str = str & "<td> Total </td>"
str = str & "</tr>"

while not ordre.eof

if farve = "#cccccc" then
farve = "#eeeeee"
else
farve = "#ccccc"
end if

str = str & "<tr bgcolor = """ & farve & """>"

str = str & "<td>" & ordre.fields ("Fornavn") & " </td>"
str = str & "<td>" & ordre.fields ("efternavn") & " </td>"
str = str & "<td>" & ordre.fields ("gade") & " </td>"
str = str & "<td>" & ordre.fields ("postnummer") & " </td>"
str = str & "<td>" & ordre.fields ("Bynavn") & " </td>"
str = str & "<td>" & ordre.fields ("email") & " </td>"
str = str & "<td>" & ordre.fields ("telefon") & " </td>"
str = str & "<td>" & ordre.fields ("vare") & " </td>"
str = str & "<td>" & ordre.fields ("antal") & " </td>"
str = str & "<td>" & ordre.fields ("pris") & " </td>"
str = str & "<td>" & ordre.fields ("moms") & " </td>"
str = str & "<td>" & ordre.fields ("forsendelse") & " </td>"
str = str & "<td>" & ordre.fields ("total") & " </td>"

str = str & "</tr>"

ordre.movenext
Wend
str = str & "</table>"

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
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
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59

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