Jeg er lidt i tvivl om hvor det skal sættes ind på side. Vil du ikke vær venlig at prøve at sætte det ind her:
Det er den dropdown der hedder "rakke" hvor hver af de hold der er anført skal sende til den tabel hvis navn står i value.
F.eks: "Herre Elite" skal sende til tabellen "elite"
<%
Response.Buffer = True
'Åbner forbindelse til databsen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("wall.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from wall order by id desc"
rs.Open sql, conn, 1, 3
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Klubbens hold</title>
<style>
<!--
.dot {font-family:'verdana';border:2px dotted #5975AE}
.dot2 {font-family:'verdana';border:2px dotted #FF9933}
-->
</style>
</head>
<body topmargin="0" leftmargin="0" text="#000000">
<div align="center">
<center>
<table border="2" style="border-collapse: collapse; border-top-width:0; border-bottom-width:0" bordercolor="#5975AE" width="530" id="AutoNumber1" cellpadding="2" bgcolor="#FFFFFF" height="417">
<tr>
<td width="518" height="15" style="border-top-style: none; border-top-width: medium">
<p align="center"><b><font face="Verdana" size="2">Herre Elite - Referater</font></b></td>
</tr>
<tr>
<td width="518" height="218" style="border-bottom-style: none; border-bottom-width: medium">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" id="AutoNumber2" height="75">
<tr>
<td width="100%" height="30">
<tr>
<td align="center">
<%
'Hvis der ingen tags er
if rs.eof or rs.bof then
%>
Der er desværre ingen referater endnu.
<% else
'Lopper alle tags igennem med en løkke
Do until rs.eof
email = rs("email")
navn = rs("navn")
fontcolor = rs("fontcolor")
fonttype = rs("fonttype")
tag = rs("tag")
str = Request.form("besked")
%>
<div align="center">
<center>
<table border="2" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#B8C4DE" width="480" id="AutoNumber1" height="32">
<tr>
<td width="10" style="border-right-style: none; border-right-width: medium" rowspan="3"></td>
<td width="460" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-bottom-style:none; border-bottom-width:medium" height="25">
<p align="center"><b><font face="Verdana" size="2"><%=navn%></font></b></p>
<font size="2" color="<%=fontcolor%>" face="Tahoma, Verdana"><%=Replace(rs("tag"), vbCrLf, "<br>")%><br></font>
</td>
<td width="10" style="border-left-style: none; border-left-width: medium" rowspan="3"></td>
</tr>
<tr>
<td width="460" style="border-style:none; border-width:medium">
</td>
</tr>
<tr>
<td width="460" style="border-left-style: none; border-left-width: medium; border-right-style: none; border-right-width: medium; border-top-style:none; border-top-width:medium" height="25">
<p align="center">
<font size="1" color="000000" face="Verdana">//<b> <%=email%> </b></font><font size="1" face="Verdana"><b>
</b>(Din IP: )</font></td>
</tr>
</table>
</center>
</div>
<br><br><br>
<% rs.movenext
loop
end if %>
<br><br>
<hr color="#5975AE" size="4">
<br>
</td>
</tr>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
<tr>
<td align="center" height="156" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#B8C4DE" width="480" id="AutoNumber3" height="128">
<tr>
<td width="478" height="24" style="border-bottom-style: none; border-bottom-width: medium" colspan="2">
<p align="center"><b><font size="2" face="Verdana" color="#000000">
Tilføj et referat</font></b></td>
</tr>
<form method="post" action="referater.asp" id=form1 name=form1>
<%
'Hvis brugeren har submittet formen
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Smider værdierne ned i variabler
navn = Request.form("navn")
email = Request.form("email")
tag = Request.form("tag")
skrifttype = Request.form("skrifttype")
skriftfarve = Request.form("skriftfarve")
'Tjecker om navn og tag er udfyldt
if navn = "" then
Response.Write("Udfyld dit navn<br>")
end if
if tag = "" then
Response.Write("Udfyld et tag<br>")
end if
'Tilføjer til databasen hvis navn og tag er udfyldt
if navn <> "" AND tag <> "" then
rs.AddNew
rs("navn") = navn
rs("email") = email
rs("tag") = tag
rs("fontcolor") = skriftfarve
rs("fonttype") = skrifttype
rs("dato") = Now()
rs.update
'Opdaterer vinduet
Response.Redirect("referater.asp")
end if
end if %>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Overskrift:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<input autocomplete="no" type="text" name="navn" value="<%=Request("navn")%>" size="40">
</td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Forfatter:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<input autocomplete="no" type="text" name="email" value="<%=Request("email")%>" size="40">
</td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Referat:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<textarea rows="6" cols="34" name="tag"><%=Request.form("tag")%></textarea>
</td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Tekstfarve:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font face="Verdana" size="1"><b>
<select name="skriftfarve">
<option value="000000">Sort </option>
<option value="0000FF">Blå </option>
<option value="FF0000">Rød </option>
<option value="00FF00">Grøn </option>
<option value="FF00FF">Lilla </option>
<option value="008800">Mørk grøn </option>
<option value="000088">Mørk blå </option>
<option value="880000">Mørk rød </option>
<option value="008888">Mørk turkis </option>
<option value="880088">Mørk lilla </option>
<option value="8A2BE2">Blåviolet </option>
<option value="D2691E">Brun </option>
<option value="FF8C00">Mørk orange </option>
<option value="808000">Oliven </option>
<option value="FFA500">Orange </option>
<option value="00BFFF">Skyblå </option>
<option value="00FF7F">Sommergrøn </option>
<option value="EE82EE">Violet </option>
<option value="fuchsia">Fuchsia </option>
</select></b> <- Brug helst sort.</font></td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="2" face="Verdana"> Hold:</font></td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font face="Verdana" size="1"><b>
<select name="rakke">
<option value="elite" selected>Herre Elite </option>
<option value="herre1division">Herre 1. Division </option>
<option value="herre1division2">Herre 1. Division 2 </option>
<option value="herre2division">Herre 2. Divison </option>
<option value="herre3division">Herre 3. Division </option>
<option value="herreserie1kreds4">Herre Serie 1 Kreds 4 </option>
<option value="herreserie1kreds5">Herre Serie 1 Kreds 5 </option>
<option value="herreserie2kreds11">Herre Serie 2 Kreds 11 </option>
<option value="herreserie3kreds18">Herre Serie 3 Kreds 18 </option>
<option value="herreostdanmarkserien">Østdanmarkserien Kreds 1 </option>
<option value="herreoldboys2kreds1">Oldboys 2. Division 1 </option>
<option value="herreoldboys2kreds2">Oldboys 2. Division Kreds 2 </option>
<option value="damer1division">Damer 1. Division </option>
<option value="dameroldgirls1division">Oldgirls 1. Division </option>
<option value="dameroldgirls2divisionkreds1">Oldgirls 2. Division Kreds 1 </option>
<option value="oldgirls2divisionkreds2">Oldgirls 2. Division Kreds 2 </option>
<option value="oldgirls3division">Oldgirls 3.Division </option>
<option value="ungdomjunior">Herre Junior Division Øst </option>
<option value="ungdomdrengea">Drenge A </option>
<option value="ungdombunder12">Ungdom B over 12 år kreds 39</option>
<option value="ungdombunder12">Ungdom B under 12 År Kreds 43</option>
</select>
</b></font></td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
</td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
</td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium"> </td>
<td width="372" height="60" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium">
<font size="1" face="Verdana">Alle skrevne ting, som ikke har noget med
et holds referater at gøre vil blive slettet og forfatterens IP vil
blive banlyst her på siden. Det betyder kun referater ellers er det
sidste gang du ser denne side. Din IP: <%
Response.Write Request.ServerVariables("REMOTE_ADDR")
%></font><p><font size="1" face="Verdana">
Der er mulighed for at få eventuelle billeder med i et referat. Hvis det
er tilfældet send det til
<a href="mailto:webmaster@tphu-bif.dk?subject=Billede til holdreferat" style="text-decoration: none">
<font color="#000000">webmaster</font></a>.</font></td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium"> </td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium"> </td>
</tr>
<tr>
<td width="102" height="30" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium"> </td>
<td width="372" height="30" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium">
<input type="submit" value="Tilføj referat">
</td>
</tr>
</form>
</table>
<tr>
<td width="518" height="47" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium">
</td>
</tr>
<tr>
<td width="518" height="1" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium" bgcolor="#5975AE">
</td>
</tr>
<tr>
<td width="518" height="14" style="border-bottom-style: none; border-bottom-width: medium; border-top-style:none; border-top-width:medium">
<p align="center"><font size="1" face="Verdana"><b><---</b> Tilbage til
holdoversigten</font></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
'Lukker recordset
rs.close
set rs = nothing
'Lukker connection
conn.close
set conn = nothing
%>
Ny bruger
Nybegynder
Opret
Preview
