Hjælp til formmail
Jeg har nedenstående på min hjemmeside, men det virker ikke. Er der nogle der kan fortælle hvorfor. Jeg får fejlmeddelelsenCDO.Message.1 error '80040220'
The "SendUsing" configuration value is invalid.
/modules/ContactUs/kontakt.asp, line 30
Her er siden:
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<!-- Minus AutoDato -->
<TITLE>[Ingen titel]</TITLE>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</HEAD>
<BODY>
<%
Dim strName, strEmail, strQuery, strSubj
strName = Trim(Request.Form("ClientName"))
strEmail = Trim(Request.Form("ClientEmail"))
strSubj = Trim(Request.Form("ClientEmne"))
strQuery = Trim(Request.Form("ClientQry"))
If (strName <> "" And strEmail <> "" And strSubj <> "" And strQuery <> "") Then
Dim objMail, aRecipients
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = strName & " <" & strEmail & ">"
objMail.To = strEmail
objMail.Subject = strSubj
aRecipients = Array("skolen@skydebanegaard.dk")
objMail.BCC = Join(aRecipients, ";")
objMail.TextBody = strQuery
objMail.Send
Response.Write "<h1>Mail afsendt</h1>"
Response.Write "<p>Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt.</p>"
Set objMail = Nothing
Else
%>
<form action="<%=Request.ServerVariables("kontakt.asp")%>" method=post>
<fieldset>
<legend>Husk at udfylde alle felter</legend>
<label for="t1">Navn:</label>
<input id="t1" type=text name="ClientName" value="" size=40><br />
<label for="t2">Email:</label>
<input id="t2" type=text name="ClientEmail" value="" size=40><br />
<label for="t3">Emne:</label>
<input id="t3" type=text name="ClientEmne" value="" size=40><br />
<label for="t4">Besked:</label>
<textarea id="t4" name="ClientQry" cols=40 rows=10></textarea><br />
<label for="t5"> </label>
<input id="t3" type="Submit" value="Send" />
<input type="reset" value="Slet">
</fieldset>
</form>
<% End If %>
</BODY>
</HTML>
