MoveNext mellem 3 forskl. kategorier
Hej eksperter!Vi sidder her 2 mand og knokler med MoveNext funktionen.
Vi har 3. forsk. kategorier:
Punkt
Linje
Farver
Der er billeder på hver side, og der sku gerne laves en movenext - så man kan komme fra punkt til farver f.eks.
Her er koderne.
Skoletjeneste.asp skal kalde på database.asp (der er lavet database i access som virker :-)...)
Skoletjeneste.asp:
<TITLE>Database.asp</TITLE>
<Body BGCOLOR="#f5f0e6" </Body>
<%
Dim sSql, objConn, ObjRs
Dim PageSize
Dim I, streng
PageSize=1
ConnectDB("db1.mdb")
Select Case Request.Form("Fvalg")
Case 1
Punkt()
Case 2
Linje()
Case 3
Farver()
End Select
Sub ConnectDB (DBnavn)
Set objConn = server.createobject ("adodb.connection")
ObjConn.open "DRIVER={Microsoft Access Driver (*.MDB)}; DBQ=" & server.mappath (DBnavn)
sSql="SELECT * FROM Kategori;"
set ObjRs= ObjConn.Execute(sSql)
objRs.Movefirst
End Sub
Sub Punkt()
sSQL = "SELECT Sti, Tekst FROM Elementer Where KategoriID=1"
Set ObjRs = ObjConn.Execute(sSQL)
ObjRs.MoveFirst
While Not ObjRs.EOF
Response.Write ("<img src=" & ObjRs("Sti") & "><BR>" & ObjRs("Tekst") & "<BR>")
ObjRs.MoveNext
Wend
End sub
Sub Linje()
sSQL = "SELECT Sti, Tekst FROM Elementer Where KategoriID=2"
Set ObjRs = ObjConn.Execute(sSQL)
ObjRs.MoveFirst
While Not ObjRs.EOF
Response.Write ("<img src=" & ObjRs("Sti") & "><BR>" & ObjRs("Tekst") & "<BR>")
ObjRs.MoveNext
Wend
End sub
Sub Farver()
sSQL = "SELECT Sti, Tekst FROM Elementer Where KategoriID=3"
Set ObjRs = ObjConn.Execute(sSQL)
ObjRs.MoveFirst
While Not ObjRs.EOF
Response.Write ("<img src=" & ObjRs("Sti") & "><BR>" & ObjRs("Tekst") & "<BR>")
ObjRs.MoveNext
Wend
End sub
Sub CloseDB()
ObjRs.Close
ObjConn.Close
set ObjRs = Nothing
set ObjConn = Nothing
End Sub
%>
Håber I kan hjælpe os. Det vil vi blive dybt glade for.
Hold jer muntre derude!
Mvh Peter og Klaus
