Skriv dette på knappen:
on(release) {
loadVariablesNum("
http://www.etellerandet.dk/mailform.asp?navn=" + _root.navn + "&email=" + _root.email + "&emne=" + _root.emne + "&besked=" + _root.besked, 0);
}
Dine inputfelter sklal således have variabelnavnene "navn", "email", "emne" og "besked" og ligge i _root.
Og her er ASP siden.
<% @LANGUAGE = VBScript %>
<%
Dim strName, strSubject, strMessage, strEmail
strName = Request.QueryString("navn")
strSubject = Request.QueryString("emne")
strMessage = Request.QueryString("besked")
strEmail = Request.QueryString("email")
strMessage = replace(strMessage, vbcrlf, vbcrlf & "<br>")
Dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "websmtp.dit-domaene.dk"
JMail.Sender = "admin@dit-domaene.dk"
JMail.Subject = strSubject
JMail.AddRecipient "admin@dit-domaene.dk"
JMail.Priority = 3
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Body = "Navn: " + strName + "<br><br>Email: " + strEmail + "<br><br>Emne: " + strSubject + "<br><br>Besked: " + strMessage
JMail.Execute
Set JMail = Nothing
%>