Hej
Jeg har lavet en asp side som via jmail skal sende den videre som
email. men det virker ikke. er der fordi min windows2000 server
ikke understøtter jmail eller er der noget andet galt.
håber der er en der kan hjælpe mig
default.htm
<!-- saved from url=(0022)
http://internet.e-mail -->
<html>
<title>Netværksbestilling formular</title>
<head>
</head>
<body>
<form method="post" action="modtag.asp">
<p>Servernavn:
<input type="text" name="servernavn"></p>
<p>TDnummer:
<input type="text" name="tdnummer"></p>
<p>Koncern net Accdom01:
<input type="radio" name="Accdom01" value="10"> 10mbit
<input type="radio" name="Accdom01" value="100"> 100mbit
<p>Backup net:
<input type="radio" name="Backupnet" value="10"> 10mbit
<input type="radio" name="Backupnet" value="100"> 100mbit
<p>Remote:
<input type="radio" name="remote" value="ingen"> ingen
<input type="radio" name="remote" value="10"> 10mbit
<p>Cluster Navn:
<input type="text" name="cluster"></p>
<p>server placering:
<input type="text" name="placering"></p>
<p>Kabel placering:
<input type="radio" name="kabel" value="venstre"> venstre
<input type="radio" name="kabel" value="højre"> højre
<p>placering i rak:
<input type="radio" name="rak" value="høj"> høj
<input type="radio" name="rak" value="midt"> midt
<input type="radio" name="rak" value="lav"> lav
<input type="submit">
</form>
</body>
</html>
modtag.asp
<%
Select Case Request.Querystring("id")
Case ""
skrivservernavn = "<h1>Server Navn: " &
Request.Form("servernavn") & "</h1>"
skrivtdnummer = "<h1>TD Nummer: " & Request.Form("tdnummer") &
"</h1>"
Select Case Request.Form("accdom01")
Case "10"
skrivaccdom = "<h1>koncernnet accdom01 10mbit</h1>"
Case "100"
skrivaccdom = "<h1>koncernnet accdom01 100mbit</h1>"
End Select
Select Case Request.Form("backupnet")
Case "10"
skrivbackupnet = "<h1>Backupnet 10mbit</h1>"
Case "100"
skrivbackupnet = "<h1>Backupnet 100mbit</h1>"
End Select
Select Case Request.Form("remote")
Case "ingen"
skrivremote = "<h1>remote: ingen</h1>"
Case "10"
skrivremote = "<h1>remote: 10mbit</h1>"
End Select
skrivcluster = "<h1>Cluster Navn: " & Request.Form("cluster") &
"</h1>"
skrivplacering = "<h1>Server Placering: " &
Request.Form("placering") & "</h1>"
Select Case Request.Form("kabel")
Case "venstre"
skrivkabel = "<h1>kabel: venstre</h1>"
Case "højre"
skrivkabel = "<h1>kabel: højre</h1>"
End Select
Select Case Request.Form("rak")
Case "høj"
skrivrak = "<h1>rak: høj</h1>"
Case "midt"
skrivrak = "<h1>rak: midt</h1>"
Case "lav"
skrivrak = "<h1>rak: lav</h1>"
End Select
%>
<html>
<title>Netværksbestilling formular</title>
<head>
</head>
<% Response.Write skrivservernavn %>
<% Response.Write skrivtdnummer %>
<% Response.Write skrivaccdom %>
<% Response.Write skrivbackupnet %>
<% Response.Write skrivremote %>
<% Response.Write skrivcluster %>
<% Response.Write skrivplacering %>
<% Response.Write skrivkabel %>
<% Response.Write skrivrak %>
<form method="post" action="modtag.asp?id=send">
<input type="hidden" value="<%=skrivservernavn%>"
name="servernavn">
<input type="hidden" value="<%=skrivtdnummer%>" name="tdnummer">
<input type="hidden" value="<%=skrivaccdom%>" name="accdom">
<input type="hidden" value="<%=skrivbackupnet%>"
name="backupnet">
<input type="hidden" value="<%=skrivremote%>" name="remote">
<input type="hidden" value="<%=skrivcluster%>" name="cluster">
<input type="hidden" value="<%=skrivcluster%>" name="placering">
<input type="hidden" value="<%=skrivkabel%>" name="kabel">
<input type="hidden" value="<%=skrivrak%>" name="rak">
<!-- Hvis brugeren selv skal kunne bestemme det: -->
Skriv modtagers email:
<input type="text" name="email" size="50">
<!-- Et af de to felter skal fjernes!! -->
<input type="submit" value="Send til email">
</body>
</html>
<%
Case "send"
servernavn = Request.Form("servernavn")
tdnummer = Request.Form("tdnummer")
accdom = Request.Form("accdom")
backupnet = Request.Form("backupnet")
remote = Request.Form("remote")
cluster = Request.Form("cluster")
email = Request.Form("email")
Name = "Søren test Noget af dit valg"
SenderEmail = "srbak@tdk.dk"
Subject = "emneNoget af dit valg"
Recipient = email
Body = servernavn & vbCrLf & tdnummer & vbCrLf & accdom &
backupnet & vbCrLf & remote & vbCrLf & cluster
Set JMail = Server.CreateObject ("JMail.SMTPMail")
JMail.ServerAddress = "internet.tdb.dk"
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
Response.Write "Emailen er sendt til " & email & "."
End Select
%>
--
Dette indlæg er sendt fra
http://www.html.dk
* Søg og læs i de danske nyhedsgrupper om webdesign
* Tutorials og artikler om webdesign på dansk