15 svar · 248 visningar · startad av aleborg
Jag har fått fram en fungerande kod som ser ut så här för att plocka fram alla kategorier och subkategorier:
<%
Sub WriteCatSubstans(catName,catId)
Dim tac
Dim sql2
SQL2="Select * From Categ Where CatBel='"& catid &"'"
Set tac = Conn.Execute(SQL2)
Do until tac.Eof
Response.Write("<option value="""& tac("CatID") &""">" & CatName & "/" & tac("CatName") & "</option>")
Call WriteCatSubstans(CatName & "/" & tac("CatName"), tac("catID"))
tac.MoveNext
Loop
tac.Close
Set tac = Nothing
End sub
SQL = "Select * From Categ Where CatBel='none'"
Set ca = Conn.Execute(SQL)
Do Until ca.EOF
Response.Write("<option value=""" & ca("CatID") & """>" & ca("CatName")& "</option>")
Call WriteCatSubstans(ca("catName"),ca("CatId"))
ca.MoveNext
loop
ca.close
Set ca = Nothing
%>
Den fungerar perfekt utan problem i ett formulär för att skapa nya kategorier, saken är när man skickar formuläret så ska kategorin man valt att skapa ny i visas, hela kedjan t ex:
kat1 - sub1 - sub2 - nysub
Hur ska jag göra, förmodar att jag får använda ovanstående sätt att göra det på! Suttit och provat mig fram men inte fått nått fungerande 
Så här ser den nuvarande koden ut, men den visar inte hela kedjan:
<%
If Session("CatBel")="none" Then
Response.Write ""& Session("CatName") &""
Else
SQL="Select * From Categ Where CatID='"& Session("Catbel") &"'"
Set ca=Conn.Execute(SQL)
If len(ca("Catbel"))="none" Then
Response.Write ""& ca("CatName") &" - <u>"& Session("CatName") &"</u>"
ca.Close
Set ca=Nothing
Else
SQL2="Select * From Categ Where CatID='"& ca("Catbel") &"'"
Set ac=Conn.Execute(SQL2)
Do Until ac.EOF
Response.Write ""& ac("CatName") &" - "
ac.MoveNext
Loop
ac.Close
Set ac=Nothing
Response.Write ""& ca("CatName") &" - <u>"& Session("CatName") &"</u>"
ca.Close
Set ca=Nothing
End If
End If
%>
Testa lite med detta...
<%
response.write mid(ShowCats(0,true),3)
Sub ShowCats(CatID,Current)
dim m_buffer
if Current then
m_buffer=" - <u>"& Session("CatName") &"</u>"
nextcat=Session("CatBel")
else
SQL="Select * From Categ Where CatID='"& CatID &"'"
Set ca=Conn.Execute(SQL)
m_buffer=" - " & ca("CatName")
nextcat=ca("CatBel")
end if
if nextcat<>"none" then
ShowCats=ShowCats(nextcat,false) & m_buffer
else
ShowCats=m_buffer
end if
End Sub
%>
Type mismatch: 'ShowCats'
Labba lite med den. Jag skrev rätt från hjärtat....och har ingen aning om hur sessions och så ser ut hos dig... 
[r]Ja, och så är det ju bra om man gör en function och inte en sub....[/r]
[Redigerat av emission den 03 jul 2001]
Sorry to write in English, but I'm Danish and does not understand nor know how to write in Sweedish :-(
emission, you cannot assign a value to a SUB routine, only a Function. That is why aleborg gets an error.
I'll get back to you with your problem .. just wanted to say this now ..
*LOL* emission gjorde fel! 
*smile* and emission never makes errors or ?
nope, but there's a first for everything... 
nån?
Jag gick tillbaka till den ursprungliga, är fortfarande inte riktigt haj på functions o subbar
Ett utmärkt sätt att lära sig functions på!
Function ShowCat(catbel)
SQL2="Select * From Categ Where CatID="&catbel
Set ac=Conn.Execute(SQL2)
Do Until ac.EOF
Response.Write ""& ac("CatName") &" - "
ac.MoveNext
Loop
ac.Close
Set ac=Nothing
End Function
Nu måste ju catbel ha ett värde också?
Det gjorde det
Du e en klippa mannen
Vad kul!