Søg
Avatar billede sesam Nybegynder
17. oktober 2001 - 14:53 Der er 5 kommentarer og
2 løsninger

ASPEmail

er der er en der kan sætte ASPemail op så dataen fra denne form bliver sendt til denne addresse: kasper_nie@jubiipost.dk
---------------------------------
<form name=\"lt\" action=\"sendmail.asp\" method=\"POST\">
      <table border=\"0\" cellpadding=\"3\" cellspacing=\"0\" width=\"348\">
        <tr>
          <td colspan=\"2\" align=\"left\" valign=\"middle\">
            Ja tak. Jeg vil gerne rekvirere en brochure.</td>
        </tr>
        <tr>
          <td align=\"right\" valign=\"middle\" width=\"118\">Firma navn:<br>
            </td>
          <td align=\"left\" valign=\"top\">
            <input type=\"text\" name=\"Navn\" size=\"30\" class=\"input\">
          </td>
        </tr>
        <tr>
          <td align=\"right\" valign=\"middle\" width=\"118\">Adresse:<br>
            </td>
          <td align=\"left\" valign=\"top\">
            <input type=\"text\" name=\"Adresse\" size=\"30\" class=\"input\">
          </td>
        </tr>
        <tr>
          <td align=\"right\" valign=\"middle\" width=\"118\">Postnummer:<br>
            </td>
          <td align=\"left\" valign=\"top\">
            <input type=\"text\" name=\"Postnummer\" size=\"4\" maxlength=\"4\" class=\"input\">
          </td>
        </tr>
        <tr>
          <td align=\"right\" valign=\"middle\" width=\"118\">By:<br>
            </td>
          <td align=\"left\" valign=\"top\">
            <input type=\"text\" name=\"By\" size=\"30\" class=\"input\">
          </td>
        </tr>
        <tr >
          <td align=\"right\" valign=\"middle\" width=\"118\">Telefonnummer:<br>
            </td>
          <td align=\"left\" valign=\"top\">
            <input type=\"text\" name=\"Telefonnummer\" size=\"24\" class=\"input\">
          </td>
        </tr>
        <tr >
          <td align=\"right\" valign=\"middle\" width=\"118\">Emailadresse:<br>
            </td>
          <td align=\"left\" valign=\"top\">
            <input type=\"text\" name=\"email\" size=\"24\" class=\"input\">
          </td>
        </tr>
            <tr>
            <td align=\"Right\">Brochure:</td>
          <td colspan=\"2\">
            <input type=\"checkbox\" name=\"Rattan\" value=\"checkbox\">
            Rattan
            <input type=\"checkbox\" name=\"Teak\" value=\"checkbox\">
            Teak
            <input type=\"checkbox\" name=\"Polyrattan\" value=\"checkbox\">
            Polyrattan </td>
        </tr>
        <tr>
          <td width=\"118\" align=\"right\" valign=\"middle\"> </td>
          <td align=\"left\" valign=\"top\"><b>
            <input type=\"reset\" value=\"Slet\" name=\"reset\" class=\"input\">
            <input type=\"submit\" value=\"Send\" name=\"send\" class=\"input\">
            </b></td>
        </tr>
        <tr>
          <td width=\"118\" align=\"right\" valign=\"middle\"></td>
          <td align=\"left\" valign=\"top\"></td>
        </tr>
      </table>
Avatar billede cyb Nybegynder
17. oktober 2001 - 15:00 #1
Du skal benytte en mail komponent på serveren.
Hvis du har din side hostet hos en anden udbyder så undersøg først hvilken komponent de benytter (hvis det har en mail komponent). Hvis det er din egen server vil jeg råde dig til at installere Jmail fra Dimac (www.dimac.net) eller AspMail fra serverobjects (www.serverobjects.com).
Avatar billede radut Nybegynder
17. oktober 2001 - 15:00 #2
<html>
<head>
  <title>ASP Mailer Form Test</title>
<head>
<body>

<form method=\"get\" action=\"sendmail.asp\">
  To Address: <input type=\"text\" name=\"addressto\"><br>
  To Name: <input type=\"text\" name=\"nameto\"><br>
  Message: <textarea name=\"txtmsg\" rows=\"10\" cols=\"60\">Hello!</textarea>
  <input type=\"submit\">
</form>

</body>
</html>

--------------------------------------------
<html>
<head>
  <title>ASP Mailer Form Test</title>
<head>
<body>

