[ASP] Mailer script geeft internal server error 500.

[Verwijderd]

Goedavond heren en dames.

Ik zit met onderstaand sub scriptje. En krijg steeds een internal server error 500.
Wat kan het probleem zijn?

code:

sub bevestigingsmail ( vanwienaam, vanwieadres, aanwienaam, aanwieadres, onderwerp, inhoud )
    
    Set rs1 = Server.CreateObject("ADODB.Recordset") 
    strSQL1 = "SELECT * FROM BEDRIJFSGEGEVENS WHERE ID = 1"     
    Set rs1 = My_conn.execute(strSQL1)
    
    If (not rs1.BOF) and (not rs1.EOF) then
    
    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.FromName = vanwienaam
    Mailer.FromAddress= vanwieadres
    Mailer.RemoteHost = rs1("#smtp") 
    Mailer.AddRecipient aanwienaam, aanwieadres
    Mailer.Subject = onderwerp
    Mailer.BodyText = inhoud


       vanwienaam = rs1("#bedrijfsnaam")
       vanwieadres = rs1("#email")
       aanwienaam = "relatie"
       aanwieadres = request.form("e-mail")
       onderwerp = "Aanmelding nieuwsbrief - Westervoorde en Lingerie d'amour - www.westervoorde.nl"
       inhoud = "Geachte " & aanwienaam &_
       
       "," & vbNewline & vbNewline &_
       
       "Bedankt voor uw aanmelding op onze nieuwsbrief." & vbNewline & vbNewline &_
       
       "Alvorens u onze nieuwsbrief kunt ontvangen, dient u deze e-mail te bevestigen." & vbNewline & vbNewline &_
       
       rs1("#url") &_
       "home.asp?bevestiging=1&email="& request.form("e-mail") &_
       
       "Met vriendelijke groeten," & vbNewline & vbNewline &_
       rs1("#bedrijfsnaam") & vbNewline &_
       rs1("#adres") & vbNewline &_
       rs1("#postcode") & vbNewline &_
       rs1("#telefoon") & vbNewline &_
       rs1("#fax") & vbNewline &_
       rs1("#url") & vbNewline &_
       rs1("#email") & vbNewline & vbNewline 
      bevestigingsmail vanwienaam, vanwieadres, aanwienaam, aanwieadres, onderwerp, inhoud
end if  
end sub

Alvast bedankt.

[mark117]

wat is de precieze foutmelding die je krijgt, een 500 server error kan van alles zijn....


misschien moet je eerst in je browser "vriendelijke foutmeldingen" uitzetten

[ Voor 21% gewijzigd door mark117 op 15-11-2004 20:15 ]

[NMe]

Wat doen die hekjes op regel 18, 19, 31 en 35+?

[ Voor 8% gewijzigd door NMe op 15-11-2004 20:17 ]

[Verwijderd]

heb je niet een wat duidelijkere omschrijving van de foutmelding? eventueel in logboek

het lijkt erop dat de benodigde dll s voor je e-mail component (SMTPsvg.Mailer) niet juist geinstalleerd zijn.

[Verwijderd]

HTTP-fout 500 - Interne serverfout
Internet Explorer

Meer niet

De #jes staan in de database (kolomnamen).

Waarom? tja. Dan hou ik de boel een beetje uit elkaar dacht ik... Is dat het euvel?

[Verwijderd]

Verwijderd schreef op maandag 15 november 2004 @ 20:19:
heb je niet een wat duidelijkere omschrijving van de foutmelding? eventueel in logboek

het lijkt erop dat de benodigde dll s voor je e-mail component (SMTPsvg.Mailer) niet juist geinstalleerd zijn.

In een andere directory draait een bestaande site die het wel doet

[NMe]

Verwijderd schreef op maandag 15 november 2004 @ 20:20:
HTTP-fout 500 - Interne serverfout
Internet Explorer

Meer niet

De #jes staan in de database (kolomnamen).

Waarom? tja. Dan hou ik de boel een beetje uit elkaar dacht ik... Is dat het euvel?

Dat zou je wel zeggen als je bedenkt dat veel DBMSen ervanuitgaan dat je met # een datum aangeeft. Ik weet niet wat voor invloed het heeft op je code verder.

En bekijk je pagina eens in Firefox of zet vriendelijke foutmeldingen uit, zoals hierboven al gezegd is.

[Sendy]

Ik zou in de logs kijken. Misschien zie je een script fout?

[dit is een fout dat het script niet goed draait. Dit kan door vele fouten komen. Dit heeft niets te maken met de simpele foutmelding van IE]

[ Voor 56% gewijzigd door Sendy op 15-11-2004 20:24 ]

[Verwijderd]

Sendy schreef op maandag 15 november 2004 @ 20:23:
Ik zou in de logs kijken. Misschien zie je een script fout?

Waar vindt ik die logs... Sorry voor het wellicht "domme" antwoord.

[Verwijderd]

mark117 schreef op maandag 15 november 2004 @ 20:14:
wat is de precieze foutmelding die je krijgt, een 500 server error kan van alles zijn....


misschien moet je eerst in je browser "vriendelijke foutmeldingen" uitzetten

Zie ook: http://support.microsoft....spx?scid=kb;en-us;Q294807

NMe84 schreef op maandag 15 november 2004 @ 20:17:
Wat doen die hekjes op regel 18, 19, 31 en 35+?

