I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Ok scriptet kommer lige om lidt, jeg har selv defineret database strukturen til to tabeller t_Produkt (ProduktID, ProduktName)og t_Type (TypeID, ProduktID, TypeName, Pris)
Og her er koden så: <% set con = server.createobject(\"ADODB.connection\") con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"& server.mappath(\"test.mdb\") &\"; \"
Jeg er ikke helt sikker på hvad det er du ønsker, det første script kunne du dynamisk lave flere produkter bare ved at tilføje dem til databasen, men her er et der skulle virke med det html du har sendt. Jeg har dog ikke debugget det da jeg ikke har din database, hvis du ikke kan få det til at virke kan du evt. sende mig databasen så kan jeg lige lave sql sætningerne så det virker.
<% set con = server.createobject(\"ADODB.connection\") con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"& server.mappath(\"konfig.mdb\") &\"; \" %> <HTML><HEAD> <BODY> </div> <FORM name=dummy> <TABLE borderColor=#00ff00 cellSpacing=0 cellPadding=0 align=center border=0> <TBODY> <TR> <TD>Basis Maskine</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=cpu> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'cpu\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD>
<TD><INPUT size=9 value=0 name=cpupris> </TD></TR> <TR><TD>Ram</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=ram> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'ram\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT>
</TD> <TD><INPUT size=9 value=0 name=rampris> </TD></TR> <TR> <TD>Harddisk</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=hd> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'hd\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD> <TD><INPUT size=9 value=0 name=hdpris> </TD></TR> <TR> <TD>Grafik kort</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=grafik> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'grafik\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD> <TD><INPUT size=9 value=0 name=grafikpris> </TD> <TR> <TD>Disk</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=disk> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'disk\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </TD> <TD><INPUT size=9 value=0 name=diskpris> </TD></TR> <TR> <TD>Skærm</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=mon> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'mon\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD> <TD><INPUT size=9 value=0 name=monpris> </TD></TR> <TR> <TD>CD-drev</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=cd> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'cd\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD> <TD><INPUT size=9 value=0 name=cdpris> </TD></TR> <TR> <TD>Lydkort</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=key> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'key\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD> <TD><INPUT size=9 value=0 name=keypris> </TD></TR> <TR> <TD>Mus</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=mus> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'mus\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD> <TD><INPUT size=9 value=0 name=muspris> </TD></TR> <TR> <TD>Software</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=soft> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'soft\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD> <TD><INPUT size=9 value=0 name=softpris> </TD></TR> <TR> <TD>Modem</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=modem> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'modem\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD> <TD><INPUT size=9 value=0 name=modempris> </TD></TR> <TR> <TD>Kabinet</TD> <TD><SELECT style=\"WIDTH: 280px; POSITION: relative\" onchange=opdater() size=1 name=kab> <% set rs = con.execute(\"Select * from produkt where produktnavn = \'kab\'\") if not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\" SELECTED>\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext end if while not rs.eof response.write \" <OPTION value=\"& rs(\"Pris\") &\">\"& rs(\"typenavn\") &\"</OPTION>\" & VbCrLf rs.movenext wend %> </SELECT> </TD> <TD><INPUT size=9 value=0 name=kabpris> </TD></TR> <TR> <TD bgColor=#00ff00 colSpan=2>UDSALGS PRIS EXCL.MOMS</TD> <TD bgColor=#00ff00><INPUT size=9 value=0 name=excl> </TD></TR> <TR> <TD bgColor=#00ff00 colSpan=2><B>MOMS 25%</B></TD> <TD bgColor=#00ff00><INPUT size=9 value=0 name=moms></TD></TR> <TR> <TD bgColor=#00ff00 colSpan=2><B><FONT color=#ff0000>UDSALG PRIS INCL. MOMS</FONT></B></TD> <TD bgColor=#00ff00><INPUT style=\"FONT-WEIGHT: bold; COLOR: #ff0000\" size=8 value=0 name=incl></TD></TR></TBODY></TABLE> <DIV align=center> <CENTER> <P><INPUT onclick=\"return nulstil();\" type=reset value=NULSTIL> </P></CENTER></DIV></FORM> <SCRIPT language=javascript> <!--
tak for fremsendte, men jeg oplever et par problemer. den skriver : -------
Provider fejl \'80004005\'
Uspecificeret fejl
/asp/konfigark2.asp, linje 4
------ dette gør den næsten uanset hvilken jeg rører ved, samt det her med sorteringen med at \"denne cpu giver mulighed for disse bundkort\" synes jeg heller ikke fungerer helt, ellers ser det ud til at du har fat i noget af det rigtige.
har lige afprøvet det online, det ser ud til at det virker uden fejlmeddelser - mystisk det må være min PWS der er galt på den. MEN det her med \"denne cpu kan bruge disse bundkort\" virker ikke, og der må gerne foreslåes en std. konfiguration (første cpu i tabellen) ved start, og der må gerne stå \"VÆLG HER\" istedet for \"TOM\" hvis det er muligt. ellers ser det flot ud
Ok, det må være en fejl på din maskine. Kan ikke lige gennemskue hvad. Surry. Det er noget skod med den mail, jeg ved ikke lige hvad der sker :-o .. Med hensyn til \"denne cpu kan bruge disse bundkort, hvad er der galt med det ? Det med at ændre til \"vælg her\" og op preselection af første cpu skulle ikke være noget problem. Jeg sender dig lige en ny mail.
Hej KbOnline. Så er koden her i en revideret version. Jeg har fjernet MotherboardType fordi det gør det meget simplere hvis man først vælger Cpu og derefter får de Motherboards der passer til. Der ud over har jeg fjernet \'vælg her\' helt da det ikke rigtig giver menng når den første entry i db\'en bliver vist. Den kan dog sættes ind igen da den kun er udkommenteret.
<% \' Script developed by Cyb. set con = server.createobject(\"ADODB.connection\") con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"& server.mappath(\"konfig.mdb\") &\"; \"
if (not trim(request(\"Cpu\")) = \"\") or (not trim(request(\"Motherboard\")) = \"\") then if not ((trim(request(\"Cpu\")) = \"\") or (trim(request(\"Cpu\"))=\"0\")) then set rs1 = con.execute(\"select * from data where id = \"& trim(request(\"Cpu\"))) else set rs1 = con.execute(\"select * from data Kode=\'1\'\") end if if trim(rs1(\"P3\")) = \"1\" then CpuType = \"P3\" elseif trim(rs1(\"P4\")) = \"1\" then CpuType = \"P4\" elseif trim(rs1(\"duron\")) = \"1\" then CpuType = \"duron\" elseif trim(rs1(\"athlon\")) = \"1\" then CpuType = \"athlon\" end if end if
og det virker præsis som det skal 1000 tak for hjælpen. ****** øøøøhh lige et lille tillægs, jeg ved godt at jeg strammer den nu. er det muligt at tilføje 2 knapper forneden med følgende funktioner :
knap 1 = udskriv denne konfiguration knap 2 = send denne konfiguration/ordre til min email adresse
hvis du kan gøre dette, må du få ALLE de resterende point jeg har (hele 55)
Hvis du giver mig pointen nu så vil jeg gerne se hvad jeg kan gøre, men for at sende en mail skal du have en mail komponent på serveren og for at udskrive konfigurationen så skal vi bare aktivere print funktionen fra Javascript, det tror jeg er rimeligt overkommeligt.
så er pointene updateret til 555 min server understøtter Jmail. det skulle vel kunne gøre det, ellers kan det vel gøres med en simpel mailto: kommando eller hvad ?
Indsæt det her i headeren : <script> <!-- function printPage() { if ((document.layers)||(document.all)) { window.print(); } else { alert(\'Din browser understøtter detsvære ikke udprintning.\'); } } --> </script>
og det her til knappen: <a href=\"java script:printPage();\">Print Ordren</a>
Nej jeg havde ikke opgivet, havde bare lidt travlt. Surry ..
Tror det skal se nogle lunde sådan her ud. Jeg har detsvære ikke kunnet teste det, hovdesagligt fordi det er lidt småt med tiden lige nu men også fordi jeg ikke har en jmail server. Du skal være opmærksom på at der er nogle oplysninger du skal fylde i komponenten selv, det er bla. afsenderens navn og mailadresse samt modtagerens mailadresse. Der ud over skal du også angive den mailserver du sender igennem. Hvis der er problemer må du lige sige til så skal jeg kikke på det.
<% \' Script developed by Cyb. set con = server.createobject(\"ADODB.connection\") con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"& server.mappath(\"konfig.mdb\") &\"; \"
if (not trim(request(\"Cpu\")) = \"\") or (not trim(request(\"Motherboard\")) = \"\") then if not ((trim(request(\"Cpu\")) = \"\") or (trim(request(\"Cpu\"))=\"0\")) then set rs1 = con.execute(\"select * from data where id = \"& trim(request(\"Cpu\"))) else set rs1 = con.execute(\"select * from data Kode=\'1\'\") end if if trim(rs1(\"P3\")) = \"1\" then CpuType = \"P3\" elseif trim(rs1(\"P4\")) = \"1\" then CpuType = \"P4\" elseif trim(rs1(\"duron\")) = \"1\" then CpuType = \"duron\" elseif trim(rs1(\"athlon\")) = \"1\" then CpuType = \"athlon\" end if end if
if request(\"Godkend\")=\"Godkend\" then Set jmail = server.createobject(\"jmail.smtpmail\") jmail.serveraddress = \"<din mail server>\" jmail.sendername = \"<navnet mailen skal være afsendt i>\" jmail.sender = \"<afsenderens email>\" jmail.addrecipient = \"<modtagerens email>\"
JMail.Body = \"Hej. Du har købt:\"& VbCrLf Set rs2 = con.execute(\"select * from data where data.id = \"& Cpu &\" OR data.id = \"& Motherboard &\" OR data.id = \"& Ram &\" OR data.id = \"& Kabinet &\" OR data.id = \"& Grafikkort &\" OR data.id = \"& Harddisk &\" OR data.id = \"& CdRom &\" OR data.id = \"& Braender &\" OR data.id = \"& Lydkort &\" OR data.id = \"& Hoejtalere &\" OR data.id = \"& Modem &\" OR data.id = \"& Tastatur &\" OR data.id = \"& Mus &\" OR data.id = \"& StyreSystem) while not rs2.eof JMail.Body = JMail.Body & rs2(\"Produkt\") &\" : \"& rs2(\"Pris\") & VbCrLf Pris = Pris + cdbl(rs2(\"Pris\")) rs2.movenext wend Set rs2 = con.execute(\"select * from data where data.kode = \'15\'\") while not rs2.eof if not request(trim(rs2(\"ID\"))) = \"\" then JMail.Body = JMail.Body & rs2(\"Produkt\") &\" : \"& rs2(\"Pris\") & VbCrLf Pris = Pris + cdbl(rs2(\"Pris\")) end if rs2.movenext wend Set rs2 = nothing JMail.Body = JMail.Body & \"Samlet pris : \"& Pris JMail.Execute else %> <html>
<head> <title>pc-konfugurator</title> <script> <!-- function printPage() { if ((document.layers)||(document.all)) { window.print(); } else { alert(\'Din browser understøtter detsvære ikke udprintning.\'); } } --> </script> </head>
<body>
<div align=\"center\"> <center> <form name=PriceForm method=Post Action=\"konfigark2.asp\"> <table border=\"1\" width=\"600\"> <tr> <td align=\"center\" bgcolor=\"#FFFF00\" colspan=\"2\" width=\"300\">Produkt</td> <td width=\"250\" align=\"center\" bgcolor=\"#FFFF00\">Valgmulighed</td> <td align=\"center\" bgcolor=\"#FFFF00\" width=50>Pris</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">1</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Cpu / mhz</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Cpu onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'1\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf CpuPris = trim(rs2(\"Pris\")) rs2.movenext end if while not rs2.eof if Cpu=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf CpuPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= CpuPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">2</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Motherboard</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Motherboard onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% if CpuType=\"\" then Set rs2 = con.execute(\"select * from data where data.kode = \'2\'\") else if CpuType = \"P3\" then Set rs2 = con.execute(\"select * from data where data.kode = \'2\' AND data.P3 = \'1\'\") elseif CpuType = \"P4\" then Set rs2 = con.execute(\"select * from data where data.kode = \'2\' AND data.P4 = \'1\'\") elseif CpuType = \"duron\" then Set rs2 = con.execute(\"select * from data where data.kode = \'2\' AND data.duron = \'1\'\") elseif CpuType = \"athlon\" then Set rs2 = con.execute(\"select * from data where data.kode = \'2\' AND data.athlon = \'1\'\") end if end if \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf MotherboardPris = trim(rs2(\"Pris\")) rs2.movenext end if while not rs2.eof if Motherboard=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf MotherboardPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= MotherboardPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">3</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Ram</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Ram onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'3\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf RamPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Ram=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf RamPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= RamPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">4</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Kabinet</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Kabinet onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'4\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf KabinetPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Kabinet=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf KabinetPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= KabinetPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">5</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Grafikkort</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Grafikkort onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'5\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf GrafikkortPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Grafikkort=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf GrafikkortPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= GrafikkortPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">6</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Harddisk</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Harddisk onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'6\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf HarddiskPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Harddisk=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf HarddiskPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= HarddiskPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">7</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Cd / dvd drev</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=CdRom onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'7\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf CdRomPris = trim(rs2(\"Pris\")) end if while not rs2.eof if CdRom=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf CdRomPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= CdRomPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">8</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Brænder</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Braender onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'8\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf BraenderPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Braender=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf BraenderPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= BraenderPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">9</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Lydkort</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Lydkort onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'9\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf LydkortPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Lydkort=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf LydkortPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= LydkortPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">10</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Højtalere</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Hoejtalere onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'10\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf HoejtalerePris = trim(rs2(\"Pris\")) end if while not rs2.eof if Hoejtalere=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf HoejtalerePris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= HoejtalerePris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">11 </td> <td width=\"280\" bgcolor=\"#FFFFCC\">Modem</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Modem onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'11\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf ModemPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Modem=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf ModemPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= ModemPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">12</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Tastatur</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Tastatur onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'12\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf TastaturPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Tastatur=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf TastaturPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= TastaturPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">13</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Mus / pegeredskab</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Mus onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'13\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf MusPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Mus=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf MusPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= MusPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">14</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Styresystem</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"><select name=Styresystem onChange=\"PriceForm.submit();\" style=\"width:200px;\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'14\'\") \' response.write \"<option value=\"\"0\"\">VÆLG HER</option>\"& VbCrLf if not rs2.eof then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf StyresystemPris = trim(rs2(\"Pris\")) end if while not rs2.eof if Styresystem=trim(rs2(\"ID\")) then response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\" SELECTED>\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf StyresystemPris = trim(rs2(\"Pris\")) else response.write \"<option value=\"\"\"& trim(rs2(\"ID\")) &\"\"\">\"& rs2(\"Produkt\") &\"</option>\"& VbCrLf end if rs2.movenext wend Set rs2 = nothing %> </select></td> <td bgcolor=\"#FFFFCC\" align=right><%= StyresystemPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFFCC\">15</td> <td width=\"280\" bgcolor=\"#FFFFCC\">Tillægsprogrammer</td> <td width=\"250\" bgcolor=\"#FFFFCC\" align=\"center\"> <table border=\"1\" width=\"100%\"> <% Set rs2 = con.execute(\"select * from data where data.kode = \'15\'\") while not rs2.eof if not request(trim(rs2(\"ID\"))) = \"\" then response.write \"<tr><td width=\"\"20\"\" align=\"\"center\"\"><input type=\"\"checkbox\"\" name=\"\"\"& rs2(\"ID\") &\"\"\" onclick=\"\"PriceForm.submit();\"\" checked value=\"\"on\"\"></td><td>\"& rs2(\"Produkt\") &\"</td></tr>\" TillaegsProgrammerPris = TillaegsProgrammerPris + trim(rs2(\"Pris\")) else response.write \"<tr><td width=\"\"20\"\" align=\"\"center\"\"><input type=\"\"checkbox\"\" name=\"\"\"& rs2(\"ID\") &\"\"\" onclick=\"\"PriceForm.submit();\"\"></td><td>\"& rs2(\"Produkt\") &\"</td></tr>\" end if rs2.movenext response.write \"</td></tr>\" wend Set rs2 = nothing %> </table> </td> <td bgcolor=\"#FFFFCC\"><%= TillaegsProgrammerPris %> kr.</td> </tr> <tr> <td bgcolor=\"#FFFF00\" colspan=\"3\">Pris</td> <td bgcolor=\"#FFFF00\"><%= cdbl(CpuPris)+cdbl(MotherboardPris)+cdbl(RamPris)+cdbl(KabinetPris)+cdbl(GrafikkortPris)+cdbl(HarddiskPris)+cdbl(CdRomPris)+cdbl(BraenderPris)+cdbl(LydkortPris)+cdbl(HoejtalerePris)+cdbl(ModemPris)+cdbl(TastaturPris)+cdbl(MusPris)+cdbl(StyreSystemPris)+cdbl(TillaegsProgrammerPris) %> kr.</td>
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.