17. juni 2003 - 00:53Der er
18 kommentarer og 1 løsning
9 udvalgte varer til forsiden
Min forside er delt op i 3x3 (en tabel med 3 kolonner og 3 rækker) som er 100% bred og 100% høj. I disse 9 felter skal vises 9 udvalgte varer fra min produktdatabase. Min tabel hedder "Produkter" og har følgende kolonner: Varenr Varenavn Varebeskrivelse Webstatus Pris Forside
Jeg havde tænkt mig i kolonnen "Forside" at kunne indtaste tallene 1-9 på de 9 varer jeg nu har tænkt mig skulle på forsiden eller måske er det bedre med en separat "Forside"-tabel ? De 9 varer skal KUN vises hvis Webstatus=www. Jeg vil have vist Varenavn og Varepris.
Du laver en select ala: "select varenavn, varepris from produkter where webstatus='www' and forside is not null" Denne giver dig de records, der har www i webstatus og IKKE null i forside.
Så er ideen jo selvfølgelig at sætte NULL i forside, når den ikke længere skal bruges. Du kan også vælge at bruge værdien 0 i stedet for, så skal selectet se sådan ud: "select varenavn, varepris from produkter where webstatus='www' and forside > 0"
Skal du yderligere have dem sorteret i rækkefølge efter forside-nummeret, så tilføjer du: "order by forside"
strSQL = "select varenavn, varepris from produkter where webstatus='www' and forside > 0 order by forside"
set rsForside = con.execute strSQL ' con er din connection til databasen
' nu antages at du ALTID har de 9 - ellers må du lige rette til. for i = 1 to 3 response.write "<TR>" for j = 1 to 3 response.write "<TD>" & rsForside("Varenavn") & "<TD>" & vbCrLf response.write "<TD>" & rsForside("Varepris") & "<TD>" & vbCrLf rsForside.Movenext next j Next i
Du skal tage den kode, jeg har postet ovenfor, og sætte ind i din asp-fil der, hvor du skriver de enkelte linier i tabellen. Der mangler dog en linie ser jeg lige - så generer min kode tabellen for dig.
strSQL = "select varenavn, varepris from produkter where webstatus='www' and forside > 0 order by forside"
set rsForside = con.execute strSQL ' con er din connection til databasen
' nu antages at du ALTID har de 9 - ellers må du lige rette til. for i = 1 to 3 response.write "<TR>" for j = 1 to 3 response.write "<TD>" & rsForside("Varenavn") & "<TD>" & vbCrLf response.write "<TD>" & rsForside("Varepris") & "<TD>" & vbCrLf rsForside.Movenext next j response.write "</TR>" Next i
Hvis det ikke er nok, så prøv at poste din kode - så kan jeg sætte det ind i den.
<% strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/hovedmenu.mdb") Set myCon = Server.CreateObject("ADODB.Connection") myCon.Open strDSN strSQL = "select varenavn, varepris from produkter where webstatus='www' and forside > 0 order by forside"
set rsForside = myCon.execute strSQL ' con er din connection til databasen %> <html>
<head> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Ny side 1</title> </head> <body> <table> <% ' nu antages at du ALTID har de 9 - ellers må du lige rette til. for i = 1 to 3 response.write "<TR>" for j = 1 to 3 response.write "<TD>" & rsForside("Varenavn") & "<TD>" & vbCrLf response.write "<TD>" & rsForside("Varepris") & "<TD>" & vbCrLf rsForside.Movenext next j response.write "</TR>" Next i %> </table> </body> </html>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.