Søg
Avatar billede jr40 Nybegynder
22. oktober 2005 - 21:32 Der er 24 kommentarer og
1 løsning

Rapporter fejl script

Som titelen lyder, så søger jeg et script ligesom på activedeveloper.dk, hvor man kan Rapporter fejl som så bliver sendt til en mail adresse..

skal helst være jmail.
Avatar billede softspot Forsker
23. oktober 2005 - 00:42 #1
Kan du ikke bruge dette eksempel på brugen af JMail til at sende dine rapporter:

http://www.dimac.net/Products/w3JMail/Version43/Examples/Simple.htm
Avatar billede jr40 Nybegynder
25. oktober 2005 - 21:21 #2
yes jeg har dette her jmail script som sende den url man er på...

men vil gerne have lavet det om så man kun har mulighed for af skrive lidt tekst og ellers sende det afsted til en fast email.

<%
navn = request("navn")

if  Request.ServerVariables("REQUEST_METHOD") = "POST" then

htmlmessage = "<html><head><title>Anbefaling</title></head>" & _
  "<body>Hej!<br>" & _
  "Det er " & navn & "<br><br>" & _
  "vil vise dig dette her link<br><br>" & _
  "<a href=""http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & """>" & _
  "http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & "</a><br>" & _
  "Dette er Danmarks største Basket kort website." & _
  "</body></html>"
 
textmessage = "Hej!" & vbCrLf & _
  "Det er " & navn & vbCrLf & vbCrLf & _
  " Tjek dette her link ud" & vbCrLf & vbCrLf & _
  "http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & vbCrLf & _
  "Dette er Danmarks største Basket kort website." & vbCrLf & vbCrLf

set msg = Server.CreateObject("JMail.Message")
msg.From = "info@basket-kort.dk"
msg.FromName = "Basket-kort.dk Mailrobot"

msg.AddRecipient request("ad")

msg.Subject = "Anbefaling"

msg.HTMLBody = htmlmessage
msg.Body = textmessage

if msg.Send( "smtp.cliche.dk" ) then
  response.write "<p>Din anbefaling er nu sendt.</p>"
else
  response.write "<p>Der er sket en fejl!</p>"
end if
end if %>
</p>
<form action="produkt_boks.asp" method="POST">
  <table cellpadding="2" cellspacing="2" border="0">
    <tr>
      <td><input type="TEXT" onFocus="this.form.ad.select()" value="Modtagerens e-mail?"
      name="ad" size="17"> </td>
    </tr>
    <tr>
      <td><input type="TEXT" onFocus="this.form.navn.select()" value="Afsenderens navn?"
      name="navn" size="17"> </td>
    </tr>
    <tr>
      <td><input name="submit" type="submit" value="Send"> </td>
    </tr>
  </table>
Avatar billede softspot Forsker
26. oktober 2005 - 01:05 #3
Kan du bruge noget, i stil med dette:

<%
if  Request.ServerVariables("REQUEST_METHOD") = "POST" then
  htmlmessage = "<html><head><title></title></head><body>" & _
    request.form("besked") & "</body></html>"
  textmessage = request.form("besked")

  set msg = Server.CreateObject("JMail.Message")
  msg.From = "info@basket-kort.dk"
  msg.FromName = "Basket-kort.dk Mailrobot"

  msg.AddRecipient "error@basket-kort.dk"
  msg.Subject = "Fejlrapport"

  msg.HTMLBody = htmlmessage
  msg.Body = textmessage

  if msg.Send( "smtp.cliche.dk" ) then
    response.write "<p>Din anbefaling er nu sendt.</p>"
  else
    response.write "<p>Der er sket en fejl!</p>"
  end if
end if %>

<form action="produkt_boks.asp" method="POST">
  <table cellpadding="2" cellspacing="2" border="0">
    <tr>
      <td><textarea onfocus="this.select()" name="besked"></textarea></td>
    </tr>
    <tr>
      <td><input type="submit" name="send" value="Send"></td>
    </tr>
  </table>
