Søg
Avatar billede mrbart Nybegynder
18. september 2007 - 22:34 Der er 20 kommentarer og
1 løsning

Jmail fejl.. Nogle som ka hjælpe

Ja, jeg er stødt ind i et lille problem..

Jeg er ikke super koder, så vil gerne have svar på sådan et sprog jeg forstår..:) Tak..

Fejlen er:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'JMail.AddRecipient'

/medlem/aktiver-bil.asp, line 158


Jeg har samme Jmail form på flere af mine sider, men kun denne ENE side gir mig problemer...

Jeg håber nogle kan hjælpe..

Her kommer koden:

<html>
<head>
<title>NightRiders.dk - DK's nye bilside - Aktiver bil</title>
<meta name="Generator" content="Microsoft FrontPage 5.0">
<link href="../stylesheets/nightriders.css" rel="stylesheet" type="text/css">
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" width="779">
    <tr>
        <td class="td" colspan="2"><img src="../images/Nightriders_01.jpg"></td>
    </tr>
    <tr>
        <td class="td" colspan="2">
        <table cellpadding="0" cellspacing="0">
            <tr>
                <td class="td"><img src="../images/Nightriders_02.jpg"></td>
                <td class="td" style="background-image:url('../images/Nightriders_12.gif');font-size:8pt" valign="middle" width="445"><b>
                ::&nbsp;&nbsp;<a href="../default.asp" style="font-size:8pt" title="Forsiden">HOME</a>&nbsp;
                ::&nbsp;&nbsp;<a href="../medlem/" style="font-size:8pt" title="Medlem">MEDLEM</a>&nbsp;
                ::&nbsp;&nbsp;<a href="../medlem/medlemmer.asp" style="font-size:8pt" title="Medlemmer">MEDLEMMER</a>&nbsp;
                ::&nbsp;&nbsp;<a href="../galleri/" style="font-size:8pt" title="Galleri">GALLERI</a>&nbsp;
                ::&nbsp;&nbsp;<a href="../traef/" style="font-size:8pt" title="Træf">TRÆF</a>&nbsp;
                ::&nbsp;&nbsp;<a href="../forum/" style="font-size:8pt" title="Forum">FORUM</a>&nbsp;
                <% If Session("brugernavn") = "" Then %>::&nbsp;&nbsp;LOG UD ::<% Else %>
                ::&nbsp;&nbsp;<a href="../login/log-ud.asp" style="font-size:8pt" title="Log ud">LOG UD</a> ::</b><% End If %></td>
            </tr>
        </table></td>
    </tr>
    <tr>
        <td class="td" colspan="2"><img src="../images/Nightriders_08.gif"></td>
    </tr>
    <tr>
        <td class="td" valign="top"><img src="../images/Nightriders_09.gif"><br>
        <table border="0" cellpadding="0" cellspacing="0">
            <tr>
                <td class="td" valign="top" width="31"><img src="../images/Nightriders_11.gif"></td>
                <td class="td" valign="top" width="213">
                <% Set ConnObj = Server.CreateObject("ADODB.Connection") %>
                <% MyConnStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/nyheder.mdb") %>
                <% ConnObj.Open(MyConnStr) %>
       
                <% strSQL = "SELECT TOP 5 * FROM nyheder " %>
                <% strSQL = strSQL & " ORDER BY id DESC " %>
                <% Set rsnyhed = ConnObj.Execute(strSQL) %>
       
                <% If rsnyhed.BOF Or rsnyhed.EOF Then %>
                Ingen nyheder i øjeblikket!<br><br>
                Nightriders.dk beklager.
                <% Else %>
                <font size="3"><b>Seneste nyheder:</b></font>
                <% Do Until rsnyhed.BOF Or rsnyhed.EOF %>
                <br><br>
                <font size="1"><b><% = rsnyhed("dato") %></b></font><br>
                <a href="../nyheder/se-nyhed.asp?id=<%=rsnyhed("id")%>" title="Se mere"><% = LEFT(rsnyhed("nyhed"), 40) %>...</a><br>
                -----------------------------------
                <% rsnyhed.MoveNext %>
                <% Loop %>
                <br><br><center><a href="../nyheder/" title="Alle nyheder">Alle nyheder</a></center>
                <% End If %></td>
                <td class="td" style="background-image:url('../images/Nightriders_10.gif')" valign="top" width="30"></td>
            </tr>
        </table></td>
        <td class="td" valign="top" width="708">
        <% Set ConnObj = Server.CreateObject("ADODB.Connection") %>
        <% MyConnStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/medlemmer.mdb") %>
        <% ConnObj.Open(MyConnStr) %>
               
        <% strSQL = "SELECT * FROM brugere WHERE brugernavn = '"& Session("brugernavn") &"' " %>
        <% Set rsafvist = ConnObj.Execute(strSQL) %>
       
        <% If rsafvist("afvist") = True Or rsafvist("godkendt") = False Then %>
        <p align="center"><font color="#FF0000" size="3"><b>Adgang nægtet:</b></font></p>
        <p align="center"><font color="#FF0000"><b>Adgang blev nægtet, så du kan ikke se denne side!</b></font></p>
        <p align="center">Dette kan skyldes en eller flere af følgende grunde:<br>
        1: Din profil er blevet afvist!<br>
        2: Din profil er endnu ikke blevet godkendt!</p>
        <p align="center"><font color="#FF0000"><b>Klik <a href="../medlem/" title="Gå til profil side">her</a> for at gå til siden, hvor du kan rette din profil!</b></font></p>
        <% Else %>
        <p align="center"><font size="3"><b>Aktiver bil:</b></font></center></p>
        <% Dim godkendt %>
        <% godkendt = Request.Form("godkendt") %>
        <% If godkendt = "" Then godkendt = "0" %>
       
        <% Dim afvist %>
        <% afvist = Request.Form("afvist") %>
        <% If afvist = "" Then afvist = "0" %>
       
        <% Set ConnObj = Server.CreateObject("ADODB.Connection") %>
        <% MyConnStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/medlemmer.mdb") %>
        <% ConnObj.Open(MyConnStr) %>
       
        <% strSQL = "UPDATE biler SET godkendt = "& godkendt %>
        <% strSQL = strSQL & ",afvist = "& afvist %>
        <% strSQL = strSQL & " WHERE id = "& Request("id") &" " %>
        <% Set rs = ConnObj.Execute(strSQL) %>
       
        <% strSQL = "SELECT * FROM brugere WHERE id = " & Request("id") & " " %>
        <% Set Rs1 = ConnObj.Execute(strSQL) %>
       
        <% If Err = 0 Then %>
        <% If godkendt = "0" Then %>
        <% Afsender = "bart@nightriders.dk" %>
        <% AfsenderNavn = "NightRiders.dk" %>
       
        <% Set JMail = Server.CreateObject("JMail.SMTPMail") %>
        <% JMail.ServerAddress = "localhost" %>
   
        <% JMail.Charset = "iso-8859-1" %>
        <% JMail.ContentTransferEncoding = "8bit" %>

        <% JMail.Sender = Afsender %>
        <% JMail.SenderName = AfsenderNavn %>
        <% JMail.Subject = "Din bil blev godkendt" %>
        <% JMail.AddRecipient Rs1("email") %>
       
        <% JMail.HTMLBody = "<html>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<head>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<link href=http://www.nightriders.dk/stylesheets/nightriders.css rel=stylesheet type=text/css>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "</head>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<body>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Hej <b>" & Rs1("brugernavn") &"</b>!" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<br><br>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Din oprettede bil er blevet godkendt af administratoren..." %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<br><br>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Klik på nedenstående link for at gå til din profil og logge ind:&nbsp;" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<a href=http://www.nightriders.dk/medlem/>http://www.nightriders.dk/medlem/</a>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<br><br>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Med venlig hilsen," %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<br>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Bart, <a href=http://www.nightriders.dk>www.nightriders.dk</a>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "</body>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "</html>" %>
       
        <% ' 1 = høj %>
        <% ' 3 = normal %>
        <% ' 5 = lav %>
        <% JMail.Priority = 3 %>
       
        <% JMail.Execute %>
        <% set JMail = nothing %>
        <% End If %>
       
        <% If afvist = "0" Then %>
        <% Afsender = "bart@nightriders.dk" %>
        <% AfsenderNavn = "NightRiders.dk" %>
       
        <% Set JMail = Server.CreateObject("JMail.SMTPMail") %>
        <% JMail.ServerAddress = "localhost" %>
   
        <% JMail.Charset = "iso-8859-1" %>
        <% JMail.ContentTransferEncoding = "8bit" %>

        <% JMail.Sender = Afsender %>
        <% JMail.SenderName = AfsenderNavn %>
        <% JMail.Subject = "Din profil blev afvist" %>
        <% JMail.AddRecipient Rs1("email") %>
       
        <% JMail.HTMLBody = "<html>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<head>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<link href=http://www.nightriders.dk/stylesheets/nightriders.css rel=stylesheet type=text/css>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "</head>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<body>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Hej <b>" & Rs1("brugernavn") &"</b>!" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<br><br>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Din oprettede bil er blevet afvist af administratoren..." %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<br><br>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Klik på nedenstående link for at logge ind og rette den:&nbsp;" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<a href=http://www.nightriders.dk/medlem/>http://www.nightriders.dk/medlem/</a>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<br><br>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Med venlig hilsen," %>
        <% JMail.HTMLBody = JMail.HTMLBody + "<br>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "Bart, <a href=http://www.nightriders.dk>www.nightriders.dk</a>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "</body>" %>
        <% JMail.HTMLBody = JMail.HTMLBody + "</html>" %>
       
        <% ' 1 = høj %>
        <% ' 3 = normal %>
        <% ' 5 = lav %>
        <% JMail.Priority = 3 %>
       
        <% JMail.Execute %>
        <% set JMail = nothing %>
        <% End If %>
        <b>Bilen blev godkendt eller afvist!<br>
        Du bliver viderestillet automatisk!</b>
        <meta http-equiv=Refresh content="3; URL=../medlem/medlemmer.asp">
        <% Else %>
        <font color="#FF0000" size="2"><b>UPS!!! Der skete en fejl, så bilen blev IKKE aktiveret!!!</b></font><br>
        Gå <a href="java script:history.go(-1)">tilbage</a> og ret fejlen...
        <% End If %>
        <% End If %></td>
    </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0">
    <tr>
        <td align="right" class="td" height="107" style="background-image:url('../images/bund.gif');color:#C0C0C0;font-size:8pt;padding-top:55" valign="top" width="778">
        <b>::&nbsp;&nbsp;<a href="../sponsorer/" style="color:#C0C0C0;font-size:8pt" title="Sponsorer">SPONSORER</a>&nbsp;
        ::&nbsp;&nbsp;<a href="../crew/" style="color:#C0C0C0;font-size:8pt" title="Crewet">CREWET</a>&nbsp;
        ::&nbsp;&nbsp;<a href="../kontakt/" style="color:#C0C0C0;font-size:8pt" title="Kontakt">KONTAKT</a>&nbsp;
        ::&nbsp;&nbsp;<a href="../links/" style="color:#C0C0C0;font-size:8pt" title="Links">LINKS</a>&nbsp;
        ::&nbsp;&nbsp;<a href="../afstemning/" style="color:#C0C0C0;font-size:8pt" title="Afstemning">AFSTEMNING</a>&nbsp;
        ::&nbsp;&nbsp;</b></td>
    </tr>