Mail To: <% = Request.QueryString(\"addressto\") %><br>

<p>
<%
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.RemoteHost = \"mail.deres-domain.dk\"
Mailer.FromName = \"Joe\'s Shrimp Shack\"
Mailer.FromAddress = \"mail@deres-domain.dk\"
Mailer.AddRecipient Request.QueryString(\"nameto\"), Request.QueryString(\"addressto\")
Mailer.Subject = \"Stock Split Announced!\"
Mailer.BodyText = Request.QueryString(\"txtmsg\")
Mailer.CharSet = 2

if not Mailer.SendMail then
  Response.Write \" Mailing Failed... Error is: <br>\"
  Response.Write Mailer.Response
else
  Response.Write \" sent successfully...<p>\"
end if

Set Mailer = nothing
%>

</body>
</html>
Avatar billede sesam Nybegynder
17. oktober 2001 - 15:04 #3
cyb: min host har jmail og asp mail men jeg kan ikke få det til at virke kan du?
Avatar billede radut Nybegynder
17. oktober 2001 - 15:09 #4
mht Jmail:


<html>
<head>
<title>w3 JMail POP3 Demo Script</title>
<head>
<body bgcolor=\"white\">
<blockquote>
<h2>w3 JMail POP3 Demo Script</h2>

<%
Set pop3 = Server.CreateObject(\"JMail.POP3\")
pop3.Connect \"username/mailserver\", \"password\", \"mailserver\"

Response.Write( \"You have \" & pop3.count & \" emails in your mailbox!<br><br>\" )

if pop3.count > 0 then
  Set msg = pop3.Messages.item(1)
 
  \' Note the first element of this array is 1,
  \' since the POP3 server starts counting at 1
  ReTo = \"\"
  ReCC = \"\"
 
  Set Recipients = msg.Recipients
  separator = \", \"
 
  \' We now need to get all the recipients,
  \' both normal and Carbon Copy (CC) recipients
  \' and store them in a variabel
  for i = 0 To Recipients.Count - 1
    if i = Recipients.Count - 1 then
      separator = \"\"
    end if
   
    Set re = Recipients.item(i)
    if re.ReType = 0 then
      ReTo = ReTo & re.Name & \" (\" & re.EMail & \")\" & separator
    else
      ReCC = ReTo & re.Name & \" (\" & re.EMail & \")\" & separator
    end if
  next
 
  \' This function iterates through the Attachments object,
  \' and saves the attachment to the server\'s disk.
  \' It also returns a nicely formatted string with a
  \' link to the attachment.
  Function getAttachments()
    Set Attachments = msg.Attachments
    separator = \", \"
   
    for i = 0 To Attachments.Count - 1
      if i = Attachments.Count - 1 then
        separator = \"\"
      end if
     
      Set at = Attachments(i)
     
      at.SaveToFile(\"\"&Request.ServerVariables(\"APPL_PHYSICAL_PATH\")&\"\\log\\\"&at.Name&\"\")
      getAttachments = getAttachments & \"<a href=\"\"/log/\" &_
      at.Name &\"\"\">\" & at.Name & \"(\" & at.Size & \" bytes)\" &_
      \"</a>\" & separator
    next
  End Function
 
  Response.Write \"<table>\" + vbCrLf
  Response.Write \"<tr><td>Subject</td><td>\"&msg.Subject&\"</td></tr>\" + vbCrLf
  Response.Write \"<tr><td>From</td><td>\"&msg.FromName&\"</td></tr>\" + vbCrLf
  Response.Write \"<tr><td>Recipients To</td><td>\"&ReTO&\"</td></tr>\" + vbCrLf
  Response.Write \"<tr><td>Recipients CC</td><td>\"&ReCC&\"</td></tr>\" + vbCrLf
  Response.Write \"<tr><td>Attachments</td><td>\"&getAttachments&\"</td></tr>\" + vbCrLf
  Response.Write \"<tr><td>Body</td><td><pre>\"&msg.Body&\"</pre></td></tr>\" + vbCrLf
  Response.Write \"</table>\" + vbCrLf
 
end if
pop3.Disconnect
Set pop3 = nothing
%>

</blockquote>
</body>
</html>
Avatar billede sesam Nybegynder
17. oktober 2001 - 15:17 #5
Ja men det er jo lige præcis dette jeg ikke kan finde udaf at få til at virke
Avatar billede cyb Nybegynder
18. oktober 2001 - 09:14 #6
Har du installeret komponenterne ?
Husk de skal installeres på serveren.
Avatar billede sesam Nybegynder
19. oktober 2001 - 13:19 #7
Jeg har fået det il at virke, bare en lille fejl. Tak for hjælpen.
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:35 D3D12 lukker nogle spil ned Af thedukedk i Andet software
08/1116:24 Google driller på MS Edge Af ErikHg i Browsere
08/1115:48 søger pris på en bærbar Af dcedata1977 i PC
06/1119:03 iMac 2026 M6 10-core GPU (standart ell opdatering) Af LLG i Mac
06/1109:43 Vista Af susej14 i Andet software
White papers
Flere white papers »