dvddatabase loader forkert data fra access

Du kan starte med at vise den kode du udfører for at gemme og hente data, for der kan være mange ting galt... det er væsentlig lettere at forholde sig til noget konkret kode.

her der koden for at rediger

<%Call Security()%>
<%
If intMode = "" Then
    intMode = "form1"
End If
intID = request("id")
    If intID = "" Then
        response.redirect "index.asp?page=info&id=0"
    End If

If intMode = "gem" Then

    intOrigTitle  = request.form("orig_title")
    intTitle      = request.form("Title")
    intAbstract    = request.form("Abstract")
    intGenre      = Replace(request.form("Genre"), " ", "")
    intNR      = request.form("NR")
        If intNR = "" Then
            intNR = "Original"
        End If
        intTID      = request.form("TID")
        If intTID = "" Then
            intTID = "UKENDT"
        End If
    intLink        = "http://"&Replace(request.form("Link"), "http://", "")
        If Replace(intLink, "http://", "") = "" Then
            intLink = "about:blank"
        End If
    intPart1_title = request.form("Part1_title")
    intPart1_loc  = request.form("Part1_loc")
    intPart2_title = request.form("Part2_title")
    intPart2_loc  = request.form("Part2_loc")
    intSynopsis    = request.form("Synopsis")
    intTALE        = request.form("TALE")
    intMedie      = request.form("Medie")
    intSub        = request.form("SUB")
    intUdlaant    = request.form("Udlaant")
    intLaaner      = request.form("Laaner")
    intRating      = abs(request.form("Rating"))
    intError      = ""
   
    If intOrigTitle <> intTitle AND CheckTitle(intTitle) = "True" Then
        intError = "Der er allerede oprettet en film med titlen: "&intTitle&". Giv filmen en anden titel!"
    ElseIf intTitle = "" Then
        intError = "Du skal give filmen en titel..."
    ElseIf len(intTitle) > 255 Then
        intError = "Filmens titel må max være 255 tegn"
    ElseIf intGenre = "" Then
        intError = "Du skal give filmen en genre..."
    ElseIf len(intGenre) > 255 Then
        intError = "Genren må max være 255 tegn"
    End If
   
    If intError = "" Then
        tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data/movies.mdb")
        Set rs = Server.CreateObject("ADODB.RecordSet")
        strSQL = "SELECT * FROM movies WHERE (ID = "&intID&")"
        rs.Open strSQL, tempConn, 1, 3
        If NOT (rs.BOF Or rs.EOF) Then
            rs("Abstract") = intAbstract
            rs("Title") = intTitle
            rs("Genre") = intGenre
            rs("Sub")  = intSUB
            rs("NR") = intNR
            rs("TID") = intTID
            rs("Link") = intLink
            rs("TALE") = intTALE
            rs("Medie") = intMedie
                If intUdlaant = "TRUE" Then
                    rs("Udlaant") = True
                Else
                    rs("Udlaant") = False
                End If
                If intLaaner <> "" Then
                    rs("Laaner") = intLaaner
                Else
                    rs("Laaner") = ""
                End If
            rs("Rating") = intRating
            rs.Update
            response.redirect "index.asp?page=edit&mode=form2&id="&intID
        End If
        rs.Close
    End If
