nicht angemeldet
Hallo Jungs,
ich bin schier am verzweifeln. Ich muss eine Intranet Suchmaske erstellen, mit Hilfe derer ich eine Access Datenbank absuchen kann. In der Datenbank sind verschiedene Daten gespeichert, dessen Primaerschluessel ein Datum ist. Nun, was will ich machen: Ich moechte ueber ein Formular eine Abfrage starten, d.h wenn ich ein Datum in <input name="Date" value="<%Date%>"> eintrage, sollte ich eine Ausgabe erhalten, welche alle in der Datenbank mit diesem Datum verbunden Datensatze als HTML ausgibt. Ich glaube das beste ist, wenn ich mal meinen Source-Code zeige (bitte nicht lachen, habe ich mir aus versch. Foren zusammengebaut, stimmt wahrscheinlich hinten und vor nicht). Waere echt nett wenn Ihr mir helfen koenntet, muss das heute noch fertig machen. Vielen Dank
Stefanie
Hier der Code:
<%
Option Explicit
dim myRecordset, conn, sql
dim Date
dim Param
dim Data
set conn = server.CreateObject("ADODB.Connection")
set myRecordset = server.CreateObject("ADODB.RecordSet")
conn.open "Datenbank"
Date=request.form("Date")
Param=request.QueryString("Param")
Data = Request.QueryString("Data")
sql="SELECT * FROM ExcelPartsData WHERE (Data='Date')"
myRecordset.open sql, conn
%>
<HTML>
<HEAD>
<TITLE> </TITLE>
</HEAD>
<BODY>
<Form Method="Post" Action="search.asp">
<Input Type="Text" Name="Date" Maxlength=10 Size=10 Value="<%=Date%>">
<Input Type="Submit" Name=Submit Value="Search">
</form>
<%
if not myRecordset.EOF then
do while (not myRecordset.EOF)
str1=myRecordset("Date") & _
", " & myRecordset("Parts#") & _
", " & myRecordset("LineLocation")
Response.Write(str1)
Response.Write("<BR>") 'html-Befehl für neue Zeile
myRecordset.movenext
%>
<TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0><FONT FACE="Arial" COLOR=#000000><CAPTION><B>ExcelPartsData</B></CAPTION>
<THEAD>
<TR>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>Date</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE="Arial" COLOR=#000000>LineLocation</FONT></TH>
Loop
</TR>
</THEAD>
<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=Date%><BR></FONT></TD>
<TD BORDERCOLOR=#c0c0c0 ><FONT SIZE=2 FACE="Arial" COLOR=#000000><%=LineLocation%><BR></FONT></TD>
<COLOR=#000000><%=Comments%><BR></FONT></TD>
</TR>
<%
rs.MoveNext%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</BODY>
</HTML>