Headerfejl ??

Laver du kaldet efter du har brugt HTML koder?

Kan jeg muligvis se koderne... så vil jeg nok kunne sige noget om det =)
thomas@xspoiler.com

skriv i toppen:

<%
Response.Buffer = true
%>

Jeg har prøvet at sætte

<%
Response.Buffer = true
%>

men fejlen er den samme! Vil I se koden ??

ja...

Jeg kan ikke lige se nogen fejl i koden som skulle gøre det, kan godt være jeg er blevet halv blind.

Her er koden:

Det er noget med en Headerfejl i linje 28 ??

<%
If Session.Contents("AdminLevel") = "" Then
response.redirect("NP.asp")
end if
%>
              <b>Mailing </b>
              <%
response.write(request.querystring("action"))

dim lPage
if request.querystring("PageIndex") = "" then
lPage = 1
else
lPage = request.querystring("PageIndex")
end if

response.write("</b> (Page " & lPage & ")<br><br>")

mAction = request.querystring("action")

select case mAction

    case "List"
        call List()
    case "Edit"
        call Edit()
    case "Delete"
        call Delete()

end select

Function BuildNav (intPrev,IntNext,TotalPages)
    Dim counter

    BuildNav = BuildNav & "Page:  "

    counter = 1
    do while counter <= TotalPages
        if cint(counter) = cint(PageIndex) then
            BuildNav = BuildNav & counter
        Else
            BuildNav = BuildNav & "<a href=MailingEdit.asp?action=List&PageIndex="
            BuildNav = BuildNav & counter & ">" & Counter & "</a>"
        End if
       
        if cInt(counter) <> TotalPages then
            BuildNav = BuildNav & " | "
        end if
        counter = counter + 1
    Loop

    BuildNav = BuildNav & "<br><br>"

end function

Function List()

    set conn=Server.CreateObject("ADODB.Connection")
    conn.Provider="Microsoft.Jet.OLEDB.4.0"
    conn.Open(Server.Mappath("../../db/SpawnedMailer.mdb"))

    set rsMSign = Server.CreateObject("ADODB.recordset")
    rsMSign.Open "SELECT * FROM MailingList order by DateAdded desc", conn, 3, 1, 1


        Dim IntPageSize, PageIndex, TotalPages, TotalRecords

        IntPageSize = 5

        If request.querystring("PageIndex") = "" then
        PageIndex = 1
        else
        PageIndex = request.querystring("PageIndex")
        end If

        rsMSign.PageSize = intPageSize
        rsMSign.AbsolutePage = PageIndex

        TotalPages = rsMSign.PageCount

        dim intPrev, intNext
        intPrev = PageIndex - 1
        intNext = PageIndex + 1

        response.write BuildNav (intPrev,IntNext,TotalPages)

        response.write("Use the actions alongside your records.<br><br><br><table cellspacing='0' cellpadding='0' border='0' align='center' width='100%'><tr><td><i>Action</i></td><td><i>Mailing ID</i></td><td><i>Email Addy</i></td><td><i>Date Added</i></td></tr><tr><td><br></td></tr>")

            If not rsMSign.EOF Then
            Dim Count
            Count = 1

                do while NOT rsMSign.EOF AND Count <= IntPageSize

                response.write("<tr><td><a href='MailingEdit.asp?Action=Edit&num=" & rsMSign("MailingID") & "'>Edit</a> | <a href='MailingEdit.asp?Action=Delete&num=" & rsMSign("MailingID") & "'>Delete</a></td><td>" & rsMSign("MailingID") & "</td><td>" & rsMSign("MailingAddy") & "</td><td>" & rsMSign("DateAdded") & "</td></tr>")
                count = count + 1
                rsMSign.MoveNext
                Loop

            Else

            response.write("<tr><td colspan='4'><br><br><center><font color='#FF0000'>There are no records currently to be displayed.</font></center></td></tr>")

            End if

        response.write("</table>")

        rsMSign.close

        conn.close

        end function


Function Edit()

    Dim mID
    mID = request.querystring("num")

            set conn=Server.CreateObject("ADODB.Connection")
            conn.Provider="Microsoft.Jet.OLEDB.4.0"
            conn.Open(Server.Mappath("SpawnedMailer.mdb"))

            set rsMEdit = Server.CreateObject("ADODB.recordset")

If request.form.count = 0 then

            rsMEdit.Open "SELECT * FROM MailingList Where MailingID =" & mID, conn
            response.write("Edit the record:<br><br><br><form method='post' action='MailingEdit.asp?Action=Edit&num=" & mID & "'>Mailing ID:<br><input type='text' name='mailingid' readonly value='" & rsMEdit("MailingID") & "'><br><br>Mailing Addy:<br><input type='text' name='mailingaddy' value='" & rsMEdit("MailingAddy") & "'><br><br>Date Added:<br><input type='text' name='dateadded' value='" & rsMEdit("DateAdded") & "'><br><br><input type='submit' value='Edit!'></form>")
else

rsMEdit.Open "MailingList", conn, 2, 2
rsMEdit("MailingAddy") = Request.Form("mailingaddy")
rsMEdit("DateAdded") = Request.Form("dateadded")
rsMEdit.Update

response.write("The record has been updated. <a href='MailingEdit.asp?action=List'>EDIT MORE</a>")

end if

    rsMEdit.close
    conn.close

end function


Function Delete()

    Dim dID
    dID = request.querystring("num")
    dSQL = "DELETE * FROM MailingList WHERE MailingID =" & dID

            set conn=Server.CreateObject("ADODB.Connection")
            conn.Provider="Microsoft.Jet.OLEDB.4.0"
            conn.Open(Server.Mappath("SpawnedMailer.mdb"))
            conn.Execute dSQL
            conn.close
            response.write("The record has been deleted. <a href='MailingEdit.asp?action=List'>DELETE MORE</a>")

end function

response.write("<br><br><br><center><a href='AdminIndex.asp'>ADMIN HOME</a><center>")

%>

I første linie ser fejlen sådan her ud!

<% if not sAdminLevel = 2 then response.redirect("NP.asp") end if %><b>Admin <%

Hvor det er <b> der er fejlen, men jeg kan ikke bare slette <b> som jeg har gjordt i koden jeg gav jer lige før, så hvordan laver jeg det så?

Der står noget om at:

HTTP-headerne skrives allerede til klientbrowseren. Ændringer af HTTP-headers skal foretages, inden sideindholdet skrives.


Kan det være fejlen, og i såfald, hvordan rettes det??

Hvis man sætter bufferen til bliver alt asp kode udført før noget af det sendes til klienten. Dvs.:

<%
response.buffer = true

response.write "arbejder..."
response.write "færdig..."
response.redirect "default.asp"
%>

her omstiller den uden at skrive noget. Du skal derfor ikke sætte bufferen til. Hvis bufferen ikke er på og du sender et html header før du bruger response.redirect får du også problemer. Ex:

<%
response.write "<html>"
response.redirect "default.asp"
%>

vil ikke virke, mens

<%
response.buffer = true
response.write "<html>"
response.redirect "default.asp"
%>

vil virke

Jeg kan ikke overskue koden - men ovenstående fejl er velkendt. Du udføre html-kode før du laver en Redirect. Det kan sommetider ske uden man ser det. Specielt hvis man springer mellem ASP og html i sin kode.

Fejlen er ikke fundet endnu, men det tyder på at den ligger i en Include fil!!

det har jeg også prøvet. !