End If
If intMode = "form1" OR intMode = "gem" Then
%>
<p align="center" style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #000000" bordercolor="#111111" width="450" id="AutoNumber1">
    <form method="POST" action="index.asp?page=edit&mode=gem&id=<%=intID%>" NAME="Movie">
      <tr>
        <td colspan="2" bgcolor="#C5C5C5" style="border-bottom: 1px solid #000000" width="448">
        <p align="right"><font size="1"><b>&nbsp;- Redigér Film</b></font></td>
      </tr>
      <tr>
        <td width="83" bgcolor="#E9E9E9"><font size="1">&nbsp;Titel:</font></td>
        <td width="365" bgcolor="#E9E9E9">
        <p align="center">
        <input type="TEXT" name="Title" size="50" style="font-family: Verdana; font-size: 8pt; border: 1px solid #000000" value="<%If request("Title") <> "" Then%><%=intTitle%><%Else%><%=GetData("movies", "Title", intID)%><%End If%>"></td>
      </tr>
      <tr>
        <td width="83" ><font size="1">&nbsp;Genre:</font></td>
        <td width="365" >
        <p align="center">
        <select size="1" name="Genre" style="font-family: Verdana; font-size: 8pt">
    <option selected value="<%If request("Genre") <> "" Then%><%=intGenre%><%Else%><%=GetData("movies", "Genre", intID)%><%End If%>"><%If request("Genre") <> "" Then%><%=intGenre%><%Else%><%=GetData("movies", "Genre", intID)%><%End If%>
    </option>
    <option value="Action">Action</option>
    <option value="Andet">Andet</option>
    <option value="Biografi">Biografi</option>
    <option value="Box set">Box set</option>
    <option value="Dansk film">Dansk film</option>
    <option value="Dokumentar">Dokumentar</option>
    <option value="Drama">Drama</option>
    <option value="Erotik">Erotik</option>
    <option value="Eventyr">Eventyr</option>
    <option value="Familie">Familie</option>
    <option value="Gyser">Gyser</option>
    <option value="Komedie">Komedie</option>
    <option value="Musik">Musik</option>
    <option value="Romantik">Romantik</option>   
    <option value="ScienceFiction">ScienceFiction</option>
    <option value="Stand up">Stand up</option>
    <option value="Tegnefilm">Tegnefilm</option>
    <option value="Thriller">Thriller</option>
    <option value="Western">Western</option>
        </select></td>
      </tr>
      <tr>
        <td width="83" bgcolor="#E9E9E9"><font size="1">&nbsp;Nr:</font></td>
        <td width="365" bgcolor="#E9E9E9">
        <p align="center">
        <input type="TEXT" name="NR" size="50" style="font-family: Verdana; font-size: 8pt; border: 1px solid #000000" value="<%If request("NR") <> "" Then%><%=intNR%><%Else%><%=GetData("movies", "NR", intID)%><%End If%>"></td>
      </tr>
      <tr>
        <td width="83"><font size="1">&nbsp;Dansk Sub:</font></td>
        <td width="365">
        <p align="center">
        <%
        If request("SUB") <> "" Then
            intSUB = request("SUB")
        Else
            intSUB = GetData("movies", "SUB", intID)
        End If
        %>
        <select size="1" name="SUB" style="font-family: Verdana; font-size: 8pt">
    <option <%If intSUB = "NEJ" Then%>selected<%End If%>>NEJ</option>
    <option <%If intSUB = "JA" Then%>selected<%End If%>>JA</option>
        </select></td>
      </tr>
        <tr>
        <td width="83" bgcolor="#E9E9E9"><font size="1">&nbsp;Link:</font></td>
        <td width="365" bgcolor="#E9E9E9">
        <p align="center">
        <input type="TEXT" name="Link" size="50" style="font-family: Verdana; font-size: 8pt; border: 1px solid #000000" value="<%If request("Link") <> "" Then%><%=intLink%><%Else%><%=GetData("movies", "Link", intID)%><%End If%>"></td>
      </tr>
                  <tr>
        <td width="83"><font size="1">&nbsp;DK Tale:</font></td>
        <td width="365">
        <p align="center">
        <%
        If request("TALE") <> "" Then
            intTALE = request("TALE")
        Else
            intTALE = GetData("movies", "TALE", intID)
        End If
        %>
        <select size="1" name="TALE" style="font-family: Verdana; font-size: 8pt">
    <option <%If intTALE = "NEJ" Then%>selected<%End If%>>NEJ</option>
    <option <%If intTALE = "JA" Then%>selected<%End If%>>JA</option>
        </select></td>
      </tr>
      <tr>
        <td width="83" bgcolor="#E9E9E9"><font size="1">&nbsp;Spille tid:</font></td>
        <td width="365" bgcolor="#E9E9E9">
        <p align="center">
        <input type="TEXT" name="TID" size="50" style="font-family: Verdana; font-size: 8pt; border: 1px solid #000000" value="<%If request("TID") <> "" Then%><%=intTID%><%Else%><%=GetData("movies", "TID", intID)%><%End If%>"></td>
      </tr>

      <tr>
        <td width="83"><font size="1">&nbsp;Medie:</font></td>
        <td width="365">
        <p align="center">
        <%
        If request("Medie") <> "" Then
            intMedie = request("Medie")
        Else
            intMedie = GetData("movies", "Medie", intID)
        End If
        %>
        <select size="1" name="Medie" style="font-family: Verdana; font-size: 8pt">
        <option <%If intMedie = "HD" Then%>selected<%End If%>>HD</option>
        <option <%If intMedie = "CD" Then%>selected<%End If%>>CD</option>
        </select></td>
      </tr>
            <tr>
        <td width="83" bgcolor="#E9E9E9"><font size="1">&nbsp;Udlånt:</font></td>
        <td width="365" bgcolor="#E9E9E9">
        <p align="center">
        <%
        If request("Udlaant") <> "" Then
            intUdlaant = request("Udlaant")
        Else
            intUdlaant = GetData("movies", "Udlaant", intID)
        End If
        %>
        <input type="checkbox" name="Udlaant" value="TRUE" <%If intUdlaant = TRUE Then%>checked<%End If%>></td>
      </tr>
      <tr>
        <td width="83" ><font size="1">&nbsp;Låner:</font></td>
        <td width="365" >
        <p align="center">
        <input type="TEXT" name="Laaner" size="50" style="font-family: Verdana; font-size: 8pt; border: 1px solid #000000" value="<%If request("Laaner") <> "" Then%><%=intLaaner%><%Else%><%=GetData("movies", "Laaner", intID)%><%End If%>"></td>
      </tr>
      <tr>
        <td width="83" bgcolor="#E9E9E9"><font size="1">&nbsp;Bedømmelse:</font></td>
        <td width="365" bgcolor="#E9E9E9">
        <p align="center">
        <%
        If request("Rating") <> "" Then
            intRating = request("Rating")
        Else
            intRating = GetData("movies", "Rating", intID)
        End If
        %>
        <select size="1" name="Rating" style="font-family: Verdana; font-size: 8pt">
        <option <%If intRating = 0 OR intRating = "" Then%>selected<%End If%> value="0">IKKE BEDØMT</option>
        <option <%If intRating = 1 Then%>selected<%End If%>>1</option>
        <option <%If intRating = 2 Then%>selected<%End If%>>2</option>
        <option <%If intRating = 3 Then%>selected<%End If%>>3</option>
        <option <%If intRating = 4 Then%>selected<%End If%>>4</option>
        <option <%If intRating = 5 Then%>selected<%End If%>>5</option>
        </select></td>
      </tr>
      <tr>
        <td colspan="2" width="448">
        <p align="center">
        <input type="submit" value="Gem" name="Gem" style="font-family: Verdana; font-size: 8pt; font-weight: bold"></td>
      </tr>
      <input type="HIDDEN" name="orig_title" size="50" style="font-family: Verdana; font-size: 8pt; border: 1px solid #000000" value="<%=GetData("movies", "Title", intID)%>">
    </form>
  </table>
  </center>
