Problemmer med formmail i ASP
Jeg håber nogen her kan hjælpe mig, med nedenstående script. Jeg har rettet flg. navn@domæne.dk websmtp.domæne.dk mailrelay.webhotel.dk så det passer til min udbyder.Mit domæne er plaseret på en Windows server, som understøtter ASP og JMail, men når jeg kører ASP filen fra min hjemmeside, får jeg flg. meddelelse:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/mail_sender.asp, line 34
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.
Jeg håber nogen kan hjælpe mig, og rette i mit script så jeg kan kopiere det direkte ind i min ASP fil.
På forhånd tak.
<%@LANGUAGE="VBSCRIPT" %>
<% session.LCID = 1030 %>
<title>Husk at udfylde alle felterne</title>
<body>
<form id="kontakt" method="post" action="mail_sender.asp"
enctype="multipart/form-data">
<fieldset>
<legend>Husk at udfylde alle felterne</legend>
<label for="t1">Navn:</label>
<input id="t1" type="text" name="navn" /><br />
<label for="t2">Email:</label>
<input id="t2" type="text" name="mail" /><br />
<label for="t3">Emne:</label>
<input id="t3" type="text" name="emne" /><br />
<label for="t4">Besked:</label>
<textarea id="t4" name="besked" rows="10" cols="49"></textarea><br />
<label for="t5"> </label>
<input id="t5" type="submit" value="Send" />
<input type="reset" value="Slet" />
</fieldset>
</form>
<%
set msg = Server.CreateOBject( "JMail.Message" )
Set upload = Server.CreateObject( "w3.Upload" )
msg.Logging = true
msg.silent = true
name = upload.Form("navn")
senderEmail = upload.Form("mail")
subject = upload.Form("emne")
recipient = ("navn@domæne.dk")
body = upload.Form("besked")
ip = Request.ServerVariables("REMOTE_ADDR")
msg.From = SenderEmail
msg.FromName = Name
msg.AddRecipient Recipient
msg.AddRecipientBCC senderEmail
msg.Subject = Subject
msg.Body = "Meddelelse den " & Date & " klokken " & Time & " fra: " & recipient & vbCrLf & "Navn: " & name & vbCrLf & "Mail: " & senderEmail & vbCrLf & "Emne:" & vbCrLf & subject & vbCrLf & "Tekst: " & vbCrLf & body
if not msg.Send("websmtp.domæne.dk") then
msg.Send("mailrelay.webhotel.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:" & senderEmail & "'>" & senderEmail & "</a> <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
%>
</body>
</html>