</form>
Avatar billede jr40 Nybegynder
28. oktober 2005 - 22:38 #4
Yes den kodestump virker kanont, har dog en lille ting til det:

Ang:<form action="siden.asp" method="POST">

Jeg køre som sagt den kode stump via en include fil, så det er hele tiden en ny side, så kan man ikke på en eller anden måde gøre af den selv finder form action siden.?

Kan du følge mig.?
Avatar billede jr40 Nybegynder
28. oktober 2005 - 22:43 #5
Glemte af høre om en ting til,, hvordan gør man så der også bliver vist mellemrum i den mail man modtager.?

Hvis man skriver f.eks.:

Hey

Hvordan går det.



Så bliver det vist sådan her:

Hey Hvordan går det.
Avatar billede softspot Forsker
28. oktober 2005 - 23:58 #6
Du kan benytte denne generiske metode til at kalde den aktuelle side:

<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST">

Det med "mellemrum" (som så her må betyder linieskift :)) kan du klare ved at lave en replace på vbCrLf --- I DEN TEKST SOM DU LÆGGER I HTMLBODY! --- med <br>. Således:

  msg.HTMLBody = replace(htmlmessage, vbCrLf, "<br>")

Den besked du lægger i msg.Body er tekstbaseret og skal derfor beholde sit normale linieskift (og altså ikke ændres).
Avatar billede jr40 Nybegynder
29. oktober 2005 - 00:04 #7
Hehe rigtigt softspot... Linjeskift hedder det jo :)   
(Det er jo sent hehe...)

Ang. den vbcrlf,, så er det sku nice jeg ved det nu til fremover da det er en meget rar ting af vide.

Mange tak for hjælpen..


*Kunne man lave et alm. javascript popup link hvor man kan skrive en fejl meddelse...
Spørgsmålet er som om den kan hente den url fra siden, for popup url siden.    get it?
Avatar billede jr40 Nybegynder
29. oktober 2005 - 00:05 #8
Ændering:
Spørgsmålet er som om den kan hente den url fra siden, istedet for popup url siden.    get it?
Avatar billede softspot Forsker
29. oktober 2005 - 00:11 #9
Umiddelbart ligger url på "modersiden" i location.href. Du kan få fat i "modersiden" via window.opener på popup-vinduet, så det skulle jeg da mene.

Meeen, hvordan er det lige helt præcis det skal fungere, for popupvinduet skal vel ikke bruge "modersidens" url til noget. Når man sender en fejlrapport fra popupvinduet, så skal det vel bare kvittere og kunne lukkes af brugeren... eller hvad?
Avatar billede jr40 Nybegynder
29. oktober 2005 - 00:15 #10
Som du kan se her på siden:
http://www.basket-kort.dk/19.asp
Så har vi det fejl rapport script i bunden..
Men min ide var af man skulle trykke op Rapporter fejl linket, også vil samme fejl rapport script komme frem i en ny pop boks.