</div>
<p align="center" style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<p align="center" style="margin-top: 0; margin-bottom: 0">
<font size="2" color="#FF6600"><b>
<%If intError <> "" Then%>
FEJL!<br>
<%End If%>
<%=intError%>
</b></font></p>
<%ElseIf intMode = "form2" Then%>
<p align="center" style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #000000" bordercolor="#111111" width="450" id="AutoNumber2">
    <form method="POST" action="html/upload_cover.asp?id=<%=intID%>" ENCTYPE="multipart/form-data">
    <tr>
      <td bgcolor="#c5c5c5" style="border-bottom: 1px solid #000000">
    <p align="right"><font size="1"><b>&nbsp;- Upload Cover</b></font></td>
    </tr>
    <tr>
      <td>
      <p align="center" style="margin-top: 5; margin-bottom: 5"><font size="1"><INPUT TYPE="FILE" NAME="Cover" SIZE="20" style="font-family: Tahoma; font-size: 8pt; border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></font></td>
    </tr>
    <tr>
      <td>
      <p align="center" style="margin-top: 0; margin-bottom: 5">
        <input type="submit" value="Upload" name="Upload" style="font-family: Verdana; font-size: 8pt; font-weight: bold"><p align="center" style="margin-top: 0; margin-bottom: 5">
        <b><font size="2">
        <a href="index.asp?page=message&message=Filmen er nu opdateret&lt;br&gt;Der blev ikke uploadet noget nyt cover">
        SKIP</a></font></b></td>
    </tr>
    </form>
  </table>
  </center>
