Avatar billede killerbob Nybegynder
19. november 2009 - 18:06 Der er 25 kommentarer og
1 løsning

Kode der ikke virker mere

Hej

Jeg har to stumper kode der har kørt i årevis på en anden server. Nu er siden blevet flyttet til en anden host (windows 2003 Web edition) og nu vil det ikke køre mere

Første returnerer:
Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 1]'

/copenhagen/nyheder/nyhederindhold.asp, line 70


Den anden i princippet det samme:
Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 1]'

/copenhagen/gaestebog/gaestebogindhold.asp, line 82


Har søgt på nettet - men svarene handler altid om at der er fejl i "array" ... jeg har ikke forstand til at vurdere dette - men synes jo det er mærkeligt at den samme kode har virket før på en anden host  - og nu vil den ikke mere .... Nogen der kan se på koderne og vurdere hvad der er galt ... eller er det en indstilling på IIS'en der skal rettes (jeg har selv adgang til serveren)

<%@ Language=VBScript %>
<%

%>
<!-- #INCLUDE FILE="../kodeincludes/constants_inc.asp" -->
<!-- #INCLUDE FILE="_nyheder_inc.asp" -->
<!-- #INCLUDE FILE="../kodeincludes/identify_inc.asp" -->
<!-- #INCLUDE FILE="_db_nyheds_functions_inc.asp" -->
<%
'***VARIABLER
dim nyhedsarray()
redim nyhedsarray(max_num_of_nyheder)
dim nyhedscnt

call setisAdmin() 'er det admin ?

showAsAdmin = false

if Request.QueryString("modus") = "a" and isAdmin = SHOP_LOGIN_KODE then
    showasadmin = true
end if

if not isArray(NYHEDSKATEGORI_ARR) then
    kategori = -1
else
    if Request.QueryString("kat") = "" then
        kategori = 0 'default til 1. kategori
    else
        kategori = cInt(Request.QueryString("kat"))
    end if
end if

'showAsAdmin = true 'OBS OBS

'***HOVEDPROGRAM
call db_get_list

'***SUBS OG FUNCTIONS

sub db_get_list
    dim fso
    dim abs_path
    dim ff, filecontent
    dim contentarray
    dim filesToDelete
    filesToDelete = ""
   
    abs_path = server.MapPath(SHOP_PATH_TO_LOG & "/kodenyhedsdb") 'PATH_TO_DB)
    nyhedscnt = 0
   
   
   
    set Fso = CreateObject("Scripting.FileSystemObject")
    if not fso.FolderExists(abs_path) then
        Response.write "Fejl: Databasefolderen kunne ikke findes på '" & abs_path & "'. Kan ikke fortsætte"
        Response.End
    end if

    Set f = fso.GetFolder(abs_path)
    Set fc = f.Files
    for each afile in fc
        set ff = Fso.OpenTextFile(abs_path & "/" & afile.name, 1)
        filecontent = ff.readall
        ff.close
        contentarray = split(filecontent, DEL)
       
        doinclude = true
       
        'skal det slettes ?
        if contentArray(NYH_FLD_VISESTIL) <> "" then
            if cDate(contentArray(NYH_FLD_VISESTIL)) < Date() then
                doInclude = false
                filesToDelete = filesToDelete & afile.name & "¤"
            end if
        end if
       
        if not showAsAdmin then
            if contentArray(NYH_FLD_VISESFRA) <> "" then
                if cDate(contentArray(NYH_FLD_VISESFRA)) > Date() then
                    doInclude = false
                end if
            end if
        end if
       
        'er der kategorier ?
        if isarray(NYHEDSKATEGORI_ARR) then
            'skal denne kategori vises ?
            if kategori <> cInt(contentArray(NYH_FLD_KATEGORI)) then
                doInclude = false
            end if
        end if
       
        'tilføj filnavnet
        redim preserve contentarray(ubound(contentarray) + 1)
        contentarray(ubound(contentarray)) = afile.name
       
        if doinclude then
            nyhedsarray(nyhedscnt) = contentArray
            nyhedscnt = nyhedscnt + 1
        end if
        if nyhedscnt > max_num_of_nyheder then
            exit for
        end if
    next
    nyhedscnt = nyhedscnt - 1
   
    if filesToDelete <> "" then
        filesToDelete = left(filesToDelete, len(filesToDelete) -1)
        filesToDelete = split(filesToDelete, "¤")
        for ii = 0 to ubound(filesToDelete)
            call db_slet_record (filesToDelete(ii))
        next
    end if
   
   
   
end sub

