---

Hej! Jeg har følgende kode, som jeg prøver at få op og køre. Det
underlige ved edn er, at elseif sætningen virker som den egentlig
skal, bortset fra at jeg ikke kan skrive noget ud fra den. DVS at
der bliver sendt en mail derindefra, og det går fint nok, men jeg
kan ikke få den til at skrive noget som helst på skærmen. Det er
garanteret bare en dum fejl som jeg har placeret et eller andet
kryptisk sted. Håber der er nogen der gider bruge et øjeblik på
det.
Takker mange gange!
Sjuske


elseif request.querystring("mode")="send" then
response.write("jaså")
   billede = request("billede")
   ditnavn = Request("ditnavn")
   dinmail = Request("dinmail")
   vennavn = Request("vennavn")
   venmail = Request("venmail")
   artikel = Request("artikel")
   besked = Request("besked")
   dato= date
   dato= day(dato) &"/" & month(dato) & "/" & year(dato)
   %>
   <script language="javascript" type="text/javascript">
   alert(dato);</script>
   <%
   Dim conn1
   set conn1 = server.createobject("adodb.connection")
   conn1.open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\web\amnesti.dk\database\ecard.mdb"


Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "pasmtp.tele.dk"
Mailer.CharSet = 2
Mailer.FromName = ditnavn
Mailer.FromAddress = "mitnavn@amnesti.dk"
Mailer.AddRecipient venmail,venmail
Mailer.Subject = "E-postkort"
Mailer.BodyText = "testkort"
'Hej!<br>"&ditnavn&"har sendt dig et e-postkort fra Amnesty
Internationals undervisningssite. Du kan se kortet her
http//www.amnesti.dk/ecard/show.asp?ID="&KortID

if not Mailer.SendMail then
Response.write " Mailing Failed... Error is: <br>"
Response.Write Mailer.Response
else
Response.Write (" sent successfully...<p>")
end if

Set Mailer = nothing

   
   response.redirect("http://www.amnesty.dk/undervisning/")



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

sjuske wrote:
> men jeg
> kan ikke få den til at skrive noget som helst på skærmen.

Mener du dit javascript eller dine response.write?

Jeg kan godt forstå du ikke få noget frem i alert-boksen, for du har en
*clientside* variabel, der hedder dato, og den er ikke defineret og har
heller ikke nogen værdi.

Jeg kan se du har en *serverside* variabel der hedder dato, og for at få
den i javascriptet skal du gøre således:
<script language="javascript" type="text/javascript">
alert("<%=dato%>");
</script>

Hvis du prøver at vælge "Vis kilde" kan du prøve at se forskellen hhv.
før og efter du har lavet denne rettelse.

--
Mvh
Jeppe

We have unmistakable proof that throughout all past time, there has been
a ceaseless devouring of the weak by the strong.

---

Hverken den ene eller den anden virker - heller ikke når jeg får den
erklæret ordenligt. Desværre

--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

sjuske wrote:
> Hverken den ene eller den anden virker - heller ikke når jeg får den
> erklæret ordenligt. Desværre
>

Så må du komme med link til siden. Også meget gerne et link til
ASP-kildekoden (kopier fx til .txt).

--
Mvh
Jeppe

We have unmistakable proof that throughout all past time, there has been
a ceaseless devouring of the weak by the strong.

---

http://amnesty.66.testsider.dk/doc.asp?page=160&lang=da - her er linket til
siden. Det er noget e-kort senderi - og det er først når man har set kortet
og prøver at sende det, at det går galt.
siden kører over en cms, så det er lidt svært med koden. Kan højst paste
koden ind her (ked af at gøre det, men alligevel):

<!--#include file="dbInclude.inc.asp"-->


<%
if request.querystring("mode")="preview" then


   billede = request("billede")
   ditnavn = Request("ditnavn")
   dinmail = Request("dinmail")
   vennavn = Request("vennavn")
   venmail = Request("venmail")
   artikel = Request("artikel")
   besked = Request("besked")
   dato= date
   dato= day(dato) &"/" & month(dato) & "/" & year(dato)

%>
   <div style=" width:700px; padding:20px; background-color:#000033;