</div>
<p align="center">&nbsp;</p>
<%End If%>

her er kode for at se info om filmen

<%
intID = request("id")
    If intID = "" Then
        intID = 0
    End If
%>
<p align="center" style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
            <%
                Set rs = Server.CreateObject("ADODB.RecordSet")
                strSQL = "select * from movies where ID = "&intID
                strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data/movies.mdb")
                rs.Open strSQL, strDSN, 1
               
                IF NOT (RS.EOF OR RS.BOF) THEN
            %>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #000000" bordercolor="#111111" width="550" id="AutoNumber1">
    <tr>
      <td colspan="2" style="border-bottom: 1px solid #000000" bgcolor="#c5c5c5" width="498">
      <p align="right"><font size="2"><b>Titel:&nbsp;<%=rs("Title")%><br align="right">Spille tid:&nbsp;<%=rs("Tid")%><br align="right">NR:&nbsp;<%=rs("NR")%></b></font></td>
    </tr>
    <tr>
      <td style="border-right: 1px solid #000000" width="114" valign="top">
      <p align="center">
      <img border="0" src="images/covers/<%=CheckImgCover(rs("ID"))%>" height="140" width="98"><p align="left" style="margin-top: 0; margin-bottom: 0">
      <%
      intRating = rs("Rating")
      If intRating > 0 Then
      Else
          intRating = 0
      End If
      %>
      <font size="2"><b>&nbsp;Bedømmelse:
      <img border="0" src="images/stars_<%=intRating%>.gif"></b></font></td>
      <td width="383" valign="top">
      <div align="center">
        <center>
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="100%">
          <tr>
            <td width="17%"><font size="2"><b>&nbsp;Genre:</b></font></td>
            <td width="83%">
            <p align="left"><font size="2"><%=rs("Genre")%></font></td>
              </tr>
          <tr>
            <td width="100%" colspan="2">
            <div align="center">
              <center>
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
                <tr>
                  <td width="19%"><font size="2"><b>&nbsp;DK Tale:</b></font></td>
                  <td width="11%">
                  <p align="left"><font size="2"><%=rs("TALE")%></font></td>
                  <td width="16%">
                  <p align="center"><font size="2"><b>&nbsp;Medie:</b></font></td>
                  <td width="16%">
                  <p align="left"><font size="2"><%=rs("Medie")%></font></td>
                  <td width="25%">
              <p align="left"><font size="2"><b>Dansk Sub:</b></font></td>
                  <td width="12%">
                  <p align="left"><font size="2"><%=rs("SUB")%></font></td>
                    </tr>
              </table>
              </center>
            </div>
            </td>
          </tr>
          <tr>
            <td width="100%" colspan="2">
            <%If rs("Udlaant") = False Then%>
            <div align="center">
              <center>
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
                <tr>
                  <td width="100%" bgcolor="#33CC33">
                  <p align="center"><font size="2"><b>IKKE UDLÅNT</b></font></td>
                </tr>
              </table>
              </center>
            </div>
            <%Else%>
            <div align="center">
              <center>
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
                <tr>
                  <td width="22%" bgcolor="#FF0000"><font size="2"><b>&nbsp;UDLÅNT:</b></font></td>
                  <td width="78%" bgcolor="#FF0000">
                  <p align="left"><font size="2"><%=rs("Laaner")%></font></td>
                </tr>
              </table>
              </center>
            </div>
            <%End If%>
            </td>
          </tr>
          <tr>
            <td width="100%" colspan="2" height="100%">
            <div align="center">
              <center>
              <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="100%">
                <tr>
                  <td width="100%"><font size="2"><b>&nbsp;</b></font></td>
                </tr>
                <tr>
                  <td width="100%" height="100%" valign="top">
                  <p style="margin: 0 4"><font size="2"></font></td>
                </tr>
                <tr>
                  <td width="100%">
                  <p align="center"><font size="2"><b>
                  <a href="<%=rs("Link")%>" target="_blank">- Læs mere her -</a></b></font></td>
                </tr>
                <%If Session("Username") <> "" Then%>
                <tr>
                  <td width="100%" style="border-top: 1px solid #000000">
                  <div align="center">
                    <center>
                    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7">
                      <tr>
                        <td width="93%" bgcolor="#EEEEEE">
                        <p align="center"><font size="2"><b>
                        <a href="index.asp?page=edit&id=<%=rs("ID")%>">REDIGÉR</a>
                        - <a href="index.asp?page=slet&id=<%=rs("ID")%>">SLET</a></b></font></td>
                       
                      </tr>
                    </table>
                    </center>
                  </div>
                  </td>
                </tr>
                <%End If%>
              </table>
              </center>
            </div>
            </td>
          </tr>
        </table>
        </center>
      </div>
      </td>
    </tr>
    </table>
  </center>