%>
<html>

    <head><meta name="Author" content="Media Integration">


        <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
        <title>Nyheder</title>
        <link rel="stylesheet" href="../../txt.css">
       
        <script language="JavaScript">
            var popUpwindow, orderwindow
            function showtxt(filename)
            {
                var anurl ='nyheds_vistext.asp?ID=' + filename + '&rnd=' + Math.random()
                popUpwindow=window.open(anurl,'Beskrivelse','toolbar=no,width=400,height=400,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no')
            }
            function showimage(filename)
            {
                var anurl ='nyheds_visbillede.asp?ID=' + filename + '&rnd=' + Math.random()
                popUpwindow=window.open(anurl,'Billede','toolbar=no,width=500,height=400,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no')
            }
               
            function dosubmit()
            {
                document.form1.submit();
            }

        </script>
    </head>

    <body bgcolor="#fff7eb" onLoad="top.mastertop.document.location.href='../mastertop/nyhedtop.html'" leftmargin="5" marginwidth="5" topmargin="5" marginheight="5">
        <%
        tmpKatlnkstr = ""
        if isArray(NYHEDSKATEGORI_ARR) then
            tmpKatlnkstr = "kat=" & kategori
        end if%>
       
       
        <%if showAsAdmin then%>
            <p><a href="ret_nyhed.asp?<%=tmpKatlnkstr%>"><b>OPRET NYHED...</b></a>
                  <a href="nyhederindhold.asp?<%=tmpKatlnkstr%>"><b>Vis listen som brugeren ser den...</b></a>
            </p>
        <%else%>
            <%if isAdmin = SHOP_LOGIN_KODE then%>
                <p><a href="nyhederindhold.asp?modus=a&<%=tmpKatlnkstr%>"><b>Vis listen med administrationsfunktioner...</b></a>
            </p>
            <%end if%>
        <%end if%>
       
        <table border="0" cellpadding="3" cellspacing="0" width="535">
            <%if isarray(NYHEDSKATEGORI_ARR) then%>
                <tr>
                    <td colspan="3" valign="bottom" align="right">
                        <hr>
                    </td>
                </tr>
                <tr>
                    <td colspan="3" valign="bottom" align="left">
                        <p class="poptoptext"><font color="#000000"> <%=NYHEDSKATEGORI_ARR(kategori)%></font></p>
                    </td>
                </tr>
                <tr>
                    <td colspan="3" valign="bottom" align="right">
                        <hr>
                    </td>
                </tr>
            <%end if%>
            <%
            nowshowing = ""
            for ii = nyhedscnt to 0 step -1
                if nyhedsarray(ii)(NYH_FLD_BILLEDE) <> "" then
                    numofcols = 2
                else
                    numofcols = 1
                end if
                %>
                <tr>
                    <td width="80"><%=nyhedsarray(ii)(NYH_FLD_VISESFRA)%></td>
                    <%if nyhedsarray(ii)(NYH_FLD_BILLEDE) = "" then%>
                        <td colspan="2" width="455"><b><%=nyhedsarray(ii)(NYH_FLD_NAVN)%></b></td>
                    <%else%>
                        <td width="355"><b><%=nyhedsarray(ii)(NYH_FLD_NAVN)%></b></td>
                        <td rowspan="2" valign="top" align="right" >
                           
                            <a href="java script:showimage('<%=nyhedsarray(ii)(NYH_FLD_FILNAVN)%>')" ><img src="<%= PATH_TO_NYHEDS_THUMBS & "/" & nyhedsarray(ii)(NYH_FLD_THUMB)%>" border="0"></a>
                           
                        </td>
                    <%end if%>
                </tr>
                <tr>
                    <td></td>
                    <%if nyhedsarray(ii)(NYH_FLD_BILLEDE) = "" then%>
                        <td colspan="2" width="455">
                    <%else%>
                        <td width="355">
                    <%end if%>
                   
                        <%= replace(left(nyhedsarray(ii)(NYH_FLD_BESKRIVELSE), 200), chr(13), "<br>")%>                           
                        <%if len(nyhedsarray(ii)(NYH_FLD_BESKRIVELSE)) > 200 then%>
                            ...<a href="java script:showtxt('<%=nyhedsarray(ii)(NYH_FLD_FILNAVN)%>')"> Læs mere</a>
                        <%end if%>
                    </td>
                </tr>
                   

               
                <%if showAsAdmin then%>
                    <tr height="18">
                        <td valign="bottom" height="18" colspan="3">
                            <%if nyhedsarray(ii)(NYH_FLD_VISESTIL) <> "" then%>
                                 <i>Slettes d. <%=nyhedsarray(ii)(NYH_FLD_VISESTIL)%></i>
                            <%end if%>
                        </td>
                    </tr>
               
                    <tr height="18">
                        <td bgcolor="#faebd7" valign="bottom" height="18" colspan="3">
                              <a href="ret_nyhed.asp?ID=<%=nyhedsarray(ii)(NYH_FLD_FILNAVN)%>&kat=<%=kategori%>"><b>RET NYHED</b></a> / <a href="slet_nyhed.asp?ID=<%=nyhedsarray(ii)(NYH_FLD_FILNAVN)%>&kat=<%=kategori%>"><b>SLET NYHED</b></a>
                        </td>
                    </tr>
                <%end if%>
               
                <tr>
                        <td colspan="3" valign="top" align="right">
                            <hr>
                        </td>
                </tr>
           
            <%next%>
        </table>
   
    </body>

</html>


Her kommer den anden


<%@ Language=VBScript %>
<%

