Problem med IDG's nyhetsscript

HazzeMedlem sedan jan. 20002 453 inlägg

30 mars 2001 11:36#1

Hejsan.

Jag har försökt få igång IDG-Mikrodatorns nyhetsscript under en längre tid nu med hyfsat resultat. Allt fungerar bra tills jag ska visa varje nyhet på en enskild sida, typ detail.asp?id=12. Då kommer ett felmeddelande.

detail.asp

<%

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=d:\clients\sks.nu\wwwroot\news\data\news.mdb"
SQL = "SELECT * FROM Nyheter Where Id =" & Request("Id")
SQL = SQL & " Order by Id Desc" 
response.write sql
response.end
'Set RS = Connection.Execute(SQL)

Datum=FormatDateTime(Now,2)

%>
<html>

<head>
<title>Nyheter (enskild)</title>
</head>

<body background="images/rodbakgrund.gif" bgcolor="#FFFFFF" text="#000000" vlink="#0000FF">

<table border="0" width="642" cellspacing="0">
<tr>
<td width="139" valign="top" align="left"><a href="index.asp"><img src="images/news.gif"
alt="Tillbaka till huvudsidan..." border="0" WIDTH="94" HEIGHT="92"></a></td>
<td width="326"><img src="images/nyheter.gif" WIDTH="354" HEIGHT="75"><br>
<%
sbody = rs("Artikel")
sbody = "<p>" & Replace(sbody, vbCrLf, "</p><p>") & "</p>"

For i = 0 To UBOUND(Session("MyArray"),2)
sbody=Replace(sbody,Session("MyArray")(0,i), "<a href='" & Session("MyArray")(1,i) & "'>" & Session("MyArray")(0,i) & "</a>")
Next
Datum = FormatDateTime(RS("Datum"),2)
%> <p align="Left"><small><font face="Verdana"><%= Datum %></font></small></p>
<p align="center"><strong><font face="Verdana"><%= RS("Rubrik")%></font></strong></p>
<p><font face="Verdana"><small><%= sbody %></small></font></p>
<p align="right"><small><em><small><font face="Verdana">Skrivet av : <%
If RS("Skribent")="" Then
Response.write("Okänd")
Else
Response.write(RS("Skribent"))
End If
%></font></small></em></small></p>
<hr size="1">
<p><br>
</td>
<td width="1"></td>
<td width="144" valign="top" align="left"><table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#0080C0"><p align="center"><font face="Verdana" color="#FFFFFF"><small>Sök
nyheter</small></font></td>
</tr>
<tr>
<td width="100%"><form method="POST" action="search.asp">
<div align="center"><center><p><input type="text" name="search" size="15"></p>
</center></div>
</form>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%RS.Close
Connection.Close
%>

felmeddelandet:

SELECT * FROM Nyheter Where Id = Order by Id Desc

Databasen ser ut så här: :e http://www.sks.nu/news/tabell.jpg

Notera att jag är ganska usel på asp. Hoppas på svar ;)

------------------
It aint over until the fat lady sings...

[Redigerat av Hazze den 30 mar 2001]

@ndersMedlem sedan juni 200032 969 inlägg

30 mars 2001 11:38#2

Request("Id") är tomt.

var hämtar du ifrån? heter formulärfältet/querystringen verkligen Id?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

HazzeMedlem sedan jan. 20002 453 inlägg

30 mars 2001 11:50#3

formulärfältet/querystringen verkligen Id?

Det ligger nåt i det tror jag... ;)

Sidan som lägger till nyheten ser ut så här:

enter.asp

<font face="Verdana"><strong>Skriv in en ny nyhet!</strong></font></p> <form action="insert.asp" method="POST">
<p><font size="2" face="Verdana">Rubrik:</font><br> <input type="text" size="20" name="Rubrik"></p> <p><font size="2" face="Verdana">Artikel:</font><br> <textarea name="Artikel" rows="10" cols="35"></textarea></p> <p><font size="2" face="Verdana">Ditt namn:</font><br> <input type="text" size="20" name="Skribent"></p> <p><input type="submit" name="B1" value="Skicka"></p> </form>

Hmmm... :)

------------------
It aint over until the fat lady sings...