Formmail i ASP

Dette script er færdiglavet og er testet hos Dandomain:
http://hjemmesideskolen.dk/scripts/aspmail.php

Det virker ikke... Når jeg klikker på send, får jeg bare følgende besked:

Webstedet kan ikke vise siden.
HTTP 500 
  Mest sandsynlige årsager:
•Webstedet er under vedligeholdelse.
•Webstedet har en programmeringsfejl.

  Prøv at:
    Opdater siden.

    Gå tilbage til den forrige side.

   

og i adressen står der: http://www.ringstedtennisklub.dk/sender.asp?important=&emne=&navn=&mail=&besked=

Prøv at kigge her. Det kan være at der er noget der kan bruges.

(Jeg koder desværre ikke selv ASP, men derimod PHP, så jeg kan ikke hjælpe dig med at lave noget :( )

har været næsten alt igennem, men har ikke fundet det jeg skal bruge

Så tror jeg desværre ikke jeg kan hjælpe dig yderligere :(

Jeg ville gerne give dig et færdigt komplet gyldent script, men efter 2 min hos dandomain, finder jeg en guide til brug af deres ASP formmail.

Kig på den, så kan du snildt lave noget ud fra det :)


/Mads

Hvis det er denne http://www.dandomain.dk/support/scripts/formmail.html du mener, har jeg prøvet, men kan ikke få det til at virke, da den ikke sender nogen oplysninger med i de mail man sender. Jeg har prøvet deres simple kode som man kan få, som virker fint, men når jeg prøver den avancerede, virker den ikke.

Jeg har også kontaktet deres support, som ikke kunne hjælpe med at fortælle mig hvorfor det ikke virkede.

Så hvis du vil lave et script til mig vil jeg blive utrolig glad. Dog skal det være et hvor jeg selv kan rette. Det skal bruges til en forenings hjemmeside, hvor der skal bruges både checkbox på nogen sider, og andre skal der kun være textfields.

Nogen der kan hjælpe?

http://www.ringstedtennisklub.dk/sender.asp?important=&emne=&navn=&mail=&besked=

så er ingen data udfyldt - kom med din kode til formular-siden, samt sender.asp
Der er en lille basal fejl, og uden data kan den jo ikke sende noget.

Okay...

Koden til formularsiden er:

<div id="middle_stor">
    <h2>Kontakt</h2>
    <p>Har du ris / ros til hjemmesiden, kontakt webmasteren</p>
    <form method="get" action="sender.asp">
<fieldset>
<legend>Husk at udfylde alle felter</legend>

<span style="display:none">
<label for="subject">Subject</label>
<input type="text" id="subject" name="important" size="32" /><br />
</span>

<label for="f1">Emne</label>
<input id="f1" type="text" name="emne" size="32" /><br />

<label for="f2">Navn</label>
<input id="f2" type="text" name="navn" size="32" /><br />

<label for="f3">Email-adresse</label>
<input id="f3" type="text" name="mail" size="32" /><br />

<label for="f4">Besked</label>
<textarea id="f4" name="besked" cols="32" rows="4"></textarea><br />

<label for="subm">&nbsp;</label>
<input id="subm" type="submit" value="Send" />&nbsp;
<input type="reset" value="Slet" />

</fieldset>
</form>


    </p>
  </div>
</div>

og til sender.asp er den:

<%
//'tjek, at der ikke er skrevet i det fobudte felt
Message = Request("important")
If Not Len(Message) = 0 Then
//'Der er blevet skrevet i Message, bloker indlægget
Response.Redirect "blokeret.asp"
End If

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.Recipient = "webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.BodyText = Request("besked")

Mailer.BodyText = "Følgende er blevet indtastet" & vbCrLf & vbCrLf & "Emne: " & Request("emne") & vbCrLf & "Navn: " & Request("navn") & vbCrLf & "Email-adresse: " & Request("mail") & vbCrLf & vbCrLf & "Besked: " & vbCrLf & Request("besked")

if not Mailer.SendMail then
echo $"Meddelelsen kunne ikke sendes... Fejlen er: <br />
" echo $Mailer.Response
else

echo $"<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />Navn: " & Request("navn") & "<br />Email: " & Request("mail") & "<br />Besked: " & Request("besked") & "</p><p>Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt.</p>" end if %>

du har det skjulte felt 'important' uden data, og så kører koden med
Message = Request("important")
If Not Len(Message) = 0 Then
dvs hvis der ikke står noget (og bruger kan ikke indtaste noget) så fejl.

så er der lidt kode, der ikke ligner asp meget
if not Mailer.SendMail then
echo $"Meddelelsen kunne ikke sendes... Fejlen er: <br />
" echo $Mailer.Response
else

echo $"<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />Navn: " & Request("navn") & "<br />Email: " & Request("mail") & "<br />Besked: " & Request("besked") & "</p><p>Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt.</p>" end if %>

der ville jeg bruge
if not Mailer.SendMail then
response.write "Meddelelsen kunne ikke sendes... Fejlen er: <br />"
response.write Mailer.Response
else
response.write "<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />Navn: " & Request("navn") & "<br />Email: " & Request("mail") & "<br />Besked: " & Request("besked") & "</p><p>Tak for din henvendelse. Jeg vender tilbage så hurtigt som muligt.</p>"
end if
%>

Nu er det jul, så jeg er tidligst tilbage 25/12 efter middag.

okay... jeg har skrevet det ind du har skrevet, og slettet

//'tjek, at der ikke er skrevet i det fobudte felt
Message = Request("important")
If Not Len(Message) = 0 Then
//'Der er blevet skrevet i Message, bloker indlægget
Response.Redirect "blokeret.asp"
End If

hvilket ikke gav noget resultat.

Jeg vil gerne have din hjælp, og venter gerne til den 25. Dog er jeg ikke så meget hjemme de næste dage, og er slet ikke hjemme fra 28-30, så der svarer jeg ikk. men hvis du vil kikke på det alligevel, vil jeg blive meget glad, da vi skal have det op at kører.

Glædelig jul.

her er en tilrettet version uden php-kode:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.BodyText = Request("besked")
Mailer.CharSet = 2

if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Email er afsendt, og jeg vil svare hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />Navn: " & Request("navn") & "<br />Email: " & Request("mail") & "<br />Besked: " & Request("besked") & "</p>"
end if
%>

tak... Det virker perfekt.. Lige et lille spørgsmål... Hvordan hedder koden, hvis der skal være en checkbox eller flere chexkboxe?

så vil du have en checkbox med fx
<input type="checkbox" name="levdag" value="on">&nbsp;Ja&nbsp;tak&nbsp;til&nbsp;abonnement

og i asp-koden skal du aflæse value, dvs
<%
    if Request("levdag") = "on" then
        ...
    end if
%>

tak. jeg har lige endnu et spørgsmål... Hvordan får man den til også at kunne skrive æ,ø og å?

Jeg accepterer dit svar, men håber du stadig vil hjælpe.

i Head skal du have linjen
<META HTTP-EQUIV="Content-type" CONTENT="text/html; charset=ISO-8859-1">
den sikrer, at tegnsættet er dansk. Linjen skal være på alle sider.

jeg har nu sat det ind, men den skriver stadig ordene som ø (ø) æ(æ) Ã¥ (å)

jeg har nu prøvet at sætte din kode ind med checkbox.
Problemet er at den ikke skriver noget i den mail man får. Der står bare et .

Min kode er:

<form method="get" action="nyhedsbrev.asp">
      <legend>Husk at udfylde alle felter</legend>
      <p><span style="display:none">
        <label for="subject">Subject</label>
        <input type="text" id="subject" name="important" size="32" />
        <br />
        </span>
        <label for="f1">Emne</label>
        <br />
        <input name="emne" type="text" id="f1" value="Nyhedsbrev" size="32" readonly="readonly" />
      </p>
      <p>
        <label for="f2">Navn</label>
        <br />
        <input id="f2" type="text" name="navn" size="32" />
      </p>
      <p>
        <label for="f3">Email-adresse<br />
        </label>
        <input id="f3" type="text" name="mail" size="32" />
      </p>
      <p>
      <input type="checkbox" name="tilmeld" value="on" id="tilmeld">
      Tilmeld
      <input type="checkbox" name="afmeld" value="on" id="afmeld" />
      Afmeld</p>
      <p>
  <input id="subm" type="submit" value="Send" />
        <input type="reset" value="Slet" />
        <br />
      </p>
    </form>

og i asp er den:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.CharSet = 2

if Request("tilmeld") = "on" then
end if

if Request("afmeld") = "on" then
end if

if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />Navn: " & Request("navn") & "<br />Email: " & Request("mail") & "<br />Tilmeld: " & Request("tilmeld") & "<br />Afmeld: " & Request("afmeld") & "</p>"
end if
%>

Hvor? sitet ser da ok ud - er det i mail?

ret
if Request("tilmeld") = "on" then
end if
if Request("afmeld") = "on" then
end if

(som ikke laver en tekst) til:

if Request("tilmeld") = "on" then
  Mailer.BodyText = "Jeg skal tilmeldes."
end if
if Request("afmeld") = "on" then
  Mailer.BodyText = "Jeg vil frameldes."
end if

Super.. det virker perfekt.. tak.

Jeg har en side som har rigtig mange checkboxe på en side (Den der hedder vintertennis) Jeg støder nok på et problem, når jeg når dertil. Håber du også vil hjælpe med det.

Hvordan gjorde jeg med æ ø å? se #18

hvis man kun må købe en tid, så ville jeg skifte fra checkbox til radioknapper - der fravælger den andet valg når man klikker et sted.
Hvis du så sætter value i feltet til "ma07" for den første, så ved du, at Mandag, kl 07-08 er valgt. Du skal derfor bare sende feltets value ind med navn og nummer.
du laver dem med samme navn - ellers virker auto-markeringen ikke
<input type="radio" name="tid" value="ma07">
<input type="radio" name="tid" value="ma08">
<input type="radio" name="tid" value="ma09">
<input type="radio" name="tid" value="ma10">
og så er det bare en gang:
Mailer.BodyText = "Jeg bestiller tiden " & request("tid") & "<br>"
Mailer.BodyText = Mailer.BodyText & request("navn") & "<br>"
Mailer.BodyText = Mailer.BodyText & request("nummer") & "<br>"

jeg har nu rettet det til, men jeg får beskeden:

Email blev ikke sendt... Fejlen er:
FromAddress Property cannot be blank.

Hvilket jeg ikke helt forstår, når min kode hedder:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.BodyText = "Jeg bestiller tiden " & request("tid") & "<br>"
Mailer.BodyText = Mailer.BodyText & request("navn") & "<br>"
Mailer.BodyText = Mailer.BodyText & request("nummer") & "<br>"
Mailer.CharSet = 2

if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />Navn: " & Request("navn") & "<br />Medlemsnummer: " & Request("nummer") & "</p>"
end if
%>

bare glem ovenstående spørgsmål... har fundet fejlen.

Men der kom et andet problem. Den siger:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'BodyText'

/vintertennis.asp, line 72

Linje 72 = Mailer.BodyText = Mailer.BodyText & request("navn") & "<br>"

du har en modtager, men skal også have en afsender. Bare tilføj
    Mailer.FromName = "Website mail"
    Mailer.FromAddress = "webmaster@ringstedtennisklub.dk"
så kan du altid lave en regel i outlook/thunderbird, så mails fra "Website mail" kommer i en mappe for sig.

koden skal deles op fra:
Mailer.BodyText = "Jeg bestiller tiden " & request("tid") & "<br>"
Mailer.BodyText = Mailer.BodyText & request("navn") & "<br>"
Mailer.BodyText = Mailer.BodyText & request("nummer") & "<br>"
til:
msg = "Jeg bestiller tiden " & request("tid") & "<br>"
msg = msg & request("navn") & "<br>"
msg = msg & request("nummer") & "<br>"
Mailer.BodyText = msg

hvis "<br>" ikke giver linjeskift i den mail du får, så ret den til
msg = "Jeg bestiller tiden " & request("tid") & vbcrlf
msg = msg & request("navn") & vbcrlf
msg = msg & request("nummer") & vbcrlf
Mailer.BodyText = msg

Tak det virker perfekt. eller næsten.

Hvordan får jeg den til også at skrive det der hvor man kan se hvad man har sendt i mailen?

stykket:
if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />Navn: " & Request("navn") & "<br />Medlemsnummer: " & Request("nummer") & "</p>"
end if

skal indeholde msg (som jo indeholder tekst + navn + nummer)
if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />" & msg & "</p>"
end if

hvis du brugte den opbygning med vbcrlf i stedet for "<br>", så skal den laves tilbage før den vises på siden:
if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og vil blive besvaret hurtigst muligt.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />" & replace(msg,vbcrlf,"<br>") & "</p>"
end if

----
skal til gilde nu - og er nok underdrejet fredag - så hvis det ikke virker, så svarer jeg først lørdag...
Godt nytår.

tak... det virker

Jeg har lige endnu et spørgsmål.

Hvordan får jeg den til at sende cc eller bcc?

så er det helt som
Mailer.AddRecipient "Webmaster / Jacob Roar Hansen","webmaster@ringstedtennisklub.dk"

bare med
Mailer.AddCC
eller
Mailer.AddBCC

manualen er her
http://www.serverobjects.com/comp/Aspmail4.htm

tak!

lige endnu et spørgsmål.

Hvordan får jeg den til at sende alle oplysninger man har skrevet i formen? Altså den man jeg får tilsendt nu ser sådan ud:

Der står navn i fra, og email efterfølgende (der er fint, og det skal den blive ved med)

I selve indholdet skriver den så:

00000000
Ringsted

Og jeg vil gerne have den til at se sådan ud:

Navn: "Navn"
Email: "Email"
Tlf. nr: "00000000"
Klub: "Klub"

kom lige med den kode, der er i sender.asp nu - jeg har tabt overblikket...

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Juniorafdelingen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
Mailer.BodyText = Request("tlf")
Mailer.BodyText = Request("klub")
Mailer.CharSet = 2

if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og du er nu bindende tilmeldt Båstadturen.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>Emne: " & Request("emne") & "<br />Navn: " & Request("navn") & "<br />Email: " & Request("mail") & "<br />Tlf. nummer: " & Request("tlf") & "<br />Klub: " & Request("klub") & "</p>"
end if
%>

det er nye sider hver gang - men så må du jo læse indenad.
Her er en, hvor data skrives i email, og derefter skiftes linjeskift ud med html-kode, og vises på siden.

<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.ringstedtennisklub.dk"
Mailer.AddRecipient "Juniorafdelingen","webmaster@ringstedtennisklub.dk"
Mailer.Subject = Request("emne")
Mailer.FromName = Request("navn")
Mailer.FromAddress = Request("mail")
' her retter vi teksten til email
msg = ""
msg = msg & "Navn: " & Request("navn") & vbCrLf
msg = msg & "Email: " & Request("mail") & vbCrLf
msg = msg & "Tlf: " & Request("tlf") & vbCrLf
msg = msg & "Klub: " & Request("klub") & vbCrLf
msg = msg & vbCrLf
msg = msg & "Emne: " & Request("emne") & vbCrLf
msg = msg & "Besked: " & Request("besked") & vbCrLf
Mailer.BodyText = msg
' tekst er færdig
Mailer.CharSet = 2

if not Mailer.SendMail then
      Response.Write "Email blev ikke sendt... Fejlen er: <br>"
      Response.Write Mailer.Response
else
      Response.Write "Emailen er afsendt, og du er nu bindende tilmeldt Båstadturen.<hr>"
      Response.Write "<p>Følgende er blevet indtastet</p><p>" & replace(msg,vbCrLf,"<br>") & "</p>"
end if
%>

Tusind tak!

Ja, der er en del sider med kontaktformularer, og da jeg aldrig har arbejdet med asp, men derimod php, skal jeg lige forstå hvordan det virker. Jeg tror efterhånden jeg har fundet ud af det mest basale, men. Dog støder jeg højst sandsynligt på et problem senere, hvilket jeg håber du vil hjælpe med.

bare opret spg - og hvis nogen spørger til det, så bruger du aspmail til at sende.