Formular som bruger Asp Jmail4

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.viborgnet.dk" 'navn på udbyders serveradress
JMail.Sender = "hejsa@hejsa.dk"
'Jmail.Sender = Request.Form("Email")
JMail.Subject = "overksrift"
JMail.AddRecipient "afsender@fd.dk"

'JMail.Body = "Eksempel på brugen af JMail" & VbCrLf & VbCrLf
'JMail.Body = JMail.Body & "Hilsen"
JMail.Body = "Afsender email : " & Request.Form("Email") & VbCrLf
JMail.Body = JMail.Body & "ProduktId : " & Request("Tekst") & VbCrLf
JMail.Body = JMail.Body & "Navn : " & Request.Form("Navn") & VbCrLf
'JMail.Body = JMail.Body & "Efternavn : " & Request.Form("Efternavn") & VbCrLf
JMail.Body = JMail.Body & "Postnr/By : " & Request.Form("PostNrBy") & VbCrLf
'JMail.Body = JMail.Body & "By : " & Request.Form("By") & VbCrLf
JMail.Body = JMail.Body & "Adresse : " & Request.Form("Adresse") & VbCrLf




' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 1
JMail.Execute

Skal det bare sættes ind på en html side.?

En asp side

Hmm kan du ik lige prøve af lave et eksempel.

Lave et eksempel? Det har jeg jo lige gjort, hvis du kopierer dette ind i en .asp side og kører det fra en webserver vil den sende mail til den som du har defineret til

jeg tænkte på af sætte det ind i boxe osv.?
Da jeg ik selv er så god igen.

ville du ik nok det.?

når men det er lige meget så...

<%@Language=VBScript%>
<% tekst = Request("tekst") %>
<% if tekst = ""  then
Response.redirect("casinoorg.asp")
end if%>
<%
If Request.Form("Action") = "Bestil" Then

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.viborgnet.dk"
JMail.Sender = "fldesign@fldesign.dk"
'Jmail.Sender = Request.Form("Email")
JMail.Subject = "Another fool have ordered your program manny"
JMail.AddRecipient "smukkemanny@hotmail.com"

'JMail.Body = "Eksempel på brugen af JMail" & VbCrLf & VbCrLf
'JMail.Body = JMail.Body & "Hilsen"
JMail.Body = "Afsender email : " & Request.Form("Email") & VbCrLf
JMail.Body = JMail.Body & "ProduktId : " & Request("Tekst") & VbCrLf
JMail.Body = JMail.Body & "Navn : " & Request.Form("Navn") & VbCrLf
'JMail.Body = JMail.Body & "Efternavn : " & Request.Form("Efternavn") & VbCrLf
JMail.Body = JMail.Body & "Postnr/By : " & Request.Form("PostNrBy") & VbCrLf
'JMail.Body = JMail.Body & "By : " & Request.Form("By") & VbCrLf
JMail.Body = JMail.Body & "Adresse : " & Request.Form("Adresse") & VbCrLf




' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 1
JMail.Execute

Response.redirect("takker.asp")
end if

%>
<html>
<head>
    <title>F&L Design -> Casino Organizer -> Bestilling af program</title>
</head>

<script language="JavaScript">
<!--
function go(id_side) {
if (id_side != "no_go") {
banWin = window.location.href = (id_side);
}
}
//-->
</script>


<body vlink="#0000FF" link="#0000FF">


<form>
<table width="100%" align="center" bgcolor="FFFFCC">
  <tr> 
    <td><b><a href="default.asp">F&amp;L Design</a></b> ~ <a href="casinoorg.asp">Casino Organizer</a> ~ Bestilling af program</td>   
    <td align="right"><select name="banselect" onChange=go(this.form.banselect.options[this.form.banselect.selectedIndex].value)>
                            <option value="no_go">Indhold</option>
                            <option value="casinoorg.asp">Startside</option>   
                            <option value="info.asp">Information</option>                           
                            <option value="info.asp#download">Download</option>                                               
                            <option value="bestil.asp">Bestilling</option>       
                            <option value="opdatering.asp">Opdatering</option>                       
                      </select>                     
   
   
    </td>
  </tr>
