Hvis jeg har forstået dig korrekt er det du spørger om hvordan man får data fra en formular sendt med JMail?
Du kan f.eks. bruge dette:
[Start Form.htm]
<html>
<head>
<title>Send data</title>
</head>
<body>
<form name="kontakt" method="post" action="send.asp">
<input type="text" name="navn">
<input type="text" name="email">
<input type="text" name="emne">
<textarea name="besked"></textarea>
<input type="submit" name="send" value=" Send ">
<input type="reset" name="nulstil" value=" Annuller ">
</form>
</body>
</html>
[Slut Form.htm]
[Start Send.asp]
<%
Dim strAfsNavn, strAfsEmail, strAfsEmne, strAfsBesked
strAfsNavn = Request.Form("navn")
strAfsNavn = Request.Form("email")
strAfsNavn = Request.Form("emne")
strAfsNavn = Request.Form("besked")
strSMTP = "smtp.udbyder.dk"
' # KONFIGURERER MAILKOMPONENT
Set JMail = Server.CreateObject("JMail.Message")
JMail.Logging = True
JMail.Silent = True
JMail.From = strAfsEmail
JMail.FromName = strAfsNavn
JMail.AddRecipient "post@mitsite.dk"
JMail.Subject = "Mail via kontaktformular"
JMail.ContentType = "text/plain"
JMail.Charset = "iso-8859-1"
Dim strProxyIP, strNormalIP, strIP
strProxyIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
strNormalIP = Request.ServerVariables("REMOTE_ADDR")
If strProxyIP = DoubleQuote Then
' # HVIS AFSENDEREN IKKE ER BAG EN PROXY
strIP = strNormalIP
Else
' # HVIS AFSENDEREN ER BAG EN PROXY
strIP = strProxyIP
End If
JMail.AddHeader "Originating-IP", strIP
' # ORGANISERER MAILINDHOLDET
strBeskedOps = strBeskedOps & "MAIL VIA KONTAKTFORMULAR" & vbCrLf
strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------" & vbCrLf
strBeskedOps = strBeskedOps & "Afsender: " & strAfsNavn & vbCrLf
strBeskedOps = strBeskedOps & "E-mail: " & strAfsEmail & vbCrLf
strBeskedOps = strBeskedOps & "IP-adresse: " & strIP & vbCrLf & vbCrLf
strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------" & vbCrLf
strBeskedOps = strBeskedOps & "Emne/Overskrift: " & strAfsEmne & vbCrLf & vbCrLf
strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------" & vbCrLf
strBeskedOps = strBeskedOps & "Besked:" & vbCrLf
strBeskedOps = strBeskedOps & strAfsBesked & vbCrLf & vbCrLf
strBeskedOps = strBeskedOps & "---------------------------------------------------------------------------------" & vbCrLf
strBeskedOps = strBeskedOps & "Find afsenderens udbyder via IP-adressen:
http://www.ripe.net/perl/whois?query=" & strIP
JMail.Body = strBeskedOps
' # PRIORITET: 1) HØJ PRIORITET (VIGTIGT), 3) NORMAL, 5) LAV PRIORITET
JMail.Priority = 3
' # VIDERESTILLER TIL RESULTATSIDE
If Not JMail.Send(strSMTP) Then
Response.write "Der opstod en fejl - Forsøg igen :-)"
Else
Set JMail= Nothing
Response.Redirect "Afsendt.htm"
End If
%>
[Slut Send.asp]
[Start Afsendt.htm]
<html>
<head>
<title>Besked afsendt</title>
</head>
<body>
<p>Din besked blev afsendt uden fejl :-)</p>
</body>
</html>
[Slut Afsendt.htm]
Du skal blot udskifte informationerne i Send.asp med dine egne udbyderoplysninger :-)
Apo
Ny bruger
Nybegynder
Opret
Preview
