Jag ser att du ändrat namn på textarean till Inlagg nu iaf, så då borde du komma in i if-satsen.
Vad händer? Får du något felmeddelande? Hur ser den utskrivna SQL-frågan ut?
Hjälp oss (och dig själv) lite genom att beskriva vad som är fel. Prova detta (ändringar i fet stil):
<%option explicit
dim conn, data, sql, text, artikel
set conn = server.createobject("ADODB.connection")
conn.open = "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mappath("Blogg.mdb")
artikel = Request.QueryString("artikel")
sql = "SELECT * FROM Artiklar WHERE ArtikelID=" & Request.QueryString("artikel")
set data = conn.execute(sql)
text = data("Inlägg")
%>
<html>
<heaD>
<TITLE>Sidan 2</title>
</head>
<body bgcolor="#FFFFF1" text="black" link="black" alink="AEAEAE" vlink="5C5C5B">
<font face="verdana" size=2>
<table>
<tr>
<Td width="600"><font face="verdana" size=2>
<%=text%>
</td>
</tr>
</table>
<HR>
<B>Kommentara artikeln</B><BR>
<%
set conn = server.createobject("ADODB.connection")
conn.open "provider=microsoft.jet.OLEDB.4.0; data source=" & server.mapPath("Blogg.mdb")
if request.form("Inlagg") <> "" then
response.write "Nu är det skickat"
[b]sCommentWriter = Replace(Request.Form("KommentarFörfattare"), "'", "''")
[b]sComment = Replace(Request.Form("Inlagg"), "'", "''")[/b]
sql = "INSERT INTO Kommentar(KommentarFörfattare, KommentarInlägg, KommentarDatum, ArtikelID) VALUES ('" & [b]sCommentWriter[/b] & "', '" & sComment & "'[/b], #" & Date & "#, " & Request.Form("ArtikelID") & ")"
response.write sql
conn.execute (sql)
end if
[b] ' Vad är det tänkt att den här koden ska göra???[/b]
if request.form("Kommentar")<>"" then
response.redirect "Fsupp_2.asp"
response.end
end if
[b] '----------------- [/b]
%>
<table>
<tr>
<form action="fsupp_2.asp?artikel=<%= data("ArtikelID") %>" method="post">
<input type="hidden" name="artikelID" value="<%=request.querystring("artikel")%>">
<tr>
<td><font face="verdana" size=2>Namn</td>
<td><font face="verdana" size=2>
<input type="text" name="KommentarFörfattare">
</td>
</tr>
<tr>
<td><font face="verdana" size=2>Kommentar</td>
<td><font face="verdana" size=2>
<textarea name="Inlagg" rows="10" cols="50">Skriv dit inlägg här...</textarea>
</td>
</tr>
<tr>
<td> </td>
<td>
<input type="hidden" name="KommentarDatum" value="<%=now%>">
</td>
</tr>
<tr>
<td></td>
<td><font face="verdana" size=2>
<input type="submit" name="Spara" value="Skicka">
<input type="reset" name="Ta bort" value="Rensa">
</td>
</tr>
</form>
</tr>
</table>
<BR>
<hr>
<P><a href="fsupp_1.asp">Tillbaka till huvudsidan</A></P>
<HR>
<B>Kommentarer på artikeln</B><BR>
<table border=1>
<tr>
<TD bordercolor="#000000" bgcolor="#990000"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><B>Namn</B></TD>
<TD bordercolor="#000000" bgcolor="#990000"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif" colspan="2"><B>Kommentar</B></TD>
<TD bordercolor="#000000" bgcolor="#990000"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><B>Datum</B></TD>
</tr>
<%
SQL = "SELECT kommentar.* FROM kommentar [b]WHERE ArtikelID = " & Replace(Request.Querystring("artikel"), "'", "''") & "[/b] ORDER BY KommentarDatum DESC"
Set data =Conn.Execute(SQL)
While Not Data.EOF
Response.write "<tr bordercolor=""#000000""><TD bgcolor=""#FFFFF1""><font color=""##990000"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"" width=""200"">" & [b]data("KommentarFörfattare")[/b] & "</a></td>"
response.write "<td <TD bgcolor=""#FFFFF1""><font color=""##990000"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"" width=""100"">" & [b]data("KommentarInlägg")[/b] & "</td>"
response.write "<td <TD bgcolor=""#FFFFF1""><font color=""##990000"" size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"" width=""80"">" & [b]data("KommentarDatum")[/b] & "</td></tr>"
data.moveNext
wend
%>
<%conn.close%>
</table>
</body>
</html>
eller så är det att det är inget kul att hålla på med något som är så svårt och då orkar man nog inte förstå...
Det är ett tecken på att du börjar med att lära dig fel saker. När man börjar lära sig att köra bil ska man inte börja med att köra inne i Stockholms innerstad, utan man ska börja inlärningen på IKEAs stora parkering när varuhuset har stängt. Precis samma sak är det här. Är det för svårt så tycker man inte att det är roligt.
Mitt tips är att du börjar om från början med att lära dig ASP, och inte kastar dig direkt in i att arbeta med databaser.