</table>
</form>


<table width="100%" align="center" border="0" cellpadding="0" cellspacing="0" cols="0" >
    <tr><td align="center"><b><font size="6"> -- BESTILLING AF PROGRAMMET --</font></b<</td></tr>
<tr><td align="center">&nbsp;</td></tr>

</table><br>




<table bgcolor="FFFFCC" width="100%" align="center" border="0" cellpadding="0" cellspacing="0" cols="0" >
    <tr><td align="left">&nbsp;</td>
    <td align="left" width="90%">&nbsp;</td>
    <td>&nbsp;</td>
    </tr>
</table>




<table bgcolor="FFFFCC" width="100%" align="center" border="0" cellpadding="0" cellspacing="0" cols="0" >
    <tr><td align="left">&nbsp;</td>
    <td align="left" width="90%">
   
   
   
Her kan du bestille din personlige kode til casinoorganizer.

Fordelen ved at registrere casino organizer er at du så kan tilføje
så mange casinoer du har lyst til. Desuden vil du også kunne downloade
nyere versioner af programmet når de senere kommer. Sørg for at <b>ALLE</b> felterne er udfyldt før du klikker på 'bestil'.
<form action="bestilcasino.asp?tekst=<%= Request("tekst") %>" method="POST">
<table>
  <tr>
    <td width="150"><b><font color="#0000FF">ProduktId *</font></b></td>
    <td><input type="text" name="ProduktId" value="<%= Request("tekst") %>" disabled size="40"></td>
  </tr>
  <tr>
    <td><b><font color="#0000FF">Navn</font></b></td>
    <td><input type="text" name="Navn" size="40"></td>
  </tr>
 
  <tr>
    <td><b><font color="#0000FF">Adresse</font></b></td>
    <td><input type="text" name="Adresse" size="40"></td>
  </tr>
  <tr>
    <td><b><font color="#0000FF">PostNr & By</font></b></td>
    <td><input type="text" name="PostNrBy" size="40"></td>
  </tr>

  <tr>
    <td><b><font color="#0000FF">Email</font></b></td>
    <td><input type="text" name="Email" size="40"></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td><input type="submit" value="Bestil" name="Action"></td>
  </tr>

</table>
</form>   

Casino Organizer koster 200,00 kr. Efter indbetaling af beløbet vil du modtage din personlige kode pr. email. Kort tid efter du har klikket 'bestil' vil du modtage en email der forklarer nærmere m.h.t betaling af programmet.<br><br><b>ProduktId * </b>: Dette felt udfyldes automatisk når du klikker "Bestil kode" i shareware versionen af programmet.



</td>
    <td>&nbsp;</td>
    </tr>

</table>




<table bgcolor="FFFFCC" width="100%" align="center" border="0" cellpadding="0" cellspacing="0" cols="0" >
    <tr><td align="left">&nbsp;</td>
    <td align="left" width="90%">&nbsp;</td>
    <td>&nbsp;</td>
    </tr>
</table>






<br>

<CENTER>
<FONT size=3>
  <a href="casinoorg.asp">Casino Organizer Startside</a>
  <br>

  <A href="info.asp">Casino Organizer Information</A> |
  <A href="opdatering.asp">Opdatering</A> |
  <A href="opdatering.asp#vejledning">Vedledning</A> |
  <A href="bestil.asp">Bestilling</A>
<BR>
  <A href="info.asp#download">Download Shareware Version (.zip)</A> |
  <A href="info.asp#download">Download Shareware Version (.exe)</A>

<BR>
<A href="opdatering.asp#rettelser">Rettelser</A> |
  <A href="support.asp#faq">FAQ</A> |
  <A href="support.asp">Support</A>
</FONT>
<P>
<FONT size=2>
Casino Organizer er udviklet af F&L Design 2001 <a href="mailto:fldesign@fldesign.dk">fldesign@fldesign.dk</a>
</FONT>
</CENTER>








</body>
</html>

SÅdan :)))