CDON e-mail ?

Hvis du vil havde den insætter navnet på filen koden ligger i så skal denne:

action="<%=Request.ServerVariables("aspmail.asp")%>"

Rettes til:

action="<%=Request.ServerVariables("SCRIPT_NAME")%>"


Detudover prøv at rette: method=post
Til: method="post"

okay :)!
jeg har ændret koden til:

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<%

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("CDONTS.NewMail")

  objMail.From = strName & " <" & strEmail & ">"
  objMail.To = strEmail
  objMail.Subject = strSubj
  aRecipients = Array("info@aalborg-cy.dk")

  objMail.BCC = Join(aRecipients, ";")
  objMail.Body = 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
%>
<action="<%=Request.ServerVariables("SCRIPT_NAME")%>" 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">&nbsp;</label>
<input id="t3" type="Submit" value="Send" />
<input type="reset" value="Slet">
</fieldset>
</form>
<% End If %>

men det virker stadig væk ikke /:

Kommer teksten: Mail afsendt frem?

Ok, nu manger der også ordet form i denne linie:

<action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">

Sådan her:

<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">

Okay - det er rettet.
men det virker stadig væk ikke /:

når jeg vælger send, står den bare og tænker over 10 min, og til sidst kommer denne fejl:

Active Server Pages error 'ASP 0113'

Script timed out

/aspmail.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeOut or by changing the value in the ASP administration tools.


jeg har b-one, og derinde fandt jeg denne kode:

<%
Set objMail = Server.CreateObject( "CDONTS.NewMail" )
objMail.To = "modtager@domæne.dk"
objMail.From = "afsender@ditdomæne.dk"
objMail.Subject = "Testemail med Chili!Mail"
objMail.Body = "Hej Modtager" & vbcrlf & vbcrlf & "Email fra min hjemmeside"
objMail.Host = "mailout.b-one.net"
objMail.Send
Set objMail = Nothing
%>
----
min asp kode ser sådan her ud, sidst jeg opdaterede den;

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<%

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("CDONTS.NewMail")

  objMail.From = strName & " <" & strEmail & ">"
  objMail.To = strEmail
  objMail.Subject = strSubj
  aRecipients = Array("info@aalborg-cy.dk")

  objMail.BCC = Join(aRecipients, ";")
  objMail.Body = 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("SCRIPT_NAME")%>" 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">&nbsp;</label>
<input id="t3" type="Submit" value="Send" />
<input type="reset" value="Slet">
</fieldset>
</form>
<% End If %>

Ja der mangler en .Host som skal ind før .Send funktionen så prøv at sætte denne linie ind før .Send:

objMail.Host = "mailout.b-one.net"

Den angiver hvilken server mailen skal sendes igennem. Og hvis du har fundet linien på deres support side så passer server adressen nok.

MANGE TAK :D!
det virkede.

kan du så hjælpe mig med, at lave en formular sådan, at gæsterne på min hjemmeside, kan kan udfylde info i nogle tekstfleter?

1. navn
2. adresse
3. postnummer
4. by
5. telefon nummer
6. e-mail

:D
tak endnu engang