MeMail = HTTP 500 Fejl
Er der nogen der kan se fejlen på disse to sider ??default.asp (HTML) siden er selve udfyldnings formen.
send.asp (ASP) siden er send formularen.
---------------------------default.asp-------------------------
<!-- #INCLUDE FILE="../Top.asp" -->
<!-- #INCLUDE FILE="../Menuliste.asp" -->
<% ID = Request.QueryString("ID") %>
<% VisMenu(ID) %>
<td width="1" background="/System/verticaldots.gif"></td>
<td>
<table align="center">
<tr>
<td>
<!-- MAIN SECTION BEGIN -->
<br>
<table width="640" cellpadding="0" cellspacing="0" class="Artikler">
<tr>
<td colspan="1" class="ArtikelAfsnit">Mail Os</td>
</tr>
<tr>
<td height="1" colspan="7" background="/bottomdots.gif"></td>
</tr>
<tr>
<td height="25"> </td>
</tr>
<tr>
<td align="center">
Du kan bruge denne form, til at kontakte os med.<BR>
Vi vil prøve at svare så hurtigt som muligt! <P>
<FORM ACTION="send.asp" METHOD="Post" id="form">
<TABLE class="Artikler" width="550">
<TR>
<TD width="50">Til:</TD>
<TD><select name="Til"/>
<option value="">Vælg kontakt personen her..</option>
<option value="">-------------------------------------------</option>
<option value="Far@TEST.dk">Far : Ole </option>
<option value="Mor@TEST.dk">Mor : Bent</option>
<option value="Soster@TEST.dk">Søster : Diddie</option>
<option value="Bror@TEST.dk">Bror : Saddam</option>
</select>
</TD>
</TR>
<TR>
<TD width="50">Emne:</TD>
<TD><INPUT TYPE="Text" SIZE="30" NAME="Emne"></TD>
</TR>
<tr>
<td height="10"> </td>
</tr>
<TR>
<TD width="50">Fra:</TD>
<TD><INPUT TYPE="Text" SIZE="30" NAME="Afsender"></TD>
<td width="100"> </td>
</TR>
<TR>
<TD width="50">E-mail:</TD>
<TD><INPUT TYPE="Text" SIZE="30" NAME="Email"></TD>
</TR>
<tr>
<td height="10"> </td>
</tr>
<TR>
<TD COLSPAN="3"><TEXTAREA COLS="45" ROWS="10" NAME="Tekst">Skriv din besked her.</TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN="3" ALIGN="Right" width="400"><INPUT TYPE="RESET" VALUE="Slet"> <INPUT TYPE="Submit" VALUE="Send"></TD>
</TR>
</TABLE>
</FORM>
</td>
</tr>
</table>
<br>
<!-- MAIN SECTION ENDING -->
</td>
</tr>
</table>
</td>
<td width="1" background="/verticaldots.gif"></td>
<!-- #INCLUDE FILE="../bund.asp" -->
--------------------------------default slut---------------------
og så send.asp
---------------------------------send----------------------------
<% Response.Buffer = True %>
<html><head>
<title>Send mail</title></head><body>
<%
Dim Mailer
Set Mailer = Server.CreateObject("MEMail.Message")
Mailer.MailFromDisplayName = Request.Form("Navn")
Mailer.MailFrom = Request.Form("Email")
Mailer.MailTo = Request.Form("Til")
Mailer.ContentType = "text/html"
Mailer.Subject = "Formular"
Mailer.MessageBody = "Kontaktoplysninger:" & "<br>Navn: " & Request.Form("Navn") & "<br>Telefon: " & Request.Form("Telefon") & "<br>Email: " & Request.Form("Email") & "<br>Besked: " & Request.Form("Tekst")
if not Mailer.SendMessage then
Response.Write "Kontaktformularen kunne ikke gennemføres...<p>Husk venligst at udfylde alle felter.</p><br><br><p>Fejlmeddelelse:</p>"
Response.Write Mailer.Response
else
Response.clear
Response.Redirect ("afsendt.asp")
end if
set Mailer = Nothing
%>
</body>
</html>
-------------------------------send.asp slut---------------------
Når jeg tester ved at vælge et email adresse, f.eks Far og udfylder resten og trykker "send" får jeg en HTTP 500 FEJl...
Hvad gør jeg forkert ????
