aspEmail vraag, waarom krijg ik...

[Verwijderd]

Hoi Allemaal,

Ik probeer middels aspEmail een formulier te verzenden.
Onderstaand het stukje script wat ik gebruik om het te verzenden.
Doe ik iets fout? Zo ja zeg het me AUB want ik zie het niet

Al vast bedankt voor de medewerking.

++++script++++
<%
DIM
strNaam = Request.Form("naam")
strVoorletters = Request.Form("voorletters")
strGes = Request.Form("geslacht")
strFun = Request.Form("functie")
strEmail = Request.Form("email")
strNaam1 = Request.Form("naam1")
strVoorl1 = Request.Form("voorletters1")
strFun1 = Request.Form("functie1")
strEmail1 = Request.Form("email1")
strBedr = Request.Form("bedrijfsnaam")
strPost = Request.Form("postadres")
strPostc = Request.Form("postcode")
strPl = Request.Form("plaats")
strTel = Request.Form("telefoon")
strDoor = Request.Form("doorkies")
strGsm = Request.Form("gsm")
strFax = Request.Form("fax")
strBedr = Request.Form("bedrijfomschrijving")
strWerk = Request.Form("werknemers")
strKeuze = Request.Form("Keuze")

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.bedrijfsnaam.net"
Mail.From = "strNaam"
Mail.FromName = "strEmail"

Mail.AddAddress "[e-mail]", "Test Formulier"

Mail.Subject = "Inschrijving Integriteits cursus"
Mail.Body = "De volgende inschrijving is ingevoerd : " & vbNewline &_
"Bedrijfsnaam :" & strBedr & vbNewline &_
"Naam :" & strNaam & vbNewline &_
"Voorletters :" & strVoorletters & vbNewline &_
"Geslacht :" & strGes & vbNewline &_
"Functie :" & strFun & vbNewline &_
"Email adres :" & strEmail & vbNewline &_
"Tweede inschrijver :" & strNaam1 & vbNewline &_
"Vooletters :" & strVoorl1 & vbNewline &_
"Functie :" & strFun1 & vbNewline &_
"Email adres :" & strEmail1 & vbNewline &_
"Postadres :" & strPost & vbNewline &_
"Postcode :" & strPostc & vbNewline &_
"Plaats :" & strPl & vbNewline &_
"Telefoonnummer :" & strTel & vbNewline &_
"Doorkiesnummer :" & strDoor & vbNewline &_
"Mobielnummer :" & strGsm & vbNewline &_
"Fax nummer :" & strFax & vbNewline &_
"Bedrijfsomschrijving :" & strBedr & vbNewline &_
"Aantal werknemers :" & strWerk & vbNewline &_
"Inschrijving/info :" & strKeuze & vbNewline &_

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
%>
++++einde script++++

[gorgi_19]

Erhm... Wat doet het niet? Welke foutmelding krijg je? Wat heb je zelf al geprobeerd? Er zit een fout in, waarom debug je dan niet tijdelijk de On Error Resume Next er uit?

En kan je de [code][/code] - tags gebruiken?

[Verwijderd]

En wij zeker alles oplossen. Eerst de fout posten volgende keer

Mail.From = "strNaam"
Mail.FromName = "strEmail"

Haal de quotes hier eens weg

[Verwijderd]

Het vervelende is dat de hosting provider standaard fout pagina's heeft met een berg reclame banners er op en de actuele foutmelding niet vermeld.
Dat is de reden waarom ik de foutmelding niet kan vermelden.
Ik zou willen dat de foutmelding in beeld kwam, dan zou ik hier ook niet de vraag stellen.

Sorry hoor

[gorgi_19]

Verwijderd schreef op 25 oktober 2002 @ 11:52:
Het vervelende is dat de hosting provider standaard fout pagina's heeft met een berg reclame banners er op en de actuele foutmelding niet vermeld.
Dat is de reden waarom ik de foutmelding niet kan vermelden.
Ik zou willen dat de foutmelding in beeld kwam, dan zou ik hier ook niet de vraag stellen.

Sorry hoor

Logfiles? Hier geen toegang toe?

[4of9]

quotes weghalen...

[robjanssen]

Vul hier eens nuttige informatie in:

ASP.NET Visual Basic:

Mail.Host = "smtp.bedrijfsnaam.net" 
Mail.From = "strNaam" 
Mail.FromName = "strEmail"
Mail.AddAddress "[e-mail]", "Test Formulier"

Dit AddAddress moet volgens mij ook andersom, dus eerst Naam, dan Emailadres

[Verwijderd]

heren,
ik ben eruit. Er stond als laatste : "Inschrijving/info :" & strKeuze & vbNewline &_

& vbNewline &_ moest eruit.

Bedankt voor alle reacties