mailform sætter lig med tegn i slutningen af body
Hejsa,Jeg har lavet en mailform som dels sender mig en besked, men også sender en bekræftelse til den der har udfyldt formularen.
problemet er at der i bekræftelsen kommer et "=" ind i slutningen af mailens body. hvor hulen kommer det fra og hvordan i alverden får jeg det til at forsvinde for det ser sært ud.
<!--#include file="includes/mail.asp"-->
<!--#include file="includes/dbcon.asp"-->
<script Language="JavaScript">
<!--
function CheckBlank()
{
if (kontaktform.email.value == "")
{
alert("E-mail er ikke udfyldt");
kontaktform.email.focus();
return (false);
}
if (kontaktform.kontaktperson.value == "")
{
alert("Udfyld venligst med kontaktperson");
kontaktform.kontaktperson.focus();
return (false);
}
if (kontaktform.emne.value == "0")
{
alert("Vælg venligst et emne");
kontaktform.emne.focus();
return (false);
}
if (kontaktform.besked.value == "")
{
alert("Skriv venligst en besked");
kontaktform.besked.focus();
return (false);
}
return (true);
}
-->
</script>
<link rel='stylesheet' type='text/css' href='styles/sitestyle.css'>
<BODY leftMargin=0 topMargin=0 scrolling="no">
<table width="425" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align=center width=425>
<%
action = request.querystring("action")
if action <> "1" then
%>
<br>
<fieldset>
<form onsubmit="return CheckBlank();" name=kontaktform action="kontakt.asp?action=1" method=post>
<table width=450>
<tr>
<td align="left"><fieldset>
<legend>E-mail</legend>
<input type="text" name="email" id="email" size="29" maxlength="70" tabindex="1"><br>
</fieldset></td>
<td rowspan="2"><img src="images/kontakt_form.gif" alt="kontakt" width="228" height="109" border="0"></td>
</tr>
<tr>
<td align="left"><fieldset>
<legend>Kontaktperson</legend>
<input type="text" name="kontaktperson" id="kontaktperson" size="29" tabindex="2">
</fieldset></td>
</tr>
<tr>
<td align="left"><fieldset>
<legend>Emne</legend>
<select name="emne" id="emne" size="5" tabindex="3">
<option value="0" SELECTED-->>>> vælg her <<<<--option>
<% objconn2.open
strsql="select * from tbl_kontaktemner order by value"
objrs2.open strsql, objconn2
%>
<%
while not objrs2.eof or objrs2.bof
%>
<option value="<%=objrs2("emne")%>"><%=objrs2("emne")%></option>
<%
objrs2.movenext
wend
objconn2.close
set objconn2 = nothing
%>
</select>
</fieldset></td>
<td align="left"><fieldset>
<legend>Besked</legend>
<textarea cols="24" rows="5" name="Besked" id="Besked" tabindex="4">
</textarea>
</fieldset></td>
</tr>
<tr>
<td align="left"><input type="submit" name="send" value="Send" id="formknap"><input type="reset" name="slet" value="Slet" id="formknap"></td>
</form></tr>
</table>
</fieldset>
<%
else
Dim objMail
set indhold = request.form("Besked")
Set objMail = Server.CreateObject( "CDONTS.NewMail" )
objMail.To = "support@mit.dk"
objMail.From = "webserver@mit.dk"
objMail.Subject ="Angående " &request.form("emne") & " fra " & request.form("kontaktperson")
objMail.Body = indhold & vbcrlf & vbcrlf & request.form("kontaktperson") & vbcrlf & vbcrlf & request.form("email")
objMail.Host = "smtp.domain.dk"
objMail.Send
objMail.To = request.form("email")
objMail.From = "support@mit.dk"
objMail.Subject ="Angående " &request.form("emne")
objMail.Body = "Kære " & request.form("kontaktperson") & vbcrlf & vbcrlf & "Du har sendt nedenstående besked til Drabant IT " &vbcrlf & vbcrlf
objMail.Body = objMail.Body & indhold & vbcrlf & vbcrlf & "Vi vender tilbage i løbet af 24 timer" & vbcrlf & vbcrlf & "Med venlig hilsen" & vbcrlf & vbcrlf & vbcrlf & "Supporten"
objMail.Host = "smtp.domain.dk"
objMail.Send
%>
<strong>Tak for din mail vi vender tilbage hurtigst muligt</strong>
<%
Set objMail = Nothing
end if
%>