</div>
<%ELSE%>
<p align="center" style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<p align="center" style="margin-top: 0; margin-bottom: 0">
<font size="2" color="#FF6600"><b>FILMEN BLEV IKKE FUNDET</b></font></p>
<%
END IF
rs.Close
Set rs = Nothing
%>
<p align="center" style="margin-top: 0; margin-bottom: 0">&nbsp;</p>

og lige koden for at se listen som også viser forkert

<link rel="stylesheet" type="text/css" href="main.css">
<%
intSort = request("sort")
    If intSort = "" Then
        intSort = "Title"
    End If
intOrder = request("order")
    If intOrder = "" Then
        intOrder = "ASC"
    End If
If intOrder = "ASC" Then
    intLinkOrder = "DESC"
Else
    intLinkOrder = "ASC"
End If

    Set rs2 = Server.CreateObject("ADODB.RecordSet")
    strSQL2 = "select TOP 5 ID from movies ORDER BY ID DESC"
    strDSN2 = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data/movies.mdb")
    rs2.Open strSQL2, strDSN2, 1
        strNew_1 = rs2("ID")
    rs2.movenext
        IF NOT rs2.EOF THEN
        strNew_2 = rs2("ID")
    rs2.movenext
        IF NOT rs2.EOF THEN
        strNew_3 = rs2("ID")
    rs2.movenext
        IF NOT rs2.EOF THEN
        strNew_4 = rs2("ID")
    rs2.movenext
        IF NOT rs2.EOF THEN
        strNew_5 = rs2("ID")
        END IF
        END IF
        END IF
        END IF
    rs2.Close
    Set rs2 = Nothing
%>

<p align="center" style="margin-top: 0; margin-bottom: 0"><font size="1">&nbsp;</font></p>
<p align="center" style="margin-top: 0; margin-bottom: 0"><font size="2">
<img border="0" src="images/color1.gif"><b> = 5 Nyeste&nbsp;&nbsp;&nbsp;&nbsp;
<img border="0" src="images/color2.gif"> = Udlånt</b></font></p>


<p align="center" style="margin-top: 0; margin-bottom: 0">&nbsp;</p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #000000" bordercolor="#111111" width="90%" id="AutoNumber1">
    <tr>
      <td width="200%" style="border-bottom: 1px solid #000000" bgcolor="#c5c5c5" colspan="5">
      <font size="1"><b>&nbsp;- Browse</b></font></td>
    </tr>
