Hall�chen, habe hier ein f�r mich wieder unverst�ndliches Problem.
Ich habe in meiner FAQ-Datenbanktabelle 3 Spalten, Keyword, Question, Answer. Die
Fragen und Antworten sind in meiner FAQ den Keywords zugeordnet. Wenn man nun auf
meiner Seite ein bestimmtes Keyword (KEY) anklickt, sollen alle Beitr�ge dazu aus der
Tabelle ausgelesen werden.
Ich lasse mir hierzu erst den KEY ausgeben und anschlie�end soll er die Beitr�ge
anzeigen.
Das Keyword zeigt er mir noch richtig an, aber leider gibt er mir den ganzen
Tabelleninhalt, also mit allen KEYs aus.
Warscheinlich sitze ich schon zu lange vor dem Problem, als dass die L�sung einfach
nicht mehr sehe.
Hier der Code:
<%
Set DB = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../FAQ/Database/FAQ_SV.mdb")
DB.Open = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & DBPath &
";DSN=;UID=;PWD=;"
%>
<html>
<head>
<title>Frequently Asked Questions</title>
<meta name="author" content="Vissing">
</head>
<!-- Hintergrund blau - text farbe - link farbe - visited link farbe -
active link farbe - Abstand zum linken Rand-->
<body bgcolor="#FFFFFF" text="#1E117B" link="#000066" vlink="#000066" alink="#BE1031"
leftmargin="50">
<font face="Arial" size="3"><!-- Creates a first table with title and blue background
-->
<table width="80%" border="0">
<tr>
<td bgcolor="#000080" colspan="5"><font face="Arial" size="5" color="#FFFFFF"><b><p
align="center">RLDRAM<br>
Frequently Asked Questions</b></font><a name="top"></a> </td>
</tr>
<tr>
<td width="20%"><font face="Arial, Helvetica, sans-serif" size="2"><a
href="FAQ_Cellular.asp" TARGET="_self"><p align="center">Cellular
RAM</a></font></td>
<td width="20%"><font face="Arial, Helvetica, sans-serif" size="2"><a
href="FAQ_Mobile.asp" TARGET="_self"><p align="center">Mobile RAM</a></font></td>
<td width="20%"><font face="Arial, Helvetica, sans-serif" size="2"><a
href="FAQ_RLDRAM.asp" TARGET="_self"><p align="center">RLDRAM</a></font></td>
<td width="20%"><font face="Arial, Helvetica, sans-serif" size="2"><a
href="FAQ_SGRAM.asp"
TARGET="_self"><p align="center">SGRAM</a></font></td>
<td width="20%"><font face="Arial, Helvetica, sans-serif" size="2"><a
href="FAQ_Form.asp"
TARGET="_self"><p align="center">Form for new FAQs</a></font></td>
</tr>
</table>
<!-- The querystring collection delivers the values passed over by the URL -->
<p><%
if request.querystring("KEY") = "" then
KEY = ""
else
KEY = request.querystring("KEY")
end if
%></p>
<p><!-- Creates a list of Keywords, sort by keyword --> <b><font face="Arial,
Helvetica, sans-serif" size="2">Keywords:</font></b><br>
<br>
<%
Set Daten = DB.Execute("Select * from Table_RLDRAM order by Keyword")
Set KeywordList = Server.CreateObject("Scripting.Dictionary")
DIM Keyword
DIM KEY
if KEY = "" then
while not Daten.EOF
if Daten("Keyword")<> "" then
Keyword =Daten("Keyword")
KEY=Keyword
if Not KeywordList.Exists(KEY) then
KeywordList.Add KEY, Keyword
end if
end if
Daten.MoveNext
wend
For Each i In KeywordList.KEYs
%><a href="FAQ_RLDRAM.asp?KEY=<% =KeywordList(i) %>" TARGET="_self"><font
face="Arial, Helvetica, sans-serif" size="2"><% =KeywordList(i) %></font><br>
<% Next
else
%></p>
<!-- Table for questions and answers -->
<table width="80%" border="0">
<tr bgcolor="#e5e5e5">
<th width="30%" bgcolor="#BFC2D4"><font face="Arial, Helvetica, sans-serif"
size="2">Question</font></th>
<th width="40%" bgcolor="#BFC2D4"><font face="Arial, Helvetica, sans-serif"
size="2">Answer</font></th>
<th width="15%" bgcolor="#BFC2D4"><font face="Arial, Helvetica, sans-serif"
size="2">Author</font></th>
<th width="15%" bgcolor="#BFC2D4"><font face="Arial, Helvetica, sans-serif"
size="2">Date</font></th>
</tr>
<!-- Decission of Keyword -->
<font face=" Arial, Helvetica, sans-serif" size="3"><b><u><% = KEY%>
</u></b></font><% DB.Execute("SELECT * FROM Table_RLDRAM WHERE Keyword ='&KEY & '")%>
<% while not Daten.EOF %>
<tr bgcolor="#e5e5e5">
<td width="40%" valign="top" bgcolor="#BFC2D4"><b><font
face="Arial, Helvetica, sans-serif" size="2"><% =Daten("Question")
%></font></b></td>
<td width="60%" valign="top" bgcolor="#BFC2D4"><font face="Arial, Helvetica,
sans-serif"
size="2"><% =Daten("Answer") %></font></td>
<td width="25%" valing="top" bgcolor="#BFC2D4"><b><font
face="Arial, Helvetica, sans-serif" size="2"><% =Daten("Author") %></font></b></td>
<td width="25%" valing="top" bgcolor="#BFC2D4"><b><font
face="Arial, Helvetica, sans-serif" size="2"><% =Daten("Date") %></font></b></td>
<% if IsNull(Daten("Link")) then
else%>
</tr>
<tr>
<td width="40%" valign="top" bgcolor="#FFFFFF"></td>
<td width="60%" valign="top" bgcolor="#BFC2D4"><font face="Arial, Helvetica,
sans-serif"
size="2">Link: </a><a HREF="<% =Daten("Link") %>" target="_blank"><%
=Daten("Linkdescription") %></a> </font></td>
</tr>
<% end if %>
<% if IsNull(Daten("PDF")) then %>
<% else %>
<tr>
<td width="40%" valign="top" bgcolor="#FFFFFF"></td>
<td width="60%" valign="top" bgcolor="#BFC2D4"><font face="Arial, Helvetica,
sans-serif"
size="2"><a HREF="<% =Daten("PDF") %>" target="_blank"><dl>
<dd align="center"><img SRC="../Pics/pdf.gif" BORDER="0" width="32"
height="32"></a> </font></dd>
</dl>
</td>
</tr>
<% end if
Daten.MoveNext
wend
%>
</table>
<% end if %>
<!--Close connection and delete object DB from memory -->
<%
Set KeywordList = Nothing
DB.close
set DB = Nothing
%>
</font>
</body>
</html>
Danke f�r eure Hilfe
Susanne
____________________________________________________________________________
Jetzt bei WEB.DE FreeMail anmelden = 1qm Regenwald schuetzen! Helfen
Sie mit! Nutzen Sie den Serien-Testsieger. http://user.web.de/Regenwald
~~~~~~~~~~~~~~~~~~~~~~~~~~~sponsored by United Planet~~~~~~~~~~~~~~~~~
Intrexx.BizWalker + ODBC/OLEDB-Daten = ASP-Formular
ATTACK! Download Intrexx CRM-Studio Now! http://www.intrexx.com
_______________________________________________
Database.asp mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/database.asp
