hallo,
bei dem folgenden Code versuche ich ein Filtern von Datensätzen nach einem Kriterium zu erzeugen (Kriteriumrodukt), ohne Erfolg.
Nachdem der User ein bestimmtes Produkt auf dem Textfeld geschrieben hat und er auf den Button "Produkt suchen/anzeigen" klickt, gibt es 2 Fälle:
- Falls sich der eingegebene Eintrag in der Tabelle Produkt befindet, werden alle dazugehörigen Datensätzen angezeigt in Form von einem SelectBox.
- Falls sich der eingegebene Eintrag nicht in der Tabelle befindet, bekommt der User die Meldung, dass keine Datensätze für das eingegebene Produkt gefunden wurden.
Das input "button" hat noch nicht eine Funktion, so dass beim Klicken ein Ereignis kommt, ich arbeite daran weiter, aber vielleicht hätte jemand eine bessere Idee, wie ich es besser machen kann, damit das Filtern ausgeführt werden kann, oder wo würden meine Fehler liegen, bisher kriege ich nichts angezeigt auf dem Browser und ich bekomme die Fehlermeldung: "HTTP: Interner Serverfehler...".
<!-- #Include file = "../DATA/ADOVBS.INC" -->
<%
Dim objConn, strConn, objRS, SQLquery
Set objConn = Server.CreateObject("ADODB.Connection"
strConn = "Provider..." 'Aus Sicherheitsgründen nicht weiter geschrieben
objConn.connectionstring = strConn
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset"
ON ERROR RESUME NEXT
%>
<html><head><title>test</title>
<script language="JavaScript">
<!--
function setfocus()
{
document.forms["GefundeneProdukte"].elements["Produkt"].focus();
}
-->
</SCRIPT>
</head>
<%
Dim Produkt
Produkt = Request.QueryString("Produkt"
'Was tun? Suchfeld oder Selectbox?
if len(Produkt) > 0 then
'Es wurde ein Produkt eingegeben, in DB suchen
call filtern()
else
'Kein Produkt, Eingabefenster
call NewForm()
end if
%>
<body>
<% private function NewForm() %>
<form name="GefundeneProdukte" action="filter.asp" method="get">
<input name="Produkt" type="hidden" value="Produkt">
<p>Produkt:<input type="text" id="Produkt" name="Produkt" size="40" maxlength="50"></p>
<p><input type="submit" value="Produkt suchen/anzeigen"></p>
</form>
<% end function
private function filtern()
If Request.QueryString("Produkt" = "" Then
Response.Write("Bitte geben Sie das Produkt ein, nach dem Sie suchen"
Else
Set objRS = SERVER.CreateObject("ADODB.Recordset"
SQLquery = "SELECT Dienstleistungs_ID, Produkt, Report FROM LU_Produkt WHERE Produkt = '" & Request.QueryString("Produkt" & "'"
objRS.Open SQLquery,strConn,adOpenStatic
If objRS.RecordCount = 0 Then
Response.Write("Keine Datensätze für Produkt" & Request.QueryString("Produkt" & "gefunden"
Else
Response.Write("<H3>Datensätze gefunden für das Produkt: " & Request.QueryString("Produkt" & "</H3>"
%>
<table style="width:720px" border=0 cellspacing=0 cellpadding=3>
<tr bgcolor="silver">
<td align=center width=20%><b>Dienstleistungs_ID</b></td>
<td align=center width=30%><b>Produkt</b></td>
<td align=center width=10%><b>Report</b></td></tr>
</tr>
</table>
<div style="height:300px;width:740px;overflow:auto;">
<select size="10" name="Produkt" style="width:720px">
<%
SQLquery = "SELECT * FROM LU_Produkt WHERE Produkt = '" & Request.QueryString("Produkt" & "'"
Set objRS = objConn.Execute(SQLquery)
Do While Not(objRS.EOF)
Response.Write "<option value='" & objRS("Produkt_id" & "'>"
Response.Write objRS("Dienstleistungs_ID" & "&nbsp;&nbsp;&nbsp;"
Response.Write objRS("Produkt" & "&nbsp;&nbsp;&nbsp;"
Response.Write objRS("Report" & "&nbsp;&nbsp;&nbsp;"
Response.Write "&nbsp;"
objRS.MoveNext
Loop
objRS.Close
Set objRS=Nothing
%>
</select>
</div>
<%
End If
objConn.Close
Set objConn=Nothing
end function
%>
</body>
</html>
bei dem folgenden Code versuche ich ein Filtern von Datensätzen nach einem Kriterium zu erzeugen (Kriteriumrodukt), ohne Erfolg.
Nachdem der User ein bestimmtes Produkt auf dem Textfeld geschrieben hat und er auf den Button "Produkt suchen/anzeigen" klickt, gibt es 2 Fälle:
- Falls sich der eingegebene Eintrag in der Tabelle Produkt befindet, werden alle dazugehörigen Datensätzen angezeigt in Form von einem SelectBox.
- Falls sich der eingegebene Eintrag nicht in der Tabelle befindet, bekommt der User die Meldung, dass keine Datensätze für das eingegebene Produkt gefunden wurden.
Das input "button" hat noch nicht eine Funktion, so dass beim Klicken ein Ereignis kommt, ich arbeite daran weiter, aber vielleicht hätte jemand eine bessere Idee, wie ich es besser machen kann, damit das Filtern ausgeführt werden kann, oder wo würden meine Fehler liegen, bisher kriege ich nichts angezeigt auf dem Browser und ich bekomme die Fehlermeldung: "HTTP: Interner Serverfehler...".
<!-- #Include file = "../DATA/ADOVBS.INC" -->
<%
Dim objConn, strConn, objRS, SQLquery
Set objConn = Server.CreateObject("ADODB.Connection"
strConn = "Provider..." 'Aus Sicherheitsgründen nicht weiter geschrieben
objConn.connectionstring = strConn
objConn.Open
Set objRS = Server.CreateObject("ADODB.Recordset"
ON ERROR RESUME NEXT
%>
<html><head><title>test</title>
<script language="JavaScript">
<!--
function setfocus()
{
document.forms["GefundeneProdukte"].elements["Produkt"].focus();
}
-->
</SCRIPT>
</head>
<%
Dim Produkt
Produkt = Request.QueryString("Produkt"
'Was tun? Suchfeld oder Selectbox?
if len(Produkt) > 0 then
'Es wurde ein Produkt eingegeben, in DB suchen
call filtern()
else
'Kein Produkt, Eingabefenster
call NewForm()
end if
%>
<body>
<% private function NewForm() %>
<form name="GefundeneProdukte" action="filter.asp" method="get">
<input name="Produkt" type="hidden" value="Produkt">
<p>Produkt:<input type="text" id="Produkt" name="Produkt" size="40" maxlength="50"></p>
<p><input type="submit" value="Produkt suchen/anzeigen"></p>
</form>
<% end function
private function filtern()
If Request.QueryString("Produkt" = "" Then
Response.Write("Bitte geben Sie das Produkt ein, nach dem Sie suchen"
Else
Set objRS = SERVER.CreateObject("ADODB.Recordset"
SQLquery = "SELECT Dienstleistungs_ID, Produkt, Report FROM LU_Produkt WHERE Produkt = '" & Request.QueryString("Produkt" & "'"
objRS.Open SQLquery,strConn,adOpenStatic
If objRS.RecordCount = 0 Then
Response.Write("Keine Datensätze für Produkt" & Request.QueryString("Produkt" & "gefunden"
Else
Response.Write("<H3>Datensätze gefunden für das Produkt: " & Request.QueryString("Produkt" & "</H3>"
%>
<table style="width:720px" border=0 cellspacing=0 cellpadding=3>
<tr bgcolor="silver">
<td align=center width=20%><b>Dienstleistungs_ID</b></td>
<td align=center width=30%><b>Produkt</b></td>
<td align=center width=10%><b>Report</b></td></tr>
</tr>
</table>
<div style="height:300px;width:740px;overflow:auto;">
<select size="10" name="Produkt" style="width:720px">
<%
SQLquery = "SELECT * FROM LU_Produkt WHERE Produkt = '" & Request.QueryString("Produkt" & "'"
Set objRS = objConn.Execute(SQLquery)
Do While Not(objRS.EOF)
Response.Write "<option value='" & objRS("Produkt_id" & "'>"
Response.Write objRS("Dienstleistungs_ID" & "&nbsp;&nbsp;&nbsp;"
Response.Write objRS("Produkt" & "&nbsp;&nbsp;&nbsp;"
Response.Write objRS("Report" & "&nbsp;&nbsp;&nbsp;"
Response.Write "&nbsp;"
objRS.MoveNext
Loop
objRS.Close
Set objRS=Nothing
%>
</select>
</div>
<%
End If
objConn.Close
Set objConn=Nothing
end function
%>
</body>
</html>