Hei!
Jeg har laget en database over videofilmer.
Jeg forsøker å lage det slik at kolonne-tittelen skal være en link som
kjører samme asp-siden som jeg allerede er inne på,
men som forandrer SQL-spørringen for hver gang, slik at jeg kan sortere på
forskjellige kolonne-titler ......
(Jeg connecter til databasen gjennom "include" kommandoen øverst)
Det er 2. dagen jeg holder på med ASP-programmering, så jeg har ikke lært så
veldig mye enda!
Kan noen forklare meg tankegangen rundt byggingen av en slik side som jeg
har skrevet under her ?
Takk!
Mvh, Morten
----------------------------------------------------------------------------
--------------------------------------------------------------------------
<!--#include file="topp.asp"-->
<!--#include file="connect.asp"-->
<%
' Gjør plass for variablene
Dim strTitle, strAge, strDice, varSort
' Gir variablene en verdi (i dette tilfellet -> sql-spørringer)
strTitle = "SELECT orginaltittel, aldersgrense, terningkast FROM filmer
order by orginaltittel"
strAge = "SELECT orginaltittel, aldersgrense, terningkast FROM filmer
order by aldersgrense"
strDice = "SELECT orginaltittel, aldersgrense, terningkast FROM filmer
order by terningkast"
' ############# Denne delen fungerer ikke som den skal! Og jeg vet ikke om
jeg kan lage den slik!
Select Case varSort
Case "strTitle"
objRec.Open strTitle, objConn
Case "strAge"
objRec.Open strAge, objConn
Case "strDice"
objRec.Open strDice, objConn
End select
' Lager html tabellen, og legger inn overskriftene i hver kolonne
Response.Write "<TABLE CELLSPACING=1 BORDER=0 BGCOLOR=BLACK WIDTH=700
ALIGN=CENTER><TR><TD bgcolor=black align=center>"
Response.Write "<a href=sort.asp?varSort=strTitle>Tittel</a>"
Response.Write "</TD><TD bgcolor=black align=center>"
Response.Write "<a href=sort.asp?varSort=strAge>Aldersgrense</a>"
Response.Write "</TD><TD bgcolor=black align=center>"
Response.Write "<a href=sort.asp?varSort=strDice>Terningkast</a>"
Response.Write "</TD></TR>"
' Loop som henter inn data fra databasen til hver post i hver rad
While Not objRec.EOF
Response.Write "<TD BGCOLOR=GRAY>"
Response.Write "<a href=" & objRec("orginaltittel") & ">" &
objRec("orginaltittel") & "</a><BR></TD>"
Response.Write "<TD BGCOLOR=GRAY align=center>"
Response.Write objRec("aldersgrense") & "<BR></TD>"
Response.Write "<TD BGCOLOR=GRAY align=center>"
Response.Write objRec("terningkast") & "<BR></TD>"
Response.Write "</TR>"
objRec.MoveNext
Wend
Response.Write "</TABLE>"
' Lukker database-connection og sletter variablene
objRec.Close
objConn.Close
Set objRec = Nothing
Set objConn = Nothing
Set strTitle = Nothing
Set strAge = Nothing
Set strDice = Nothing
%>
<!--#include file="bottom.asp"-->