Hallo!
Ich schreibe gerade eine .asp-Datei für einen Spielplan.Soweit, so gut.
Jetzt habe ich folgende Frage:
Das Feld "mehr" ist mit einem Bild (Access-Datenbank) versehen. Zweck: wer mehr über das Spiel wissen möchte, kann dieses Bild anklicken und es erscheint eine detaillierte Angabe über gerade dieses EINE Spiel!
Wie gehe ich jetzt am besten vor? Ich bin noch ein ASP-Neuling und würde mich über jede Hilfe sehr freuen.
Ich hoffe, ich habe es einigermaßen verständlich formuliert.
Schöne Grüsse
TJ. Mein Quelltext für eine Spielplanabfrage.asp:
<% @ Language="VBscript"
LCID = 1031 %><%
Option Explicit
Response.Buffer = true
Session.LCID = 1031%><head>
<style type="text/css">
<!--
td { font-family: Verdana, Arial, sans-serif; font-size:9px }
-->
</style>
</head>
<%
Dim rs, strConn, Conn, strPfadDB, SQL, color0, color1, color2
color0=""
color1="#dddddd"
color2="#eeeeee"
set Conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
strPfadDB = Server.MapPath("tsgk.mdb")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPfadDB
SQL = "Select * from Spielplan where SPIELPLANID=" & request.queryString("ID")
Conn.Open (strConn)
rs.Open SQL, Conn, 3, 1
%>
<link href="style.asp" rel="stylesheet" type="text/css">
<table border=0>
<tr>
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Spielplan </font></th>
<th width="2%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Tag</font></th>
<th width="9%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Datum</font></th>
<th width="6%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Zeit</font></div></th>
<th width="8%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Halle</font></th>
<th width="4%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Staffel</font></th>
<th width="13%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Heim</font></th>
<th width="6%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Heimteam</font></th>
<th width="2%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">vs</font></th>
<th width="13%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Gast</font></th>
<th width="6%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Gastteam</font></th>
<th width="15%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Schiedsrichter</font></th>
<th width="30%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">SpielplanID</font><a href="onclick=javascript:NeuesFenster('details.asp?ID=<%=rs.fields("ID").value%>', 400,400,0);">BILD</a>
</th>
<th width="1%" bgcolor="#C5D3E7"><font color="#C5D3E7" size="-2" face="Verdana, Arial, Helvetica, sans-serif">mehr</font></th>
</tr>
<%
Do while not rs.EOF
if color0=color1 then color0=color2 else color0=color1
Response.Write("<tr bgcolor=" & color0 & ">")
Response.Write("<td>" & rs.Fields("Wochentag").Value & "</td>")
Response.Write("<td>" & rs.Fields("Datum").Value & "</td>")
Response.Write("<td>" & rs.Fields("Zeit").Value & "</td>")
Response.Write("<td>" & rs.Fields("Halle").Value & "</td>")
Response.Write("<td>" & rs.Fields("Staffel").Value & "</td>")
Response.Write("<td>" & rs.Fields("Heim").Value & "</td>")
Response.Write("<td>" & rs.Fields("Heimteam").Value & "</td>")
Response.Write("<td>" & rs.Fields("vs").Value & "</td>")
Response.Write("<td>" & rs.Fields("Gast").Value & "</td>")
Response.Write("<td>" & rs.Fields("Gasteam").Value & "</td>")
Response.Write("<td>" & rs.Fields("Schiris").Value & "</td>")
Response.Write("<td>" & rs.Fields("SpielplanID").Value & "</td>")
Response.Write("<td>" & rs.Fields("mehr").Value & "</td>")
Response.Write("</tr>")
rs.MoveNext
Loop
Response.Write(rs.RecordCount &" Spiele")
rs.Close
Conn.Close
set rs = nothing
set Conn = nothing
%>
</table>
und der Quelltext für details.asp:
<% @ Language="VBscript"
LCID = 1031 %><%
Option Explicit
Response.Buffer = true
Session.LCID = 1031%><head>
...
<style type="text/css">
<!--
td { font-family: Verdana, Arial, sans-serif; font-size:9px }
-->
</style>
</head>
<%
Dim rs, strConn, Conn, strPfadDB, SQL, color0, color1, color2
color0=""
color1="#dddddd"
color2="#eeeeee"
set Conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
strPfadDB = Server.MapPath("tsgk.mdb")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPfadDB
strSQL = "SELECT * FROM SPIELPLAN WHERE SpielplanID=" & request.queryString("ID")
Conn.Open (strConn)
rs.Open SQL, Conn, 0, 1
%>
<link href="style.asp" rel="stylesheet" type="text/css">
<table border=0>
<tr>
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Spielplan</font></th>
<th width="20%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">id</font></th>
<th width="20%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Datum</font></th>
<th width="6%" bgcolor="#b9b9b9"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">mehr</font></div></th>
</tr>
<%
Do while not rs.EOF
if color0=color1 then color0=color2 else color0=color1
Response.Write("<tr bgcolor=" & color0 & ">")
Response.Write("<td>" & rs.Fields("Spielplanid").Value & "</td>")
Response.Write("<td>" & rs.Fields("Datum").Value & "</td>")
Response.Write("<td>" & rs.Fields("mehr").Value & "</td>")
Response.Write("</tr>")
rs.MoveNext
Loop
Response.Write(rs.RecordCount &" Spiele")
rs.Close
Conn.Close
set rs = nothing
set Conn = nothing
%>
</table>
Ich bekomme jetzt die Fehlermeldung:
Microsoft JET Database Engine- Fehler '80040e14'
Syntaxfehler (fehlender Operator) in Abfrageausdruck 'SPIELPLANID='.
/datenbank/spielplanabfrage.asp, line 27
Was'n nun falsch?
Dankeschön!
TJ