border-color:#000033; color:#FFFFFF;">
<%
   response.Write("<div><p style='padding:10px; float:left;
vertical-align:top;'><img src='"&billede&"' style='border: 0px;'></p><br>")
   response.Write("<p style='padding-left:10px; color:#FF6600;
vertical-align:bottom;'><b>"&artikel&"</b><br><br><br></p>")
   response.Write("<p style='padding-left:10px; color:#FF6600;
vertical-align:bottom;'>Amnesty International har fået en ny
undervisningshjemmeside. Der kan du læse om menneskerettigheder, du kan være
med til at kæmpe for at menneskerettigheder overholdes i verden. Du kan også
se tegnefilm og løse sjove quizzer. Klik ind på <a style='color:#FFFFFF;'
href='www.amnesty.dk/undervinsingog'>http://www.amnesty.dk/uindervisning'>www.amnesty.dk/undervinsingog
gå på opdagelse.</p></div></div>")
   response.Write("<div style=' width:700px; padding:20px; padding-top:0px;
background-color:#000033; border-color:#000033; color:#FFFFFF;'><p
style='float:left;'>Kære "&vennavn&"!</p><br><br>")
   response.Write("<p>"&besked&"</p><br>")
   response.Write("<p>Med venlig hilsen "&ditnavn&"</p>")
   
%>
   </div>
   <form id="form" action="http://<% =Request.querystring("url")
%>?mode=send&page=<% =Request.querystring("page") %>&lang=<%
=Request.querystring("lang") %>" method="post">
      <input type="hidden" name="billede" value="<% = billede%>" />
      <input type="hidden" name="ditnavn" value="<% = ditnavn %>" />
      <input type="hidden" name="dinmail" value="<% = dinmail %>" />
      <input type="hidden" name="vennavn" value="<% = vennavn %>" />
      <input type="hidden" name="venmail" value="<% = venmail %>" />
      <input type="hidden" name="artikel" value="<% = artikel %>" />
      <input type="hidden" name="besked" value="<% = besked %>" />
      <p><br /><br /><input type="button" value="Tilbage"
onclick="javascript:history.back(-1)" />&nbsp;<input type="submit"
value="Send e-postkort" /></p>
      </form>
   <%


'---------------------------------------------------------------------------
-------------------------------------------------------
elseif request.querystring("mode")="send" then

   billede = request("billede")
   ditnavn = Request("ditnavn")
   dinmail = Request("dinmail")
   vennavn = Request("vennavn")
   venmail = Request("venmail")
   artikel = Request("artikel")
   besked = Request("besked")
   dato= date
   dato= day(dato) &"/" & month(dato) & "/" & year(dato)

   Dim conn1
   set conn1 = server.createobject("adodb.connection")
   conn1.open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=d:\web\amnesti.dk\database\ecard.mdb"


      '* -----------------------------------------------------
      '* Sletter beskeder der er over 2 måneder gamle
      '* -----------------------------------------------------
      
   dim gammeldato
   gammeldato = DateAdd("m", -2, FormatDateTime(Now(), vbShortDate))
   gammeldato = day(gammeldato) &"/" & month(gammeldato) & "/" &
year(gammeldato)

         
      strSql = "Select * From Kort"
      set Record = conn1.execute(strSql)
      Do while not Record.eof
      dim rigtigdato
      rigtigdato = Record("Dato")
      rigtigdato = day(rigtigdato) &"/" & month(rigtigdato) & "/" &
year(rigtigdato)
      response.write(gammeldato&rigtigdato)
         If DateValue(rigtigdato) < DateValue(gammeldato) Then
            SqlDelete = "Delete from Kort where KortID = " & Record("KortID")
            conn1.Execute(SqlDelete)
         End if
         Record.MoveNext
      Loop


      '* -----------------------------------------------------
      '* Sætter ny besked ind
      '* -----------------------------------------------------

   Set img = Server.CreateObject("ADODB.Recordset")
      img.Open "SELECT imgID FROM img WHERE (imgPath='"&billede&"')", conn1
response.write(billede)
   do until img.EOF
    for each x in img.Fields
    dim imgID
    imgID=x.value
    next
    img.MoveNext
   loop
   response.write(imgID)

   Set art = Server.CreateObject("ADODB.Recordset")
      art.Open "SELECT ArtikelID FROM Artikel WHERE
(ArtikelTekst='"&artikel&"')", conn1


   do until art.EOF
    for each x in art.Fields
    dim artID
    artID=x.value
    next
    art.MoveNext
   loop



   Sql = "Insert into kort (imgID, SenderNavn, SenderMail, VenNavn, VenMail,
ArtikelID, Fritekst, Dato) values('" & imgID & "','" & ditnavn & "','" &
dinmail & "','" & vennavn & "','" & venmail & "','" & artID & "','" & besked
& "','" & dato & "')"
   conn1.Execute(Sql)
   Set rsIdentity = conn1.Execute("SELECT @@IDENTITY as ID FROM kort")
   KortID = rsIdentity("ID")





Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "pasmtp.tele.dk"
Mailer.CharSet = 2
Mailer.FromName = ditnavn
Mailer.FromAddress = "mitnavn@amnesti.dk"
Mailer.AddRecipient venmail,venmail
Mailer.Subject = "E-postkort"
Mailer.BodyText = "testkort"
'Hej!<br>"&ditnavn&"har sendt dig et e-postkort fra Amnesty Internationals
undervisningssite. Du kan se kortet her
http//www.amnesti.dk/ecard/show.asp?ID="&KortID

if not Mailer.SendMail then
Response.write " Mailing Failed... Error is: <br>"
Response.Write Mailer.Response
else
Response.Write (" sent successfully...<p>")
end if

Set Mailer = nothing

   
   response.redirect("http://www.amnesty.dk/undervisning/")


   '--------------------------------------------------------------------------
----------------------------------------------------------------
else


   %>

   <form id="form" name="myForm" action="http://<% =Request.querystring("url")
%>?mode=preview&page=<% =Request.querystring("page") %>&lang=<%
=Request.querystring("lang") %>" method="post">

   <p><strong>Vælg billede:<br></strong>
   
   <table><tr>
   <td style="vertical-align:bottom;"><input type="radio"
style="margin-bottom:20px; margin-top:20px;" checked name="billede"
value="http://www.amnesti.dk/ecard/1.png">
src="http://www.amnesti.dk/ecard/1.png" style="margin-bottom:20px;
margin-top:20px; border: 0px; margin-left:5px; margin-right:10px;"
height="120"></td>
   <td style="vertical-align:bottom;"><input type="radio"
style="margin-bottom:20px; margin-top:20px;" name="billede"
value="http://www.amnesti.dk/ecard/2.png">
src="http://www.amnesti.dk/ecard/2.png" style="margin-bottom:20px;
margin-top:20px; border: 0px; margin-left:5px; margin-right:10px; "
height="120"></td>
   <td style="vertical-align:bottom;"><input type="radio"
style="margin-bottom:20px; margin-top:20px;" name="billede"
value="http://www.amnesti.dk/ecard/3.png">
src="http://www.amnesti.dk/ecard/3.png" style="margin-bottom:20px;
margin-top:20px; border: 0px; margin-left:5px; margin-right:10px;"
width="120"></td>
   <td style="vertical-align:bottom;"><input type="radio"
style="margin-bottom:20px; margin-top:20px;" name="billede"
value="http://www.amnesti.dk/ecard/4.png">
src="http://www.amnesti.dk/ecard/4.png" style="margin-bottom:20px;
margin-top:20px; border: 0px; margin-left:5px; margin-right:10px;"
width="120"></td>
   </tr><tr>
   <td style="vertical-align:bottom;"><input type="radio"
style="margin-bottom:20px; margin-top:20px;" name="billede"
value="http://www.amnesti.dk/ecard/5.png">
src="http://www.amnesti.dk/ecard/5.png" style="margin-bottom:20px;
margin-top:20px; border: 0px; margin-left:5px; margin-right:10px;"
height="120"></td>
   <td style="vertical-align:bottom;"><input type="radio"
style="margin-bottom:20px; margin-top:20px;" name="billede"
value="http://www.amnesti.dk/ecard/6.png">
src="http://www.amnesti.dk/ecard/6.png" style="margin-bottom:20px;
margin-top:20px; border: 0px; margin-left:5px; margin-right:10px;"
height="120"></td>
   <td style="vertical-align:bottom;"><input type="radio"
style="margin-bottom:20px; margin-top:20px;" name="billede"
value="http://www.amnesti.dk/ecard/7.png">
src="http://www.amnesti.dk/ecard/7.png" style="margin-bottom:20px;
margin-top:20px; border: 0px; margin-left:5px; margin-right:10px;"
width="120"></td>



   </tr></table>

   <p><strong>Modtagers navn:<br></strong><input type="text" value=""
name="vennavn" size="22" /></p>
   <p><strong>Modtagers e-mail:<br></strong><input type="text" value=""
name="venmail" size="40" /></p>
   <p><strong>Dit navn:<br></strong><input type="text" value="" name="ditnavn"
size="22" /></p>
   <p><strong>Din e-mail:<br></strong><input type="text" value=""
name="dinmail" size="40" /></p>

   <h3>Send et budskab med din hilsen:</h3>
   <%
   Set art0 = Server.CreateObject("ADODB.Recordset")
      art0.Open "SELECT (ArtikelTekst) FROM Artikel WHERE (ArtikelID=1)", conn
response.write("<table style='background-color:#ECECEC'><tr><td>")
   do until art0.EOF
    for each x in art0.Fields
    dim ArtTxt0
    ArtTxt0=x.value
    response.Write("<input type='radio' checked name='artikel'
value='"&ArtTxt0&"'>"&ArtTxt0&"<br><br>")
    next
    art0.MoveNext
   loop
response.write("</td></tr></table><br>")
   
   
   Set art = Server.CreateObject("ADODB.Recordset")
      art.Open "SELECT (ArtikelTekst) FROM Artikel WHERE (ArtikelID>1)", conn

   do until art.EOF
    for each x in art.Fields
    response.write("<table style='background-color:#ECECEC'><tr><td>")
    dim ArtTxt
    ArtTxt=x.value
    response.Write("<input type='radio' name='artikel'
value='"&ArtTxt&"'>"&ArtTxt&"<br><br>")
    next
    art.MoveNext
       response.write("</td></tr></table><br>")
   loop

   %>
   <br><p><strong>Evt. besked:<br></strong></p>
   <textarea name="besked" wrap="hatd" cols="50" rows="5"
   onKeyDown="textCounter(document.myForm.besked,document.myForm.remLen1,500)"
   onKeyUp="textCounter(document.myForm.besked,document.myForm.remLen1,500)"><
/textarea>
   <input readonly type="text" name="remLen1" size="1" maxlength="3"
value="500"> tegn tilbage

<script language="javascript" type="text/javascript">
function textCounter(field,cntfield,maxlimit) {
if (field.value.length > maxlimit) // if too long...trim it!
field.value = field.value.substring(0, maxlimit);
// otherwise, update 'characters left' counter
else
cntfield.value = maxlimit - field.value.length;
}
</script>
   <br><br>
   <input type="button" value="se kortet" onclick=   "Validering()"
class="button">
   </form>
<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>

   
   

   <script language="javascript" type="text/javascript">

      function Validering()
      {
         error = 0;
      if((document.forms[0].ditnavn.value=='') && (error==0))
      {      
         alert('Du bedes angive dit navn!');
         document.forms[0].ditnavn.focus();
         error = 1;      
      }
      if((document.forms[0].dinmail.value=='') && (error==0))
      {
         alert('Du bedes angive din e-mail adresse!');
         document.forms[0].dinmail.focus();
         error = 1;
      }   
      if((document.forms[0].vennavn.value=='') && (error==0))
      {
         alert('Du bedes angive din vens navn!');
         document.forms[0].vennavn.focus();
         error = 1;
         
      }   
      if((document.forms[0].venmail.value=='') && (error==0))
      {
         alert('Du skal angive din vens email adresse!');
         document.forms[0].venmail.focus();
         error = 1;
         
      }   
      
      if(error == 0)
            document.forms[0].submit();   
      }
      
    </script>



<%end if%>



--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

---

sjuske wrote:
> http://amnesty.66.testsider.dk/doc.asp?page=160&lang=da - her er linket til
> siden. Det er noget e-kort senderi - og det er først når man har set kortet
> og prøver at sende det, at det går galt.
> siden kører over en cms, så det er lidt svært med koden. Kan højst paste
> koden ind her (ked af at gøre det, men alligevel):

[klip kode]

> Hvis du prøver at vælge "Vis kilde" kan du prøve at se forskellen hhv.
> før og efter du har lavet denne rettelse.

Har du prøvet ovenstående ang. Vis kilde? Det er første skridt til at
finde ud af om der overhovedet kommer noget ud af dine response.write.
Hvis du kan se " sent successfully...<p>" i HTML'en, så er det noget
HTML-mæssigt der skal rettes.

Hov...... Nu ser jeg pludselig at du laver en response.redirect EFTER
mail'en er sendt. Så er det klart " sent successfully...<p>" ikke bliver
udskrevet, og heller ikke din Javascript. Prøv og fjern response.redirect.

Rettelsen ang. javascript gælder stadig, og ovenstående "fif" med at
kigge i HTML'en også godt for at se hvad der reelt kommer ud af ens ASP.

--
Mvh
Jeppe

We have unmistakable proof that throughout all past time, there has been
a ceaseless devouring of the weak by the strong.