Jmail sender ikke text felt fra database.

når du bruger tekstfelt, skal du være opmærksom rækkefølgen du henter i.

derfor lav et et par variable

dim obnr
dim obbdesc


obbdesc = rs("Obbeskrivelse")
obnr = rs("Obnr")

JMail.Body = JMail.Body & obnr & obbdesc  & VbCrLf & VbCrLf

Det er det specielle ved tekst felter, at gemme indholdet i hukkommelsen ville være for tungt. Så det kan kun hives ud én gang i korrekt rækkefølge.

Den returnere stadig kun Obnr.

Prøv lige at skrive din kode fra hvor du opretter recordsettet...

Det er en del af en større udskrift formular men her får du den.
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../fpdb/xxx.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

strDato = Request("ObDato")
strDato = Year(strDato) & "-" & Month(strDato) & "-" & Day(strDato)

strSQL = "Select ObNr, Navn1, Obinitialer, Afdeling, Lokation, LokId, ObKategori, Obtype, ObDato, ObTid, Obbeskrivelse, ObAArsag, RisikoGentagelse, Navn2, HaType, Habeskrivelse, Frist, HaDato, HaTid, Navn4, OpInitialer, Tilfredsstillende, Afsluttet, Nyobservation, OpDato, OpTid from qryObservationersamlet  Where Obnr ="&Request("Obnr")
Set rs = Conn.Execute(strSQL)
   
if rs.eof then
response.write("Der er ikke fundet nogen observation med angivne kriterie")

else
   
            DO WHILE NOT RS.EOF
                ObNr = rs("ObNr")
                Navn1 = rs("Navn1")
                Obinitialer =rs("Obinitialer")
                Afdeling= rs("Afdeling")
                Lokation= rs("Lokation")
                ObKategori = rs("ObKategori")
                Obtype = rs("Obtype")
                ObDato = rs("ObDato")
                ObTId = rs("ObTid")           
                Obbeskrivelse = rs("Obbeskrivelse")
                ObAArsag = rs("ObAArsag")
                RisikoGentagelse= rs("RisikoGentagelse")
                Navn2 = rs("Navn2")
                Hatype = rs("Hatype")
                Habeskrivelse = rs("Habeskrivelse")
                Frist = rs("Frist")
                HaDato = rs("HaDato")
                HaTid = rs("HaTid")
                Navn4 = rs("Navn4")
                OpInitialer = rs("OpInitialer")
                Tilfredsstillende = rs("Tilfredsstillende")
                Afsluttet = rs("Afsluttet")
                Nyobservation = rs("Nyobservation")
                OpDato = rs("OpDato")
                OpTid = rs("OpTid")
                LokId =rs("LokId")
%>
Så kommer der en masse html kode til at lave en udskrifts side.Den virker efter hensigten. Derfor udelader jeg dette.

Her kommer Jmailen
<%
Set JMail = Server.CreateObject("JMail.SMTPMail")
Response.Expires = 0

 
  JMail.ServerAddress = "mail.xxx.com"
  JMail.sender = rs("Obinitialer")& "@elsam.com"
  JMail.subject = "Der er registreret en observation i miljøstyringssystemet."
  JMail.AddRecipientBCC rs("Obinitialer") & "@xxx.com"
 
  JMail.Body = "Beskrivelse af observationen." & VbCrLf & VbCrLf
  JMail.Body = JMail.Body & rs("Obnr") & rs("Obbeskrivelse")  & VbCrLf & VbCrLf
  JMail.Body = JMail.Body & "Se mere  klik her. http://xxx/" &rs("Lokation") & VbCrLf & VbCrLf
  JMail.Body = JMail.Body & strCv
 
  'Her bliver form-mailens prioritet bestemt
  ' 1 - højeste (Haster / Vigtigt)
  ' 3 - normal
  ' 5 - lavest
  JMail.Priority = 3

  JMail.Execute
 
 
  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop

 
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

END IF%>

Nu gør du det at du sætter en masse variabler der så initieres med værdierne fra din recordset

snip
            DO WHILE NOT RS.EOF
                ObNr = rs("ObNr")
                Navn1 = rs("Navn1")
                Obinitialer =rs("Obinitialer")
                Afdeling= rs("Afdeling")
                Lokation= rs("Lokation")
snip

Hvis du genbruger din variabler i din jmail hvad sker der så?

  JMail.ServerAddress = "mail.xxx.com"
  JMail.sender = Obinitialer& "@elsam.com"
  JMail.subject = "Der er registreret en observation i miljøstyringssystemet."
  JMail.AddRecipientBCC Obinitialer & "@xxx.com"
 
  JMail.Body = "Beskrivelse af observationen." & VbCrLf & VbCrLf
  JMail.Body = JMail.Body & Obnr & Obbeskrivelse  & VbCrLf & VbCrLf
  JMail.Body = JMail.Body & "Se mere  klik her. http://xxx/" & Lokation & VbCrLf & VbCrLf
  JMail.Body = JMail.Body & strCv

Du kunne også lægge flg. i din kode - lige før du genererer din jmail

'debug
response.write (Rs("Obbeskrivelse") & "<br>")
response.write (obbeskrivelse & "<br>")
response.end ()

så kan du da se om der er noget i recordset og i variabel

vbcoder.
Det virkede. Gider du lige smide et svar, så får du points.

hehe. det var nøjagtig det jeg skrev ;)

Som sagt når du har hevet et tekstfelt ud én gang kan det ikke hives ud flere gange...

takker

stoffer.
Undskyld. Det er ikke det jeg har forstået udfra dit svar. Jeg bruger stadig tekst feltet flere gange. Jeg har bare lave kaldet om fra rs("Obbeskrivelse") til Obbeskrivelse, lige som vbcoder foreslog. Men hvis du stadig er af anden mening, skal du også smide et svar så jeg kan fordele pointene lidt.

-->stoffer : Det er ikke korrekt at man kun kan tilgå et tekstfelt en gang. Du kan lave lige så mange request.form("data") som du vil.

Asp motoren skal ud og hente formens indhold hver gang og det kræver flere ressourcer end at bruge variabler og tildele dem værdierne fra formens indhold.

At tilgå en variabel kræver mindre af asp motoren end at hente en hel forms indhold og derefter finde det felt man vil have.

--> vbcoder
Det har du ikke ret i. I dette tilfælde snakker vi jo ikke noget med request.form. Vi snakker database udtræk, og her kan du altså kun udtrække én gang pr. række når det er et notat data type i databasen (som jeg kaldte tekst felt).

Det andet ved jeg udemærket godt, og det var heller ikke diskussionen.

--> ste
Intet problem, var egentlig mere så du forstod grunden til hvorfor det ikke virkede.

--> stoffer
For at forstå hvad du mener skal jeg have bukket det i neon ;o)

3 variabler
dim var1
dim var2
dim var3

tilskrivning af værdier fra recordset til variabler
var1 = rs("tekst1")
var2 = rs("tekst2")

så skulle recordset være tømt således at en tilskrivning til

var3 = rs("tekst1")

ville resultere i at var3 er tom?

vbcoder -->
Det jeg mener er blot:

var1 = rs("tekst1")
var2 = rs("tekst1")

var2 vil her være tom.

Hvis man requester det samme tekst felt (notat felt i access tror jeg) vil det være tomt (sådan er det i hvert fald i MSSQL).

vh stoffer