</table>

</body>
</html>
Avatar billede kalp Novice
18. september 2007 - 22:43 #1
mangler der ikke bare et = tegn?

<% JMail.AddRecipient = Rs1("email") %>
Avatar billede kalp Novice
18. september 2007 - 22:45 #2
bemærk at du har den 2 steder så det skal rettes 2 steder.
Avatar billede mrbart Nybegynder
18. september 2007 - 22:46 #3
Så laver den denne her fejl:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'JMail.AddRecipient'

/medlem/aktiver-bil.asp, line 158
Avatar billede kalp Novice
18. september 2007 - 22:48 #4
har lige slået den op.. det er korrekt nok som du har gjort før:)

har du tjekket værdien af Rs1("email") ?
det lader til der er problemer med den og ikke selve scriptet
Avatar billede mrbart Nybegynder
18. september 2007 - 22:50 #5
Jamen som sagt, jeg er ikk så meget inde i det kodningen, andet end at jeg ved at nøjagtig den samme kode virker på alle mine andre sider..

Hvor ka jeg tjekke den værdi?? (håber du kan/vil hjælpe..)

-Bart
Avatar billede kalp Novice
18. september 2007 - 22:53 #6
hvis du skrive følgende over den første linje af disse
<% JMail.AddRecipient = Rs1("email") %>