Men med det fejl rapport script der er nu,, så ville den jo bare sende selve pop.asp vinduet til min mail, istedet for den side hvor man trykkede på linket til fejl rapport.
Avatar billede softspot Forsker
29. oktober 2005 - 00:38 #11
Såvidt jeg kan se, vil den sende den besked man skriver i tekstfeltet og ikke andet (ikke hvis du har brugt den kode fra kommentaren 26/10-2005 01:05:27.

Hvis du gerne vil have adressen på siden med, så skal den lige lægges ind i mailen også...

Flg. kode skal lægges i pop.asp (under antagelsen at det er den side der vises i en popup):

<%
if  Request.ServerVariables("REQUEST_METHOD") = "POST" then
  htmlmessage = "<html><head><title>Fejlrapport</title></head><body>" & _
    "Fejlrapport for siden: " & _
    request.form("errorurl") & "<br>" & _
    replace(request.form("besked"),vbCrLf,"<br>") & "</body></html>"
  textmessage = "Fejlrapport for siden: " & _
    request.form("errorurl") & vbCrLf & _
    request.form("besked")

  set msg = Server.CreateObject("JMail.Message")
  msg.From = "info@basket-kort.dk"
  msg.FromName = "Basket-kort.dk Mailrobot"

  msg.AddRecipient "error@basket-kort.dk"
  msg.Subject = "Fejlrapport"

  msg.HTMLBody = htmlmessage
  msg.Body = textmessage

  if msg.Send( "smtp.cliche.dk" ) then
    response.write "<p>Din anbefaling er nu sendt.</p>"
  else
    response.write "<p>Der er sket en fejl!</p>"
  end if
end if %>

<script type="text/javascript">
// sætter den url som modervinduet står på i øjeblikket...
// eller en standardtekst, hvis modervinduet ikke kan findes.
function doPostback(obj) {
  if(obj) {
    if(window.opener)
      obj.form.errorurl.value = window.opener.location.href;
    else
      obj.form.errorurl.value = "ikke tilgængelig";
  }
  return true;
}
</script>

<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="POST">
  <input type="hidden" name="errorurl" value="">
  <table cellpadding="2" cellspacing="2" border="0">
    <tr>
      <td><textarea onfocus="this.select()" name="besked"></textarea></td>
    </tr>
    <tr>
      <td><input type="submit" name="send" value="Send" onclick="doPostback(this)"></td>
    </tr>
  </table>
</form>
Avatar billede jr40 Nybegynder
29. oktober 2005 - 00:47 #12
Kanont soft... lige sådan jeg mente...

Du har været en stor hjælp, mange tak..

bare smid et svar.
Avatar billede softspot Forsker
29. oktober 2005 - 00:50 #13
Dejligt at høre - velbekomme :)
Avatar billede jr40 Nybegynder
29. oktober 2005 - 01:17 #14
Hej Igen softspot

Jeg har dette her anbefal script, samt jeg også har lavet link til ligesom det rapport script:

Men det lader ikke til af det anbefal script kun server popup vinduets url. :/

Ville bare høre om du kunne se hvad jeg mangler.

anbefal scriptet:
  <%
'~~~~~~~~~~~~~~~~~~~~~        Lavet af (C)Søren Peter Fynboe 2000          ~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~ Support på spf@mail1.stofanet.dk/ ICQ UIN #33029955 ~~~~~~~~~~~~~~~~~~~~~

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' Konfigurér med smtp-server, afsender og tekst
' Brug vbCrLf til linjeskift i indholdet (body)
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'_______________________________________________________________________________________________

navn = request("navn")

if  Request.ServerVariables("REQUEST_METHOD") = "POST" then

htmlmessage = "<html><head><title>Anbefaling</title></head>" & _
  "<body>Hej!<br>" & _
  "Det er " & navn & "<br><br>" & _
  "vil vise dig dette her link<br><br>" & _
  "<a href=""http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & """>" & _
  "http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & "</a><br>" & _
      request.form("errorurl") & "<br>" & _
  "Dette er Danmarks største Basket kort website." & _
  "</body></html>"
 
textmessage = "Hej!" & vbCrLf & _
  "Det er " & navn & vbCrLf & vbCrLf & _
  " Tjek dette her link ud" & vbCrLf & vbCrLf & _
  "http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & vbCrLf & _
      request.form("errorurl") & vbCrLf & _
  "Dette er Danmarks største Basket kort website." & vbCrLf & vbCrLf

set msg = Server.CreateObject("JMail.Message")
msg.From = "info@basket-kort.dk"
msg.FromName = "Basket-kort.dk Mailrobot"

msg.AddRecipient request("ad")

msg.Subject = "Anbefaling"

msg.HTMLBody = htmlmessage
msg.Body = textmessage

if msg.Send( "smtp.cliche.dk" ) then
  response.write "<p>Din anbefaling er nu sendt.</p>"
else
  response.write "<p>Der er sket en fejl!</p>"
