send e-mail form but..

Dejitan · January 3rd, 2007, 11:19 AM

I can't see what I'm doing wrong. I don't get any errors. :(

IF request.ServerVariables("REQUEST_METHOD")="POST" THEN
    sqlString = "INSERT INTO aanpassingenPrio " &_
     "( prioriteit, stat, opleverdatum, aanpassing, " &_
     "commentaar, toevoeger, opleverdatumDD, opleverdatumMM, opleverdatumJJJJ ) VALUES ( " &_
     tosql(prioriteit) & "," &_
     tosql(stat) & "," &_
     tosql(opleverdatum) & "," &_
     tosql(aanpassing) & "," &_
     tosql(commentaar) & "," &_
     tosql(toevoeger) & "," &_
     tosql(opleverdatumDD) & "," &_
     tosql(opleverdatumMM) & "," &_
     tosql(opleverdatumJJJJ) & ")"
    Conn.Execute (sqlString)
    'response.Write(sqlString) : response.End()

    dim Varbody
    varbody="<html>" & vbCrlf & _
        " <head>" & vbCrlf & _
        "<title>Client-tool</title>" & vbCrlf & _
            "<style>" & vbCrlf & _
                "table {font-family: Tahoma; font-size:11px; color: #333333;}" & vbCrlf & _
                "a:visited,a:link {color:#333333;text-decoration:underline;}" & vbCrlf & _
                "a:hover {color:#E90900;text-decoration:underline;}" & vbCrlf & _
            "</style>" & vbCrlf & _
        "</head>" & vbCrlf & _
            "<body bgcolor='#FFFFFF' leftmargin='10' topmargin='10' rightmargin='10' bottommargin='10' marginwidth='0' marginheight='0'>" & vbCrlf & _
                "<table width=""500"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrlf & _
                    "<tr>" & vbCrlf & _
                        "<td></td>" & vbCrlf & _
                    "</tr>" & vbCrlf & _
                    "<tr>" & vbCrlf & _
                        "<td style=""padding-left:10px;""><br>" & vbCrlf & _
                            "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & vbCrlf
                                varbody = varbody & "<tr><td width=""200""> </td><td width=""360""> </td></tr>" & vbcrlf & vbcrlf
                                varbody = varbody & "<tr><td colspan=""2"">Er is een aanpassing toegevoegd op de client-tool. <br>Onderstaande gegevens werden ingevuld:<br><br></td></tr>" & vbcrlf & vbcrlf
                                varbody = varbody & "<tr><td>Klant: </td><td>" & request.form("toevoeger") &"</td></tr>" & vbcrlf
                                varbody = varbody & "<tr><td>Aanpassing: </td><td>" & request.form("aanpassing") &"</td></tr>" & vbcrlf
                                varbody = varbody & "</table><br><br></td>" & vbCrlf & _
                    "</tr>" & vbCrlf & _
                "</table>" & vbCrlf & _
            "</body>" & vbCrlf & _
        "</html>"
        Dim ObjEmail: Set ObjEmail=Server.CreateObject("CDONTS.NewMail")
            ObjEmail.BodyFormat = 0 'CdoBodyFormatHTML
            ObjEmail.MailFormat = 0 'CdoMailFormatMime
            objEmail.To = application("email_usergroup")
            objEmail.From = "[email protected]"
            objEmail.Subject = "Aanpassing toegevoegd"
            objEmail.Body = cstr(varbody)
            objEmail.Send
        set objEmail = nothing

END IF
%>

~~~~~~~~~~~~~~~~~~~~~~
What goes around comes around

Dejitan · January 4th, 2007, 06:09 AM

ok it's solved! I had to write my emailadress to objEmail.To . :D there are no other things to be changed.

objEmail.To = "[email protected]"

~~~~~~~~~~~~~~~~~~~~~~
What goes around comes around