Hi brauch dringend Hilfe,
habe folgendes Problem:
bei klick auf den Button A soll über ASP in ner Datenbank alle Datensätze mit A ausgegeben werden. So wie ichs im Momment hab funktionierts garnicht. Wer kann mir sagen was ich falsch mach bzw. wie ichs ändern kann?
Ach ja außer dem Button A soll auch noch B-Z dazukommen.
Danke im Vorraus
<%
Response.Expires=0
Eingabe = TRIM( Request( "T_Eingabe") )
' Verbindungsdetails
db_dsn = "CPWeb"
db_table = "Links"
db_user = ""
db_password = ""
' Datenbank öffnen
set db = Server.CreateObject("ADODB.Connection")
db.Open "dsn=" & db_dsn & ";uid=" & db_user & ";pwd=" & db_password
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../Projekt_CPWeb/css/Style.css">
function alphasuche()
{
Buchstabe = document.alphasuche.a.status
}
</head>
<body>
<h2>Klicken Sie den Anfangsbuchstaben des gewünschten Themas an</h2>
<form name ="alphasuche" form method="post" action="Suche_Alpha.asp" >
<Input Type= "image" src="file:///O:\ABT\LSC\Allgem\PIT\Projekt_CPWeb\images\alphabet_blau\alpha-b-a.gif" name="A" onclick="alphasuche()">
<script language="JavaScript">
function alphasuche()
{
Buchstabe = document.alphasuche.a.status
}
</script>
<%
' Daten erfragen
sql = "SELECT ID,Thema,Link FROM Links WHERE Thema LIKE '%" & Buchstabe & "%' ORDER BY Thema"
set rs = db.Execute(sql)
If not RS.EOF then
%>
<table>
<%
While not RS.EOF
%>
<tr>
<td><%=RS( "ID" )%></td>
<TD><a href="<%=rs("Link")%>"><%=rs("Thema")%></a><TD>
</tr>
<%
RS.MoveNext
WEND
%>
</table>
<%
ELSE
%>+
<table>
<tr>
<td>
Es konnten keine Datensätze gefunden werden!
</td>
</tr>
</table>
<%
END IF
%>
</body>
</html>