Træk teksttfelter med over fra en formel

Hej Tommy

Får du selt ingen felter, eller får du kun det sidste (objCDO.Body = Request.form(\"indtastbeloeb\") )????

sez

Kim

hvis jeg sætter en kommentar ud for
\'objCDO.Body = objCDO.Body 
\'objCDO.Body = \"Indtastning er modtaget fra indtjeningssiden\" 

Så får jeg den sidste af mine sidste (objCDO.Body = Request.form(\"indtastbeloeb\"))
Men jeg skal have alle med over i min mail

Du skal istedet for gøre følgende:

objCDO.Body = objCDO.Body +
objCDO.Body = objCDO.Body + \"Indtastning er modtaget fra indtjeningssiden\"
objCDO.Body = objCDO.Body + (Request.form(\"person\"))
objCDO.Body = objCDO.Body + (Request.form(\"email\"))
objCDO.Body = objCDO.Body + Request.form(\"password\")
objCDO.Body = objCDO.Body + Request.form(\"komenttare\")
objCDO.Body = objCDO.Body + Request.form(\"vundet_ja\")
objCDO.Body = objCDO.Body + Request.form(\"vundet_net\")
objCDO.Body = objCDO.Body + Request.form(\"indtastbeloeb\")

Prøv ovenstående, det burde løse problemet...

Kim

Første linie
objCDO.Body = objCDO.Body  er ikke nødvendig.

+ skal rettes til & i ASP.

Jeg ville nok putte & \"<br>\" efter hver linie for at datane ikke står lige efter hinanden uden mellemrum:  Eks.

objCDO.Body = objCDO.Body & (Request.form(\"person\")) & \"<br>\"

hej Eagleeye korrekt første linie skal væk.
Dernæst virker + også i ASP, måde + og & har samme funktion.

Og hvis du skal sætte noget i slutningen skal det være \" & vbcrlf\" (skriv det uden anførselstegn).

+ og & har ikke samme function i ASP. Det viker måske hvis dine felter er ren tekst, men hvis du vil ligge et tal ind i strengen så går det galt.

+ ligger tal sammen
& ligger strenge sammen

Bland dem og du får problemmer før eller siden.

Nu virker siden slet ikke

Her er den kode som jeg bruger

objCDO.Body = objCDO.Body & \"Indtastning er modtaget fra indtjeningssiden\" & \"<br>\"
objCDO.Body = objCDO.Body & (Request.form(\"person\")) & \"<br>\"
objCDO.Body = objCDO.Body & (Request.form(\"email\")) & \"<br>\"
objCDO.Body = objCDO.Body & (Request.form(\"password\")) & \"<br>\"
objCDO.Body = objCDO.Body & (Request.form(\"komentare\")) & \"<br>\"
objCDO.Body = objCDO.Body & (Request.form(\"vundet_ja\")) & \"<br>\"
objCDO.Body = objCDO.Body & (Request.form(\"vundet_net\")) & \"<br>\"
objCDO.Body = objCDO.Body & (Request.form(\"indtastbeloeb\")) & \"<br>\"


Tommy

en lille fejl...

Første linie skal hedde:

objCDO.Body = \"Indtastning er modtaget fra indtjeningssiden\" & \"<br>\"

Og igen, det skal ikke være \"<br>\" det skal være vbcrlf

Hej med jer

Det virker slet ikke mere....!
Her min kode

--------------------------
<%@LANGUAGE=\"VBSCRIPT\"%>
<% response.buffer = true %>

<% if (cStr(Request(\"Submit\")) <> \"\") Then
Dim objCDO
Set objCDO = Server.CreateObject(\"CDONTS.NewMail\")

objCDO.From = (Request.form(\"person\"))

objCDO.To = \"edb@klingsholm.dk\"

objCDO.CC = \"\"

objCDO.Subject = \"Ny beløb til Dongklubben\"


objCDO.Body = \"Indtastning er modtaget fra indtjeningssiden\" & 
objCDO.Body = objCDO.Body & (Request.form(\"person\")) &
objCDO.Body = objCDO.Body & (Request.form(\"email\")) &
objCDO.Body = objCDO.Body & (Request.form(\"password\")) & 
objCDO.Body = objCDO.Body & (Request.form(\"komentare\")) &
objCDO.Body = objCDO.Body & (Request.form(\"vundet_ja\")) &
objCDO.Body = objCDO.Body & (Request.form(\"vundet_net\")) & 
objCDO.Body = objCDO.Body & (Request.form(\"indtastbeloeb\")) &

objCDO.Send

Set objCDO = Nothing
Response.Clear
Response.Redirect(\"posttak.asp\")
End If
%>
------------------------------
Tommy

du skal ikke havde & sidst i linien:

objCDO.Body = \"Indtastning er modtaget fra indtjeningssiden\"
objCDO.Body = objCDO.Body & (Request.form(\"person\"))
objCDO.Body = objCDO.Body & (Request.form(\"email\"))
objCDO.Body = objCDO.Body & (Request.form(\"password\"))
objCDO.Body = objCDO.Body & (Request.form(\"komentare\"))
objCDO.Body = objCDO.Body & (Request.form(\"vundet_ja\"))
objCDO.Body = objCDO.Body & (Request.form(\"vundet_net\"))
objCDO.Body = objCDO.Body & (Request.form(\"indtastbeloeb\"))

Nu har jeg prøvet med denne kode

objCDO.Body = \"Indtastning er modtaget fra indtjeningssiden\" 
objCDO.Body = objCDO.Body & (Request.form(\"person\")) 
objCDO.Body = objCDO.Body & (Request.form(\"email\")) 
objCDO.Body = objCDO.Body & (Request.form(\"password\")) 
objCDO.Body = objCDO.Body & (Request.form(\"komentare\")) 
objCDO.Body = objCDO.Body & (Request.form(\"vundet_ja\")) 
objCDO.Body = objCDO.Body & (Request.form(\"vundet_net\")) 
objCDO.Body = objCDO.Body & (Request.form(\"indtastbeloeb\"))

men de virker stadigvæk ikke

Virker ikke som du ikke modtager en mail ?
eller du får en tom mail?

Nej den siger fejl. siden virker slet ikke. Men når jeg sætter kode ind som er beskrevet længere nede i denne besked, så virker det


Hvis jeg sætter en kommentar ud fra koderne fra jer. Og indsætter min kode som er

objCdO.Body = \"Indtast er modtaget fra indtjeningslisten\" & vbcrlf & Request(\"person\") & vbcrlf & (\"email\")

Så virker det

Men hvad gør man for at se felterne og den tekst som er skrevet i felterne.

Nu får jeg jo bare en mail hvor der står de ting som er skrevet i felterne. Det ville jo være rart hvis man kunne se de felter som høre sammen

objCdO.Body = \"Indtast er modtaget fra indtjeningslisten\" & vbcrlf & Request(\"person\") & vbcrlf & Request(\"email\")

objCdO.Body = \"Indtast er modtaget fra indtjeningslisten\" & vbcrlf & \"Person : \"  &Request(\"person\") & vbcrlf & \"Email : \" & Request(\"email\")  ........... ect.

Så virker den ikke
Den kommer med denne fejl

--------------------------
Microsoft VBScript compilation error \'800a0401\'

Expected end of statement

/asp/sendmail.asp, line 16

objCDO.Body = \"Indtast er modtaget fra indtjeningslisten\" & vbcrlf & \"Person:\" Request(\"person\") & vbcrlf & Request(\"email\")

der mangler et &:
objCDO.Body = \"Indtast er modtaget fra indtjeningslisten\" & vbcrlf & \"Person:\" & Request(\"person\") & vbcrlf & Request(\"email\")

Hej med jer

Det virker fint nu

Jeg takker mange gange for hjælpen.

Det varn ok aldrig gået uden jeres hjælp.

Men jeg forstår ikke rigtig hvorfor min side ikke vil virke, når jeg sætter koderne op som i forslog.

Det virker ikke helt rigtig

Men mange tak for hjælpen

Lige et sidste spørgsmål til...

Hvor stor er forskellen på sådanne en side som denne her og så ASPmail og Jmail

Tommy

Hej Tommy

Lige en enkelt ide:

Mailtext = \"Indtastning er modtaget fra indtjeningssiden\" & vbcrlf
Mailtext = Mailtext & (Request.form(\"person\")) & vbcrlf
Mailtext = Mailtext & (Request.form(\"email\")) & vbcrlf
Mailtext = Mailtext & (Request.form(\"password\")) & vbcrlf
Mailtext = Mailtext & (Request.form(\"komentare\")) & vbcrlf
Mailtext = Mailtext & (Request.form(\"vundet_ja\")) & vbcrlf
Mailtext = Mailtext & (Request.form(\"vundet_net\")) & vbcrlf
Mailtext = Mailtext & (Request.form(\"indtastbeloeb\")) & vbcrlf

objCdO.body=Mailtext

Jeg har brugt JMail en gang. Og der er ikke den store forskel mellem de forskellige kompunenter. Det er i bund og grund de samme parametre som skal sættes, mail adresse, subjecy, body, ect:

Et lille eks med JMail:
<%
Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"websmtp.dit-domaene.dk\"
JMail.Sender = \"admin@dit-domaene.dk\"
JMail.Subject = \"Information\"
JMail.AddRecipient \"admin@dit-domaene.dk\"
JMail.Body = \"Dette er en mail body\"
JMail.Execute
Set JMail = Nothing
%>

ASPmail og Jmail er lidt forskellige, specielt på prisen. Jmail findes i en gratis version (www.dimac.se)

Jeg har nogle funktioner så jeg kan anvende begge:


\'ASP mail
Function sendTestMessage (FraNavn, FraEmail, TilNavn, TilEmail, Emne, Body, CCEmail, BccEmail, ReplyToEmail)

Set mailer = Server.CreateObject (\"SMTPsvg.Mailer\")
Mailer.FromName  = FraNavn
Mailer.FromAddress= FraEmail
Mailer.AddRecipient TilNavn, TilEmail
Mailer.Subject    = Emne
Mailer.BodyText  = Body
if CCEmail<>\"\" then
  Mailer.AddCC=CCEmail
end if
if BccEmail<>\"\" then
  Mailer.AddBCC=BccEmail
end if
if ReplyToEmail<>\"\" then
  Mailer.ReplyTo=ReplyToEmail
end if
Mailer.RemoteHost = \"din.smtp.server\"
Mailer.CharSet = 2
If mailer.Sendmail then
  sendTestMessage = True
else
  sendTestMessage = mailer.Response
end if

end function



\'Send mail using JMail
Function sendMessage (FraNavn, FraEmail, TilNavn, TilEmail, Emne, Body, CCEmail, BccEmail, ReplyToEmail)


    dim oMail
    set oMail = Server.CreateObject(\"JMail.Message\")

    oMail.AddRecipient TilEmail, TilNavn
   
    oMail.FromName = FraNavn
    oMail.From = FraEmail
   
    oMail.Subject = Emne
    oMail.Body = Body
    oMail.HTMLBody = sMail

if CCEmail<>\"\" then
  oMail.AddRecipientCC CCEmail, \"\"
end if
if BccEmail<>\"\" then
  oMail.AddRecipientBCC BccEmail, \"\"
end if
if ReplyToEmail<>\"\" then
  oMail.ReplyTo=ReplyToEmail
end if

If oMail.Send(\"din.smtp.server\") then
  sendMessage = True
else
  sendMessage = oMail.Response
end if

end function

Efter at have brugt begge, bruger vi nu kun Jmail

Her er et eks med ASPMail:

Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.FromName = \"Joe&#8217;s Widgets Corp.\"
Mailer.FromAddress= \"Joe@Widgets.com\"
Mailer.RemoteHost = \"mailhost.localisp.net\"
Mailer.AddRecipient \"John Smith\", \"jsmith@toolscorp.com\"
Mailer.Subject = \"Great SMTP Product!\"
Mailer.BodyText = \"Dear Stephen\" & VbCrLf & \"Your widgets order has been processed!\"

Mailer.SendMail


Igen det er det samme det skal med email adresse, subject, body ect. JMail og ASPMail skal havde angivet en ServerAdresse som skal benyttes til at send gennem, hovrimod det ikke er nødvendigt med CDO.

Hej igen

Når jeg sætter den kode ind, så virker siden stadigvæk, men der kommer ingen felter med over i min mail.

Jeg lavede også en lille stavefejl, jeg ved ikke om den betyder noget, men jeg skrev objCdO med lille d, prøv med objCDO

Prøv igen...

Ingen felter?

mener du:
Person : Eva
email : eva@....dk
ect

Så er her et eks, hvor du selv lige kan rettet beskrivelsen til:

Mailtext = \"Indtastning er modtaget fra indtjeningssiden\" & vbcrlf
Mailtext = Mailtext & \"Person : \" & (Request.form(\"person\")) & vbcrlf
Mailtext = Mailtext & \"Email : \" & (Request.form(\"email\")) & vbcrlf
Mailtext = Mailtext & \"Password : \" & (Request.form(\"password\")) & vbcrlf
Mailtext = Mailtext & \"kommentar : \" &(Request.form(\"komentare\")) & vbcrlf
Mailtext = Mailtext & \"Vundet_Ja : \" & (Request.form(\"vundet_ja\")) & vbcrlf
Mailtext = Mailtext & \"Vundet_nej : \" &(Request.form(\"vundet_net\")) & vbcrlf
Mailtext = Mailtext & \"Beløb : \" (Request.form(\"indtastbeloeb\")) & vbcrlf

how der mangle et & i stdste linie:

Mailtext = Mailtext & \"Beløb : \" & (Request.form(\"indtastbeloeb\")) &

how der mangle et & i stdste linie:

Mailtext = Mailtext & \"Beløb : \" & (Request.form(\"indtastbeloeb\")) &

Det virker ikke når bruges den kode. Felterne kommer ikke med over i min mail.

Jeg har en udbyder som hedder enavn.
Så min sendmail skal vil ikke laves meget om fra den jeg har nu...?

Tommy

Og du kalder mail-serder-filen fra din FORM-side?

Har du method=post på din form?

Ja det virker fint, når jeg bruger disse koder
---------------------------
objCDO.Body = \"Indtast er modtaget fra indtjeningslisten\" & vbcrlf & \"Person: \"  & Request(\"person\") & vbcrlf & \"Email: \" & Request(\"email\") & vbcrlf & \"Password: \" & Request(\"password\") & vbcrlf & \"Kommentare: \" & Request(\"kommentare\") & vbcrlf & \"Dato: \" & Request(\"dato\") & vbcrlf & \"Oddset: \" & Request(\"oddset\") & vbcrlf & \"Tipning: \" & Request(\"tipning\") & vbcrlf & \"Vundetbeløb: \" & Request(\"indtastbeloeb\")
---------------------------------
Så virker det helt perfekt
Så jeg har ikke noget at klage over på det punkt.
Det er bare ikke lige til at styre på det punkt.
Ens overblik er lidt hæmmet når man  prøver at få sig et over ens koder.

Men jeg tror nok at jeg skal til at bruge Jmail.
Jeg har lige snakket med min enavn. De siger at de har slået CDO fra på deres server. Så hvis jeg skal lave min sendmail om fra cdO til Jmail. Jeg ved at enavn understøtter Jmail.

Hvor meget skal jeg så lave om for at få dene side til at virke som Jmail.

Det er lidt surt når jeg endelig har fået denne side til at virker efter hensigt.

Tommy

Så prøv uden .form her:

Mailtext = \"Indtastning er modtaget fra indtjeningssiden\" & vbcrlf
Mailtext = Mailtext & \"Person : \" & (Request(\"person\")) & vbcrlf
Mailtext = Mailtext & \"Email : \" & (Request(\"email\")) & vbcrlf
Mailtext = Mailtext & \"Password : \" & (Request(\"password\")) & vbcrlf
Mailtext = Mailtext & \"kommentar : \" &(Request(\"komentare\")) & vbcrlf
Mailtext = Mailtext & \"Vundet_Ja : \" & (Request(\"vundet_ja\")) & vbcrlf
Mailtext = Mailtext & \"Vundet_nej : \" &(Request(\"vundet_net\")) & vbcrlf
Mailtext = Mailtext & \"Beløb : & \" (Request(\"indtastbeloeb\")) & vbcrlf

Du kan se mit Jmail eksempel højere oppe...

Skal denne linje også med

\'Send mail using JMail
Function sendMessage (FraNavn, FraEmail, TilNavn, TilEmail, Emne, Body, CCEmail, BccEmail, ReplyToEmail)


Tommy

Kan denne her ikke gå som en JMail
-------------------------------------
<%@LANGUAGE=\"VBSCRIPT\"%>
<% response.buffer = true %>

<% if (cStr(Request(\"Submit\")) <> \"\") Then
Dim email
Set email = Server.CreateObject(\"JMail.SMTPMail\")

email.ServerAddress = \"db.fcweb.dk\"

email.From = (Request.form(\"person\"))

email.To = \"tommy@fcweb.dk\"

email.CC = \"\"

email.Subject = \"Ny beløb til Dongklubben\"

email.Body = \"Indtast er modtaget fra indtjeningslisten\" & vbcrlf & \"Person: \"  & Request(\"person\") & vbcrlf & \"Email: \" & Request(\"email\") & vbcrlf & \"Password: \" & Request(\"password\") & vbcrlf & \"Kommentare: \" & Request(\"kommentare\") & vbcrlf & \"Dato: \" & Request(\"dato\") & vbcrlf & \"Oddset: \" & Request(\"oddset\") & vbcrlf & \"Tipning: \" & Request(\"tipning\") & vbcrlf & \"Vundetbeløb: \" & Request(\"indtastbeloeb\")


\'email.body=Mailtext
\'Mailtext = \"Indtastning er modtaget fra indtjeningssiden\" & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"person\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"email\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"password\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"kommentare\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"oddset\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"tipning\")) & vbcrlf
\'Mailtext = Mailtext & (Request.form(\"indtastbeloeb\")) & vbcrlf


email.Execute

Set email = Nothing
Response.Clear
Response.Redirect(\"tak_for_mail.asp\")
End If
%>

-----------------------
Tommy