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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
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

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

29/11

Test: Vi prøver håndbygget italiensk lyd til 13.000 kroner - derfor vil du gerne have feinschmecker-streaming

29/11

Et år efter hård kritik: En stribe myndigheder har fortsat store huller i deres kriseberedskaber

29/11

Nørgaard: Sådan spotter du en russisk påvirkningsagent i dit netværk - brug de fem nemme spørgsmål

29/11

Næsten alle de gode navne er taget, men domænehandleren Marcus har en opskrift, der kan hjælpe dig med at kapre drømmeadressen

29/11

Apple får patent på ny teknologi, der kan genkende dig på din fysiske fremtoning - kan komme til at indgå i et helt nyt produkt

29/11

Pønser du på nyt job? Så tjek disse 10 spændende stillinger ud, som er ledige lige nu

29/11

EU åbner NIS2-sag mod Danmark efter store forsinkelser: Får to måneder

29/11

Derfor bør du tøve med at købe en ny gamer-pc: Årets nyhed venter forude

29/11

Sådan håndterer du det som leder, når din virksomhed bliver ramt af en skandale

29/11

Gør som stort konsulenthus: Rekruttér selv og få bedre kvalitet … og spar en masse penge

29/11

Her er Merete Søbys afløser: Tidligere EG-direktør og iværksætter ny CEO i Schultz

Vis flere artikler

IT-JOB

ATP

Data Partner til at sikre godt samarbejde om data og eksterne datakilder

Dynamicweb Software A/S

Solution Architect

Danske Commodities A/S

Senior IT Security Regulatory Specialist

Hemmersbach Denmark ApS

IT Fieldservice Tekniker med fokus på hardware

Banedanmark

It-koordinator til SAP-projekter

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 14:13	Smart Switch Android til Android Af valby i Mobiltelefoner
I dag 08:16	Outlook Af jdann i E-mail programmer
I går 20:00	Genie Timeline Af Malm i Andet software
I går 16:09	Plex virker ikke uden for netværk ??? Af Ronron i Mac
I går 16:03	exFat Af Bruce i Apps til iOS