%>
<!-- #INCLUDE FILE="../kodeincludes/constants_inc.asp" -->
<!-- #INCLUDE FILE="_gaestebog_inc.asp" -->
<!-- #INCLUDE FILE="../kodeincludes/identify_inc.asp" -->
<!-- #INCLUDE FILE="_db_gaestebog_functions_inc.asp" -->
<%
'***VARIABLER
dim nyhedsarray()
redim nyhedsarray(max_num_of_indlaeg)
dim nyhedscnt

call setisAdmin() 'er det admin ?

showAsAdmin = false

if Request.QueryString("modus") = "a" and isAdmin = SHOP_LOGIN_KODE then
    showasadmin = true
end if

if not isArray(GAESTEBOGKATEGORI_ARR) then
    kategori = -1
else
    if Request.QueryString("kat") = "" then
        kategori = 0 'default til 1. kategori
    else
        kategori = cInt(Request.QueryString("kat"))
    end if
end if

if kategori = -1 then
    indlaegSkalGodkendes = GAESTEBOGGODK_ARR(0)
else
    indlaegSkalGodkendes = GAESTEBOGGODK_ARR(kategori)
end if

if indlaegSkalGodkendes = "J" then
    indlaegSkalGodkendes = true
else
    indlaegSkalGodkendes = false
end if

'showAsAdmin = true 'OBS OBS

'***HOVEDPROGRAM
call db_get_list

'***SUBS OG FUNCTIONS

sub db_get_list
    dim fso
    dim abs_path
    dim ff, filecontent
    dim contentarray
    dim filesToDelete
    filesToDelete = ""
   
    abs_path = server.MapPath(SHOP_PATH_TO_LOG & "/kodegaestebogDB") 'PATH_TO_DB)
    nyhedscnt = 0
   
   
   
    set Fso = CreateObject("Scripting.FileSystemObject")
    if not fso.FolderExists(abs_path) then
        Response.write "Fejl: Databasefolderen kunne ikke findes pŒ '" & abs_path & "'. Kan ikke forts¾tte"
        Response.End
    end if

    Set f = fso.GetFolder(abs_path)
    Set fc = f.Files
    for each afile in fc
        set ff = Fso.OpenTextFile(abs_path & "/" & afile.name, 1)
        filecontent = ff.readall
        ff.close
        contentarray = split(filecontent, DEL)
       
        doinclude = true
       
        'skal det slettes ?
        if contentArray(GB_FLD_VISESTIL) <> "" then
            if cDate(contentArray(GB_FLD_VISESTIL)) < Date() then
                doInclude = false
                filesToDelete = filesToDelete & afile.name & "¤"
            end if
        end if
       
        if not showAsAdmin then
            if contentArray(GB_FLD_VISESFRA) <> "" then
                if cDate(contentArray(GB_FLD_VISESFRA)) > Date() then
                    doInclude = false
                end if
            end if
        end if
       
        if not showAsAdmin and indlaegSkalGodkendes then
            if contentArray(GB_FLD_PUBLISERET) <> "J" then
                doInclude = false
            end if
        end if
       
        'er der kategorier ?
        if isarray(GAESTEBOGKATEGORI_ARR) then
            'skal denne kategori vises ?
            if kategori <> cInt(contentArray(GB_FLD_KATEGORI)) then
                doInclude = false
            end if
        end if
       
        'tilf¿j filnavnet
        redim preserve contentarray(ubound(contentarray) + 1)
        contentarray(ubound(contentarray)) = afile.name
       
        if doinclude then
            nyhedsarray(nyhedscnt) = contentArray
            nyhedscnt = nyhedscnt + 1
        end if
        if nyhedscnt > max_num_of_indlaeg then
            exit for
        end if
    next
    nyhedscnt = nyhedscnt - 1
   
    if filesToDelete <> "" then
        filesToDelete = left(filesToDelete, len(filesToDelete) -1)
        filesToDelete = split(filesToDelete, "¤")
        for ii = 0 to ubound(filesToDelete)
            call db_slet_record (filesToDelete(ii))
        next
    end if
   
   
   
end sub

