CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede zyreux Nybegynder
20. december 2003 - 12:42 Der er 10 kommentarer og
1 løsning

Ang. kontaktformular

Skal have lavet en kontaktformular, hvori man skriver sit navn, email og besked, som så bliver sendt videre til mig!

Har fundet dette http://www.html.dk/scripts/asp/00003/ men så ved jeg ikke hvordan jeg skal arbejde videre med det?

En som vil hjælpe mig! På Forhånd tak...
Avatar billede eagleeye Praktikant
20. december 2003 - 12:45 #1
Den skal sendes som en email? Så skal du bare vide hvilket email komponent dit web-hotel har?  (Jmail,ASPmail,...)
Avatar billede eagleeye Praktikant
20. december 2003 - 12:56 #2
Først laver man en form med alle de input felter du har behod for. Jeg har lavet et eks emd ASPmail som du linker til og der er 3 form input navn, email, besked.

Jeg har taget ASPMail koden og genbrugt den fra det eks du har linket til:
Du skal lige havde rette denne linje:
  Mailer.RemoteHost = "mail.domain.dk"

Sådan den bruger din mail server til at sende mails igennem, de har du fået oplyst af dit web-hotel.

Hele koden kan ligges i samme ASP fil.

<%
if Request.ServerVariables("REQUEST_METHOD") then
  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

  ' Her sættes afsender navn og e-mail adresse
  Mailer.FromName  = "Afsenders navn"
  Mailer.FromAddress= "afsender@domain.dk"

  ' Afsenders mailserver
  Mailer.RemoteHost = "mail.domain.dk"

  ' Her sættes modtager navn og e-mail adresse
  Mailer.AddRecipient "Dit navn", "modtager@domain.dk"

  ' Her sættes overskriften på mailen
  Mailer.Subject    = "Dette er en testmail"

  ' Her sættes selve teksten til mailen
  body = "Hej " & vbCrLf
  body = body & "Du har fået mail fra:" & vbCrLF
  body = body & "Navn : " & Request.Form("navn") & vbCrLf
  body = body & "Email: " & Request.Form("email") & vbCrLf
  body = body & "Og personens skriver: " & vbCrLF
  body = body & Request.Form("besekd")
  Mailer.BodyText  = body

  ' Send e-mail og skriv status
  if Mailer.SendMail then
    Response.Write "Mailen er afsendt..."
  else
    Response.Write "Der skete en fejl: " & Mailer.Response
  end if

  ' Fjern objekt igen
  Set Mailer = Nothing

  Response.End
end if
%>
<html>
<head>
</head>
<body>

<table>
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
<tr><td>Navn:</td><td><input type="text" name="navn"></td><tr>
<tr><td>Email:</td><td><input type="text" name="email"></td><tr>
<tr><td>Besked:</td><td><textarea cols="30" rows="10" name="besked"></textarea></td><tr>
<tr><td colspan="2"><input type="submit" name="send" value="Send"></td><tr>
</table>

</body>
</html>
Avatar billede zyreux Nybegynder
20. december 2003 - 13:46 #3
Så sker der dette www.zyreux.dk
Avatar billede thesurfer Nybegynder
20. december 2003 - 14:03 #4
Skulle der ikke stå?:

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Avatar billede eagleeye Praktikant
20. december 2003 - 14:27 #5
Jo det rigtigt jeg har glemt = "POST" ;)

HVis du ikke har fået det rette endnu skal du rette denne linje:
  Mailer.AddRecipient "Dit navn", "modtager@domain.dk"

Til din email adresse istedet for "modtager@domain.dk"
Avatar billede zyreux Nybegynder
20. december 2003 - 14:29 #6
Så virker det hele.. :) Takker

eagle opret lige svar..
Avatar billede zyreux Nybegynder
20. december 2003 - 14:31 #7
Eller 2sek.. Når mailen er sendt skal den jo vise siden igen! Så der skal både stå "Mailen er sendt..." og vise felterne hvori man kan skrive.. Hvad så?
Avatar billede eagleeye Praktikant
20. december 2003 - 14:32 #8
Ok, så fjerner du bare denne linje som gør formen ikke vises igen:

Response.End
Avatar billede zyreux Nybegynder
20. december 2003 - 14:41 #9
Takker..
Avatar billede wilweb Nybegynder
21. december 2003 - 10:46 #10
Hvad er det egentligt man tester for her:
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Avatar billede eagleeye Praktikant
21. december 2003 - 12:23 #11
Man tester om der der POST'et data til siden fra en form med: method="post"
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 0 07/11/202415:34 -
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:09 Billedoverførsel Af Laurids i iOS, iPhone & iPad
I går 13:30 Hvordan ændres UniFi Dream Machine UDM til switch mode Af Kasper4450 i Internetforbindelser
I går 13:01 Film går i stå midt i afspilningen Af ole falsted i Musik & videoafspillere
I går 11:40 Fjerne mappe i stifinder Af Peter Olsen i Andet software
I går 11:27 renteberegning Af Pil i Excel
White papers
Flere white papers »


Premium
Teaser billede
Vil købe tele-løsninger til det offentlige for 370 millioner kroner
Læs mere »
Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"
Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen
Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet
Se alle »
Computerworld
Teaser billede
Microsofts nye pc er ekstrem billig – men kan blive ekstrem sikker og fleksibel
Læs mere »
Test: Prøv kun disse B&O-hovedtelefoner, hvis du har råd
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Telegigant klar med AI-baseret mormor: Holder telefon-svindlere fast i røret med sniksnak og dumme spørgsmål
Se alle »
CIO
Teaser billede
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Læs mere »
Kæmpe-opgave for Danske Bank har banet vej for fuldautomatiseret migrering til cloud: Nu udbredes metoden i hele AWS
Microsofts store årlige event: De tre vigtigste nøglebudskaber fra Satya Nadella om Microsofts fremtid
Tre vigtige erkendelser, som Computerworld tog med hjem fra Gartners store topmøde i Barcelona
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Topchef Sara Green mener, at der er brug for et radikalt nyt syn på it-ledelse - særligt én ny trend hader hun som pesten
Se alle »
White paper
Teaser billede
Er din cybersikkerhed klar til AI-revolutionen?
Læs mere »
SAP: Skab værdi og minimér omkostninger med effektiv dokumenthåndtering
Vær proaktiv og prioritér IT-sikkerheden – før det er for sent
Styrk compliance, sikkerhed og overblik med ét hug
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »