Hej <code> Hmm Opps. Fick med dit grund fel. Vilket är: "lasainlagg" Jämförs mot forum.asp?alt=lasinlagg. Alltså ett stavfel.Forum - Vad är fel på koden?
Vad kan det vara för fel när man klickar på en utav länkarna så kommer man till en helt tom sida bara... (?) ...
<% If Request.Querystring("alt") = "visaforum" then %>
<HTML>
<HEAD>
<TITLE>Forum</TITLE>
</HEAD>
<BODY BGCOLOR = "#000000" TEXT = "#FFFFFF" LINK = "#FFFFFF" ALINK = "#FFFFFF" VLINK = "#FFFFFF">
<%
adOpenStatic = 3
adLockOptimistic = 3
%>
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\fandango forces\forum\forum.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset") %>
<% Visa = "SELECT * FROM forum"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
<TABLE BORDER = "1">
<TR>
<TD><B>Rubrik</B></TD><TD><B>Författare</B></TD>
</TR>
<% Do Until RecSet.EOF %>
<TR>
<TD>"><% =RecSet("rubrik") %></TD><TD><% =RecSet("forfattare") %></TD>
</TR>
<% RecSet.MoveNext
Loop %>
</TABLE>
<% 'LÄSA INLÄGG I ETT FORUM %>
<% ElseIf Request.Querystring("alt") = "lasainlagg" then %>
<% RecSet.Close
Lasa = "SELECT * FROM inlagg"
RecSet.Open Lasa, Connect, adOpenStatic, adLockOptimistic %>
<TABLE BORDER = "1">
<TR>
<TD><B>Rubrik</B></TD><TD><B>Författare</B></TD>
<TR>
<% Do Until RecSet.EOF %>
<% If Request.Querystring("forum") = RecSet("forum") then %>
<TR>
<TD><% =RecSet("rubrik") %></TD><TD><% =RecSet("forfattare") %></TD>
</TR>
<% Else
End If
RecSet.MoveNext
Loop
RecSet.Close
Connect.Close %>
</TABLE>
<% Else
End If %>
</BODY>
</HTML>Sv: Forum - Vad är fel på koden?
<HTML>
<HEAD>
<TITLE>Forum</TITLE>
</HEAD>
<BODY BGCOLOR = "#000000" TEXT = "#FFFFFF" LINK = "#FFFFFF" ALINK = "#FFFFFF" VLINK = "#FFFFFF">
<%
adOpenStatic = 3
adLockOptimistic = 3
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\fandango forces\forum\forum.mdb"
Select Case Request.Querystring("alt")
Case "lasainlagg" 'LÄSA INLÄGG I ETT FORUM
Lasa = "SELECT * FROM inlagg WHERE forum = '" & Replace(Request.Querystring("forum"), "'", "''") & "'"
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open Lasa, Connect
%>
<TABLE BORDER = "1">
<TR>
<TD><B>Rubrik</B></TD><TD><B>Författare</B></TD>
<TR>
<%
Do Until RecSet.EOF
%>
<TR>
<TD><% =RecSet("rubrik") %></TD><TD><% =RecSet("forfattare") %></TD>
</TR>
<%
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
%>
</TABLE>
<%
Case Else 'visaforum
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * FROM forum", Connect
%>
<TABLE BORDER = "1">
<TR>
<TD><B>Rubrik</B></TD><TD><B>Författare</B></TD>
</TR>
<%
Do Until RecSet.EOF
%>
<TR>
<TD>"><% =RecSet("rubrik") %></TD><TD><% =RecSet("forfattare") %></TD>
</TR>
<%
RecSet.MoveNext
Loop
RecSet.Close
Set RecSet = Nothing
End Select
Connect.Close
Set Connect = Nothing
%>
</TABLE>
%>
</BODY>
</HTML>
</code>Sv: Forum - Vad är fel på koden?
Med ovanstående kod kommer man tillbaka till listan på forum, alltså samma som man klickade sig vidare från... ??? ...
/RickardSv: Forum - Vad är fel på koden?