14. januar 2002 - 13:04
Der er
6 kommentarer og 1 løsning
letteste måde ønskes
til denne tabel skal jeg hente priser i en database, priser ligger i en tabel under kollonne \"pris\" størrelsen ligger i kollonnen \"str\" rækkerne = str. 10x15, 13x18, 15x20 og 20x30 Hvordan laver jeg det lettest? <% Set Conn = Server.CreateObject(\"ADODB.Connection\") strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../forhandler/kunder.mdb\") Conn.Open strDSN strSQL = \"SELECT * FROM priser\" Set rs = Conn.Execute(strSQL) %> <table width=\"250\" border=\"1\" bordercolorlight=\"#FF0000\" bordercolordark=\"#FF0000\" bordercolor=\"#FF0000\" bgcolor=\"#FFFF00\"> <tbody> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\"><b>Antal billeder</b></font></td> <td align=\"center\" bgColor=\"#FF0000\"><font color=\"#ffffff\"><b>Pris </b></font></td> </tr> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\">Opstarts gebyr</font></td> <td align=\"center\"> 25,00 kr.</td> </tr> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\">10 x 15 cm</font></td> <td align=\"center\">20,00 kr.</td> </tr> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#FFFFFF\">13 x 18 cm</font></td> <td align=\"center\">20,00 kr.</td> </tr> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\">15 x 20 cm</font></td> <td align=\"center\">20,00 kr.</td> </tr> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\">20 x 30 cm</font></td> <td align=\"center\">30,00 kr.</td> </tr> </tbody> </table>
Annonceindlæg fra Geoinfo
14. januar 2002 - 16:39
#4
Prøv med den her. Husk at str og pris skal være Tekst-felter i databasen...: <% Set Conn = Server.CreateObject(\"ADODB.Connection\") strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../forhandler/kunder.mdb\") Conn.Open strDSN strSQL = \"SELECT * FROM priser WHERE (str = \'10x15\')\" Set rs = Conn.Execute(strSQL) %> <table width=\"250\" border=\"1\" bordercolorlight=\"#FF0000\" bordercolordark=\"#FF0000\" bordercolor=\"#FF0000\" bgcolor=\"#FFFF00\"> <tbody> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\"><b>Antal billeder</b></font></td> <td align=\"center\" bgColor=\"#FF0000\"><font color=\"#ffffff\"><b>Pris </b></font></td> </tr> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\">Opstarts gebyr</font></td> <td align=\"center\"> 25,00 kr.</td> </tr> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\">10 x 15 cm</font></td> <td align=\"center\"><%= rs(\"pris\") %>.</td> </tr> <tr> <% strSQL = \"SELECT * FROM priser WHERE (str = \'13x18\')\" Set rs = Conn.Execute(strSQL) %> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#FFFFFF\">13 x 18 cm</font></td> <td align=\"center\"><%= rs(\"pris\") %>.</td> </tr> <% strSQL = \"SELECT * FROM priser WHERE (str = \'15x20\')\" Set rs = Conn.Execute(strSQL) %> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\">15 x 20 cm</font></td> <td align=\"center\"><%= rs(\"pris\") %>.</td> </tr> <% strSQL = \"SELECT * FROM priser WHERE (str = \'20x30\')\" Set rs = Conn.Execute(strSQL) %> <tr> <td bgColor=\"#FF0000\" align=\"center\"><font color=\"#ffffff\">20 x 30 cm</font></td> <td align=\"center\"><%= rs(\"pris\") %>.</td> </tr> </tbody> </table>