Avatar billede poppo Nybegynder
24. august 2005 - 22:59 Der er 24 kommentarer og
1 løsning

fejlmelding i asp

hej..

jeg har et problem som følgene :

hvis jeg indsætte denne side på mit websted med koden...

--------------------------------------------------------


<!--#include file="data.asp" -->

<table valign=top width="810" cellspacing=0 cellpadding=0 border=0>

<tr>

<td class=BOXCOL2>

<%
antal_pics=5
ordrecount=connect.execute("SELECT count(tblannonce.id_annonce) AS antal FROM (tblannonce INNER JOIN tblannonce_banner ON tblannonce.id_annonce=tblannonce_banner.id_annonce) INNER JOIN tblannonce_type ON tblannonce.id_annoncetype=tblannonce_type.id_annoncetype WHERE tblannonce.id_bruger>0 AND tblannonce_banner.id_ordre>0")
antal_poster=ordrecount("antal")
if antal_poster<min_bannerpics then
antal_poster=min_bannerpics 'fastsat i global
end if
SQL="SELECT top "&antal_poster&" * FROM (tblannonce INNER JOIN tblannonce_banner ON tblannonce.id_annonce=tblannonce_banner.id_annonce) INNER JOIN tblannonce_type ON tblannonce.id_annoncetype=tblannonce_type.id_annoncetype ORDER BY tblannonce_banner.id_ordre desc"
Set RSpics = Server.CreateObject("ADODB.RecordSet")
RSpics.Open SQL, Connect, 3 
bannercount=0
do while not bannercount=antal_pics and not rspics.recordcount=bannercount
RandNum = Int(Rnd * rspics.recordcount) + 1
rspics.absoluteposition = RandNum
brugnummer=true
pics=split(checkbil,",")
for each objekt in pics
if lcase(objekt)=lcase(rspics("id_annonce")) then
brugnummer=false
end if
next
if brugnummer=true then
bannercount=bannercount+1
connect.execute("UPDATE tblordre SET tblordre.visninger=tblordre.visninger+1 WHERE tblordre.id_ordre="&rspics("id_ordre") )
checkbil=checkbil&rspics("id_annonce")&","
%>

<div align="center">

<table height=1 width="20%" border="1" cellspacing="0" cellpadding="0" bordercolorlight="#663300" bordercolordark="#FFFFFF"><tr class=boxcol><td width="71%">
<table border="0" width="100%" cellspacing="0" cellpadding="0"><tr><td><p align="center"><a href=/banner01.asp?id=<%=rspics("id_annonce")%>&ido=<%=rspics("id_ordre")%>><img src=/banner/<%=rspics("id_banner")%>.jpg border=0></a></td></tr></table></td></tr>

<tr class=boxcol><td><font style="font-size:9px"><%=rspics("overskrift")%></font>&nbsp;</td></tr>

<tr class=headcol1><td width="71%" background="/grafik/tabletop_bg1.gif"><table width=100% cellspacing=0 cellpadding=0 border=0><tr><td style="font-size:9px;color:#000000;"><%=rspics("annoncetype")%></td><td style="font-size:9px;color:#000000;" align=right>Kr. <%=formatnumber(rspics("pris"))%></td></tr></table></td></tr>

</td></tr></table></div>

<%
if bannercount<antal_pics then
%>

</td>

<td class=BOXCOL2 width="20%">

<%
end if
end if
loop 
rspics.close
set rspics=nothing
%>

</table>


--------------------------------------------------------


så kommer der en fejlmeddelse som denne :


objekt requied

annoncer05 line104

og denne side ser sådan ud...markeret på siden længere nede


--------------------------------------------------------


<!--#include file="../data.asp" -->

<%
mode=request("mode")
id=request("id_annonce")