%>
<html>

    <head><meta name="Author" content="Media Integration">


        <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
        <title>Gæstebog</title>
        <link rel="stylesheet" href="../../txt.css">
       
        <script language="JavaScript">
            var popUpwindow, orderwindow
            function showtxt(filename)
                {
                    var anurl ='gaestebog_vistext.asp?ID=' + filename + '&rnd=' + Math.random()
                    popUpwindow=window.open(anurl,'Beskrivelse','toolbar=no,width=400,height=400,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no')
                }
            function showimage(filename)
                {
                    var anurl ='gaestebog_visbillede.asp?ID=' + filename + '&rnd=' + Math.random()
                    popUpwindow=window.open(anurl,'Billede','toolbar=no,width=500,height=400,directories=no,status=no,scrollbars=yes,resizable=yes,menubar=no')
                }
               
            function dosubmit()
            {
                document.form1.submit();
            }

        </script>
    </head>

    <body bgcolor="#fff7eb" onLoad="top.mastertop.document.location.href='../mastertop/gastetop.html'" leftmargin="5" marginwidth="5" topmargin="5" marginheight="5">
        <%
        tmpKatlnkstr = ""
        if isArray(GAESTEBOGKATEGORI_ARR) then
            tmpKatlnkstr = "kat=" & kategori
        end if%>
        <p><a href="ret_gaestebog.asp?<%=tmpKatlnkstr%>"><b>Skriv i gæstebogen...</b></a></p>
       
        <%if showAsAdmin then%>
            <p>
                <a href="gaestebogindhold.asp?<%=tmpKatlnkstr%>"><b>Vis listen som brugeren ser den...</b></a>
            </p>
        <%else%>
            <%if isAdmin = SHOP_LOGIN_KODE then%>
                <p>
                    <a href="gaestebogindhold.asp?modus=a&<%=tmpKatlnkstr%>"><b>Vis listen med administrationsfunktioner...</b></a>
                   
                </p>
            <%end if%>
        <%end if%>
       
        <table border="0" cellpadding="3" cellspacing="0" width="535">
            <%if isarray(GAESTEBOGKATEGORI_ARR) then%>
                <tr>
                <td colspan="3" valign="bottom" align="right">
                        <hr>
                    </td>
            </tr>
                <tr>
                <td colspan="3" valign="bottom" align="left">
                        <p class="poptoptext"><font color="#000000"> <%=GAESTEBOGKATEGORI_ARR(kategori)%></font></p>
                    </td>
            </tr>
                <tr>
                <td colspan="3" valign="bottom" align="right">
                        <hr>
                    </td>
            </tr>
            <%end if%>
            <%
            nowshowing = ""
            for ii = nyhedscnt to 0 step -1
                if nyhedsarray(ii)(GB_FLD_BILLEDE) <> "" then
                    numofcols = 2
                else
                    numofcols = 1
                end if
                bgcol = ""
                if indlaegSkalGodkendes and nyhedsarray(ii)(GB_FLD_PUBLISERET) <> "J" then
                    bgcol = " bgcolor=#ffffe0 "
                end if
                %>
                <tr <%=bgcol%>>
                    <td width="80"><%=nyhedsarray(ii)(GB_FLD_VISESFRA)%></td>
                    <%if nyhedsarray(ii)(GB_FLD_BILLEDE) = "" then%>
                        <td colspan="2" width="455"><b><%=nyhedsarray(ii)(GB_FLD_NAVN)%></b></td>
                    <%else%>
                        <td width="355"><b><%=nyhedsarray(ii)(GB_FLD_NAVN)%></b></td>
                        <td rowspan="2" valign="top" align="right" >
                            <a href="java script:showimage('<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>')" ><img src='<%= PATH_TO_GAESTEBOG_THUMBS & "/" & nyhedsarray(ii)(GB_FLD_THUMB)%>' border="0"></a>
                        </td>
                    <%end if%>
                </tr>
                <tr <%=bgcol%>>
                    <td></td>
                    <%if nyhedsarray(ii)(GB_FLD_BILLEDE) = "" then%>
                        <td colspan="2" width="455">
                    <%else%>
                        <td width="355">
                    <%end if%>
                   
                        <%= left(nyhedsarray(ii)(GB_FLD_BESKRIVELSE), 65)%>                           
                        <%if len(nyhedsarray(ii)(GB_FLD_BESKRIVELSE)) > 65 then%>
                            ...<a href="java script:showtxt('<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>')"> Læs mere</a>
                        <%end if%>
                    </td>
                </tr>
                   

               
                <%if showAsAdmin then%>
                    <tr height="18" <%=bgcol%>>
                <td valign="bottom" height="18" colspan="3">
                            <%if nyhedsarray(ii)(GB_FLD_VISESTIL) <> "" then%>
                                 <i>Slettes d. <%=nyhedsarray(ii)(GB_FLD_VISESTIL)%></i>
                            <%end if%>
                        </td>
            </tr>
               
                    <tr height="18" <%=bgcol%>>
                <td bgcolor="#faebd7" valign="bottom" height="18" colspan="3">
                              <a href="ret_gaestebog.asp?ID=<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>&kat=<%=kategori%>"><b>RET INDLÆG</b></a> / <a href="slet_gaestebog.asp?ID=<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>&kat=<%=kategori%>"><b>SLET INDLÆG</b></a>
                            <%if indlaegSkalGodkendes then
                                if nyhedsarray(ii)(GB_FLD_PUBLISERET) = "J" then%>
                                    / <a href="publiser_gaestebog.asp?ID=<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>&STAT=N&kat=<%=kategori%>"><b>FJERN GODKENDELSE AF INDLÆG</b></a>
                                <%else%>
                                    / <a href="publiser_gaestebog.asp?ID=<%=nyhedsarray(ii)(GB_FLD_FILNAVN)%>&STAT=J&kat=<%=kategori%>"><b>GODKEND INDLÆG</b></a>
                                <%end if
                            end if%>
                        </td>
            </tr>
                <%end if%>
               
                <tr>
                <td colspan="3" valign="top" align="right">
                        <hr>
                    </td>
            </tr>
           
            <%next%>
        </table>
   
    </body>

</html>
Avatar billede killerbob Nybegynder
20. november 2009 - 07:36 #1
Ingen hjælp at hente ??
Avatar billede kgkg Nybegynder
20. november 2009 - 13:18 #2
Er du sikker på at dine include filer bliver indlæst?

