Sablar... skall ju ha request.form("kategori") FNUTTAR kring kategori!!!!
Frågan#1
Hopla god jul!
Får icke detta att fungera, misstänker att Request.form(kategori) är tomt... Varför... snarare än att fnuttarna sitter fel?
Hilfe!
<form method="POST" action="reportage.asp?do=visakategori" >
<select SIZE="1" NAME="kategori">
<% Do While Not Rskat.EOF %>
<option value="<% = Rskat("kategori") %>"><% = Rskat("kategori") %></option>
<% Rskat.movenext
loop %>
<select>
<input type="submit" name="test" value="Visa kategori"></select>
</FORM>
If Request.QueryString("do")="visakategori" Then
Set Conn= Server.CreateObject("ADODB.Connection")
Set Recset = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/nyheter.mdb")
SQL = "SELECT * From artiklar Where kategori = '"&Request.Querystring(kategori)&"'"
set Recset = conn.execute(SQL)
Do while not Recset.EOF %>
<table border="0" width="90%" cellpadding="0" cellspacing="0" style="border-collapse: collapse" class="celltext">
<tr>
<td width="75%" class="rubrik" style="font-weight: bold"><%=Recset("rubrik")%></td>
<td width="25%"><%=FormatDateTime(Recset("datum"),2)%> </td>
</tr>
<tr>
<td width="100%" colspan="2"><%=Recset("ingress")%><br><a href="reportage.asp?do=visareportage&reportageid=<%=Recset("id")%>">Läs hela!</a> </td>
</tr>
</table><br>
<%
Recset.Movenext
Loop
Recset.Close
Conn.Close
Set Recset = Nothing
Set Conn = Nothing
End If
%>
Tack på förhand, Johanneshov