<table  border="0" width="90%" align="center" id="table1">
    <tr>
        <td width="4%" align="center" bgcolor="#E6E6E6" style="border-bottom: 1px solid #000000">
      <font size="1"><b>&nbsp;</b></font></td>
      <td width="32%" align="center" bgcolor="<%If intSort = "Title" Then%>#CCCCCC<%Else%>#E6E6E6<%End If%>" style="border-bottom: 1px solid #000000">
      <font size="1"><b><%If intSort = "Title" Then%><img border="0" src="images/sort_<%=intOrder%>.gif"> <%End If%><a href="index.asp?page=browse&sort=Title<%If intSort = "Title" Then%>&order=<%=intLinkOrder%><%End If%>">Titel:</a></b></font></td>
      <td width="23%" align="center" bgcolor="<%If intSort = "Genre" Then%>#CCCCCC<%Else%>#E6E6E6<%End If%>" style="border-bottom: 1px solid #000000">
      <font size="1"><b><%If intSort = "Genre" Then%><img border="0" src="images/sort_<%=intOrder%>.gif"> <%End If%><a href="index.asp?page=browse&sort=Genre<%If intSort = "Genre" Then%>&order=<%=intLinkOrder%><%End If%>">Genre:</b></font></td>
      <td width="12%" align="center" bgcolor="<%If intSort = "TID" Then%>#CCCCCC<%Else%>#E6E6E6<%End If%>" style="border-bottom: 1px solid #000000">
      <font size="1"><b><%If intSort = "TID" Then%><img border="0" src="images/sort_<%=intOrder%>.gif"> <%End If%><a href="index.asp?page=browse&sort=TID<%If intSort = "TID" Then%>&order=<%=intLinkOrder%><%End If%>">Tid:</b></font></td>
      <td width="13%" align="center" bgcolor="<%If intSort ="TALE" Then%>#CCCCCC<%Else%>#E6E6E6<%End If%>" style="border-bottom: 1px solid #000000">
      <font size="1"><b><%If intSort = "TALE" Then%><img border="0" src="images/sort_<%=intOrder%>.gif"> <%End If%><a href="index.asp?page=browse&sort=TALE<%If intSort = "TALE" Then%>&order=<%=intLinkOrder%><%End If%>">DK Tale:</b></font></td>
      <td width="9%" align="center" bgcolor="<%If intSort = "SUB" Then%>#CCCCCC<%Else%>#E6E6E6<%End If%>" style="border-bottom: 1px solid #000000">
      <font size="1"><b><%If intSort = "SUB" Then%><img border="0" src="images/sort_<%=intOrder%>.gif"> <%End If%><a href="index.asp?page=browse&sort=SUB<%If intSort = "SUB" Then%>&order=<%=intLinkOrder%><%End If%>">DK Sub:</b></font></td>
      <td width="6%" align="center" bgcolor="<%If intSort = "NR" Then%>#CCCCCC<%Else%>#E6E6E6<%End If%>" style="border-bottom: 1px solid #000000">
      <font size="1"><b><%If intSort = "NR" Then%><img border="0" src="images/sort_<%=intOrder%>.gif"> <%End If%><a href="index.asp?page=browse&sort=NR<%If intSort = "NR" Then%>&order=<%=intLinkOrder%><%End If%>">Nr:</b></font></td>
    </tr>
 
            <%
                strStyle = 0
                strCount = 0
                Set rs = Server.CreateObject("ADODB.RecordSet")
                strSQL = "select ID, Abstract, Title, Genre, TID, TALE, SUB, NR, Udlaant from movies ORDER BY "&intSort&" "&intOrder
                strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data/movies.mdb")
                rs.Open strSQL, strDSN, 1
               
                do while not rs.eof
               
                strStyle = strStyle + 1
                    If strStyle > 1 Then
                        strStyle = 0
                    End If
            %>
    <tr>
      <td width="4%" <%If rs("Udlaant") = True Then%>bgcolor="#FFD991"<%ElseIf rs("ID") = strNew_1 OR rs("ID") = strNew_2 OR rs("ID") = strNew_3 OR rs("ID") = strNew_4 OR rs("ID") = strNew_5 Then%>bgcolor="#C0FFC0"<%ElseIf strStyle = 0 Then%>bgcolor="#E6E6E6"<%End If%>>
      <p align="center"><a href="index.asp?page=info&id=<%=rs("ID")%>" title="<%=rs("ABSTRACT")%>"><img border="0" src="images/infodot.gif"></a></td>
      <td width="32%" <%If rs("Udlaant") = True Then%>bgcolor="#FFD991"<%ElseIf rs("ID") = strNew_1 OR rs("ID") = strNew_2 OR rs("ID") = strNew_3 OR rs("ID") = strNew_4 OR rs("ID") = strNew_5 Then%>bgcolor="#C0FFC0"<%ElseIf strStyle = 0 Then%>bgcolor="#E6E6E6"<%End If%>>
      <p style="margin: 0 5"><font size="2"><a href="index.asp?page=info&id=<%=rs("ID")%>" title="<%=rs("ABSTRACT")%>"><%=rs("Title")%></font></a></td>
      <td width="23%" <%If rs("Udlaant") = True Then%>bgcolor="#FFD991"<%ElseIf rs("ID") = strNew_1 OR rs("ID") = strNew_2 OR rs("ID") = strNew_3 OR rs("ID") = strNew_4 OR rs("ID") = strNew_5 Then%>bgcolor="#C0FFC0"<%ElseIf strStyle = 0 Then%>bgcolor="#E6E6E6"<%End If%>>
      <p style="margin: 0 5" align="center"><font size="2"><%=rs("Genre")%></font></td>
      <td width="12%" <%If rs("Udlaant") = True Then%>bgcolor="#FFD991"<%ElseIf rs("ID") = strNew_1 OR rs("ID") = strNew_2 OR rs("ID") = strNew_3 OR rs("ID") = strNew_4 OR rs("ID") = strNew_5 Then%>bgcolor="#C0FFC0"<%ElseIf strStyle = 0 Then%>bgcolor="#E6E6E6"<%End If%>>
      <p style="margin: 0 5" align="center"><font size="2"><%=rs("TID")%></font></td>
    <td width="13%" <%If rs("Udlaant") = True Then%>bgcolor="#FFD991"<%ElseIf rs("ID") = strNew_1 OR rs("ID") = strNew_2 OR rs("ID") = strNew_3 OR rs("ID") = strNew_4 OR rs("ID") = strNew_5 Then%>bgcolor="#C0FFC0"<%ElseIf strStyle = 0 Then%>bgcolor="#E6E6E6"<%End If%>>
      <p style="margin: 0 5" align="center"><font size="2"><%=rs("TALE")%></font></td> 
    <td width="9%" <%If rs("Udlaant") = True Then%>bgcolor="#FFD991"<%ElseIf rs("ID") = strNew_1 OR rs("ID") = strNew_2 OR rs("ID") = strNew_3 OR rs("ID") = strNew_4 OR rs("ID") = strNew_5 Then%>bgcolor="#C0FFC0"<%ElseIf strStyle = 0 Then%>bgcolor="#E6E6E6"<%End If%>>
      <p style="margin: 0 5" align="center"><font size="2"><%=rs("SUB")%></font></td>
      <td width="6%" <%If rs("Udlaant") = True Then%>bgcolor="#FFD991"<%ElseIf rs("ID") = strNew_1 OR rs("ID") = strNew_2 OR rs("ID") = strNew_3 OR rs("ID") = strNew_4 OR rs("ID") = strNew_5 Then%>bgcolor="#C0FFC0"<%ElseIf strStyle = 0 Then%>bgcolor="#E6E6E6"<%End If%>>
      <p style="margin: 0 5" align="center"><font size="2"><%=rs("NR")%></font></td>
    </tr>
            <%
                strCount = strCount + 1
                rs.movenext
                Loop
                rs.Close
                Set rs = Nothing
            %>
           
           
  </table>
  </center>