Grunden til mit spørgsmål er at du i dine include statements, bruger ParentPath funktionen. Den er som standard slået fra i 2003. Der plejer dog at kommen en anden fejl, men bare for at udelukke den Så tjek lige om dine include filer virkelig bilver indlæst.

Din fejl siger at NYH_FLD_VISESTIL er tom i linjen:

  if contentArray(NYH_FLD_VISESTIL) <> "" then

Men du har ikke inkluderet dine include filer, så det er ikke mulligt at se hvad der proppet i NYH_FLD_VISESTIL.
Avatar billede kgkg Nybegynder
20. november 2009 - 13:28 #3
Nu skrev jeg Din fejl siger at NYH_FLD_VISESTIL er tom hvilket ikke er helt rigtigt, så ville du få en fejl i din SPLIT kommando.

Hvad indeholder NYH_FLD_VISESTIL?
Avatar billede killerbob Nybegynder
20. november 2009 - 15:07 #4
ParentPath er explicit slået TIL på min IIS

Her kommer includes .... nøjes med "nyheder"

db_nyheds_functions_inc.asp

<%

function db_get_record (someFileName)
    dim contentarray, Fso, ff
    set Fso = CreateObject("Scripting.FileSystemObject")
    'Response.Write server.MapPath(SHOP_PATH_TO_LOG & "/kodenyhedssdb") & "\" & someFileName
    'Response.end
    set ff = Fso.OpenTextFile(server.MapPath(SHOP_PATH_TO_LOG & "\kodenyhedsdb") & "\" & someFileName, 1)
   
   
    filecontent = ff.readall
    ff.close
    set ff = nothing
    db_get_record = split(filecontent, DEL)
end function

sub db_slet_record(someFileName)
    dim Fso, ff, fullpath
   
    call db_slet_billede (someFileName)
   
    set Fso = CreateObject("Scripting.FileSystemObject")
   
    fullpath = server.MapPath(SHOP_PATH_TO_LOG & "\kodenyhedsdb") & "\" & someFileName
    if fso.fileexists(fullpath) then
        Fso.deletefile fullpath, true
    end if
end sub

function db_makenewfilenumber()
    dim Fso, ff
    dim lastval, fullpath
    dim filecontent
    set Fso = CreateObject("Scripting.FileSystemObject")
    fullpath = server.MapPath(SHOP_PATH_TO_LOG) & "/lastfilenumberused_nyheder.txt"
    if not Fso.fileexists(fullpath) then
        Set ff = Fso.CreateTextFile(fullpath, True)
        ff.Write("1")
        ff.Close
        newval = 1
    else
        set ff = Fso.OpenTextFile(fullpath, 1)
        filecontent = ff.readall
        ff.close
        lastVal = cint(filecontent)
        newval = lastVal + 1
        set ff = Fso.OpenTextFile(fullpath, 2)
        ff.write(newval)
        ff.close
    end if
    set ff = nothing
    set Fso = nothing
    newval = cStr(newval)
    while len(newval) < 5
        newval = "0" & newval
    wEnd
    db_makenewfilenumber = newval
end function

function db_write_record (aContentArr, optFilename, imageIsSupplied)
    'hvis der gives et filnavn bruges dette
    ' hvis filnavnet er -1 så er det en ny fil
    dim contentStr, Fso, ff, fullpath
   
    dim newfullimage
   
    set Fso = CreateObject("Scripting.FileSystemObject")
   
   
    if optFilename = -1 then 'ny fil
        optFilename = db_makenewfilenumber() '& ".txt"
    end if
   
    'og så billedet
    if imageIsSupplied then
        for each file in upload.Files
            newfullimage = PATH_TO_NYHEDS_BILLEDER & "/" & optFilename & ".jpg"
            newtempimage = PATH_TO_NYHEDS_TEMP & "/" & optFilename & ".jpg"
            'kopier billeder til temp directoriet i fuld størrelse
            File.CopyVirtual newtempimage
            File.Delete
            'Lav stort billede og thumb
            'makeImageVar (aFileObj, anOrigFileName, 300, IMAGE_THUMB_H, priority, aFrompath, aToPath, remSizeRequest)
            makeImageVar -1, optFilename & ".jpg", 400, NYHEDS_IMAGE_FULL_H, "H", server.MapPath(PATH_TO_NYHEDS_TEMP) & "\", server.MapPath(PATH_TO_NYHEDS_BILLEDER) & "\"
            makeImageVar -1, optFilename & ".jpg", 160, NYHEDS_IMAGE_THUMB_H, "H", server.MapPath(PATH_TO_NYHEDS_TEMP) & "\", server.MapPath(PATH_TO_NYHEDS_THUMBS) & "\"
           
            'slet den fulde udgave
            fullpath = server.MapPath(PATH_TO_NYHEDS_TEMP) & "\" & optFilename & ".jpg"
            if Fso.fileexists(fullpath) then
                Fso.DeleteFile fullpath, true
            end if
        next
        'vi overskriver indholdet af aContentArr's billede og thumb
        aContentArr(NYH_FLD_BILLEDE) = optFilename & ".jpg"
        aContentArr(NYH_FLD_THUMB) = optFilename & ".jpg"
    end if
   
    'så laver vi strengen til filen
    contentStr = ""
    for ii = 0 to NYH_LAST_IX - 1 'vi fraregner filnavn
        contentStr = contentStr & aContentArr(ii) & "¤"
    next
    contentStr = left(contentStr, len(contentStr) - 1)
   
    fullpath = server.MapPath(SHOP_PATH_TO_LOG & "/kodenyhedsdb") & "/" & optFilename
    if fso.fileexists(fullpath) then
        fso.deletefile fullpath, true
    end if
    'lav en ny fil
    Set ff = Fso.CreateTextFile(fullpath, True)
    ff.Write(contentStr)
    ff.Close
    set ff = nothing
    set Fso = nothing
    db_write_record = optFilename
end function

sub db_slet_billede(someFileName)
    dim Fso, fullpath
    dim contentArr, oldBillede, oldThumb
    contentArr = db_get_record(someFileName)
    oldBillede = contentArr (NYH_FLD_BILLEDE)
    oldThumb = contentArr (NYH_FLD_THUMB)
   
    set Fso = CreateObject("Scripting.FileSystemObject")
    'billedet
   
    fullpath = server.MapPath(PATH_TO_NYHEDS_BILLEDER) & "\" & oldBillede

    if Fso.fileexists(fullpath) then
        Fso.DeleteFile fullpath, true
    end if
    'thumben
    fullpath = server.MapPath(PATH_TO_NYHEDS_THUMBS) & "\" & oldthumb
    if Fso.fileexists(fullpath) then
        Fso.DeleteFile fullpath, true
    end if
    'skriv tekstfilen tilbage
    contentArr (NYH_FLD_BILLEDE) = ""
    contentArr (NYH_FLD_THUMB) = ""
    call db_write_record (contentArr, someFileName, false)
end sub



%>


Nyheder_inc.asp

<%
'DATA DER SKAL S®TTES PR SITE :

'NYHEDS KATEGORIER - de kategorier der skal v¾re tilg¾ngelige i nyheder.
'Angives som en streng hvor hver kategori er adskilt med kommaer.
'Databasen gemmer kun henvisninger til disse titler. F. eks 0 for f¿rste kategori.
'Dvs. titlen kan siden ¾ndres nedenfor uden at databasen skal opdateres
'Hvis der ikke skal anvendes kategorier s¾ttes den til tom streng dvs = ""
dim NYHEDS_KATEGORIER
NYHEDS_KATEGORIER = ""



'SLUT P DATA DER SKAL S®TTES PR SITE*****************************************************************




'nyheder databasebeskrivelse
Const NYH_FLD_VISESFRA = 0
Const NYH_FLD_VISESTIL = 1
Const NYH_FLD_NAVN = 2
const NYH_FLD_BESKRIVELSE = 3
const NYH_FLD_THUMB = 4
const NYH_FLD_BILLEDE = 5
const NYH_FLD_KATEGORI = 6
const NYH_FLD_FILNAVN = 7

const NYH_LAST_IX = 7
const max_num_of_nyheder = 30

'h¿jde for thumbs i nyheder
const NYHEDS_IMAGE_THUMB_H = 70
'h¿jde for fuld udgave i nyheder
const NYHEDS_IMAGE_FULL_H = 400

'stier vedr nyheder
dim PATH_TO_NYHEDS_BILLEDER
PATH_TO_NYHEDS_BILLEDER = SHOP_PATH_TO_LOG & "/kodenyhedsbilleder/full"

dim PATH_TO_NYHEDS_THUMBS
PATH_TO_NYHEDS_THUMBS = SHOP_PATH_TO_LOG & "/kodenyhedsbilleder/thumbs"

dim PATH_TO_NYHEDS_TEMP
PATH_TO_NYHEDS_TEMP = SHOP_PATH_TO_LOG & "/kodenyhedsbilleder/temp"

dim NYHEDSKATEGORI_ARR
if NYHEDS_KATEGORIER = "" then
    NYHEDSKATEGORI_ARR = -1
else
    NYHEDSKATEGORI_ARR = split(NYHEDS_KATEGORIER, ",")
end if
%>


Lad mig lige vide om du har brug for de sidste to
Avatar billede kgkg Nybegynder
20. november 2009 - 19:46 #5
Hvad indeholder filecontent i nyhederindhold.asp (linje 63)

Du kan indsætte følgende linjer efter linje 63, for at udskrive resultatet og stoppe udførslen af resten af koden:

  Responde.Write(nyhederindhold.asp)
  Responde.End


contentArray skal mindst indeholde 2 værdier, og der gør den tilsyneladende ikke. Variablen: NYH_FLD_VISESTIL har værdien 1. Så derfor skal vi lige vide hvad filecontent indeholder.
Avatar billede kgkg Nybegynder
20. november 2009 - 19:48 #6
Og så var det lige Response og ikke Responde
Avatar billede killerbob Nybegynder
20. november 2009 - 21:18 #7
Går ud fra at du mener  response.write filecontent

Og så får jeg et af indlæggene i nyhedsbrevet...

12-3-2005¤¤Kolonnekørsel¤
Ca. 2 min før afgang gives der et signal (råb eller fløjten), hvorefter man begynder at klargøre sig til kørsel. Frontkøreren ligger altid yderst til venstre på egen vejbane. Det er altid frontkøreren, der bestemmer fart og rute, og man følger altid med, såfremt det ikke er i strid med færdselsloven.

Indtag en zig-zag formation fra starten. Du skal holde din plads indtil turen er afsluttet, da det giver størst ro i geleddet, og vores Road Captains ved hvor du/I kører, og samtidig giver det en større sikkerhed for dig og dine venner.

Det er meget vigtigt at du holder din bane/linie. Det vil sige, kører du som venstre mand, må du ikke snitte hjørner eller slingre fra side til side. Hold din plads og kør aldrig i midten af kolonnens to rækker.

Overhal aldrig forankørende i din række.

Hold afstand til forankørende i samme spor. Ca. 10-20 meter ved 50 km/t, derover min 25-40 m. Dette er af hensyn til dig selv og de andre, du kører sammen med. En tommelfingerregel er ½ afstand i meter af hastighed. F.eks. ved 80 km/t = 40 meter.

Er der en, der falder fra under kørslen, kører den der kører bag ved op på dennes plads, dvs. denne række i kolonnen rykker op, venstremænd/kvinder forbliver venstre m/k, og højre m/k, forbliver højre m/k.

Kryds eller skift aldrig række i kolonnen, da det kan give en masse uro i kolonnen og afstedkomme farlige situationer.

Ved indkørsel i en rundkørsel bliver man på sin plads i rækken og kører i afpasset fart ind i denne. Dvs. du bruger den del af vejbanen, som du også kører på ved lige strækninger.

Ved udkørsel til anden vej eller i kryds, hvor der stoppes, rykker kolonnen op, så man holder to og to sammen for straks efter, at man har fortaget svingning, at indtage den plads, man havde ved kørsel.

Ved kørsel på smalle veje kan det være nødvendigt at køre i enkel kolonne. Frontkøreren trækker ind i højre vejbanes del, og resten af venstre række følger efter (indfletning). Her skal man udvise stor forsigtighed. Så snart forholdene er til det, indtages den zig-zag formation man havde igen. Dette bestemmes ligeledes af frontkøreren.

Overhaling på landevej: Det er frontkøreren, der overhaler først, følg ikke efter, før du er sikker på, at det kan gøres på forsvarlig måde.

Overhaling på motorvej: Sidste mand kører ud i den anden bane og lukker af. Derefter kører man ud, når man kan se, at der er klar bane. Hold din position i kolonnen!

Den forankørende er altid ansvarlig for, at den bagved kørende er med. Sænk om nødvendigt farten. Dette gælder ikke ved frafald, her er det sidste mand i kolonnen, der tager kontakt til vedkommende. Resten holder ind ved det første passende sted, hvor man ikke holder til fare for os selv eller den øvrige trafik.

Hvis der kommer et bagfra kommende udrykningskøretøj, kører bagerste mand ind i højre banedel, og resten følger med, indtil køretøjet er passeret, og der igen er klar bane. Derefter indtager man den plads man havde før.

Hastigheden i starten af kolonnen er mest rolig og langsom, så hvis du/I er usikker i kolonnekørsel, skal du placere dig i den forreste del af denne. Er du derimod til det lidt kvikke kørsel, er det bagerst, du skal placere dig. Men uanset hvor du befinder dig i kolonnen, skal du altid være opmærksom, da det ikke er ufarligt at køre på denne måde.

Gruppeparkering. Det ser rigtig godt ud hvis vi parkerer side ved side; dvs. frontkøreren kører hen og bakker sin HD på skrå ind, så baghjulet næsten rører kantstenen. Derefter kører den næste ind osv. Husk på at der ikke er noget, der ser mere sjusket ud end en masse HD'er, der står hulter til bulter.

Man møder altid med fuld tank, og hvis der er spisning på programmet, med tom mave.

Hvis der er nogle forhold, du er usikker på, skal du tale med den Road Captain, der er leder på turen. Så vil han tage hånd om dette. Her tænkes der på usikker i sving, høj fart, det at køre i kolonne osv. Hold dig ikke tilbage, da vi alle skal være med på vores egne vilkår. Så skal det nok komme med tiden. Husk på, at Road Captains ikke er mekanikere, kun vejvisere. Du er selv ansvarlig for, at din HD er i form.

¤00010.jpg¤00010.jpg¤-1
Avatar billede killerbob Nybegynder
20. november 2009 - 21:19 #8
KAN det tænkes at "out of range" handler om at Datoen øverst er skrevet på en anden måde end den nye server forstår .... ?
Avatar billede killerbob Nybegynder
20. november 2009 - 21:32 #9
Hvis jeg udkommenterer fra linie 70

    'skal det slettes ?
        'if contentArray(NYH_FLD_VISESTIL) <> "" then
        '    if cDate(contentArray(NYH_FLD_VISESTIL)) < Date() then
        '        doInclude = false
        '        filesToDelete = filesToDelete & afile.name & "¤"
        '    end if
        'end if

Så får jeg denne:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'cDate'

/copenhagen/nyheder/nyhederindhold.asp, line 79


ER der noget med de datoer ???
Avatar billede kgkg Nybegynder
20. november 2009 - 21:46 #10
#7 Går ud fra at du mener  response.write filecontent

Ja selvfølgelig...

#8 Nej det tror jeg ikke.

Jeg tror at problemet er at din fil ikke splittes op med SPLIT kommandoen. Så dit array kun indeholder en enkelt værdi på position 0 og

I din SPLIT kommando bruger du DEL til at splitte med. Hvilket tegn er DEL?

#9 Du får Type mismatch: 'cDate' fordi dit array indeholder noget andet end datoen.
Avatar billede killerbob Nybegynder
20. november 2009 - 22:06 #11
Const DEL = "¤"
Avatar billede kgkg Nybegynder
20. november 2009 - 22:12 #12
Det kan jo godt tænkes at det tegn ikke findes i den kodetabel som bruges på computeren.

Har du mulighed for at bruge | (pipe) tegnet i stedet for?
Avatar billede killerbob Nybegynder
20. november 2009 - 22:18 #13
ikke så godt ..... der ligger en mængde indlæg - ikke så meget i nyhedssiden men mere gæstebogen (formentlig samme problem med den). Det vil tage en krig at editere alle de indlæg....

Når jeg sidder direkte på serveren vises tegnet fint ... det ville det vel ikke hvis ikke det var en del af tegntabellen  - eller ???
Avatar billede killerbob Nybegynder
20. november 2009 - 22:20 #14
Jeg har også lige lagt "response.write DEL" ind i koden - og i browseren returneres ¤ fint .....
Avatar billede kgkg Nybegynder
20. november 2009 - 22:35 #15
Har du mulighed for at teste på en enkelt fil?

Det er mere for at udlukke at det ikke er problemet.

Du kan også prøve at teste om DEL er lig med tegnet på position 10 i din fil.

Så du skal lige skrive noget kode som henter tegnet lige efter datoen og sammenligne det med DEL tegnet.

Jeg regner med at du ved hvordan det kodes ellers sig til.
Avatar billede killerbob Nybegynder
20. november 2009 - 22:36 #16
UTROLIGT ... jeg ville lige teste om det hjalp noget at slette alle filer i biblioteket (indholdet) - og så så at det lå en ws_ftp.log fil i mappen sammen med alt det andet... det er jo bare en log fra ftp-overførslen ... Efter den er slettet virker NYHEDERNE ..... MEN tilsvarende hjalp IKKE i gæstebogen
Avatar billede kgkg Nybegynder
20. november 2009 - 22:48 #17
Ja, OK. Det er forståligt at den fejler i ftp log filen.

Der ligger så ikke en eller anden mystisk fil hvor gæstebogen ligger?

Det ville jo næsten være indlysende.
Avatar billede kgkg Nybegynder
20. november 2009 - 22:50 #18
Prøv evt kun at lægge en enkelt fil i gæstebogen. Og se om denne enkelte fil også fejler.

Det kan jo være en bitfejl i en af dine filer i gæstebogen.
Avatar billede kgkg Nybegynder
20. november 2009 - 22:59 #19
Kan du ikke teste om filecontent indeholder DEL tegnet. Og hvis ikke så skal denne fil ignoreres eller bedre. Sørge for at der smides en fejltekst i listen, som skriver filnavnet på den fil som indeholder problemet.

Du kan jo teste med if InStr(filecontent, DEL) <= 0 then fejlbesked.

Du kan enten lave et permanent tjek eller bare bruge det til debugging.
Avatar billede killerbob Nybegynder
20. november 2009 - 23:00 #20
SÅ .... spiller det  !!

Der var ET ENKELT almindeligt indlæg i gæstebogen  - endnu ikke godkendt af admin - tydeligvis fra en crawler... mystiske links OG gæt hvilket tegn  ;-)

