Hjælp til kontakt-formular
Kan simpelthen ikke få dette script til at sende e-mail til mig.<%
if len(request.form("afsender")) = 0 Then
Fejl = " "
end if
If len(Fejl) > 0 Then
Response.redirect "../default.asp?side=kontakt&fejl=ja"
end if
if len(request.form("besked")) = 0 Then
Fejl = " "
end if
If len(Fejl) > 0 Then
Response.redirect "../default.asp?side=kontakt&fejl=ja"
end if
afsender = Request.Form("afsender")
afsender = Replace(afsender, "'", "''")
afsender = Replace(afsender, "<", "[ulovligt tegn]")
afsender = Replace(afsender, ">", "[ulovligt tegn]")
besked = Request.Form("besked")
besked = Replace(besked, "'", "''")
besked = Replace(besked, "<", "[ulovligt tegn]")
besked = Replace(besked, ">", "[ulovligt tegn]")
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "smtp.unoeuro.com"
JMail.Priority = 1
JMail.Sender = "&afsender&"
JMail.AddRecipient "minemail@erhemmelig.hemmelig", "Dennis k"
JMail.Subject = "dennis.kinnberg.com Kontakt formular"
JMail.Body = "&besked&"
JMail.Execute
Set JMail = Nothing
Response.Redirect "../default.asp?side=kontakt&sendt=ja"
%>
Min webhost har JMail installeret, og har brugt scriptet til et af mine andre scripts hvor det virker perfekt.
Kontakt formularen:
<h1>Kontakt</h1>
<% If Request.Querystring("sendt") = "ja" Then
Response.Write "Din e-mail er sendt korrekt"
else %>
Brug formularen nedenunder, til at sende mig en e-mail.
<br><br>
<form method="post" action="sendmail.asp">
<b>Din E-Mail:</b><br>
<input type="text" name="afsender" id="f">
<br><br>
<b>Beskedens indhold:</b><br>
<textarea name="besked" id="f" rows="15" cols="33"></textarea>
<br><br>
<input type="submit" name="submit" value="Send" id="s">
</form>
<% end if %>
30 point ude ;)