Blijkbaar zijn dat de velden uit de recordset rsl. Ik neem aan dat deze ook in de database zo heten, dus letterlijk #adres en niet adres, want anders

[quote]Verwijderd schreef op maandag 15 november 2004 @ 20:11:
Goedavond heren en dames.

Ik zit met onderstaand sub scriptje. En krijg steeds een internal server error 500.
Wat kan het probleem zijn?

code:

    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Bij sommige hostingservers werkt SMTPsvg niet. Gebruik eens CDONTS en probeer het dan nog eens.

[Sendy]

Op dezelfde machine als waar het script draait, slimpie.

[Verwijderd]

Verwijderd schreef op maandag 15 november 2004 @ 20:24:
[...]


Zie ook: http://support.microsoft....spx?scid=kb;en-us;Q294807

[...]

Inderdaad staan de namen in de dbase ook letterlijk met hekje.
CDONTS heb ik al geprobeerd. De huidige website draait met SMTPsvg.Mailer
Maar ik doe iets verkeerd hier en ik zie het niet... ik staar mezelf blind!

[Verwijderd]

Ik vindt nergens de logs. Alleen een brak Active24 CP!!!

[faabman]

hmmm, wel een beetje vreemd om velden in je database te laten beginnen met een reserved teken...

waarom gebruik je een recursieve sub??
waarom creeer je eerst een recordset met server.createobject om deze later weer te overschrijven met een con.execute???

[Verwijderd]

faabman schreef op maandag 15 november 2004 @ 20:42:
hmmm, wel een beetje vreemd om velden in je database te laten beginnen met een reserved teken...

waarom gebruik je een recursieve sub??
waarom creeer je eerst een recordset met server.createobject om deze later weer te overschrijven met een con.execute???

Denk je dat het hier mee te maken kan hebben? zou dit problemen geven?
als ik e-mail als kolomnaam geef dan gaat het wel fout dus wellicht heb je gelijk.
Verder moet je even nadere uitleg geven. Ik ben een nieuweling op het ASP vlak. Leer wel snel van de vele tutorials.

[faabman]

Verwijderd schreef op maandag 15 november 2004 @ 20:47:
[...]


Denk je dat het hier mee te maken kan hebben? zou dit problemen geven?
als ik e-mail als kolomnaam geef dan gaat het wel fout dus wellicht heb je gelijk.
Verder moet je even nadere uitleg geven. Ik ben een nieuweling op het ASP vlak. Leer wel snel van de vele tutorials.

we kunnen nu niet bepalen wat er aan de hand is omdat je nog steeds je foutmelding niet gepost hebt als je die foutmelding nou eens post dan komen we vast een heel stuk verder...

[Verwijderd]

OKAY DAN!!!!

Koffie doet wonderen:

code:

    strSQL1 = "SELECT * FROM BEDRIJFSGEGEVENS WHERE ID = 1"     
    Set rs1 = My_conn.execute(strSQL1)
    
    If (not rs1.EOF) then

       vanwienaam = rs1("bedrijfsnaam")
       vanwieadres = rs1("email")
       aanwienaam = "relatie"
       aanwieadres = request.form("e-mail")
       onderwerp = "Aanmelding nieuwsbrief - Westervoorde en Lingerie d'amour - www.westervoorde.nl"
       inhoud = "Geachte " & aanwienaam &_
       
       "," & vbNewline & vbNewline &_
       
       "Bedankt voor uw aanmelding op onze nieuwsbrief." & vbNewline & vbNewline &_
       
       "Alvorens u onze nieuwsbrief kunt ontvangen, dient u deze e-mail te bevestigen." & vbNewline & vbNewline &_
       
       rs1("url") &_
       "home.asp?bevestiging=1&email="& request.form("e-mail") & vbNewline & vbNewline &_
       
       "Met vriendelijke groeten," & vbNewline & vbNewline &_
       rs1("bedrijfsnaam") & vbNewline &_
       rs1("adres") & vbNewline &_
       rs1("postcode") & vbNewline &_
       rs1("telefoon") & vbNewline &_
       rs1("fax") & vbNewline &_
       rs1("url") & vbNewline &_
       rs1("email") & vbNewline & vbNewline 
      bevestigingsmail vanwienaam, vanwieadres, aanwienaam, aanwieadres, onderwerp, inhoud
    
    end if
    
sub bevestigingsmail ( vanwienaam, vanwieadres, aanwienaam, aanwieadres, onderwerp, inhoud )

    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.FromName = vanwienaam
    Mailer.FromAddress= vanwieadres
    Mailer.RemoteHost = rs1("smtp") 
    Mailer.AddRecipient aanwienaam, aanwieadres
    Mailer.Subject = onderwerp
    Mailer.BodyText = inhoud
    if Mailer.SendMail then
    else Response.Write "Error bij het verzenden > " & Mailer.Response 
    end if
end sub
    
    Set rs1 = nothing

Toch maar uit het apparte bestand met subs gehaald. En enkele lullige foutjes aangepast. Kwestie van eh... opletten?

In ieder geval bedankt iedereen!!!

[zneek]

en ga nu als de donder die "friendly http error messages" uitzetten!!! Dan had je direct een zinnige foutmelding gehad en had je het zelf direct gezien, of anders was je hier in 1 reply geholpen geweest.

[gorgi_19]

En ik heb destijds dus een heel stappenplan geschreven voor debuggen in asp. Zie de faq; specifieker P&W FAQ - ASP

Daarmee was je er zelf ook uit gekomen