Simpel mail form!

Har du adgang til ASP?

bare til dig

?

http://www.solutions2all.dk/form_generator.asp


prøb den

<form action="sendmail.asp" method="POST">
                <table width="500" border="0" cellspacing="1" cellpadding="1">
                  <tr>
                    <td width="100">
                      <div align="right">Emne: </div>
                    </td>
                    <td align="left">
                      <input class="input" type="Text" name="Subject" size="25" maxlength="50">                     
                    </td>
                  </tr>
                  <tr>
                    <td width="100">
                      <div align="right">Fra: </div>
                    </td>
                    <td align="left">
                      <input class="input" type="Text" name="FromAddress" size="25" maxlength="50">                   
</td>
                  </tr>
                  <tr>
                    <td width="100">
                      <div align="right">Besked: </div>
                    </td>
                    <td align="left">
                      <textarea class="input" name="BodyText" cols="50" rows="10" wrap="PHYSICAL"></textarea>                     
                    <b> </b></td>
                  </tr>
                  <tr>
                    <td width="100"></td>
                    <td align="left"> <b>-
                      <input class="input" type="Reset" value="Clear">                     
                      &nbsp;-
                      <input class="input" type="submit" value=" Send " name="submit">
                      - </b></td>
                  </tr>
                </table>
              </FORM>
-----------------------------------------------------

sendMail.asp
.........................................
<HTML>
<HEAD>
<TITLE>@visen</TITLE>
<LINK href="gfx/site.css" rel=StyleSheet type=text/css>
<STYLE type=text/css>.cell {
    PADDING-BOTTOM: 10px; PADDING-LEFT: 10px; PADDING-RIGHT: 10px; PADDING-TOP: 10px
}
</STYLE></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=5>
<BR style="FONT-SIZE: 5px">
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=740>
</TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=740 bordercolor="#666666">
  <TBODY>
  <TR>
    <TD
    background="gfx/menu_back.gif"
    bgColor=#e8ebec vAlign=top> <img alt="" border=0 height=14
      src="gfx/menu_head_afstemning.gif"
      width=140>
      </TD>
    <TD vAlign=top width="100%">
      <TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=580>
        <TBODY>
        <TR>
          <TD class=s vAlign=top width=580>
            <DIV
            style="PADDING-BOTTOM: 10px; PADDING-LEFT: 0px; PADDING-RIGHT: 10px; PADDING-TOP: 0px">
              <B
            class=m style="COLOR: #474747; LETTER-SPACING: 1px"> <br>
              <br>
              <%
Session("FromAddress") = Request("FromAddress")
Session("Subject") = Request("Subject")
Session("BodyText") = Request("BodyText")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

    Mailer.FromAddress = Session("FromAddress")
    Mailer.RemoteHost = "smtpgw.activeisp.com"
    Mailer.AddRecipient "Webmaster", "erwer@ekom.dk"
    Mailer.Subject = Session("Subject")
    Mailer.BodyText = Session("BodyText")

if Mailer.SendMail then
Response.Write "Mail sendt..."
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if

Session.Abandon
%>
              <br>
              </B></DIV>
          </TD>
        </TR>
        <TR>
          <TD><IMG border=0 height=1
            src="gfx/s.gif"
            width=1></TD>
        </TR>
        <TR>
          <TD><IMG border=0 height=1
            src="gfx/s.gif"
            width=1></TD>
        </TR>
        </TBODY>
      </TABLE>
      <BR>
    </TD>
    <TD
    background="gfx/page_right1.gif"><IMG
      alt="" border=0 height=1
      src="gfx/s.gif"
      width=1></TD></TR></TBODY></TABLE>
<TABLE align=center cellPadding=0 cellSpacing=0 width=740>
  <TBODY>
  <TR>
    <TD bgColor=#395462><IMG alt="" border=0 height=1
      src="gfx/s.gif"
      width=1></TD></TR></TBODY></TABLE>
<TABLE align=center width=740>
</TABLE>
</BODY>
</HTML>

here ya go!

mail.asp
---------------------------------------------------------------
<html>
<head>
<title>Kontakta mig</title>

<script language="javaScript">
function tecken()
{
if (document.maila.Dmail.value=="")
{
alert("Du glömde din email!");
return false;
} else if (document.maila.Vmail.value=="")
{
alert("Du glömde din väns email!");
return false;
} else if (document.maila.meddelande.value=="")
{
alert("Du glömde skriva ett meddelande!!!");
return false;
}
}
</script>

<style type="text/css">
<!--
td                      { font-family: verdana; font-size: 10px }
form                { font-family: verdana; font-size: 10px }
input                { font-family: verdana; font-size: 10px ; border-width: 1px ; border-color: Black}
select                { font-family: verdana; font-size: 10px ; border-width: 1px ; border-color: Black}
option                { font-family: verdana; font-size: 10px ; border-width: 1px ; border-color: Black}
textarea          { font-family: verdana ; font-size: 10px ; border-width: 1px ; border-color: Black}
-->
</style>

</head>

<body>

<form method="post" name="maila" action="maila.asp?do=sent"  onSubmit="return tecken()">

  <table width="350" border="0">
    <tr>
      <td><b>Din mail:</b><br><input type="text" name="Dmail"></td>
    </tr>
    <tr>
      <td><b>Din väns mail:</b><br><input type="text" name="Vmail"></td>
    </tr>
    <tr>
      <td><b>Meddelande:</b><br><textarea name="meddelande" cols="45" rows="6"></textarea></td>
    </tr>
    <tr>
      <td><input type="submit" name="Submit" value=" Skicka "></td>
    </tr>
    <tr>
      <td height="25">

<%
If Request.QueryString("do") = "sent" Then

If Request.Form("Dmail") <> "" AND Request.Form("Vmail") <> "" Then

Dmail = Request.Form("Dmail")
Vmail = Request.Form("Vmail")
Meddelande = Replace(Request.Form("Meddelande"), vbCrLf, "<br>" & vbCrLf)
   
Set jmail = Server.CreateObject("JMail.Message")
jmail.Logging = True
jmail.From = Vmail
jmail.Fromname = Dmail
jmail.AddRecipient Vmail
jmail.Subject = "Hejsan!"
jmail.Body = "Meddelande via hemsidan skickades " & Now & ""
jmail.appendHTML "<font face=verdana size=1>"
jmail.appendHTML Meddelande
jmail.appendHTML "</font>"

jmail.Send ("DIN SMTP SERVER")
   
End If

Response.Write "<b>Meddelandet har nu skickats!</b>"

End If
%>
       
      </td>
    </tr>
  </table>
</form>
       
</body>
</html>