frans kooijman
Gebruiker
- Lid geworden
- 22 apr 2008
- Berichten
- 517
Hi,
Ik heb een HTML bestandje in Dreamweaver CS3, waarin een invulbox voor de gebruiker is opgenomen voor een veld BEDRIJFSNAAM (open veld) samen een VERSTUUR-button. Doel is om een mail bij mij binnen te krijgen met de waarde van de Bedrijfsnaambox, die de gebruiker invult.
Het HTML bestandje laat ik verwijzen naar een test.asp bestand met de tag:
<form action="test.asp" method="post" name="form1" id="form1" onsubmit="MM_validateForm('CPEmail zakelijk','','RisEmail');return document.MM_returnValue">
De URL verwijzing na invullen en VERSTUUR gaat goed, dus fout moet in .asp bestand zitten lijkt mij. Zie graag onderstaande copy/paste van .asp bestand, waardoor een mail naar mij zou moeten komen (maar er dus niet komt.....
Wie kan deze .asp digibeet aangeven waar onderstaand de fout zit ???? Andere formulieren in dezelfde domein werken wel, dus overige settingen moeten goed staan.
DANK MET HOOFDLETTERS!!!
Frans
Ik heb een HTML bestandje in Dreamweaver CS3, waarin een invulbox voor de gebruiker is opgenomen voor een veld BEDRIJFSNAAM (open veld) samen een VERSTUUR-button. Doel is om een mail bij mij binnen te krijgen met de waarde van de Bedrijfsnaambox, die de gebruiker invult.
Het HTML bestandje laat ik verwijzen naar een test.asp bestand met de tag:
<form action="test.asp" method="post" name="form1" id="form1" onsubmit="MM_validateForm('CPEmail zakelijk','','RisEmail');return document.MM_returnValue">
De URL verwijzing na invullen en VERSTUUR gaat goed, dus fout moet in .asp bestand zitten lijkt mij. Zie graag onderstaande copy/paste van .asp bestand, waardoor een mail naar mij zou moeten komen (maar er dus niet komt.....
Wie kan deze .asp digibeet aangeven waar onderstaand de fout zit ???? Andere formulieren in dezelfde domein werken wel, dus overige settingen moeten goed staan.
DANK MET HOOFDLETTERS!!!
Frans
Code:
<html>
<head>
<title>Formulier mailen</title>
</head>
<body>
<% 'set up and send email
'Dimension variables
Dim ConfCDOSYSMail, CDOSYSMail, MessageBody
'Create mail object
Set CDOSYSMail = Server.CreateObject("CDO.Message")
Set ConfCDOSYSMail = Server.CreateObject ("CDO.Configuration")
'set the CDOSYS configuration fields
ConfCDOSYSMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.bedrijfsnaam.nl"
ConfCDOSYSMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ConfCDOSYSMail.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
ConfCDOSYSMail.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
ConfCDOSYSMail.Fields.Update
Set CDOSYSMail.Configuration = ConfCDOSYSMail
'Add the body
MessageBody = "BEDRIJFSGEGEVENS----------------------------------------------" & "<br>" &_
"" & "<br>" &_
"Bedrijfsnaam: " & Request.Form("Bedrijfsnaam") & "<br>"
'MessageBody = "This message is a test "
CDOSYSMail.From = "<" & Request.Form("CPEmail zakelijk") & ">"
CDOSYSMail.To = "<" & "support@mijnfirmanaam.nl" & ">"
CDOSYSMail.Subject = "Bedrijfsnaam"
CDOSYSMail.HTMLBody = MessageBody
CDOSYSMail.Send
Set CDOSYSMail = Nothing
'Dim Mailer, MessageBody
'Set Mailer = Server.CreateObject("CDONTS.NewMail")
'Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
'Mailer.Remotehost = "mail.mijnfirmanaam.nl"
'Mailer.FromName = Request.Form("Naam")
'Mailer.From = Request.Form("Email")
'Mailer.To = "info@mijnfirmanaam.nl"
'Mailer.Subject = "Testing the Email Scripts"
'MessageBody = " " & vbCrLf &_
' "---------------------------------------------------------- " & vbCrLf &_
' "Last name: " & vbTab & Request.Form("Naam") & vbCrLf &_
' "Email: " & vbTab & Request.Form("Email") & vbCrLf &_
'Mailer.Body = MessageBody
Laatst bewerkt door een moderator:
