en fast mail formular modtager
hej jeg har et lille problem med dette script jeg skal have en fast modtager men dem der taster ind i formularen skal også have en mail sendt til den email de selv taster ind der er følgende felter i formularen 1. navn 2. email 3. emne 4 beskedformularen ser således ud ::
<form method="post" action="mail_sender.asp">
<fieldset>
<legend><font size="5"><span class="style19">Husk at udfylde alle felter</span></legend>
<p>
<label for="t1">Navn : </label>
<input id="t1" type="text" name="name" size="40" /><br />
<label for="t2">Email : </label>
<input id="t2" type="text" name="email" size="40" /><br />
<label for="t3">Emne : </label>
<input id="t3" type="text" name="subject" size="40" /><br />
<label for="t4">Besked </label>
<textarea id="t4" name="message"
rows="10" cols="39"></textarea><br />
<label for="t5"> </label><input id="t5"
type="submit" name="submit" value=" Send mail " />
<input type="reset" value=" Slet alt " />
</fieldset></form>
mail_sender.asp filen ser således ud
<%
Name = Request.form("name")
Recipient = ("email")
subject = Request.form("subject")
SenderEmail = Request.form("mail@domain.dk")
body = Request.form("message")
ip = Request.ServerVariables("REMOTE_ADDR")
set msg = Server.CreateOBject( "JMail.Message" )
msg.Logging = true
msg.silent = true
msg.From = SenderEmail
msg.FromName = Name
msg.AddRecipient Recipient
msg.Subject = Subject
msg.Body = " fra: " & recipient & vbCrLf & "Navn: " & name & vbCrLf & "email: " & senderEmail & vbCrLf & "Emne:" & vbCrLf & subject & vbCrLf & "Tekst: " & vbCrLf & body
'.Send skal være en mail server adresse ikke email adresse
if not msg.Send("smtp.server.dk") then
msg.Send("mail@domain.dk")
Response.write "<pre>" & msg.log & "</pre>"
else
Response.write "<p>Meddelelse afsendt den " & Date & " klokken " & Time & "&<br /><br /><b>Fra: </b>" & name & "<br /><br />" & "<b>Mail: </b><a href='mailto:" & Recipient & "'>" & Recipient & "</a><br /><br /><b>IP-adresse: </b>" & ip & "<br /><br />" & "<b>Emne: </b>" & subject & "<br /><br /><b>Tekst: </b>" & body & "<br /><br />Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt." & "</p>"
end if
%>
