Forms

Hvilken mailkomponent har du adgang til?

<form action="<% Response.Write(Request.ServerVariables("SCRIPT_NAME"))%>?action=sendt" method="post">
<textarea name="besked"></textarea>
</form>
<%
If Request.QueryString("action") = "sendt" Then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.domain.dk"
JMail.Priority = 1
JMail.Sender = "afsender@email.adr"
JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
Jmail.AddRecipientCC "andenmodtager@email.adr"
Jmail.AddRecipientBCC "skjultmodtager@email.adr"
JMail.Subject = "Dette er emne linien.."
JMail.Body = Request.Form("besked")
JMail.Execute
Set JMail = Nothing
End If
%>

//>Rune

<html>

<head>
<title>New Page 1</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body>
<div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="97%">
  <tr>
    <td valign="top"><p align="left"><b><font face="Arial"><br>
    Ask Away<br>
    <font size="2">Stil dine spørgsmål herunder</font><br>
    </font></b><% if mode = "" then %> <% mode = request("mode") %> </p>
    <form METHOD="post" ACTION="?mode=send">
      <div align="left"><table border="0" width="100%">
        <tr>
          <td width="100%" align="center"><font size="2" face="Arial"><% end if %> <% if mode = "send" then %> <% if request.form("fra_navn") = "" OR request.form("fra_mail") ="" OR request.form("emne") ="" OR request.form("besked") ="" then
response.write("Du mangler at indtaste en oplysning")
else
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "post.tele.dk"
JMail.Sender = Request.Form("fra_mail")
JMail.Sendername = Request.Form("fra_navn")
JMail.Subject = Request.Form("emne")
JMail.AddRecipient Request.Form("D1")
JMail.Body = Request.Form("besked")
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Silent = True
If JMail.Execute then
%> Tak for din Mail. <% Else %> Mailen
          er desværre ikke afsendt prøv igen. <% End If %> <% end if %> <% end if %> </font></td>
        </tr>
        <tr>
          <td width="100%" align="center"><font size="2" face="Arial"><div align="left"><p></font><small><font
          face="Arial">Att :</font></small> <select name="D1" size="1">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../database.mdb")
Set rs = Conn.Execute("select * from kontaktmail")
Do until rs.eof
%>            <option value="<%=rs("kontaktmail")%>"><%=rs("kontaktnavn")%></option>
<%
rs.movenext
loop
rs.close
set rs = nothing
conn.close
set conn = nothing
%>          </select><font size="2" face="Arial"><br>
          <br>
          Dit Navn:<br>
          <input type="text" name="fra_navn" size="20"><br>
          Din E-mail:<br>
          <input type="text" name="fra_mail" size="20"><br>
          Emne:<br>
          <input type="text" name="emne" size="35"><br>
          Spørgsmål/kommentar:<br>
          <textarea cols="35" rows="6" name="besked"></textarea><br>
          <br>
          <input TYPE="submit" VALUE="Send E-mail"></font></td>
        </tr>
      </table>
      </div>
    </form>
    </td>
  </tr>
</table>
</center></div>
</body>
</html>

til pfp
Hvilken mailkomponent har du adgang til? Ja det er et godt spørgsmål. Har sat min computer op til mailserver, så min side ligger der

Du skal jo oxo ha' installeret en komponent som kan sende via din SMTP! -Hent JMail! -så kan du bruge mit eksempel!

//>Rune

Har endnu ikke fået det til at virke, andre foreslag?

Hent JMail!

'el barto' har du et link. Har kigget efter den? men kunne ikke finde den

http://www.jmail.com.my/

Desværre er det ikke gratis, sådan er det jo med ASP.

Hvis du brugte PHP kunne det gøres helt gratis ;)

'el barto' ASP, PHP, ACCESS, HTML XML, SQL ....... puha man bliver forpustet, men hvorfor ikke lave det i PHP, har du nogle hints
JAN

http://www.webcafe.dk/artikler/php/mail/ er et godt sted at starte. Men hvis du har planer om at lave dit site i ASP er det vel bedst at holde fast i det...

Thx 4 Poinz

//>Rune