Send til en ven dims?

Du kan finde en masse i ASP og PHP på http://www.netcoders.dk

Der skal du jo nok bruge noget php eller asp :)

Tag et kig på :

http://www.netcoders.dk/sourcecode.asp?mode=seek&seekword=anbefal&type=all


- Zhatten

ArrrGH!!! Den skal ikke være i PHP eller ASP bare en helt adminlig form, hvor brugerne kan skrive deres navn og besked til vennen osv. Ikke alt muligt andet pis!

altså skal det være den mest enkle for det er ikke alle der gider bruge 7 timer på at sende!

Hør nu Her :) Du skal bruge PHP eller ASP.


- Zhatten

Du er nødt til at have et eller andet serverside programmeringssprog igang for at få det til at virke. Det nemmeste jeg kan forestille mig er at bruge formMail. det er et forudlavet program som de fleste udbydere stille til rådighed. Check om din udbyder har det, og kom så evt igen.

mvh JakobA

okay okay giv mig så koden jeg er sq lige glad med hvad fan\' det er!

<head>
<title>Anbefaling</title>
</head>

<body BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\">
<%
\'~~~~~~~~~~~~~~~~~~~~~        Lavet af (C)Søren Peter Fynboe 2000           ~~~~~~~~~~~~~~~~~~~~~
\'~~~~~~~~~~~~~~~~~~~~~ Support på spf@mail1.stofanet.dk/ ICQ UIN #33029955 ~~~~~~~~~~~~~~~~~~~~~

\'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
\' Konfigurér med smtp-server, afsender og tekst
\' Brug vbCrLf til linjeskift i indholdet (body)
\'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
\'_______________________________________________________________________________________________

navn = request(\"navn\")

if  Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
   
        Set JMail = Server.CreateObject(\"JMail.SMTPMail\")
        JMail.ContentTransferEncoding = \"8bit\"
        JMail.Charset = \"ISO-8859-1\"
       
        JMail.Priority = 1
        JMail.ServerAddress = \"din_smtp.server.dk\"
    JMail.Sender = \"Din_afsender_e-mail.dk\"
        JMail.Subject = \"Anbefaling\"
    JMail.Body = \"Hej!\" & vbCrLf & \"Det er \" & navn & vbCrLf & vbCrLf
    JMail.Body= JMail.Body + \"Besøg Min hjemmeside!\" & vbCrLf & vbCrLf
    JMail.Body= JMail.Body + \"www.smin side.dk.\" & vbCrLf & \"En hjemmeside hvor du kan læse nyheder og deltag i debat m.m.\" & vbCrLf & vbCrLf
   
        JMail.AddRecipient request(\"ad\")
        \' Send it...
        JMail.Execute
        set JMail = nothing
response.write \" Tak.<br><br>Din anbefaling er sendt til \" & request(\"ad\")

   

else %>

<form action=\"anbef.asp\" METHOD=\"POST\">
  <table cellpadding=\"2\" cellspacing=\"2\" border=\"1\">
    <tr>
      <td><div align=\"center\"><center><h2>Anbefal Minside</h2>
      </center></div></td>
    </tr>
    <tr>
      <td><input TYPE=\"TEXT\" onFocus=\"this.form.ad.select()\" value=\"Modtagerens e-mail?\"
      NAME=\"ad\" SIZE=\"17\"> </td>
    </tr>
    <tr>
      <td><input TYPE=\"TEXT\" onFocus=\"this.form.navn.select()\" value=\"Afsenderens navn?\"
      NAME=\"navn\" SIZE=\"17\"> </td>
    </tr>
    <tr>
      <td><input type=\"submit\" value=\"Send\"> </td>
    </tr>
  </table>
</form>
<%    end if%>
</body>
</html>