Mit nyhedsmodul virker ikke (gentager sig selv).
HejJeg håber I kan hjælpe mig:
- Nyhedsscrips:
<%
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("db1.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
Sql = "SELECT Nyheder.Dato, Nyheder.Nyhed, Nyheder.Forfatter, Nyheder.ID, Referencer.ID, Referencer.Dato, Referencer.Reference FROM Nyheder,Referencer"
Set Record = Con.Execute(Sql)
While Not Record.EOF
Response.Write(Record("Dato") & "<br>")
Response.Write(Record("Forfatter") & "<br>")
Response.Write(Record("Nyhed") & "<br>")
Record.MoveNext()
Wend
%>
-----
Og sådan ser siden ud hvor jeg uploader nyheder til databasen:
<%
Response.Buffer = True
FUNCTION fixQuotes( theString )
fixQuotes = Replace( theString, "'", "''" )
END FUNCTION
Nyhed = Request( "Nyhed" )
Forfatter = Request( "Forfatter" )
Set Con = Server.CreateObject( "ADODB.Connection" )
DBPath = "DBQ=" & server.mappath("db1.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
IF Request.Servervariables("Content_Length") > 0 THEN
Sql = "INSERT INTO nyheder (Dato, Nyhed, Forfatter) VALUES('" & Date() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "')"
Con.Execute Sql
Response.Write "<strong>Tak for din nyhed. Den er blevet tilføjet til databasen. </strong>"
END IF
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Online nyhedsmodul</title>
</head>
<body>
<h1>Online styring af nyheder på www.diskotek-soundforce.dk</h1>
<br>
<br><br>
<form action="nyhed.asp" method="POST" target="_self">
<table border="0" width="600">
<tr>
<td valign="top" width="150">Nyhed</td>
<td><textarea cols="30" rows="8" name="Nyhed"></textarea></td>
</tr>
<tr>
<td>Forfatter</td>
<td><input type="text" name="Forfatter"></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value="Tilføj"></td>
</tr>
</table>
</form>
</body>
</html>
----------------
Og her kan I se hjemmesiden http://www.diskotek-soundforce.dk/new/default.asp
Nyhedsmodulet er til højre og den ene nyhed jeg har tilføjet gentages mange gange.... Hvad er der galt?
Mvh
Søren
