Søg
Avatar billede nz Nybegynder
04. februar 2001 - 15:12 Der er 15 kommentarer og
1 løsning

Send formulardata med e-mail

Jeg er ved at få grå hår.  Jeg vil have en formular, hvor folk kan indtaste data.  Disse data skal sendes til min e-mail adresse.  Det lyder jo egentligt meget simpelt, men hvordan får man skidet til at sende dataene til e-mail adressen
Avatar billede drean Nybegynder
04. februar 2001 - 15:15 #1
Kommer an på hvilken mail-komponent som er installeret på serveren.
Avatar billede brain Nybegynder
04. februar 2001 - 15:25 #2
Du skal finde ud af hvilken komponent din udbyder har installeret på serveren. Der vil sikkert også være eksempler på hvordan man bruger den. Hvor er dit ASP hotel?
Avatar billede bbs Nybegynder
04. februar 2001 - 16:06 #3
Måske skulle du kigge på dette: http://www.netcoders.dk/sourcecode.asp?mode=dl&source_id=530
Avatar billede nz Nybegynder
04. februar 2001 - 16:35 #4
Jeg bruger Internetklubben.dk som webhotel.  Jeg ved ikke noget om web-komponenter, men de siger at de har en ASP server.

De har henvist mig til www.aspemail.com 

Der er et kodeeksempel.  Jeg fik at vide at jeg bare skulle indsætte det - og at det var nemt.  Det er 48 timer og mange kander kaffe siden :)
Avatar billede bbs Nybegynder
04. februar 2001 - 16:39 #5
http://www.netcoders.dk/komponenter.asp?mode=seek&seekword=aspmail
Avatar billede nz Nybegynder
04. februar 2001 - 17:00 #6
hej bbs

den jeg fandt her:

http://www.netcoders.dk/sourcecode.asp?mode=dl&source_id=530

ser interessant ud, men den kommer med nogle fejlmeddelser.

der er tilsyndladende noget galt med disse linier 

Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
    Mailer.RemoteHost    = \"mail.udbyder.dk\"

Måske skal jeg skrive noget andet i stedet for: SMTPsvg.Mailer

Avatar billede whatever Nybegynder
05. februar 2001 - 13:13 #7
Hej NZ,

Prøv følgende det burde virke (Jeg har ikke testet):

<html>
<body>
<form action=\"Kontakt.asp\" method=post>
<table>
    <tr>
        <td>Navn</td>
        <td><input type=text name=\"Navn\"  ></td>
    </tr>
    <tr>
        <td>E-mail</td>
        <td><input type=text name=\"E-mail\" ></td>
    </tr>
    <tr>
        <td>Overskrift</td>
        <td><input type=text name=\"Subject\" ></td>
    </tr>
    <tr>
        <td>Besked</td>
        <td><textarea rows=\"2\" name=\"besked\" cols=\"28\"></textarea></td>
    </tr>
    <tr>
        <td></td>
        <td><input type=submit value=\"Submit\"></td>
    </tr>
</table>
</form>

</body>
</html>

