Formulier in ASP

[Anoniem2]

Ik heb een formulier in ASP overgenomen vanop mijn oude website en geprobeerd te integreren in de nieuwe.\r\n\r\nBij het uittesten ervan krijg ik de melding dat de gegevens goed verzonden zijn maar toch ontvang ik geen mail. E-mail adres staat nochtans goed ingesteld in contactSend.asp\r\n\r\nWeten jullie wat er fout is?\r\n\r\nCode op: [url]http://users.telenet.be/alltours/Contact.html[/url]\r\n\r\nThanks!!

[Anoniem2]

Als ik op \'verzenden\' klik krijg ik de mededeling dat de pagina (contactSend.asp) niet kan worden gevonden, met \'meest waarschijnlijke oorzaak\' dat \"De website bevat een programmeerfout.\". I.e. een error405.\r\n\r\nOverigens kan niemand het script in contactsend.asp bekijken, omdat dit door de asp-parser wordt gehaald voordat het op het scherm verschijnt. Als iemand fouten in het script moet helpen opsporen, moet je toch de broncode van het script ergens plaatsen.

[Anoniem2]

Ah ok, als ik het op mijn computer uittest kreeg ik de pagina bevestiging. Waarschijnlijk omdat contactSend.asp om de harde schijf staat. De code is de volgende:\r\n\r\n[CODE]\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n

BEVESTIGING

\r\n

\r\n <%\r\n \r\n \' declare variables\r\n Dim objEmail\r\n Dim strBody\r\n Dim blnOk\r\n \r\n Dim strNaam\r\n Dim strVoornaam\r\n Dim strAdres1\r\n Dim strAdres2\r\n Dim strAdres3\r\n Dim strTelefoon\r\n Dim strEmail\r\n Dim strTekst\r\n Dim strVraag\r\n Dim strSubject\r\n Dim strCheck\r\n \r\n \' catch form values\r\n strNaam = Request.Form(\"T1\")\r\n strVoornaam = Request.Form(\"T2\")\r\n strAdres1 = Request.Form(\"T3\")\r\n strAdres2 = Request.Form(\"T4\")\r\n strAdres3 = Request.Form(\"T5\")\r\n strTelefoon = Request.Form(\"T6\")\r\n strEmail = Request.Form(\"T7\")\r\n strTekst = Request.Form(\"tekst\")\r\n strCheck = Request.Form(\"checkbox\")\r\n strVraag = Request.Form(\"vraag\")\r\n \r\n If strVraag = \"1\" then\r\n strVraag = \"Prijsofferte\"\r\n Elseif strVraag = \"2\" then\r\n strVraag = \"Algemene vraag\"\r\n Elseif strVraag = \"3\" then\r\n strVraag = \"Klacht\"\r\n End if\r\n \r\n strSubject = \"All-Tours.be | \" & strVraag\r\n\r\n \' create email body\r\n strBody = \"\"\r\n strBody = strBody & \"Beste,\" & vbCrLf\r\n strBody = strBody & \" \" & vbCrLf\r\n strBody = strBody & \"Volgende email werd verstuurd vanaf het online contactformulier.\" & vbCrLf\r\n strBody = strBody & \"\" & vbCrLf\r\n strBody = strBody & \"Contactgegevens:\" & vbCrLf\r\n strBody = strBody & \" Naam: \" & strNaam & \" \" & strVoornaam & vbCrLf\r\n strBody = strBody & \" Adres: \" & strAdres1 & \" - \" & strAdres2 & vbCrLf\r\n strBody = strBody & \"\" & vbCrLf\r\n strBody = strBody & \" Telefoon: \" & strTelefoon & vbCrLf\r\n strBody = strBody & \" Email: \" & strEmail & vbCrLf\r\n strBody = strBody & \"\" & vbCrLf\r\n strBody = strBody & \"Het bericht werd verstuurd op:\" & vbCrLf\r\n strBody = strBody & \" Datum: \" & Right(\"0\"&Day(Date()),2) & \"/\" & Right(\"0\"&Month(Date()),2) & \"/\" & Year(Date()) & vbCrLf\r\n strBody = strBody & \" Uur: \" & FormatDateTime(DateAdd(\"h\",1,Time()),vbShortTime) & vbCrLf\r\n strBody = strBody & \"\" & vbCrLf\r\n strBody = strBody & \"Ik heb een vraag over : \" & strVraag & vbCrLf\r\n strBody = strBody & \"\" & vbCrLf\r\n strBody = strBody & \"Reactie:\" & vbCrLf & vbCrLf\r\n strBody = strBody & strTekst & vbCrLf\r\n strBody = strBody & \"\" & vbCrLf\r\n strBody = strBody & \" - - - - - \" & vbCrLf\r\n If strEmail <> \"\" then\r\n strBody = strBody & \"Deze email kan rechstreeks beantwoord worden!\" & vbCrLf\r\n End if\r\n\r\n \' send email \r\n Set objEmail = Server.CreateObject (\"Persits.MailSender\")\r\n objEmail.Host = \"127.0.0.1\"\r\n If strEmail = \"\" then\r\n strEmail = \"no-reply@all-tours.be\"\r\n End if\r\n objEmail.From = strEmail\r\n objEmail.Subject = strSubject\r\n objEmail.AddAddress \"info@all-tours.be\"\r\n \'objEmail.AddAddress \"leander@pandora.be\"\r\n objEmail.Body = strBody\r\n objEmail.Send\r\n \r\n Set objEmail = Nothing\r\n\r\n%>\r\n

\r\n

Beste klant,

\r\n

Wij hebben uw vraag goed ontvangen en nemen zo spoedig mogelijk contact met u op.
\r\nWij wensen u nu reeds te danken voor de interesse die u in Reisbureau All Tours stelt.

\r\n

Het All Tours team.

\r\n\r\n\r\n\r\n[/CODE]

[Anoniem2]

Ik weet niet veel van asp (hou me vooral met php bezig), maar ik vraag me af wat dit is: [code]objEmail.Host = \"127.0.0.1\"[/code] Wellicht moet je hier iets anders invullen dan de localhost. Kijk daarvoor eens in de asp documentatie met betrekking tot de asp mailer.