[ASP] controle pagina + doorsturen info naar email

[Verwijderd]

beste allemaal,

ik heb onderstaande code gevonden en hier en daar wat aangepast...in principe werkt de controle perfect...alleen zit ik met de uitvoer naar email....ik kom daar niet geheel uit...

het liefste zie ik een emailtje waarin de naam van de form-velden met uiteraard daaronder de ingevulde waarden vermeld worden.

vb.

Naam: Harrie
Email : [e-mail]
Message:
blablablablablablabla....


ik heb het idee dat ik bij het "Trim" gedeelte ergens iets mis doe....hebben jullie misschien een idee ? of misschien een andere kijk op de code ?

ASP:

<%

name = request.form("name")
email = request.form("email")
message = request.form("message")

If name="" or email="" or message="" Then
url = "contact.asp?reqd=* indicates required field&name=" & name & "&email=" & email & "&message=" & message
    If name="" Then 
    url = url & "&mname=*"
    End if

    If email="" Then
    url = url & "&memail=*"
    End if

    If message="" Then
    url = url & "&mmessage=*"
    End if


response.redirect url & "&foobar=foobar#form"
response.end
End if


                     Dim objCDONTS                 ' Email object
                     Dim strFromName               ' From persons' real name
                     Dim strFromEmail, strToEmail  ' Email addresses
                     Dim strSubject, strBody       ' Message
                     Dim misccompo       
            
             
             strSubject    = "test form"
             strFromName   = Trim(Request.Form("name"))
                     strFromEmail  = Trim(Request.Form("email"))
                     strToEmail    = "[e-mail]"
             strBody       = Trim(Request.Form("name"))
             
                           
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
                             objCDONTS.From    = strFromName & " <" & strFromEmail & ">"
                             objCDONTS.To      = strToEmail
                             objCDONTS.Subject = strSubject
                 objCDONTS.Body    = "--------------------------------------" & vbcrlf & vbcrlf & strbody & vbcrlf & vbcrlf & vbcrlf & "--------------------------------------" & vbcrlf & "End of message"
                             objCDONTS.Send
                             Set objCDONTS = Nothing

response.redirect "thanks.asp"
response.end
%>

____________________________________________________
Oh ja, functioneel gezien heb ik dus drie pages:

contact.asp (form waarin alles ingevuld wordt en mbv submit doorgestuurd wordt)

contact2.asp (deze verifieert de ingevulde waarden uit contact.asp en verstuurd deze vervolgens naar email)

thanx.asp 5om te bedanken en venster te laten sluiten)

maar dat hadden jullie vast al door

[ Voor 28% gewijzigd door Verwijderd op 11-04-2003 16:19 ]

[Verwijderd]

hmmmm....ik zit een beetje te vogelen, en het lukt me bijna zelf

als ik het zo tik komt het er enigzins wel netjes uit te zien in de mail....

code:

objCDONTS.Body    =  "--------------------------------------" & vbcrlf & "Name: " & strfromname & vbcrlf & "Email: " & strfromemail & vbcrlf & "Message:" & vbcrlf & strbody & vbcrlf & vbcrlf & vbcrlf & "--------------------------------------" & vbcrlf & "End of message"

weten jullie misschien een manier om in plaats van plain tekst een gedeelte van de invulpagina (contact.asp) als HTML naar een email te sturen ?

Misschien is het topic titel niet meer helemaal oke, maar weet niet hoe ik dit moet aanpassen....

p.s.

de code doe ik zo zonder breaks, omdat je dan in 1 regel wat meer overzicht hebt (naar mijn idee)

[ Voor 19% gewijzigd door Verwijderd op 11-04-2003 16:21 ]

[TeeDee]

Uit het bolle koppie

ASP:

objCDO.MailFormat = 0 

[ Voor 47% gewijzigd door TeeDee op 11-04-2003 16:11 ]

[Verwijderd]