<%
Set Mail = Server.CreateObject(\"Persits.MailSender\")
Mail.Host = \"smtp.internetklubben.dk\" \' Specify a valid SMTP server
Mail.From = request.form(\"E-mail\") \' Specify sender\'s address
Mail.FromName = request.form(\"Navn\") \' Specify sender\'s name
Mail.AddAddress \"DIN EMAIL ADRESSE\" , \"DIT NAVN\"
Mail.Subject = request.form(\"Subject\")
Mail.Body = request.form(\"besked\")

On Error Resume Next
Mail.Send
If Err <> 0 Then
  Response.Write \"Error encountered: \" & Err.Description
End If
%>


Du skal huske at indsætte internetklubbens smtp-server op. Desuden skal du indsætte din emailadresse og dit navn.

Prøv det. Det er lavet udfra eksemplet på aspemail.com.

Mvh. Jens
Avatar billede nz Nybegynder
05. februar 2001 - 19:45 #8
Hej whatever

Den er tæt på.  Jeg kan få den til at sende en mail uden indhold, men det jeg har indtastet i felterne kommer ikke med !???
Avatar billede whatever Nybegynder
05. februar 2001 - 22:02 #9
Hej NZ,

Har du udfyldt beskedfeltet? Det burde nemlig virke. Scriptet stammer fra nemlig fra aspemail.com.
Avatar billede nz Nybegynder
05. februar 2001 - 22:47 #10
Hej whatever

Det har jeg - og det virkede ikke.

Imidlertid har jeg arbejdet lidt videre med opgaven.  og det virker NÆSTEN som det skal nu.  Det eneste problem er at når de indtastede data er sendt, skriver den \"tak for ...\"  og så gentegner den formularen.  Det er ikke meningen at den skal gentegne formularen.  Kan du knække den ?

Thorkild


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




<html>
<head>
    <title>Client Questionaire</title>
</head>
<body bgcolor=#ffffff>

<h1><font face=\"Verdana\" size=\"4\">Indtast din spørgsmål</font></h1>

<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")%>\" METHOD=POST>
<TABLE BORDER=0 height=\"574\">
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Name:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientName\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Firma:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientFirma\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Adresse:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientAdd\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Post nr:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientPostnr\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">By:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientBy\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Telefon nr:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientTlfnr\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">EMail address</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td valign=top height=\"214\"><font face=\"Verdana\" size=\"2\">Kommenter/Spørgsmål</font></td><td height=\"214\"><font face=\"Verdana\" size=\"2\"><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA></font></td></tr>
<tr><td height=\"27\"></td><td height=\"27\"><font face=\"Verdana\"><INPUT TYPE=SUBMIT VALUE=\"Send\"></font></td></tr>
<tr>
    <td width=\"447\" colspan=\"2\" height=\"5\"><img border=\"0\" src=\"Billede/rod_strege.jpg\" width=\"456\" height=\"12\"></td>
</tr>
<tr>
    <td width=\"151\" height=\"66\"><font size=\"2\" face=\"Verdana\">&nbsp;JK intern
      transport<br>Centerparken 86 <br>8700 Horsens<br></font>
    </td>
    <td width=\"296\" height=\"66\">
      <p><font size=\"2\" face=\"Verdana\">Tlf.&nbsp;&nbsp;&nbsp;&nbsp; 75 64 68 88<br> Fax:&nbsp;&nbsp;&nbsp;
      75 64 68 98<br>E-mail: <a style=\"color: #A01820\" href=\"mailto:info@jk-intern-transport.dk\">info@jk-intern-transport.dk</a><br></font></p>
    </td>
</tr>
<tr>
    <td width=\"447\" colspan=\"2\" height=\"14\"><img border=\"0\" src=\"Billede/rod_strege.jpg\" width=\"456\" height=\"12\"></td>
</tr>
</TABLE>
</FORM>

</body>
</html>

<%
Dim strName, strFirma, strAdd, strPostnr, strBy, strTlfnr, strEmail, strQuery, sBody
strName = Trim(Request.Form(\"ClientName\"))
strFirma = Trim(Request.Form(\"ClientFirma\"))
strAdd = Trim(Request.Form(\"ClientAdd\"))
strPostnr = Trim(Request.Form(\"ClientPostnr\"))
strBy = Trim(Request.Form(\"ClientBy\"))
strTlfnr = Trim(Request.Form(\"ClientTlfnr\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strQuery = Trim(Request.Form(\"ClientQry\"))

    if strName <> \"\" Then sBody = sBody & \"Navn: \" & strName & vbCRLF
    if strFirma <> \"\" Then sBody = sBody & \"Firma: \" & strFirma & vbCRLF
    if strAdd <> \"\" Then sBody = sBody & \"Adresse: \" & strAdd & vbCRLF
    if strPostnr <> \"\" Then sBody = sBody & \"Postnr.: \" & strPostnr & vbCRLF
    if strBy <> \"\" Then sBody = sBody & \"By: \" & strBy & vbCRLF
    if strTlfnr <> \"\" Then sBody = sBody & \"Telfon nr.: \" & strTlfnr & vbCRLF
    if strEmail <> \"\" Then sBody = sBody & \"E-mail: \" & strEmail & vbCRLF
    if strQuery <> \"\" Then sBody = sBody & \"Kommenter: \" & strQuery & vbCRLF

      Dim objMail, aRecipients
    Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
   
    objMail.From = strEmail
    objMail.To = \"webmaster@new-lifestyle.dk\"
    objMail.Subject = \"Henvendelse fra Internet.\"
   
    aRecipients = (\"markedsanalyse@new-lifestyle.dk\")
   
    objMail.Body = sBody
    On Error Resume Next
    objMail.Send
   
    Response.Write \"Tak for din henvendelse, du hører fra os snarest.\"
    Set objMail = Nothing

   
    If Err <> 0 Then
        Response.Write \"Der opstod en fejl: \" & Err.Description
    End if
       
%>   

Avatar billede whatever Nybegynder
05. februar 2001 - 23:15 #11
Prøv følgende (jeg har ikke testet det):

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

Select Case Request.QueryString(\"mode\")
Case \"\"

%>
<html>
<head>
    <title>Client Questionaire</title>
</head>
<body bgcolor=#ffffff>

<h1><font face=\"Verdana\" size=\"4\">Indtast din spørgsmål</font></h1>

<FORM ACTION=\"<%=Request.ServerVariables(\"SCRIPT_NAME\")&\"?mode=send \"&%>\" METHOD=POST>
<TABLE BORDER=0 height=\"574\">
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Name:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientName\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Firma:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientFirma\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Adresse:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientAdd\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Post nr:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientPostnr\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">By:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientBy\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">Telefon nr:</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientTlfnr\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td height=\"25\"><font face=\"Verdana\" size=\"2\">EMail address</font></td><td height=\"25\"><font face=\"Verdana\" size=\"2\"><INPUT TYPE=TEXT NAME=\"ClientEmail\" VALUE=\"\" SIZE=40></font></td></tr>
<tr><td valign=top height=\"214\"><font face=\"Verdana\" size=\"2\">Kommenter/Spørgsmål</font></td><td height=\"214\"><font face=\"Verdana\" size=\"2\"><TEXTAREA NAME=\"ClientQry\" COLS=40 ROWS=10></TEXTAREA></font></td></tr>
<tr><td height=\"27\"></td><td height=\"27\"><font face=\"Verdana\"><INPUT TYPE=SUBMIT VALUE=\"Send\"></font></td></tr>
<tr>
    <td width=\"447\" colspan=\"2\" height=\"5\"><img border=\"0\" src=\"Billede/rod_strege.jpg\" width=\"456\" height=\"12\"></td>
</tr>
<tr>
    <td width=\"151\" height=\"66\"><font size=\"2\" face=\"Verdana\">&nbsp;JK intern
      transport<br>Centerparken 86 <br>8700 Horsens<br></font>
    </td>
    <td width=\"296\" height=\"66\">
      <p><font size=\"2\" face=\"Verdana\">Tlf.&nbsp;&nbsp;&nbsp;&nbsp; 75 64 68 88<br> Fax:&nbsp;&nbsp;&nbsp;
      75 64 68 98<br>E-mail: <a style=\"color: #A01820\" href=\"mailto:info@jk-intern-transport.dk\">info@jk-intern-transport.dk</a><br></font></p>
    </td>
</tr>
<tr>
    <td width=\"447\" colspan=\"2\" height=\"14\"><img border=\"0\" src=\"Billede/rod_strege.jpg\" width=\"456\" height=\"12\"></td>
</tr>
</TABLE>
</FORM>

</body>
</html>

<%
Case \"send\"

Dim strName, strFirma, strAdd, strPostnr, strBy, strTlfnr, strEmail, strQuery, sBody
strName = Trim(Request.Form(\"ClientName\"))
strFirma = Trim(Request.Form(\"ClientFirma\"))
strAdd = Trim(Request.Form(\"ClientAdd\"))
strPostnr = Trim(Request.Form(\"ClientPostnr\"))
strBy = Trim(Request.Form(\"ClientBy\"))
strTlfnr = Trim(Request.Form(\"ClientTlfnr\"))
strEmail = Trim(Request.Form(\"ClientEmail\"))
strQuery = Trim(Request.Form(\"ClientQry\"))

    if strName <> \"\" Then sBody = sBody & \"Navn: \" & strName & vbCRLF
    if strFirma <> \"\" Then sBody = sBody & \"Firma: \" & strFirma & vbCRLF
    if strAdd <> \"\" Then sBody = sBody & \"Adresse: \" & strAdd & vbCRLF
    if strPostnr <> \"\" Then sBody = sBody & \"Postnr.: \" & strPostnr & vbCRLF
    if strBy <> \"\" Then sBody = sBody & \"By: \" & strBy & vbCRLF
    if strTlfnr <> \"\" Then sBody = sBody & \"Telfon nr.: \" & strTlfnr & vbCRLF
    if strEmail <> \"\" Then sBody = sBody & \"E-mail: \" & strEmail & vbCRLF
    if strQuery <> \"\" Then sBody = sBody & \"Kommenter: \" & strQuery & vbCRLF

      Dim objMail, aRecipients
    Set objMail = Server.CreateObject(\"CDONTS.NewMail\")
   
    objMail.From = strEmail
    objMail.To = \"webmaster@new-lifestyle.dk\"
    objMail.Subject = \"Henvendelse fra Internet.\"
   
    aRecipients = (\"markedsanalyse@new-lifestyle.dk\")
   
    objMail.Body = sBody
    On Error Resume Next
    objMail.Send
   
    Response.Write \"Tak for din henvendelse, du hører fra os snarest.\"
    Set objMail = Nothing

   
    If Err <> 0 Then
        Response.Write \"Der opstod en fejl: \" & Err.Description
    End if

End Select
       
%>
Avatar billede nz Nybegynder
06. februar 2001 - 08:36 #12
Hej whatever

Der er en fejl i linei 13: 

<% Option Explicit %>
Avatar billede whatever Nybegynder
06. februar 2001 - 09:03 #13
Hej NZ,

Kan du ikke sende din asp-fil til min e-mail adresse, så vil jeg se på den senere idag. Dvs. en gang efter kl. 12.

Min e--mail er: jbs@imma.d@
Avatar billede nz Nybegynder
06. februar 2001 - 19:46 #14
?
Avatar billede nz Nybegynder
06. februar 2001 - 19:47 #15
?
Avatar billede whatever Nybegynder
06. februar 2001 - 20:01 #16
Hej NZ,

Jeg har sendt filen til dig. Denne gang virker det, jeg har testet det. Håber du kan bruge det.


--Jens--
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 dag 08:39 Produktnøgle Af hkv i Office & Kontorpakker
I går 16: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 »