</div>
<p align="center" style="margin-top: 0; margin-bottom: 0"><font size="1">&nbsp;</font></p>
<p align="center" style="margin-top: 0; margin-bottom: 0"><font size="2">
<img border="0" src="images/color1.gif"><b> = 5 Nyeste&nbsp;&nbsp;&nbsp;&nbsp;
<img border="0" src="images/color2.gif"> = Udlånt</b></font></p>
<p align="center" style="margin-top: 0; margin-bottom: 0"><font size="1">&nbsp;</font></p>
<p align="center" style="margin-top: 0; margin-bottom: 0"><font size="2"><b><%=strCount%> film</b></font></p>
<p align="center" style="margin-top: 0; margin-bottom: 0"><font size="2"><b>&nbsp;</b></font></p>

Damn! Der findes flere måder at informere på - og du har lige vist de to ekstremer: under- og overinformation :D

Anyway! Prøv lige at lukke dit recordset og din forbindelse inde du redirecter siden (redigering).

Generelt kan jeg da anbefale dig at benytte "del og hersk"-princippet når du debugger, dvs. du deler din side op i nogle mindre sektioner, som du så sikrer dig fungerer som de skal. På denne måde kan du bedre lokalisere det sted hvor koden fejler - det du har vist er alt for meget at overskue uden videre.