end if
end if %>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script type="text/javascript">
// sætter den url som modervinduet står på i øjeblikket...
// eller en standardtekst, hvis modervinduet ikke kan findes.
function doPostback(obj) {
  if(obj) {
    if(window.opener)
      obj.form.errorurl.value = window.opener.location.href;
    else
      obj.form.errorurl.value = "ikke tilgængelig";
  }
  return true;
}
</script>
<form action="anbef.asp" METHOD="POST">
        <table cellpadding="2" cellspacing="2" border="1">
          <tr>
            <td><div align="center">
                <center>
                  <h2>Anbefal Minside</h2>
                </center>
              </div></td>
          </tr>
          <tr>
            <td><input TYPE="TEXT" onFocus="this.form.ad.select()" value="Modtagerens e-mail?"
      NAME="ad" SIZE="17"> </td>
          </tr>
          <tr>
            <td><input TYPE="TEXT" onFocus="this.form.navn.select()" value="Afsenderens navn?"
      NAME="navn" SIZE="17"> </td>
          </tr>
          <tr>
            <td><input name="submit" type="submit" value="Send"> </td>
          </tr>
        </table>
      </form>
Avatar billede jr40 Nybegynder
29. oktober 2005 - 01:18 #15
server=skriver
Avatar billede softspot Forsker
29. oktober 2005 - 01:22 #16
Ja, du mangler det skjulte felt jeg lagde på den anden form :)

  <input type="hidden" name="errorurl" value="">

det skal bare smides ind lige efter <form>...
Avatar billede softspot Forsker
29. oktober 2005 - 01:25 #17
...men du mangler da også at kalde scriptet doPostback (eller er jeg bare meget træt?)...
Avatar billede jr40 Nybegynder
29. oktober 2005 - 01:26 #18
Jo dopostback er med:

Men den skriver stadig ikke den skide url. :)

koden ser sådan her ud nu:

  <%
'~~~~~~~~~~~~~~~~~~~~~        Lavet af (C)Søren Peter Fynboe 2000          ~~~~~~~~~~~~~~~~~~~~~
'~~~~~~~~~~~~~~~~~~~~~ Support på spf@mail1.stofanet.dk/ ICQ UIN #33029955 ~~~~~~~~~~~~~~~~~~~~~

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
' Konfigurér med smtp-server, afsender og tekst
' Brug vbCrLf til linjeskift i indholdet (body)
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'_______________________________________________________________________________________________

navn = request("navn")

if  Request.ServerVariables("REQUEST_METHOD") = "POST" then

htmlmessage = "<html><head><title>Anbefaling</title></head>" & _
  "<body>Hej!<br>" & _
  "Det er " & navn & "<br><br>" & _
  "vil vise dig dette her link<br><br>" & _
  "<a href=""http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & """>" & _
  "http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & "</a><br>" & _
      request.form("errorurl") & "<br>" & _
  "Dette er Danmarks største Basket kort website." & _
  "</body></html>"
 
textmessage = "Hej!" & vbCrLf & _
  "Det er " & navn & vbCrLf & vbCrLf & _
  " Tjek dette her link ud" & vbCrLf & vbCrLf & _
  "http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & vbCrLf & _
      request.form("errorurl") & vbCrLf & _
  "Dette er Danmarks største Basket kort website." & vbCrLf & vbCrLf

set msg = Server.CreateObject("JMail.Message")
msg.From = "info@basket-kort.dk"
msg.FromName = "Basket-kort.dk Mailrobot"

msg.AddRecipient request("ad")

msg.Subject = "Anbefaling"

msg.HTMLBody = htmlmessage
msg.Body = textmessage

if msg.Send( "smtp.cliche.dk" ) then
  response.write "<p>Din anbefaling er nu sendt.</p>"
else
  response.write "<p>Der er sket en fejl!</p>"
