Kontakta-fel!

När man skrivit in Namn, Email, valt ärende och skrivit i meddelandet och tryckt på skicka, så skickas det till rätt email, men meddelandet finns inte, det står bara Namn, Email, valt ärende, men inte meddelandet i mailet.

<table border="0" width="98%" align="center">
        <form action="index.asp?visa=kontakt&go=send" method="post"  name="maila" onSubmit="return kontakt()">
                <tr> 
                  <td colspan="3"><font size=2><b>Kontakta oss</b></font><br>Här kan ni kontakta oss om det är något ni undrar över.</td>
                </tr>
                <tr> 
                  <td colspan="3" background="bilder/dot1.gif">&nbsp;</td>
                </tr>
                <tr> 
                  <td width="90"><b>Namn: </b></td>
                  <td width="360" colspan="2"><b><input type="text" name="namn" size="30" maxlength="20"></b></td>
                </tr>
                <tr> 
                  <td width="90"><b>E-mail: </b></td>
                  <td colspan="2"><b> <input type="text" name="mail" size="30"></b></td>
                </tr>
                <tr> 
                  <td width="90"><b>Ärende:</b></td>
                  <td colspan="2"> 
                    <select name="arende">
                      <option value="Tipsa oss">Tipsa oss
                      <option value="Annat">Annan fråga
                    </select>
                  </td>
                </tr>
                <tr> 
                  <td colspan="3"><b>Meddelande:<br></b><textarea name="msg" cols="65" rows="10"></textarea></td>
                </tr>
                <tr> 
                  <td colspan="3"><input type="submit" value="Skicka meddelandet"></td>
                </tr>
            </form>

<%If Request.QueryString("go") = "send" Then

Namn = Request.Form("namn") 
Email = Request.Form("mail") 
Arende = Request.Form("Arende") 
Meddelande = Replace(Request.Form("msg"), vbCrLf, "<BR>" & vbCrLf)

On error resume next  	

Set SmartMail = Server.CreateObject("aspSmartMail.SmartMail")
SmartMail.Server = "mail.aleborg.com"  
SmartMail.SenderAddress = Email
SmartMail.Recipients.Add dinemail
SmartMail.Subject = "Kontakta mig!" 	
Body = "<font face=verdana size=1>"
Body = Body & "<b>Meddelande via hemsidan</b><br>"
Body = Body & "------------------------------------------<br>"
Body = Body & "<b>Skickades:</b>  " & Now & "<br>"
Body = Body & "<b>Namn: </b> " & Namn & "<br>"
Body = Body & "<b>E-mail: </b> " & Mail & "<br>" 
Body = Body & "<b>Hemsida: </b> " & Webb & "<br>"
Body = Body & "<b>Ärende: </b> " & Arende & "<br>"
Body = Body & "------------------------------------------<br>"
Body = Body & Msg & "<br>"
Body = Body & "</font>"

SmartMail.Body = Body
SmartMail.Charset = "iso-8859-1"
SmartMail.ContentType = "text/html" 
SmartMail.SendMail%>

                <tr> 
                  <td colspan="3">&nbsp;</td>
                </tr>
                <tr> 
                  <td colspan="3"><b>Meddelandet är skickat!</b></td>
                </tr>

Vad kan vara fel?