if mode="slet" then
    set billeder=connect.execute("SELECT * FROM tblannonce_pic WHERE pic=1 AND id_annonce="&id)
    Set fs = CreateObject("Scripting.FileSystemObject")
    do while not billeder.eof
        fs.deletefile(server.mappath("\annoncer\annoncebilled\"&id&"_"&billeder("id_local")&".jpg"))
        fs.deletefile(server.mappath("\annoncer\annoncebilled\"&id&"_"&billeder("id_local")&"_small.jpg"))
        billeder.movenext
    loop
    set fs=nothing
    connect.execute("DELETE * FROM tblannonce_pic WHERE id_annonce="&id)
    connect.execute("DELETE * FROM tblannonce WHERE id_annonce="&id)
    billeder.close
    set billeder=nothing
    close_db()
    response.redirect ("annoncer01.asp")
end if

if mode="forlaeng" then
        connect.execute("UPDATE tblannonce SET dato_udloeb=#"&datofix(date+30)&"# WHERE id_bruger="&session("chrbruger"))
        close_db()
    response.redirect ("annoncer01.asp?forlaeng=true")
end if

if mode="rediger" then
    Set uplp = Server.CreateObject("Softartisans.FileUpProgress")
    Dim ProgressID
    ProgressID = uplp.NextProgressID

    result=connect.execute("SELECT * FROM (tblannonce INNER JOIN tblunderkategori ON tblannonce.id_underkategori = tblunderkategori.id_underkategori) INNER JOIN tbloverkategori ON tblunderkategori.id_overkategori = tbloverkategori.id_overkategori WHERE id_annonce="&id)
    set pics=connect.execute("SELECT * FROM tblannonce_pic WHERE pic=1 AND id_annonce="&id)
    set overkategorier=connect.execute("SELECT * FROM tbloverkategori ORDER BY overkategori")
    set underkategorier=connect.execute("SELECT * FROM tblunderkategori WHERE id_overkategori="&result("id_overkategori")&" ORDER BY underkategori")
    set annoncetype=connect.execute("SELECT * FROM tblannonce_type ORDER BY id_annoncetype")%>   
   
<!--#include file="../gribb02.asp"-->

    <table width=100% border="0" cellspacing="0" cellpadding="0">
    <form method=post name=mainform target=dataframe2 enctype="multipart/form-data" action="annoncer04.asp?progressid=<%=progressid%>&mode=opdater&id=<%=id%>">
<tr><td width="100%" class=headcol background="../grafik/prg004.gif" height="21"><b>Mine annoncer</b></td></tr>    </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="2" align="center" bordercolorlight="#663300" bordercolordark="#FFFFFF">
    <tr class=boxcol><td width="100%"> <img src="../grafik/prg009.gif"> <b> <a href=annoncer01.asp>
        <font color="#000000"><span style="text-decoration: none">Annonce oversigt</span></font></a></b></td></tr>
    <tr class=boxcol align="center"><td><b>Rediger annoncen</b></td></tr>
    <tr><td class=boxcol>
    <table width="400" cellspacing="0" cellpaddding="0" border="0" align=center>

    <tr class=headcol><td>&nbsp;Hovedkategori</td><td align="right">
    <select style="width:275" class=input1 name=id_overkategori onchange="java script:hent_underkategori();">
    <%do while not overkategorier.eof%>
        <option value="<%=overkategorier("id_overkategori")%>" <%if result("id_overkategori")=overkategorier("id_overkategori") then%>SELECTED<%end if%>><%=overkategorier("overkategori")%></option>
        <%overkategorier.movenext
    loop%>   
    </select>&nbsp;</td></tr>
   
    <tr class=headcol><td>&nbsp;Kategori</td><td align="right">
    <select style="width:275" class=input1 name=id_underkategori>
    <%do while not underkategorier.eof%>
        <option value="<%=underkategorier("id_underkategori")%>" <%if underkategorier("id_underkategori")=result("id_underkategori") then%>SELECTED<%end if%>><%=underkategorier("underkategori")%></option>
        <%underkategorier.movenext
    loop%>
    </select>&nbsp;</td></tr>

    <tr class=headcol><td>&nbsp;Annoncetype</td><td align="right">
    <select style="width:200" class=input1 name=id_annoncetype>
    <%do while not annoncetype.eof%>
        <option value="<%=annoncetype("id_annoncetype")%>" <%if result("id_annoncetype")=annoncetype("id_annoncetype") then%>SELECTED<%end if%>><%=annoncetype("annoncetype")%></option>
        <%annoncetype.movenext
    loop%>   
    </select>&nbsp;</td></tr>
   
    <%formcount=formcount+1%>
    <tr class=headcol><td>&nbsp;Overskrift</td><td align="right">
      <input style="width:200" class=input1 type="text" name="overskrift" value="<%=result("overskrift")%>" maxlength="50" size="20">&nbsp;</td></tr>
    <tr class=headcol><td>&nbsp;Tekst</td><td align="right">
      <textarea class=input1 name="tekst" style="width:200" rows="5" cols="20"><%=result("tekst")%></textarea>&nbsp;</td></tr>
    <tr class=headcol><td>&nbsp;Prisen</td><td align="right">
      <input style="width:200" class=input1 type="text" name="pris" value="<%=result("pris")%>" size="20">&nbsp;</td></tr>
      <tr class=headcol><td>&nbsp;Evt. Domænenavn</td><td align="right">
      <input style="width:200" class=input1 type="text" name="tekst02" value="<%=result("tekst02")%>" maxlength="50" size="20">&nbsp;</td></tr>
    <tr class=headcol><td>&nbsp;Excl. Moms&nbsp;<input type="checkbox" name="moms" <%if result("moms")=1 then%>CHECKED<%end if%> value="1"></td><td align="right">&nbsp;</td></tr>
   
        <tr class=headcol><td>&nbsp;Billede 1&nbsp;&nbsp;(jpeg)</td><td align="right">
          <input style="width:200" class=input1 type="file" name="pic0" size="20">&nbsp;</td></tr>
        <tr class=headcol><td>&nbsp;Billede 2&nbsp;&nbsp;(jpeg)</td><td align="right">
          <input style="width:200" class=input1 type="file" name="pic1" size="20">&nbsp;</td></tr>
        <tr class=headcol><td>&nbsp;Billede 3&nbsp;&nbsp;(jpeg)</td><td align="right">
          <input style="width:200" class=input1 type="file" name="pic2" size="20">&nbsp;</td></tr>
        </form>
        </table>
        <br>
        <div id=divprogress>
        <table cellspacing=0 cellpadding=0 border=0 width=100%><tr><td align=right><a href="java script:check_post();">
            <span style="text-decoration: none; font-weight: 700">
            <font color="#000000">Gem ændringer</font></span></a> <img src="../grafik/prg008.gif"> </td></tr></table>
        </div>
    </td></tr>
   
    <%if not pics.eof then%>****************************line 104
        <tr class=boxcol><td><b>Billede</b></td></tr>
        <tr class=boxcol><td align=center>
        <table cellspacing=0 cellpadding=0 border=0><tr>
            <%do while not pics.eof
                count=count+1
                if count>1 then%>
               
                <%end if%>
                <td width=100 align=center>Billede <%=pics("id_local")+1%><br><img src=/annoncer/annoncebilled/<%=pics("id_annonce")%>_<%=pics("id_local")%>_small.jpg border=0></td>
                <%pics.movenext
            loop
            pics.close
            set pics=nothing%>
        </tr></table>
        </td></tr>
    <%else%>
        <tr class=boxcol><td><font color="#000000"><b>Der er ikke gemt et billede</b></font></td></tr>
    <%end if%>

    </td></tr></table>
   
<script language="javascript">

        <%if request("billedecheck")="fejl" then%>
            alert("Et eller flere billeder kunne ikke gemmes. Check om filen er i formatet *.JPG")
        <%end if%>
       
        function go(formcount)  {
            document.forms[formcount].submit();
        }
   
        function check_post(){
        if (document.mainform.id_underkategori.value<1)
          alert("Der er ikke valgt en kategori.")   
        else if (document.mainform.overskrift.value=="")
            alert("Der er ikke indtastet en overskrift.")         
        else if (document.mainform.tekst.value=="")
            alert("Der er ikke indtastet en tekst.")               
        else if(isNaN(document.mainform.pris.value))
            alert("Pris feltet må kun indeholde tal.")
        else
                {parent.dataframe.location="../progress01.asp?progressid=<%=ProgressID%>";       
                document.mainform.submit();}
    }
   
    function hent_underkategori() {
    parent.dataframe.location="annoncer02.asp?mode=underkategori&id_overkategori="+document.mainform.id_overkategori.value;
    }
   
    </script>
   
    <!--#include file="../gribb04.asp"-->
   
<%
overkategorier.close
set overkategorier=nothing
underkategorier.close
set underkategorier=nothing
annoncetype.close
set annoncetype=nothing
end if
close_db()
%>


--------------------------------------------------------

kan i se hvor fejlen ligger.?

er det den første side som ikke bliver lukket korrekt?
hvilken objekt er der tale om?
kan man evt lave en ny side som kan det samme som den øverste på en anden måde og hvordan??

kan du ellers skrive en mail på per@gribb.dk så kan jeg sende de forskellige sider til dig dette er nok mere overskuelig
--------------------------------------------------------
Avatar billede softspot Forsker
24. august 2005 - 23:05 #1
Jeg fik ikke lige helt fat i hvad der stod på linie 104?
Avatar billede softspot Forsker
24. august 2005 - 23:09 #2
Ok, har fundet den :)
Avatar billede softspot Forsker
24. august 2005 - 23:10 #3
Prøv at ændre navnet på den variabel som hedder pics, for det er der allerede noget systemmæssigt der hedder (noget med kategorisering af sideindeholdet).
Avatar billede poppo Nybegynder
24. august 2005 - 23:24 #4
hej..
prøvet det på min måde kan du ikke forklare mere præcis hvor det er du mener.??

kunne evt sende filer til dig det er nok mere overskueligt

mvh per
Avatar billede softspot Forsker
24. august 2005 - 23:30 #5
Den linie der ser sådan ud (i den sidste kodestump du postede):

set pics=connect.execute("SELECT * FROM tblannonce_pic WHERE pic=1 AND id_annonce="&id)

der kalder du recordset'et "pics" hvilket er brugt i forvejen. Senere benytter du

pics.eof

men pics betyder som sagt noget andet og i den betydning har den ikke nogen egenskab det hedder eof. Derfor siger jeg: kald den noget andet, f.eks. rsPics eller sådan noget...
Avatar billede softspot Forsker
25. august 2005 - 00:02 #6
Kan du finde frem til dem allesammen?
Avatar billede cpufan Juniormester
25. august 2005 - 00:29 #7
iøvrigt kan du ikke lukke "pics":

pics.close

da det jo ikke en connection, men du kan nulstille den som du også gør
Avatar billede cpufan Juniormester
25. august 2005 - 00:32 #8
rspics er iøvrigt også brugt i forvejen, så du skal finde på et tredie navn istedet for pics
Avatar billede cpufan Juniormester
25. august 2005 - 00:33 #9
iøvrigt bruger jeg iøvrigt lidt for meget ;D
Avatar billede softspot Forsker
25. august 2005 - 00:34 #10
cpufan >> Hvad bliver det brugt til?
Avatar billede poppo Nybegynder
25. august 2005 - 01:09 #11
hej cpufan.


jeg prøver lige dine forslag af . der en gengangere på forskellige sider med disse tekster så jeg prøver lige af ændre dem.

jeg har oså stillet et andet spg her på sitet og det ser ud til at du bare er helt inde i det der asp... :-)

spg:

nyhedsbrev hente data fra acess

et script som gør at jeg kan sende et nyheds brev til brugere som har markeret dette under oprettelsen

jeg har lavet et og det virker også men når man modtager nyhedsbrevet viser den ikke æ ø å bokstaverne

hvad er galt???
---------------------------------------------------------------


<%if request("mode") = "" then%>

<table border="0" width="100%"><tr><td><font face="Verdana" size="2"><b>NYHEDSBREV</b></font></td></tr></table>

<hr>

<form method="POST" action="admin11.asp?mode=send">

<table border="0" width="100%" id="table1">
    <tr>
        <td width="25%">&nbsp;</td>
        <td width="25%">&nbsp;</td>
        <td width="25%">&nbsp;</td>
        <td width="25%">&nbsp;</td>
    </tr>
    <tr>
        <td width="25%"><font face="Verdana" size="2">Overskrift</font></td>
        <td width="25%">&nbsp;</td>
        <td width="25%"><font face="Verdana">
        <input size=42 type=text name=titel style="font-family: Verdana; font-size: 10px"></font></td>
        <td width="25%">&nbsp;</td>
    </tr>
    <tr>
        <td width="25%">&nbsp;</td>
        <td width="25%">&nbsp;</td>
        <td width="25%">&nbsp;</td>
        <td width="25%">&nbsp;</td>
    </tr>
    <tr>
        <td width="25%"><font face="Verdana" size="2">Nyhedsbrev</font></td>
        <td width="25%">&nbsp;</td>
        <td width="25%"><font face="Verdana">
        <textarea size=15 rows=10 name=tekst cols="41" style="font-family: Verdana; font-size: 10px"></textarea></font></td>
        <td width="25%">&nbsp;</td>
    </tr>
    <tr>
        <td width="25%">&nbsp;</td>
        <td width="25%">&nbsp;</td>
        <td width="25%"><font face="Verdana">
        <input type="submit" value="Send nyhedsbrev" style="font-family: Verdana; font-size: 10px"></font></td>
        <td width="25%">&nbsp;</td>
    </tr>
</table>

</form>

<%

Else

Server.ScriptTimeOut =14000

Dim webKopling
Dim webKoplingStreng
Dim webSQL
Dim webRS
Dim JMail

set webKopling = server.createobject("ADODB.connection")
webKoplingStreng = "provider = microsoft.jet.OLEDB.4.0; data source = " & server.mappath("../../../database/database.mdb")

webKopling.Open = webKoplingStreng

set webRS = server.CreateObject("adodb.recordset")
webSQL = "SELECT email, fornavn, efternavn FROM tblbruger WHERE nyhedsbrev = 1"
   
webRS.Open webSQL, webKopling

Do While Not (webRS.EOF or webRS.BOF)

    Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

    Mailer.FromName = "www.domæne.dk"
    Mailer.FromAddress = "nyheder@domæne.dk"
    Mailer.RemoteHost = "mail.domæne.dk"
    Mailer.AddRecipient  webRS("fornavn") & "  " & webRS("efternavn"), webRS("email")
    Mailer.Subject = request("titel")
    Mailer.BodyText = request("tekst")
    Mailer.SendMail
   
    webRS.MoveNext
    Loop
   
    if Mailer.SendMail then
   
    Response.Write "<br>Nyhedsbrevet er sendt."
    else
    Response.Write "<h3><br> Det opstod en fejl!<p>Feilmelding: " & Mailer.Response

    end if
   
End If
%>

--------------------------------------------

jeg har fået dette svar af en :

indsæt
Mailer.CharSet = 2
efter
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")


og det virker ikke helt for :

jeg har lige prøvet dette forslag og sendt en prøve

denne tekst i overskrift og tekst : abcdefghijklmnopqrstuvxyzæøå og da jeg modtog mailen i outlook espress stod der "abcdefghijklmnopqrstuvxyzfxe" i emne og i teksten står der "abcdefghijklmnopqrstuvxyzæøå" så det er kun i emne den ikke skriver korrekt

kan du knække den??

mvh per  jeg tror sku du har helt ret i det andet ;-)
Avatar billede softspot Forsker
25. august 2005 - 01:23 #12
poppo >> Hvad var det lige cpufan bidragede med? Recordsets kan/skal da lukkes som du gør, ligesom connections skal lukkes (det er det pæneste at gøre). Desuden kan jeg ikke lige se hvor rspics bliver brugt, men det kan da godt være f.eks. billeder ville være et mere passende navn...

Mht. til det andet spm. du har stillet, kan du så ikke lægge et link til det i stedet...?
Avatar billede poppo Nybegynder
25. august 2005 - 01:34 #13
hej

repisc blive brugt på den første side ogdet andet spg ligger på forsiden / database / access / nyhedsbrev hente data fra acess

mvh per
Avatar billede softspot Forsker
25. august 2005 - 01:37 #14
OK, fair nok. Jeg fokuserede kun på den side hvor du meldte fejl. Sorry!
Avatar billede softspot Forsker
25. august 2005 - 01:40 #15
Men der bruger du den jo rent faktisk til er recordset som jeg foreslår dig også at gøre på den side hvor du får fejl - så du skal egentlig bare følge dit sprog fra den første side. Problemet på den første side er så at du opretter et array ved navn pics, hvilket så burde give dig problemer der...
Avatar billede poppo Nybegynder
25. august 2005 - 11:08 #16
hej softspot...

fik ændret de ting som du nævnte og det virker bare perfekt nu.....takker

mvh per
Avatar billede poppo Nybegynder
25. august 2005 - 11:10 #17
hov forkert.....  ;-)

