Sv: Någon hjälp här då?

Någon hjälp här då?

Postades av 2003-02-08 18:32:11 - Johan Eriksson, i forum asp - allmänt, Tråden har 6 Kommentarer och lästs av 442 personer

Har nu sökt hjälp på många forum men ingen har lyckas löst det än..
det nedanför är bara kopierat rakt av

Den ser ut följande
[kod]
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>

<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>

<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>

<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>

<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>

<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>

<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>

<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>

<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>

<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>

<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 %>
[/kod]

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å,

[kod]
<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>
[/kod]

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 %>

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)

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

/johan

Svara

Sv: Någon hjälp här då?

Postades av 2003-02-08 18:36:49 - Oskar Johansson

Varför inte en loop? Mycket, mycket lång kod som jag inte orkar läsa igenom...

Svara

Sv: Någon hjälp här då?

Postades av 2003-02-08 18:54:28 - Johan Eriksson

Funkar inte göra en loop p.g.a. att då går den till else och känner att det kanske inte fanns nr 1 så skriver den ut alla andra 9 där också... :\

Svara

Sv: Någon hjälp här då?

Postades av 2003-02-08 19:24:09 - Oskar Johansson

Funkar inte utan at göra en loop alternativt att ha en movenext efter varenda...

Svara

Sv: Någon hjälp här då?

Postades av 2003-02-08 21:56:50 - Stefan Holm

Hejsan,

Kanske det är någon sån här loop du vill ha?
Det verkar som om du vill skriva ut 10 rader. Man måste loopa på ett annat sätt om det i din kolumn "lank" finns tal över 10!
Jag antar att "lank" kolmumnen är av numerisk datatyp!

<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
%>
<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>


<%
for i = 1 to 10
Addera = "SELECT * FROM undernamn WHERE lank= " & i
session("catta") = Request.Querystring("catta")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>

<option value="default.asp?category=admin&changee=category&lagga=ja&cattaa=<% Response.Write session("catta") %>&lank=<%= i %>">
<% if not RecSet.eof then %>
( 1 ) Upptagen <%=RecSet("undernamn")%>
<%
else %>
( 1 ) Ledig
<% end if
%>
</option>
<%
RecSet.close
next
%>
</select>

mvh,
Stefan

Svara

Sv: Någon hjälp här då?

Postades av 2003-02-08 23:21:38 - Andreas Hillqvist

Varför inte göra på detta sättet?
<code>
<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>
<%
Dim RecSet
Dim Connect
Dim strSQL
Dim catta
catta = Request.Querystring("catta")
session("catta") = catta

Set RecSet = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT *" & vbCrLf & _
"FROM undernamn" & vbCrLf & _
"WHERE category='"& Replace(catta,"'","''") & "'" & vbCrLf & _
"ORDER BY lank"

RecSet.Open strSQL, Connect
For Index = 1 to 10
Response.Write "<option value=""default.asp?" & _
"category=admin&" & _
"changee=category&" & _
"lagga=ja&" & _
"cattaa=" & catta & "&" & _
"lank=" & Index & """>( " & Index & " ) "

Do Until RecSet.EOF
If RecSet("lank") >= Index Then
Exit Do
Else
RecSet.MoveNext
End If
Loop
If RecSet.EOF then
Response.Write "Ledig"
ElseIf RecSet("lank") = Index Then
Response.Write "Upptagen " & RecSet("undernamn")
Else
Response.Write "Ledig"
End If
Response.Write "</option>"
Next
RecSet.Close
Set RecSet = Nothing
%>
</select>
</form>
</code>

Svara

Någon hjälp här då?

Sv: Någon hjälp här då?

Sv: Någon hjälp här då?

Sv: Någon hjälp här då?

Sv: Någon hjälp här då?

Sv: Någon hjälp här då?

Nyligen

Sidor

Statistik

Kontakta oss