så det bliver til

<%
Response.Write("Værdien er:")
Response.Write(Rs1("email"))
Response.End
%>
<% JMail.AddRecipient = Rs1("email") %>

så burde den udskrive værdien af email
Avatar billede mrbart Nybegynder
18. september 2007 - 23:01 #7
Ka godt være det bare er mig, men jeg får den nu stadigvæk bare til at skrive:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'JMail.AddRecipient'

/medlem/aktiver-bil.asp, line 163
Avatar billede kalp Novice
18. september 2007 - 23:03 #8
så tror jeg ikke du har smidt min kode over den første linje af disse
<% JMail.AddRecipient  Rs1("email") %>

den står der 2 steder... når du har indsat det så burde fejlen ikke komme, men den bør istedet udskrive en værdi
Avatar billede mrbart Nybegynder
18. september 2007 - 23:03 #9
Nu kom der noget:

Værdien er:
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/medlem/aktiver-bil.asp, line 0
Avatar billede kalp Novice
18. september 2007 - 23:06 #10
okay det betyder at der mangler en række i din database

går ud fra det er den bil du vil opdatere status på den ikke finder


prøv derfor at rette denne kode

<% strSQL = "UPDATE biler SET godkendt = "& godkendt %>
        <% strSQL = strSQL & ",afvist = "& afvist %>
        <% strSQL = strSQL & " WHERE id = "& Request("id") &" " %>
        <% Set rs = ConnObj.Execute(strSQL) %>

