Formular med fast "ENME"
Hvad skal jeg ændre her for at lave fast emne i stedet for at folk selv skriver det?<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1">
<tr>
<td> <form name="form1" method="post" action="mail.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Dit
navn</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
</strong></font> <input name="fraNavn" type="text" class="loginform2" id="fraNavn3" size="35"></td>
</tr>
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Din
e-mail</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
</strong></font> <input name="fra" type="text" class="loginform2" id="fra" size="35"></td>
</tr>
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Emne</font><br>
<input name="emne" type="text" class="loginform2" id="emne" size="35"></td>
</tr>
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Besked</font><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><br>
</strong></font> <textarea name="Tekst" cols="37" rows="5" class="loginform2" id="Tekst"></textarea></td>
</tr>
<tr>
<td> <input type="submit" name="Submit2" class="loginform2" value="Send"></td>
</tr>
</table></td>
</tr>
</table>
</form></td>
</tr>
</table>
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" then
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = request.form("fra")
msg.FromName = request.form("fraNavn")
msg.AddRecipient request.form("modtagerMail")
msg.Subject = request.form("Emne")
msg.Body = request.form("Tekst")
if not msg.Send("*******") then '**** = en addr. fra din udbyder
Response.Write "Mailen kunne ikke afsendes grundet:<br>"
Response.Write msg.log
else
Response.Write "Mailen er korrekt afsendt."
end if
end if
%>
</body>
