Her er en jeg selv bruger... husk at rette mailserver og domæner til de forskellige steder... :o)
Det er med JMail
kontakt.asp
-------------------------------------------------
<form method="post" action="kontakt.asp?mode=send" name="kontakt" onSubmit="document.kontakt.send.disabled=true">
<input type="hidden" name="IP" value="<%=Request.ServerVariables("REMOTE_ADDR")%>">
<table align="center" width="90%">
<tr>
<td colspan="2" align="center" bgcolor="#008080"><font size="3">Kontakt Mig</font></td>
</tr>
<tr>
<td><b>Dit Navn:</b></td>
<td><input size="40" name="afsender"></td>
</tr>
<tr>
<td><b>Din Email:</b></td>
<td><input size="40" name="Email"></td>
</tr>
<tr>
<td><b>Emne</b></td>
<td><input type="text" name="emne" size="40"></td>
</tr>
<tr>
<td valign="top"><b>Besked</b></td>
<td><textarea name="besked" cols="40" rows="10"></textarea></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="Send" name="send"></td>
</tr>
</table>
</form>
<% If mode = "send" then
besked = besked & "<font size=2 family=verdana>"
besked = besked & replace(Request.Form("besked"), VbCrLf, "<BR> ")
besked = besked & "<br><br><br>-----------------------------------------------------------"
besked = besked & "<br>Denne email er sendt online fra:<br>"
besked = besked & "<a href=http://www.domæne.dk target=_blank>
http://www.domæne.dk</a><br>"besked = besked & "Afsenderens IP-Adresse: <b>" & Request.Form("IP") & "</b><br>"
besked = besked & "<br>-----------------------------------------------------------"
besked = besked & "</font>"
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true
msg.From = Request.Form("Email")
msg.FromName = Request.Form("afsender") & " (" & Request.Form("email") & ")"
msg.AddRecipient "din@email.dk"
msg.Subject = "domæne.dk - " & Request.Form("Emne")
msg.Body = besked
if not msg.Send("mail.domæne.dk") then
Response.Write "<p align=center><b>Mailen kunne ikke afsendes grundet:</b></p><br>"
Response.Write msg.log
%>
<meta http-equiv="refresh" content="3;URL=kontakt.asp">
<% else
Response.Write "<p align=center><b>Mailen er korrekt afsendt.</b></p>"
%>
<meta http-equiv="refresh" content="3;URL=default.asp">
<% end if %>
------------------------------------------------------------------