hmmmm, kan me inderdaad daar iets van herinneren....maar op welke plaats in de code moet ik dat ongeveer plaatsen. ben nog niet heel lang bezig met ASP.
Ergens bij regel 41 iets wijzigen ?

[TeeDee]

Voor je objCDO.Send. Zo heb ik het hier iig.

[Verwijderd]

kun je misschien een voorbeeld geven ? in de vorm van code ? dan kan ik daarmee een beetje prutsen....

[DeverauX]

MailFormat=0 is gewoon een eigenschap van je objCDO object. Zoals TeeDee al zei kan je dit voor je "objCDO.Send" plaatsen.

[TeeDee]

Omdat ik blij ben

ASP:

Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From    = strFromName & " <" & strFromEmail & ">"
objCDONTS.To      = strToEmail
objCDONTS.Subject = strSubject
objCDONTS.Body    = "Blaat, hier je body"
objCDONTS.Mailformat = 0
objCDONTS.Send
Set objCDONTS = Nothing

[cappie]

Reactie weg. Als je niks nuttigs te melden hebt, zeg dan niks.

[ Voor 72% gewijzigd door Janoz op 11-04-2003 17:36 ]

[Verwijderd]

0.3 secs op goochel :
http://www.devasp.com/Samples/mail.asp

[Verwijderd]

Sorry dat ik een paar dagen niks heb laten horen, wat omstandigheden op het thuisfront, moest vanuit brussel terug naar nederland, ga vanmiddag weer aan de slag hiermee, ieder geval bedankt alvast, ik zag heel goede tips. Ik maak er werk van.

[Verwijderd]

Goed ik heb een tijdje zitten nalezen op de site van "Zoepnek"...heel erg nuttige informatie trouwens, bedankt daarvoor.

En heb het volgende ervan gemaakt:

ASP:

Dim objCDONTS                 ' Email object
Dim strFromName               ' From persons' real name
Dim strFromEmail, strToEmail  ' Email addresses
Dim strSubject, strBody       ' Message
Dim misccompo       
            
             
strSubject    = "test form"
strFromName   = Trim(Request.Form("name"))
strFromEmail  = Trim(Request.Form("email"))
strToEmail    = "[e-mail]"
strBody       = "<HTML>" & _
                       "<HEAD></HEAD>" & _
                       "<BODY>" & _
                       "<Font Face=Arial Size=5><B>" & _
                        "This is a test Email" & _
                        "</BODY>" & _
                       "</HTML>"

   
Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From    = strFromName & " <" & strFromEmail & ">"
objCDONTS.To      = strToEmail
objCDONTS.Subject = strSubject
objCDONTS.Body = strBody
objCDONTS.Bodyformat = 0
objCDONTS.Mailformat = 0
objCDONTS.Send
Set objCDONTS = Nothing


response.redirect "thanks.asp"
response.end
%>

Als ik het goed zie, dan maak ik in regels 12 tot en met 18 de uiteindelijke HTML, zoals deze eruit komt te zien in het emailbericht...verbeter me maar direct als ik het fout heb.
Een andere vraag aan mijn kant is dan, hoe krijg ik de informatie die ingevuld wordt in het formulier (op de allereerste page) in de opgestuurde email ?
Dat deed ik namelijk, "als ik het goed heb" (zie allereerste stuk code bovenaan) in regel 38 en regel 45.

[DeverauX]

Een andere vraag aan mijn kant is dan, hoe krijg ik de informatie die ingevuld wordt in het formulier (op de allereerste page) in de opgestuurde email ?

Misschien door de items in de FORM-collectie toe te voegen aan de body van het email-bericht?

ASP:

strBody = "<HTML>" & _
                "<HEAD></HEAD>" & _
                "<BODY>" & _
                "<Font Face=Arial Size=5><B>" & _
                "This is a test Email from" & Trim(Request.Form("name") & _
                "</BODY>" & _
                "</HTML>"

[Verwijderd]

okay, ik ga het uitproberen...laat vanmiddag de uitkomst(en) weten...
thanx voor de tip devraux.