Mailformular fra en Access DB

what is a mailformular? Where do you want to use this form, if it is in a WEB application then I suggest you move your question to ASP programming!

Otherwise we are going to need more information

This is a mailformular:

<form name="Form" action="mailhandler.asp" method="post">
<span class="mailform">Name</span><br>
<input name="name" type="text" size="35" maxlength="75" id="input" value="<%= request.querystring("sSender") %>"><br>
<br>
<span class="mailform">Your mail address</span><br>
<input name="email" type="text" size="35" maxlength="75" id="input" value="<%= request.querystring("sMail") %>"><br>
<br>
<span class="mailform">Subject</span><br>
<input name="subject" type="text" size="35" maxlength="75" id="input" value="<%= request.querystring("sSubject") %>"><br>
<br>
<span class="mailform">Message</span><br>
<textarea name="body" cols="34" rows="7" id="input"><% Body=Replace(Request.Form("body"), vbCrLf, "<br>") %></textarea><br>
<br>
<input type="image" onMouseOver="this.src='images/ok2.gif';" onMouseOut="this.src='images/ok.gif';" src="images/ok.gif" onfocus="this.blur( )" border="0" width="30" height="23"></td>
</form>


MAILHANDLER:

<%
Dim sprog, Sendername, Senderemail, Subject, Recipient, Body

Sendername=Request.Form("name")
Senderemail=Request.Form("email")
Subject=Request.Form("subject")
Recipient = "information@theselfimages.com"
Body=Replace(Request.Form("body"), "<br>", vbCrLf)


'Tjekker om der er indhold i formularens felter
IF Sendername = "" THEN
    Response.Redirect "mail.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Senderemail = "" THEN
    Response.Redirect "mail.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Instr(1, Senderemail, "@") = 0 THEN
    Response.Redirect "mail.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Subject = "" THEN
    Response.Redirect "mail.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Body = "" THEN
    Response.Redirect "mail.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF

IF Trim(Body) = "" THEN
    Response.Redirect "mail.asp?sSender=" & Sendername & "&sMail=" & Senderemail & "&sSubject=" & Subject & "&sBody=" & Body & ""
END IF



Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.theselfimages.com"
JMail.Sendername = Sendername
JMail.Sender = Senderemail
JMail.Subject = Subject
JMail.AddRecipient Recipient
JMail.Body = Body
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
%>

well that looks more like ASP to me so I would think you will get an answer faster if you mov eyour question to ASP programming

Spørgsmålet er lukket.