husk en anden gang at markere hvilken linie der er linie 161, det vil lette
arbejdet betydeligt - og dermed chanchen får at du får hjælp
linie 161 er som jeg kan regnne ud
Set JMail = Server.CreateObject ("JMail.SMTPMail")
altså er der noget der ikke fungere på web-serveren, hvis dette er rigtigt
skal du fejlmelde det hos din web-udbyder, eller bare vente og se om fejlen
blever ved
hilsen
www.fiduusen.dk
"Søren" <srbak@tdk.dk> wrote in message news:9gvdp7$l8j$1@sunsite.dk...
> Hej
> jeg har lavet en side som kan vidersende til en email ved hjælp
> af jmail, dette har der hidtil ikke været nogle problemmer i. men
> da jeg skulle tilføje noget til siden får jeg følgende fejl
>
> fejl i linie 161
>
> på forhånd tak. og jeg kan evt sende til en email adr.
>
> koden ser sådan ud..
>
> <%
> Select Case Request.Querystring("id")
>
> Case ""
> skrivservernavn = "Server Navn: " & Request.Form("servernavn") &
> " "
>
> skrivtdnummer = "TD Nummer: " & Request.Form("tdnummer") & " "
>
>
> Select Case Request.Form("accdom01")
> Case "10"
> skrivaccdom01 = "koncernnet accdom01 10mbit"
> Case "100"
> skrivaccdom01 = "koncernnet accdom01 100mbit"
> End Select
>
>
> Select Case Request.Form("backupnet")
> Case "10"
> skrivbackupnet = "Backupnet 10mbit"
> Case "100"
> skrivbackupnet = "Backupnet 100mbit"
> End Select
>
>
>
> Select Case Request.Form("remote")
> Case "ingen"
> skrivremote = "remote: ingen"
> Case "10"
> skrivremote = "remote: 10mbit"
> End Select
>
>
> skrivcluster = "Cluster Navn: " & Request.Form("cluster") & " "
>
> skrivclustermac = "ClusterNetworkAddress: " &
> Request.Form("clustermac") & " "
>
> skrivplacering = "Server Placering: " & Request.Form("placering")
> & " "
>
> skrivracknr = "Rack NR: " & Request.Form("racknr") & " "
>
>
> Select Case Request.Form("kabel")
> Case "venstre"
> skrivkabel = "kabel: venstre"
> Case "højre"
> skrivkabel = "kabel: højre"
> End Select
>
>
> Select Case Request.Form("rak")
> Case "høj"
> skrivrak = "rak: høj"
> Case "midt"
> skrivrak = "rak: midt"
> Case "lav"
> skrivrak = "rak: lav"
> End Select
>
> skrivopset = "Forventet Opsætning: " & Request.Form("opset") & "
> "
>
> skrivbem = "Bemærkning: " & Request.Form("bem") & " "
>
> skrivafsemail = "afsenders email: " & Request.Form("afsemail") &
> " "
>
>
>
> %>
>
>
> <html>
> <title>Netværksbestilling formular</title>
> <head>
>
> </head>
>
> <% Response.Write skrivservernavn %>
> <% Response.Write skrivtdnummer %>
> <% Response.Write skrivaccdom01 %>
> <% Response.Write skrivbackupnet %>
> <% Response.Write skrivremote %>
> <% Response.Write skrivcluster %>
> <% Response.Write skrivclustermac %>
> <% Response.Write skrivplacering %>
> <% Response.Write skrivracknr %>
> <% Response.Write skrivkabel %>
> <% Response.Write skrivrack %>
> <% Response.Write skrivopset %>
> <% Response.Write skrivbem %>
> <% Response.Write skrivafsemail %>
>
>
>
> <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="<%=skrivaccdom01%>" name="accdom01">
> <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="<%=skrivclustermac%>"
> name="clustermac">
> <input type="hidden" value="<%=skrivplacering%>"
> name="placering">
> <input type="hidden" value="<%=skrivracknr%>" name="racknr">
> <input type="hidden" value="<%=skrivkabel%>" name="kabel">
> <input type="hidden" value="<%=skrivrack%>" name="rack">
> <input type="hidden" value="<%=skrivopset%>" name="opset">
> <input type="hidden" value="<%=skrivbem%>" name="bem">
> <input type="hidden" value="<%=skrivafsemail%>" name="afsemail">
>
> <!-- Hvis brugeren selv skal kunne bestemme det: -->
>
> Skriv modtagers email:
> <input type="text" name="email" size="50">
>
>
>
> <input type="submit" value="Send til email">
>
> </body>
> </html>
>
> <%
> Case "send"
>
> servernavn = Request.Form("servernavn")
> tdnummer = Request.Form("tdnummer")
> accdom01 = Request.Form("accdom01")
> backupnet = Request.Form("backupnet")
> remote = Request.Form("remote")
> cluster = Request.Form("cluster")
> clustermac = Request.Form("clustermac")
> placering = Request.Form("placering")
> racknr = Request.Form("racknr")
> kabel = Request.Form("kabel")
> rack = Request.Form("rack")
> opset = Request.Form("opset")
> bem = Request.Form("bem")
> afsemail = Request.Form("afsemail")
>
> Name = "René Møller"
> SenderEmail = "rml@tdk.dk"
> Subject = "Netværks Bestilling"
> Recipient = email
> Body = servernavn & vbCrLf & tdnummer & vbCrLf & accdom01 &
> vbCrLf & backupnet & vbCrLf & remote & vbCrLf & cluster & vbCrLf
> & clustermac & vbCrLf & placering & vbCrLf & racknr & vbCrLf &
> kabel & vbCrLf & rack & vbCrLf & racknr & vbCrLf & opset& vbCrLf
> & bem & vbCrLf & afsemail & vbCrLf
>
> 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
> %>
>
>
>
>
> --
> Brug Validator service:
http://www.html.dk/validator
> - Tast din URL én gang, og validér dokumentet hos 12 validatorer
> - Understøtter HTML, CSS og søgemaskineoptimering