hej cpufan...

fik ændret de ting som du nævnte og det virker bare perfekt nu.....takker

mvh per
Avatar billede softspot Forsker
25. august 2005 - 11:52 #18
Velbekomme...
Avatar billede poppo Nybegynder
25. august 2005 - 12:03 #19
hej.. softspot

glemte lige at sige at "den skulle lukkes af før den kunne køre"

har du kigget på dette andet spg som ligger på forsiden / database / access / nyhedsbrev hente data fra acess

mvh per
Avatar billede softspot Forsker
25. august 2005 - 12:30 #20
Har du et link til det, så er det lidt lettere at finde ;)
Avatar billede softspot Forsker
25. august 2005 - 12:39 #21
np... har fundet det.
Avatar billede softspot Forsker
25. august 2005 - 12:53 #22
Ja, jeg har kigget på den nu. Se selv :)
Avatar billede softspot Forsker
26. august 2005 - 00:55 #23
poppo >> var der mere på dette spørgsmål eller skulle det bare lukkes...?
Avatar billede poppo Nybegynder
29. september 2005 - 01:06 #24
dur ikke
Avatar billede softspot Forsker
29. september 2005 - 01:13 #25
Jeg forstår ikke hvad der sker med din pointhøst? Du siger det fungerer, men alligevel tager du point selv... det er da vist ikke helt i tråd med idéen med pointsystemet...? :S
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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.

Du kan også logge ind via nedenstående tjenester