Søg
Avatar billede Slettet bruger
28. december 2000 - 14:33 Der er 14 kommentarer og
1 løsning

Jeg kan ikke få min email form til asp til at virke

jeg har en html side med en form på og formen skal sendes til en asp fil også har.

men der kommer en fejl og jeg ved ikke hvad jeg skal gøre.
hjælp mig evt. med en standart email form og en asp fil
Avatar billede klas Juniormester
28. december 2000 - 14:39 #1
hvad er fejlen ?

der findes mange forskellige scripts - Hvad skal den gøre ?  sende til en mail eller til en database eller noget helt andet ?
Avatar billede laserzap Nybegynder
28. december 2000 - 14:40 #2
Må vi se noget kode ???
Avatar billede netsrac Praktikant
28. december 2000 - 14:45 #3
Script der sender alle slags forms, du bestemmer selv hvilke felter du vil have, scriptet bruger Jmail.

<%
referer = request.servervariables(\"HTTP_REFERER\")
besked = \"Følgende blev sendt fra siden \" & referer & VBNewline & VBNewline
for each item in request.form
besked = besked & item & \": \" & request.form(item) & VBNewline
next

Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ISOEncodeHeaders = False
JMail.ServerAddress = \"din.mailserver.dk\"
JMail.Sender        = \"din@mail.dk\"
JMail.Subject      = \"Form Resultat.\"
JMail.AddRecipient  \"modtager@email.dk\"
JMail.Priority      = 3
JMail.Body = besked
JMail.Execute
response.write (\"Form resultat sendt\")
%>
Avatar billede Slettet bruger
28. december 2000 - 14:46 #4
dette er html filen

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Send Email</title>
</head>

<body>
<div align=\"center\">
<h3>Send Email</h3>
<P></P>
<form name=\"mailform\" action=\"http://www.sportsworld.dk/data/IQemail.asp\">

<table cellspacing=\"2\" cellpadding=\"5\" border=\"0\">
<tr>
    <td align=\"right\">Din Email: </font></td>
    <td><INPUT maxLength=100 name=FromField size=58></td>
</tr>
<tr>
    <td align=\"right\">Emne: </td>
    <td><INPUT maxLength=100 name=SubjectField size=58></td>
</tr>
<tr>
    <td align=\"right\">Teskt: </td>
    <td><TEXTAREA cols=50 name=BodyField rows=5></TEXTAREA> </td>
</tr>
<tr>
    <td align=\"center\" colspan=\"2\">
        <input type=\"button\" value=\"Send Mail\" OnClick=\"Submit\"> &nbsp;
        <input type=\"reset\" value=\"Reset\">
    </td>
</tr>
</table>

</form>
</div>
</body>
</html>
Avatar billede Slettet bruger
28. december 2000 - 14:46 #5
dette er asp filen

<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">

<html>
<head>
    <title>Email Sent</title>
    <script language = \"JavaScript\">
        function SendAnother()
        {
            window.location = \"http://www.sportsworld.dk/data/emailform.htm\"
        }
    </script>
</head>

<body>
<%
On Error Resume next
Dim MyMail
Set MyMail = CreateObject(\"CDONTS.NewMail\")
MyMail.ServerAddress = \"mail.sportsworld.dk \"
MyMail.From = Request.Form(\"FromField\")
MyMail.To = \"morten@sportsworld.dk\"
MyMail.Subject = Request.Form(\"SubjectField\")
MyMail.BodyFormat = Request.Form(\"BodyFormatField\")
MyMail.Body = Request.Form(\"BodyField\")
MyMail.Send
Set MyMail = Nothing

if request.querystring() = \"new\" then
    session(\"OK\")=false
    response.redirect \"http://www.sportsworld.dk\"
end if
if request(\"FromField\") = \"\" then
    fail = \"Du skal indtaste en email<br>\"
end if
if request(\"BodyField\") = \"\" then
    fail=fail & \"Du skal indtaste en tekst<br>\"

end if
if fail <> \"\" then
    response.write \"<br><b>Du mangler at indtaste følgende felter:<br><br></b>\" & fail
    response.end
end if

if session(\"OK\") = true then
    response.write OrdreIsSent
    response.end
end if

Set JMail          = Server.CreateObject(\"JMail.SMTPMail\")
JMail.ServerAddress = \"mail.sportsworld.dk \"
JMail.Sender        = MailSender
JMail.Subject      = MailSubject
if request(\"mail\") <> \"\" then
    JMail.AddRecipient  cstr(request(\"mail\"))
end if

    JMail.AddRecipient  MailCopy1
    JMail.AddRecipient  MailCopy2
    JMail.AddRecipient  MailCopy3
   
JMail.Priority      = 3
JMail.AddHeader    \"Originating-IP\", Request.ServerVariables(\"REMOTE_ADDR\")
JMail.Body = MailBody
JMail.Execute

%>
<center>
    <h3> Email er sendt!
    </h3>
    <p></p>
    <input type=\"button\" value=\"Send ny Email\" OnClick=\"SendAnother()\">
</center>
</body>
</html>
Avatar billede klas Juniormester
28. december 2000 - 14:49 #6
og hvad er fejlen så ?
Avatar billede Slettet bruger
28. december 2000 - 14:51 #7
submit er ikke defineret
Avatar billede netsrac Praktikant
28. december 2000 - 14:53 #8
Du henviser jo til et javascript der ikke er der?
Avatar billede Slettet bruger
28. december 2000 - 14:54 #9
Har i ikke en komplet asp med det hele i.
hvor jeg bare kan ændre emailadresse og mail server adresse.

det skal bare være en med
Email
Navn
Teskt
og den skal tjekke for mangelende data
Avatar billede netsrac Praktikant
28. december 2000 - 14:54 #10
Lav
<input type=\"button\" value=\"Send Mail\" OnClick=\"Submit\">
om til
<input type=\"submit\" value=\"Send Mail\">
Avatar billede Slettet bruger
28. december 2000 - 14:55 #11
det skal siges at jeg programmere efter CUT & PASTE
Avatar billede Slettet bruger
28. december 2000 - 15:00 #12
Netsrac: det fjernede sript fejl.

Men jeg modtager igen mail.
Avatar billede cyigen Nybegynder
28. december 2000 - 16:55 #13
Du skriver også din \"On error resume next\" sætning et forkert sted!!

\' On Error Resume next skal flyttes længer ned!
Dim MyMail
Set MyMail = CreateObject(\"CDONTS.NewMail\")
MyMail.ServerAddress = \"mail.sportsworld.dk \"
MyMail.From = Request.Form(\"FromField\")
MyMail.To = \"morten@sportsworld.dk\"
MyMail.Subject = Request.Form(\"SubjectField\")
MyMail.BodyFormat = Request.Form(\"BodyFormatField\")
MyMail.Body = Request.Form(\"BodyField\")
On Error Resume next \' ##### Her skal den flyttes til############
MyMail.Send
Set MyMail = Nothing
Avatar billede netsrac Praktikant
28. december 2000 - 16:59 #14
*lol*
Det er da ligemeget hvor den \"on error resume next\" sætning står henne!
Den vil jo bare forbigå alle fejl fra den er sat til slutningen af dokumentet.
Avatar billede netsrac Praktikant
28. december 2000 - 17:01 #15
mhingeh >> Prøv at fjerne on error resume next og fortæl os så hvilken fejl scriptet melder
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
ASP classic kopiere database fil på server Af bsn i ASP 7 31/10/202610:20 01/11/202620:28
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
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 08:39 Produktnøgle Af hkv i Office & Kontorpakker
13/1116:59 Bitlocker Af nico i Windows
12/1116:30 Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19 Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33 Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows
White papers
Flere white papers »