end if
end if %>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script type="text/javascript">
// sætter den url som modervinduet står på i øjeblikket...
// eller en standardtekst, hvis modervinduet ikke kan findes.
function doPostback(obj) {
  if(obj) {
    if(window.opener)
      obj.form.errorurl.value = window.opener.location.href;
    else
      obj.form.errorurl.value = "ikke tilgængelig";
  }
  return true;
}
</script>
<form action="anbef.asp" METHOD="POST">
  <input type="hidden" name="errorurl" value="">
        <table cellpadding="2" cellspacing="2" border="1">
          <tr>
            <td><div align="center">
                <center>
                  <h2>Anbefal Minside</h2>
                </center>
              </div></td>
          </tr>
          <tr>
            <td><input TYPE="TEXT" onFocus="this.form.ad.select()" value="Modtagerens e-mail?"
      NAME="ad" SIZE="17"> </td>
          </tr>
          <tr>
            <td><input TYPE="TEXT" onFocus="this.form.navn.select()" value="Afsenderens navn?"
      NAME="navn" SIZE="17"> </td>
          </tr>
          <tr>
            <td><input name="submit" type="submit" value="Send"> </td>
          </tr>
        </table>
      </form>
Avatar billede softspot Forsker
29. oktober 2005 - 01:29 #19
Jo, men den bliver ikke kaldt :)

Du skal aktivere funktionen et eller andet sted - og det vil jeg da anbefale at du gør når brugeren klikker på send-knappen. Således:

<input name="submit" type="submit" value="Send" onclick="doPostback(this)">
Avatar billede jr40 Nybegynder
29. oktober 2005 - 01:40 #20
Ahh ja for pokker da.! havde jeg helt overset...

*Du skulle ikke vide hvordan man gør et link aktiv.?
Fordi med request.form("errorurl") & "<br>" & _ 
bliver linket ikke aktivt, og man skal dermed manual copy paste det over i ens browser, hvis du kan følge mig selvom det er sent. :)
Avatar billede softspot Forsker
29. oktober 2005 - 01:48 #21
Du kan bare smide et html-link omkring teksten (stadig kun i htmlmessage-strengen) - nøjagtigt som vi gjorde med linket ovenfor i htmlmessage...
Avatar billede softspot Forsker
29. oktober 2005 - 01:49 #22
htmlmessage = "<html><head><title>Anbefaling</title></head>" & _
  "<body>Hej!<br>" & _
  "Det er " & navn & "<br><br>" & _
  "vil vise dig dette her link<br><br>" & _
  "<a href=""http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & """>" & _
  "http://www.basket-kort.dk/" & request.servervariables("SCRIPT_NAME") & "</a><br>" & _
  "<a href=""" & request.form("errorurl") & """>" & request.form("errorurl") & "</a><br>" & _
  "Dette er Danmarks største Basket kort website." & _
  "</body></html>"
Avatar billede softspot Forsker
29. oktober 2005 - 01:50 #23
Det er muligvis ikke nok bare at angive request.form("errorurl") alene fordi det ikke er den absolutte adresse (altså med http:// og alt det der knald), men så kan du bare sætte http:// osv. foran som gjort i linket ovenover...
Avatar billede jr40 Nybegynder
29. oktober 2005 - 01:53 #24
Yeps man kan bare nøjes med denne her:
"<a href=""" & request.form("errorurl") & """>" & request.form("errorurl") & "</a><br>" & _

tak
Avatar billede softspot Forsker
29. oktober 2005 - 02:00 #25
Velbekomme... :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 13:08 overføre internet til gæstehus Af Malm i Andet hardware
13/0719:53 Hotspot problemer på Samsung mobil med 2 SIM kort Af Gamba i Mobilnetværk
11/0722:40 Nye toldregler = nye svindelmuligheder Af nu_igen i Andet software
09/0715:37 Et wifi net til en kolonihave uden wifi Af Andershoegh i Andet hardware
09/0714:29 IIS Kan ikke Redirecte til anden side Af bsn i Webservere
White papers
Flere white papers »