til


<% strSQL = "UPDATE biler SET godkendt = "& godkendt %>
        <% strSQL = strSQL & ",afvist = "& afvist %>
        <% strSQL = strSQL & " WHERE id = "& Request("id") &" " %>
<% Response.Write(strSQL)
Response.End  %>
        <% Set rs = ConnObj.Execute(strSQL) %>


og hvis mig hvad den udskriver
Avatar billede mrbart Nybegynder
18. september 2007 - 23:08 #11
Så skriver den:

UPDATE biler SET godkendt = ON,afvist = 0 WHERE id = 25
Avatar billede kalp Novice
18. september 2007 - 23:15 #12
du har en id kolonne i både biler og brugere tabel.. 

vil det sige, at bil med id 25 tilhører bruger 25?

det er for at udelukke om det er denne der fejler
<% strSQL = "SELECT * FROM brugere WHERE id = " & Request("id") & " " %>
Avatar billede kalp Novice
18. september 2007 - 23:18 #13
tror jeg har spottet fejlen nu..

du siger koden er idendisk på andre sider, men går ud fra det kun er med hensyn til email delen i det?
Avatar billede kalp Novice
18. september 2007 - 23:20 #14
prøv at rette denne
<% Set Rs1 = ConnObj.Execute(strSQL) %>
til
<% Set Rs1 = ConnObj.Execute(strSQL)
rs1.MoveNext
%>
Avatar billede mrbart Nybegynder
18. september 2007 - 23:23 #15
Jeg har selv fundet fejlen..

Fejlen var at bruger ID f.eks var 25, mens at bil ID var 92...

Men hvordan får jeg begge eller ALLE tabeller nulstillet og starter fra 1 af begge ?
Avatar billede kalp Novice
18. september 2007 - 23:27 #16
njaeh nu sagde jeg jo at rækken ikke fandtes i databasen;)

hvis du skal have nulstillet den så skal du åbne din database og så er der noget der hedder compress database.. eller repair.. eller compact.. kan ikke lige huske det da det er længe siden, men det er nok under database tools
Avatar billede mrbart Nybegynder
18. september 2007 - 23:28 #17
ok.. Tror du ikk at det vil ændre det hele?? :) Altså få det til at virke så??
Avatar billede kalp Novice
18. september 2007 - 23:30 #18
http://office.microsoft.com/en-us/access/HP051874491033.aspx
Avatar billede kalp Novice
18. september 2007 - 23:30 #19
ja men det vil vise sig... jeg ved ikke hvordan du sender dit ID til den her side du har vist mig koden til, men hvis den sender det korrekte id så burde den jo virke:)
Avatar billede mrbart Nybegynder
18. september 2007 - 23:35 #20
Ja..:D Så virker det sq..:)

Opretter du lige et svar, så du kan få kredit for din STORE hjælp..

Du har virkelig været KANON...

Mange Tak
Avatar billede kalp Novice
18. september 2007 - 23:37 #21
perfekt:) så kan jeg gå i seng;o)

og selv tak;)
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
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
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
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 17:56 Fælles kalender Af mort1 i Apps til Android
I går 17:45 Problem med at sende og modtage mail via stofanet.dk Af PS2017 i E-mail programmer
I går 16:43 USB 3.0 kortlæser for SD-kort Af 1Dorte i Andet hardware
I går 07:46 Mail Yousee - webmail? Af nu_igen i E-mail programmer
23/1122:24 Vise webcam fra pc til en Iphone Af lurup i Windows
White papers
Flere white papers »