Nyhedscript
Jeg får denn meddelse: Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][ODBC Microsoft Access-driver] Handlingen skal bruge en opdaterbar forespørgsel.
Når jeg vil lave en nyhed, det er et script jeg har hentet fra netcoders.dk.
Min kode ser sådan ud:
<%
' --------------------------------------------------
' Nyhedssting
' Udviklet af Andreas Mailand - andreas@mailand.dk
' All rights reserved
' --------------------------------------------------
Response.Buffer = True
' Funktion der fikser quotes...
FUNCTION fixQuotes( theString )
fixQuotes = Replace( theString, "'", "''" )
END FUNCTION
' Hent data fra formular
Overskrift = Request( "Overskrift" )
Nyhed = Request( "Nyhed" )
Forfatter = Request( "Forfatter" )
' Connection til database.
Set Con = Server.CreateObject( "ADODB.Connection" )
DBPath = "DBQ=" & server.mappath("../db/db.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
' ... Ogsaa saetter vi vores data fra formularen ind i databasen
IF Request.Servervariables("Content_Length") > 0 THEN
Sql = "INSERT INTO nyheder (Overskrift, Nyhed, Forfatter) VALUES('" & Date() & "','" & fixQuotes( Nyhed ) & "','" & fixQuotes( Forfatter ) & "')"
Con.Execute Sql
' Og her skriver vi lige en lille besked om at nu er nyheden tilfoejet
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>Nyhedsting</title>
<link rel=stylesheet type="text/css" href=".../style.css">
<link href="../style.css" rel="stylesheet" type="text/css">
</head>
<body class="tekst">
<form action="nyhed.asp" method="POST" target="_self">
<table border="0" width="600">
<tr>
<td valign="top" class="tekst">Overskrift:</td>
<td><input name="Overskrift" type="text" class="tekst" id="Overskrift"></td>
</tr>
<tr>
<td width="150" valign="top" class="tekst">Nyhed</td>
<td><textarea name="Nyhed" cols="30" rows="8" class="tekst"></textarea></td>
</tr>
<tr>
<td class="tekst">Forfatter</td>
<td><input name="Forfatter" type="text" class="tekst"></td>
</tr>
<tr>
<td class="tekst">Send nyhed:</td>
<td><input name="Submit" type="submit" class="tekst" value="Send"></td>
</tr>
</table>
</form>
</body>
</html>
