En underlig fejl i mit news prog.

Har du angiv den rigtige sti til databasen, og du har den ikke åben selv???

kan man får lov til at se scriptet...

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set rstemp = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM News ORDER by id desc"
rstemp.Open strSQL, strDSN, 1

linie 21 er den nederste

og det her siger den når jeg har indtastet brugerid og PW

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x97c Thread 0x1504 DBC 0xba6e024 Jet'.

/leningrad/news/opret.asp, line 257

lav den her om :
Set rstemp = Server.CreateObject("ADODB.RecordSet")
til:
Set rstemp = Server.CreateObject("ADODB.Connection")

og den der:'
rstemp.Open strSQL, strDSN, 1
til
set rs = rstemp.Open strSQL

HEr går jeg udfra at du også skal vise dem på siden....

Så kan du hente dine værdier ved at bruge...

rs("id") f.eks.

eller rs("nyhed"), det er and på hvilke kolonner du har..

okay prøver!!!

Databasen ligger ikke der hvor du siger den er. Ifølge din connection string skal databasen ligge her :
http://www.bondehuset110.com/leningrad/news/database.mdb hvilket den formentligt ikke gør

bare en lille kommentar...prøv at genstarte den maskine der kører webserveren!

Virker stadig ikke her får du sådan som scriptet ud nu!


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body bgcolor="#F3F3F3" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
Set rstemp = Server.CreateObject("ADODB.Connection")
strSQL = "SELECT * FROM News ORDER by id desc"
set rs = rstemp.Open strSQL


If Not (rstemp.BOF Or rstemp.EOF) Then
rstemp.PageSize = 5
rstemp.AbsolutePage = intPage
intRecCount = rstemp.PageSize
intPageCount = rstemp.PageCount
%>

<% Do While Not rstemp.EOF And intRecCount > 0 %>
<div align="left">
          <left>
          <table border="0" width="180" cellspacing="0" cellpadding="2" bgcolor="#F3F3F3">
          <tr>
            <td width="174" style="border-left: 1 solid #F3F3F3; border-right: 1 solid #F3F3F3; border-top: 1 solid #F3F3F3" height="6"><font face="verdana" size="2"><b><%=rstemp("overskrift").Value %></b></font></td>
          </tr>
          <tr>
            <td width="174" style="border: 1 solid #F3F3F3" height="6"><font face="verdana" size="1"><%=rstemp("tekst").Value %></font></td>
          </tr>
          <tr>
            <td width="174" style="border-left: 1 solid #F3F3F3; border-right: 1 solid #F3F3F3; border-bottom: 1 solid #F3F3F3"><font face="verdana" size="1">
            <font color="#990000"><b>Skrevet af</b> </font> <a href="mailto:<%=rstemp("email").Value %>">
            <font color="#990000"><%=rstemp("forfatter").Value %></font></a><font color="#990000">  <b>d.</b></font> <%=rstemp("dato").Value %></font></td>
          </tr>
          </table>
          </left>
        </div>
        <br>
<%
intRecCount = intRecCount - 1
rstemp.movenext
loop
else

End If
%>
<div align="center">
  <center>
<table border="0">
<tr>
<td>
<%
If Clng(intPage) > 1 Then
Response.Write "<a href=index.asp?page="& intPage - 1 &">&lt;&lt; Previous</a>"
Else
Response.Write "&nbsp;"
End If
%>
</td>
<td>
<%
For intNum = 1 To intPageCount
Response.Write "<a href=index.asp?page=" & intNum & ">" & intNum & "</a> - "
Next
%>
</td>
<td>
<%
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=index.asp?page="& intPage + 1 &">Next &gt;&gt;</a> "
Else
Response.Write "&nbsp;"
End If
%>
</td>
</tr>
</table>
  </center>
</div>
<%
rstemp.Close
Set rstemp = Nothing
%>

</body>

</html>

Sårn så virker det mange tak!!

smider i ikke et svar!

Hvad var fejlen ?

svar

Det var stien og så det ttopholm skrev sku ændre!s

nu er den gal igen da jeg skulle sætte scrollbar andre farver i se på www.bondehuset110.com/leningrad/ og klik på enter website der er nyheden i en iframe til højre!!!

sorry det virker nu der sku lige fumles med det!!!

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in query expression ''We are back!!!! with a new and improved website hope y'all like it. We have written a new song called In Heaven and we are on the run for a new place to practice'.

/leningrad/news/opret.asp, line 94
hvad betyder dette nu! nu hvor jeg skulle til at oprette en ny nyhed!!! på den linie står der Conn.Execute(strSQL)

har du husket at replace ' med 2 i din indsættelse.

replace(dinTekstTilIndsættelse,"'","''")

hvor henne og ahva??

Du kan ikke have ' tegnet i den tekst du indsætter i en database. Et eks:

"insert into MyTable(MyTekst) values('tekst med ' tegnet')" ---> hvor slutter teksten??

Derfor skal du udskifte med dobbelt ' (ligesom man også skal med " i ASP)

MyVar = "tekst med ' tegnet"
"insert into MyTable(MyTekst) values('"& replace(MyVar,"'","''") &"')" ----> så fortolker den '' som et '.

men hvor ska jeg sætte det ind!!

Alle steder hvor du indsætter/updatere din database, og på alle de variabler i indsættelsen/updateringen, som er tekst-strenge.

Hvis du ikke forstår det, så smid din kode fra leningrad/news/opret.asp ind (det er kun nødvendig med de linjer hvor du indsætter/updatere databasen), så skal jeg nok sætte det ind.