TAK for hjælpen

Siden hedder  - www.hog.dk  - klik på Copenhagen
Avatar billede kgkg Nybegynder
20. november 2009 - 23:07 #21
Hæ, hæ, hæ.

Så kunne det være at du skulle lægge en test ind som jeg skrev om i #19.

Glad for at høre at det nu virker igen.
Avatar billede killerbob Nybegynder
20. november 2009 - 23:10 #22
HOW... det virker ikke som sidst jeg var her på eksperten ..... har lige fået tildelt mig selv point ... det var ikke meningen.. Hvordan flyttes de til dig ???
Avatar billede kgkg Nybegynder
20. november 2009 - 23:10 #23
Arh. #21 skulle ha' været et svar....

Men nu har du jo selv svaret ;)
Avatar billede kgkg Nybegynder
20. november 2009 - 23:11 #24
#22. Aner det ikke.

Glem det, det betyder ikke noget. Jeg gør ikke dette for point ;-)
Avatar billede killerbob Nybegynder
20. november 2009 - 23:20 #25
Næææ ok ... kan man overhovedet bruge dem til noget ??
Avatar billede kgkg Nybegynder
20. november 2009 - 23:29 #26
Vist ikke til andet end at man skal have plus på kontoen hvis man stiller et spørgsmål.
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
Kurser inden for grundlæggende programmering

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