JohanVMedlem sedan feb. 200330 inlägg Hej!
Skulle behöva lite hjälp
Se kod nedan:
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM undernamn WHERE category='"& Request.Querystring("catta") & "'"
session("catta") = Request.Querystring("catta")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<form name="form1" method="post" action="default.asp?category=admin&changee=category&lagga=ja">
Länk, Vilken "plats" den ska ligga på.<br>
<strong>OBS!</strong> Måste ta en som det står "<strong>Ledig</strong>"
på<br>
<select name="lank" id="lank" onChange="MM_jumpMenu('parent',this,0)">
<option value="">Välj nedan.
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 1 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=1">
<% if RecSet("lank") = "1" then %>
( 1 ) Upptagen <%=RecSet("undernamn")%>
<%
else %>
( 1 ) Ledig
<% end if
%>
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 2 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=2">
<% if RecSet("lank") = "2" then %>
( 2 ) Upptagen <%=RecSet("undernamn")%>
<%
else %>
( 2 ) Ledig
<% end if
RecSet.MoveNext %>
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 3 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=3">
<% if RecSet("lank") = "3" then %>
( 3 ) Upptagen <%=RecSet("undernamn")%>
<% else %>
( 3 ) Ledig
<% end if
%>
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 4 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=4">
<% if RecSet("lank") = "4" then %>
( 4 ) Upptagen <%=RecSet("undernamn")%>
<% else %>
( 4 ) Ledig
<% end if
%>
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 5 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=5">
<% if RecSet("lank") = "5" then %>
( 5 ) Upptagen <%=RecSet("undernamn")%>>
<% else %>
( 5 ) Ledig
<% end if
%>
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 6 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=6">
<% if RecSet("lank") = "6" then %>
( 6 ) Upptagen <%=RecSet("undernamn")%>>
<% else %>
( 6 ) Ledig
<% end if
%>
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 7 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=7">
<% if RecSet("lank") = "7" then %>
( 7 ) Upptagen <%=RecSet("undernamn")%>
<% else %>
( 7 ) Ledig
<% end if
%>
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 7 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=8">
<% if RecSet("lank") = "8" then %>
( 8 ) Upptagen <%=RecSet("undernamn")%>
<% else %>
( 8 ) Ledig
<% end if
%>
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 9 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=9">
<% if RecSet("lank") = "9" then %>
( 9 ) Upptagen <%=RecSet("undernamn")%>
<% else %>
( 9 ) Ledig
<% end if
%>
</option>
<!-- -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- 10 -->
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=10">
<% if RecSet("lank") = "10" then %>
( 10 ) Upptagen <%=RecSet("undernamn")%>
<% else %>
( 10 ) Ledig
<% end if
%>
</option>
</select>
</form>
<% end if %>
Så ser den ut men, nu är det så att när den ser ut som ovanför så skriver den bara ut den första alltså,
<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=1">
<% if RecSet("lank") = "1" then %>
( 1 ) Upptagen <%=RecSet("undernamn")%>
<%
else %>
( 1 ) Ledig
<% end if
%>
</option>
Sedan skriver den ledig på de andra nio. Om jag tilllägger RecSet.MoveNext så fungerar det med de två första men då får jag
(0x80020009)
Undantag inträffade.
på linje 89 som ser ut följande
<% if RecSet("lank") = "3" then %>
Hur kan jag fixa det här problemet?
trexterMedlem sedan mars 20021 889 inlägg Välkommen till wF!
Börja med att använda kod-taggarna och gör kodraderna det handlar om fetstilta.
Du redigerar på knappen uppe till höger i inlägget.
:)
solbulleMedlem sedan mars 20015 287 inlägg Välkommen till wF!
Jag har stuvat om lite i din kod, samt klippt bort en del...
Inte helt säker på att jag fattat digrätt, men du kan alltid testa.
<form name="form1" method="post" action="default.asp?category=admin&changee=category&lagga=ja">
Länk, Vilken "plats" den ska ligga på.<br>
<strong>OBS!</strong> Måste ta en som det står "<strong>Ledig</strong>"
på<br>
<select name="lank" id="lank" onChange="MM_jumpMenu('parent',this,0)">
<option value="">Välj nedan.</option>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM undernamn WHERE category='"& Request.Querystring("catta") & "'"
session("catta") = Request.Querystring("catta")
RecSet.Open Addera, Connect, 3, 3
do while not RecSet.eof
i = i + 1
response.write "<option value=""default.asp?category=admin&changee=category&lagga=ja&cattaa=" & session("catta") & "&lank=" & i & """>"
if RecSet("lank") = i then
response.write "( " & i & " ) Upptagen " & RecSet("undernamn")
else
response.write "( " & i & " ) Ledig"
end if
response.write "</option>"
RecSet.MoveNext
loop
%>
</select>
</form>
r/ Tillägg, om det där är det enda du gör av ditt recset, glöm inte att stänga det samt kanske ska du endast göra en select på de fält du verkligen använder. Om det där är enda stället du använder adobvs.inc på tycker jag du kan ta bort den med.
JohanVMedlem sedan feb. 200330 inlägg
solbulle skrev:
Välkommen till wF!
Jag har stuvat om lite i din kod, samt klippt bort en del...
Inte helt säker på att jag fattat digrätt, men du kan alltid testa.
<form name="form1" method="post" action="default.asp?category=admin&changee=category&lagga=ja">
Länk, Vilken "plats" den ska ligga på.<br>
<strong>OBS!</strong> Måste ta en som det står "<strong>Ledig</strong>"
på<br>
<select name="lank" id="lank" onChange="MM_jumpMenu('parent',this,0)">
<option value="">Välj nedan.</option>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM undernamn WHERE category='"& Request.Querystring("catta") & "'"
session("catta") = Request.Querystring("catta")
RecSet.Open Addera, Connect, 3, 3
do while not RecSet.eof
i = i + 1
response.write "<option value=""default.asp?category=admin&changee=category&lagga=ja&cattaa=" & session("catta") & "&lank=" & i & """>"
if RecSet("lank") = i then
response.write "( " & i & " ) Upptagen " & RecSet("undernamn")
else
response.write "( " & i & " ) Ledig"
end if
response.write "</option>"
RecSet.MoveNext
loop
%>
</select>
</form>
Tackar men, det var inte riktigt så jag menade.
Jag vill ha alla 10 utskrivna så det blir följande:
1 upptagen (om det finns någon under kolumen "lank" med siffran 1)
2 Ledig (om det inte finns någon under kolumen "lank" med siffran 2)
3 upptagen (om det finns någon under kolumen "lank" med siffran 3)
4 Ledig (om det inte finns någon under kolumen "lank" med siffran 4)
5 Ledig (om det inte finns någon under kolumen "lank" med siffran 5)
6 Ledig (om det inte finns någon under kolumen "lank" med siffran 6)
7 Ledig (om det inte finns någon under kolumen "lank" med siffran 7)
8 Ledig (om det inte finns någon under kolumen "lank" med siffran 8)
9 Ledig (om det inte finns någon under kolumen "lank" med siffran 9)
10 Ledig (om det inte finns någon under kolumen "lank" med siffran 10)
Men tack så hemkt mycket för hjälpen!
solbulleMedlem sedan mars 20015 287 inlägg Hm... förstår inte riktigt, allt ska väl vara i en o samma selectlista?
Är det bara just namnet som inte ska med?
JohanVMedlem sedan feb. 200330 inlägg
solbulle skrev:
Hm... förstår inte riktigt, allt ska väl vara i en o samma selectlista?
Är det bara just namnet som inte ska med?
Jo, alla är samma selectlista.
Det är så det finns en kolum som heter "lank" som ska gå till olika ställen.
Så om vi äger att databasen ser ut så här
lank
1
2
3
6
då ska det se ut så här i menyn:
1 upptagen
2 Upptagen
3 upptagen
4 Ledig
5 Ledig
6 upptagen
7 Ledig
8 Ledig
9 Ledig
10 Ledig
solbulleMedlem sedan mars 20015 287 inlägg Ok, krävs bara en smärre ändring.
Ändra denna rad:
response.write "( " & i & " ) Upptagen " & RecSet("undernamn")
Till:
response.write "( " & i & " ) Upptagen "
Dock hade du själv i din kod den första varianten. ;)
JohanVMedlem sedan feb. 200330 inlägg
solbulle skrev:
Ok, krävs bara en smärre ändring.
Ändra denna rad:
response.write "( " & i & " ) Upptagen " & RecSet("undernamn")
Till:
response.write "( " & i & " ) Upptagen "
Dock hade du själv i din kod den första varianten. ;)
funkar inte :\
Då skriver den bara ut de siffror som finns i koulmen "lank" och
skriver att de är lediga..
JohanVMedlem sedan feb. 200330 inlägg Ingen som vet?
Börjar bli desperat efter det är det här som är det sista på sidan
Och var för kan man inte använda RecSet.MoveNext funktionen flera gånger i ett objekt?
LarsGMedlem sedan dec. 200012 464 inlägg <%
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM undernamn WHERE category='"& Request.Querystring("catta") & "'"
session("catta") = Request.Querystring("catta")
RecSet.Open Addera, Connect, 3, 3
for i = 1 to 10
response.write "<option value=""default.asp?category=admin&changee=category&lagga=ja&cattaa=" & session("catta") & "&lank=" & i & """>"
if not recset.eof then
if cint(RecSet("lank")) = i then
response.write "( " & i & " ) Upptagen " & RecSet("undernamn")
recset.movenext
else
response.write "( " & i & " ) Ledig"
end if
else
response.write "( " & i & " ) Ledig"
end if
response.write "</option>"
Next
%>
