hjælp jeg er dum !!

Du er sikker på at de to filer ligge i samme folder?

jep

en fantastisk sigende overskrift...

tak tak :-)

Prøv med, altså uden htmlencode for test:

autoHighlight(List("context"))

får stadig den dumme 500 internal error

Prøv i IE at slå dene fra:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "ved meddelelse om uskadelige http-fejl"

så skulle du gerne få en lidt bedre fejl kode.

ok nu får jeg følgende fejl :
Microsoft VBScript runtime error '800a01f4'

Variable is undefined: 'Conn'

/sune/www/admin/nyhed.asp, line 20

Her er min kode hvis du kan hjælpe mig :
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file = "functions.asp" -->
<%
    Response.Buffer = false
    Response.Expires = -1000
   
    'start validering af bruger
    If session("Access") = "ok" Then
        If session("type") = "admin" Then
        Elseif session("type") = "skribent" Then
        Else
            Response.Redirect("default.asp?error=2")
        End If
    Else
        Response.Redirect("default.asp?error=1")
    End If
    'slut valigering af bruger

    'start oprettelse af database forbindelse   
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/database.mdb")
    'slut oprettelse af database forbindelse
%>
<html>
    <head>
      <title>opret nyheder / slet nyheder / rediger nyheder</title>
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    </head>
  <body>
<%
    'start oprettelse og redigering af bruger
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        If Request.QueryString("createnyhed") = "true" Then
            SQLstr = "INSERT INTO nyhed (headline, context, username, email) VALUES ('"
            SQLstr = SQLstr & Request.Form("headline") & "', '" & Request.Form("context") & "', '"
            SQLstr = SQLstr & Request.Form("username") & "', '" & Request.Form("email") & "')"
        ElseIf Request.QueryString("editnyhed") = "true" Then
                SQLstr = "UPDATE nyhed SET headline = '" & Request.Form("headline") & "', context = '" & Request.Form("context") & "'"
                SQLstr = SQLstr & "WHERE nyhedsid = " & Request.Form("nyhedsid")
        End If
        Conn.Execute(SQLstr)
        'Conn.Close
        'Set Conn = Nothing       
        Response.Redirect("nyhed.asp")
    End If
    'slut oprettelse og redigering af bruger
   
    'start sletning af bruger
    If Not Request.QueryString("deletenyhed") = "" Then
        Conn.Execute("DELETE FROM nyhed WHERE nyhedsid = " & Request.QueryString("deletenyhed"))
        'Conn.Close
        'Set Conn = Nothing       
        Response.Redirect("nyhed.asp")
    End If
    'slut sletning af bruger


    'autoHighlight(Replace(Server.HTMLEncode(List("context")),vbCrLf,"<br>"))

    'start visning af nyheder
    Set List = Conn.Execute("SELECT *, Format$([date],'dd/mm/yyyy') AS formdate, Format$([date],'hh:mm') AS formtime FROM nyhed ORDER BY nyhedsid desc")
    Do While Not List.EOF
%>
<table width="480" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><%=List("headline")%></td>
    <td><%=List("formdate")%> | <%=List("formtime")%></td>
    <td><a href="nyhed.asp?editnyhed=<%=List("nyhedsid")%>">ret</a> | <a href="nyhed.asp?deletenyhed=<%=List("nyhedsid")%>">slet</a></td>
  </tr>
  <tr>
    <td colspan="3"><%=autoHighlight(List("context"))%></td>
  </tr>
  <tr>
    <td colspan="3">Skrevet af : <a href="mailto:<%=List("email")%>"><%=List("username")%></a></td>
  </tr>
</table><br><br>
<%
        List.MoveNext
    Loop
    List.Close
    'slut visning af nyheder
   
    If Not Request.QueryString("editnyhed") = "" Then
        Set List2 = Conn.Execute("SELECT * FROM nyhed WHERE nyhedsid=" & Request.QueryString("editnyhed"))
%>
    <form action="nyhed.asp?editnyhed=true" method="post">
        <input name="nyhedsid" value="<%=List2("nyhedsid")%>" type="hidden">
        headline : <input name="headline" value="<%=List2("headline")%>" type="text"><br>
        context : <textarea name="context"><%=List2("context")%></textarea><br>
        <input name="username" value="<%=List2("username")%>" type="hidden"><input name="email" value="<%=List2("email")%>" type="hidden">
        <input name="_reset" type="reset" value="reset"><input name="_submit" type="submit" value="submit">
    </form>
<%
    Else
%>
    <form action="nyhed.asp?createnyhed=true" method="post">
        headline : <input name="headline" type="text"><br>
        context : <textarea name="context"></textarea><br>
        <input name="username" value="<%=session("username")%>" type="hidden"><input name="email" value="<%=session("email")%>" type="hidden">
        <input name="_reset" type="reset" value="reset"><input name="_submit" type="submit" value="submit">       
    </form>
<%
    End If
    Conn.Close
    Set Conn = Nothing
%>
  </body>
</html>

du har sikket option explicit i inlcude filen så prøv at tilføje denne linje lige før linje 20.

dim conn

Du kan lukke et spørgsmål ved selv at svare og acceptere dit svar.

lukker