Mijn provider is recent overgeschakeld op Windows2003
met het gevolg dat mijn CDONTS-script niet meer valabel is om
formuliergegevens via e-mail te versturen (en een script-voorbeeld zit
niet in de hosting)

Met wat google-hulp dacht ik onderstaand script aan de CDOSYS-praat te
krijgen, maar dit werkt niet (server-error 500).

Kan iemand mij helpen waar ik de fout moet zoeken ?

Dank en groeten,

Paul

<%
Dim objMail
Dim sMessageText
Set objMail = Server.CreateObject('CDO.Message')
objMail.From = request('requiredemail')
'objMail.Subject = request('onderwerp')
objMail.Subject = "Inschrijving"

objMail.To = 'XYZ@abcde.xy'

sMessageText = request('requiredvoornaam') & ' stuurt volgend bericht
:' & vbCrLf &vbCrLf
'sMessageText = sMessageText & request('bericht')
for i=1 to request.form.count
sMessageText = sMessageText & request.form.key(i) & ": " &
request.form.item(request.form.key(i)) & vbcrlf
next
objMail.TextBody= sMessageText

(heb onderstaande formulieritems vervangen door de for next-lus)
'sMessageText = "Voornaam: " & requiredvoornaam & vbCRLF
'sMessageText = sMessageText & "Familienaam: " & requiredfamilienaam &
vbCRLF
'sMessageText = sMessageText & "E-mail: " & requiredemail & vbCRLF
'sMessageText = sMessageText & "Adres: " & requiredadres & vbCRLF
'sMessageText = sMessageText & "Postcode: " & requiredpostcode &
vbCRLF
'sMessageText = sMessageText & "Gemeente: " & requiredwoonplaats &
vbCRLF
'sMessageText = sMessageText & "Telefoon: " & requiredtelefoon &
vbCRLF
'sMessageText = sMessageText & "Aantal: " & requiredaantal & vbCRLF
'sMessageText = sMessageText & "Bedrag: " & requiredbedrag & vbCRLF
'sMessageText = sMessageText & "Commentaar: " & Bericht & vbCRLF

objMail.Send

If Err <> 0 Then ' error occurred
strErr = Err.Description
else
end if

set objMail = nothing
%>