Har ett problem med att få med värdet i en listruta till nästa sida. Så här ser koden ut på första sidan: Du får nog ändra de till så här: Detta kanske fungerar bättre:Värde från listruta
<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim con
Dim rs
set con=Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("forum.mdb/")
set rs=con.Execute("SELECT * FROM [protokoll] ORDER BY id DESC")
%>
<HTML>
<HEAD>
<TITLE>Snöstorpsskolan - Protokoll</TITLE>
</HEAD>
<!--#include file="over.txt"-->
<FONT FACE="Book Antiqua" SIZE="2" COLOR="black">
<H4>Protokoll från våra möten </H4>
<BR>Välj önskat datum, tryck sedan på knappen för att läsa!<BR><BR>
<BR>
<form method="post" action="lasaprotokoll.asp" name="skicka" onSubmit"return kolla()">
<SELECT NAME="protokoll" size="1">
<%
do until rs.eof
%><%
rs.movenext()
loop
%>
</OPTION>
</select>
   <INPUT TYPE="submit" NAME="skicka" VALUE="Läsa">
</FORM>
<BR>
<CENTER><IMG SRC="prot.jpg"></CENTER>
<BR>
<BR>
<BR>
<!--#include file="under.txt"-->
Koden för sidan dit värdet ska skickas med ser ut så här:
<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim con
Dim rs
Dim skicka
skicka=Request.form("skicka")
set con=Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("forum.mdb/")
set rs=con.Execute("SELECT * FROM [protokoll] WHERE dag="&skicka&";")
con.close
set con = nothing
%>
<HTML>
<HEAD>
<TITLE>Snöstorpsskolan - Protokoll</TITLE>
</HEAD>
<!--#include file="over.txt"-->
<%
Response.Write (rs("t")&"<BR>")
%>
<BR>
<BR>
Tillbaka
<!--#include file="under.txt"-->
Är det någon som kan se vad det är för fel? Antar att det måste ha att göra med SQL-satsen, att den inte förstår "&skicka&"Sv: Värde från listruta
Första sidan så har jag:
- Tagit bort onsubmit i formen, vilket såg onödig ut och saknade =-tecknet.
- Tagit bort och i <selecten>´s <option>´s. Även < br>:en.
Andra sidan så har jag:
- Lagt till fnuuttarna(') vid dag=skicka delen
<code>
<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim con
Dim rs
set con=Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("forum.mdb/")
set rs=con.Execute("SELECT * FROM [protokoll] ORDER BY id DESC")
%>
<HTML>
<HEAD>
<TITLE>Snöstorpsskolan - Protokoll</TITLE>
</HEAD>
<!--#include file="over.txt"-->
<FONT FACE="Book Antiqua" SIZE="2" COLOR="black">
<H4>Protokoll från våra möten </H4>
<BR>Välj önskat datum, tryck sedan på knappen för att läsa!<BR><BR>
<BR>
<form method="post" action="lasaprotokoll.asp" name="skicka">
<SELECT NAME="protokoll" size="1">
<%
do until rs.eof
%><OPTION VALUE="<%=rs("dag")%>"><%Response.Write (rs("dag"))%><%
rs.movenext()
loop
%>
</OPTION>
</select>
   <INPUT TYPE="submit" NAME="skicka" VALUE="Läsa">
</FORM>
<BR>
<CENTER><IMG SRC="prot.jpg"></CENTER>
<BR>
<BR>
<BR>
<!--#include file="under.txt"-->
<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim con
Dim rs
Dim skicka
skicka=Request.form("skicka")
set con=Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("forum.mdb/")
set rs=con.Execute("SELECT * FROM [protokoll] WHERE dag='"&skicka&"';")
con.close
set con = nothing
%>
<HTML>
<HEAD>
<TITLE>Snöstorpsskolan - Protokoll</TITLE>
</HEAD>
<!--#include file="over.txt"-->
<%
Response.Write (rs("t")&"<BR>")
%>
<BR>
<BR>
Tillbaka
<!--#include file="under.txt"-->
</code>Sv: Värde från listruta
<code>
<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<TITLE>Snöstorpsskolan - Protokoll</TITLE>
</HEAD>
<!--#include file="over.txt"-->
<FONT FACE="Book Antiqua" SIZE="2" COLOR="black">
<H4>Protokoll från våra möten </H4>
<BR>Välj önskat datum, tryck sedan på knappen för att läsa!<BR><BR>
<BR>
<FORM method="post" action="lasaprotokoll.asp" name="skicka" onSubmit="return kolla()">
<SELECT NAME="protokollid" size="1">
<%
Dim con
Dim rs
set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("forum.mdb/")
set rs = con.Execute("SELECT * FROM [protokoll] ORDER BY id DESC")
Do until rs.eof
%>
<OPTION VALUE="<%=rs("id")%>"><%=rs("dag")%></OPTION>
<%
rs.movenext()
Loop
rs.Close
Set rs = nothing
con.Close
Set con = Nothing
%>
</SELECT>
   <INPUT TYPE="submit" NAME="skicka" VALUE="Läsa">
</FORM>
<BR>
<CENTER><IMG SRC="prot.jpg"></CENTER>
<BR>
<BR>
<BR>
<!--#include file="under.txt"-->
</code>
Koden för sidan dit värdet ska skickas med ser ut så här:
<code>
<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<TITLE>Snöstorpsskolan - Protokoll</TITLE>
</HEAD>
<!--#include file="over.txt"-->
<%
Dim con
Dim rs
Dim protokollid
protokollid = Request.form("protokollid")
set con=Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("forum.mdb/")
set rs = con.Execute("SELECT * FROM [protokoll] WHERE id = " & CLng(protokollid) & ";")
If rs.EOF Then
Response.Write "Post ej funnen!"
Else
Response.Write Server.HTMLEncode(rs("t"))
End If
rs.Close
Set rs = Nothing
con.close
set con = nothing
%>
<BR>
<BR>
Tillbaka
<!--#include file="under.txt"-->
</code>