Udskrift efter valgt dato
Hej.Jeg har følgende som udskriver nogle lister fra en database.
Jeg vil gerne have lavet 2 dropdown bokse hvor man kan vælge dato (de sidste 7 dage) og udgave.
Har følgende kode hvor man vælger de 2 ting i en dropdown boks, nu skal jeg bare have det integreret med koden nederst på siden, så man kan udskrive efter resultatet fra dropdown boksen:
<%
dim indhold
indhold=Request.form("dag")
if indhold="" then
indhold="Vælg dag"
end if %>
<form method="POST" action="vis_dag.asp">
<p>Vælg andre dage&<select size="1" name="dag">
<option value="<%response.write(indhold)%>"><%response.write(indhold)%><%=WeekDayName(Weekday((Request.form("dag"))))
%></option>
<option value="<%=date()%>"><% =date() %> <% = WeekDayName(Weekday((Date)))%></option>
<option value="<%=date()-1%>"><% =date()-1 %> <% = WeekDayName(Weekday((Date)-1))%></option>
<option value="<%=date()-2%>"><% =date()-2 %> <% = WeekDayName(Weekday((Date)-2))%></option>
<option value="<%=date()-3%>"><% =date()-3 %> <% = WeekDayName(Weekday((Date)-3))%></option>
<option value="<%=date()-4%>"><% =date()-4 %> <% = WeekDayName(Weekday((Date)-4))%></option>
<option value="<%=date()-5%>"><% =date()-5 %> <% = WeekDayName(Weekday((Date)-5))%></option>
<option value="<%=date()-6%>"><% =date()-6 %> <% = WeekDayName(Weekday((Date)-6))%></option>
<option value="<%=date()-7%>"><% =date()-7 %> <% = WeekDayName(Weekday((Date)-7))%></option>
<option value="<% Request.form("udgave") %>"><% Request.form("udgave") %></option>
</select>
<select size="1" name="udgave">
<option><% =Request.form("udgave")%></option>
<option>Lokal 1</option>
<option>Lokal 2</option>
<option>Lokal 3</option>
<option>Lokal 4</option>
<option>Lokal 5</option>
<option>Lokal 6</option>
<option>Lokal 7</option>
</select>
<input type="submit" value="Hent dag"><font face="Verdana"
</form>
</body>
</html>
vis_dag.asp:
<html>
<head>
<title>Udskrivning fra Kritik database</title>
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "efterkritik"
SQL = "select * from kritik"
Set RS = Conn.Execute(SQL)
Do While Not RS.EOF
%>
<table BORDER="0" width="600">
<tr>
<td width="186" bgcolor="#000080"><b><font color="#FFFFFF" size="3">
<%Response.Write RS("Udgave")%>
</font></b></td>
<td width="400" bgcolor="#C0C0C0">
<p align="right"><font size="2" color="#FFFFFF">
<%Response.Write RS("Dato")%>
</font></p>
</td>
</tr>
<tr>
<td width="188" valign="top"><font size="2"><b>
<%Response.Write RS("Redaktor")%>
</b></font></td>
<td width="402" valign="top"><font size="2">
<%Response.Write RS("Tekst")%>
</font></td>
</tr>
<tr>
<td width="188" valign="top"></td>
<td width="402" valign="top"></td>
</tr>
<tr>
<td width="590" colspan="2">
<p>
</td>
</tr>
</table>
<%
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Conn.Close
%>
</body>
</html>
