Gast
19.05.2003, 16:28
Hallo!
Ich schreibe gerade eine .asp-Datei für einen Spielplan.
<% @ 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"
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">Kampfgericht</font></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("Kampfgericht").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>
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! (Kein Popup Parent-Fenster!)
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
Ich schreibe gerade eine .asp-Datei für einen Spielplan.
<% @ 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"
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">Kampfgericht</font></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("Kampfgericht").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>
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! (Kein Popup Parent-Fenster!)
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