Et konkret eksempel er at sikre dig at data rent faktisk bliver gemt i databasen. Hvis de ikke gør (kig i databasen!), så start med at rette den fejl. Fejlen kunne skyldes flere omstændigheder, f.eks. at

1. den kode som skal gemme data ikke udføres

2. den kode som skal gemme data fejler, f.eks. pga. typefejl imellem data og felter i databasen

3. du glemmer at rydde op efter dig, hvorefter databasen dropper dine ændringer

4. med mere...

Hvad angår 1, så kan du prøve at udskrive en debug-tekst på siden der hvor kaldet bliver udført (udskriv evt. den SQL du prøver at udføre, så kan du samtidig kontrollere om den har det korrekte format).

Stop koden efter du har udskrevet debugtekst, så du når at se hvad der sker og lad evt. være med at redirecte siden indtil koden fungerer.

Det er en længere afhandling at lære debugging og det kræver noget erfaring, men den bedste måde at få det på er at gøre det...

hmm dataen bliver gemt i databasen så det er ikke der problemet er ..

jeg må sige jeg ved kun lidt om html programering dette er næsten en færdig lavet film database jeg har fundet på nettet og fået lidt hjælp til at tilpasse og den har også virket 100% men efter at have formatertet web-serveren har jeg haft nogle problemer med den

Jeg har ikke nærlæst alt dit kode (og kommer nok heller ikke til det - der er for meget), men jeg bemærker ved at skimme koden, at der benyttes 2 forskellige connectionstrings til samme database. Det kan være du skal prøve at bruge den fra redigeringsscriptet i de to andre kodeblokke. Altså udskifte:

"DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data/movies.mdb")

med:

"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data/movies.mdb")

Problemerne kan skyldes at ikke alle drivere til databaseintegration er installeret på serveren efter du har formateret den.

oki nu har jeg prøvet 3 løsninger

disse her:

"DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data/movies.mdb")

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/data/movies.mdb;")

"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data/movies.mdb")

og det ændre desvære ikke på noget.

du snakker om nogle driver som måske ikke er blevet installeret kan du fortælde mig hvilke og hvordan jeg kan installer dem ?

Jeg skulle mene at

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/data/movies.mdb")

er brugbar sammen med MDAC v2.8 som kan findes på microsoft's download-side (jeg skulle mene at den kan findes her: http://www.microsoft.com/downloads/details.aspx?FamilyID=6c050fe3-c795-4b7d-b037-185d0506396c&DisplayLang=en (denne side kræver en valid windowslicens... men det er naturligvis ikke noget problem, for det har alle jo!).

BEMÆRK at jeg fjernede det semikolon som havde sneget sig ind i din mappath.

kan også downloads her
http://www.download.com/3001-2404_4-10281285.html