Avatar billede kbonline Nybegynder
30. august 2001 - 23:28 Der er 26 kommentarer og
1 løsning

pc-konfigurator - hvem kan lave det for mig

se dette spg

http://www.eksperten.dk/spm/104238?id=104238

skal hentes fra en .mdb fil og med det samme udregne pris.
Avatar billede jasber Nybegynder
31. august 2001 - 02:18 #1
Avatar billede cyb Nybegynder
01. september 2001 - 00:11 #2
Ok - kaster mig over det nu.
Har du databasen fastlagt eller skal jeg designe den ?
Avatar billede cyb Nybegynder
01. september 2001 - 01:28 #3
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)
Avatar billede cyb Nybegynder
01. september 2001 - 01:29 #4
Og her er koden så:
<%
set con = server.createobject(\"ADODB.connection\")
con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\"& server.mappath(\"test.mdb\") &\"; \"

OutPutText = \"\"
ScriptText = \"<head><script>\"& VbCrLf
ScriptText = ScriptText &\"function calculatePrice() {\"& VbCrLf
ScriptText = ScriptText &\"  var TotalPrice=0;\"& VbCrLf
OutPutText = \"<body><form name=\"\"PriceForm\"\" method=\"\"POST\"\" action=\"\"result.asp\"\"><table>\"& VbCrLf
Set rs1 = con.execute(\"select * from t_Produkt\")
while not rs1.eof
    OutPutText = OutPutText &\"<tr><td>\"& rs1(\"ProduktName\") &\"</td><td><select name=\"\"v\"& rs1(\"ProduktID\") &\"\"\" onchange=\"\"PriceForm.P\"& rs1(\"ProduktID\") &\".value=this.value; calculatePrice();\"\">\"& VbCrLf
    ScriptText = ScriptText &\"  TotalPrice=TotalPrice+Math.round(PriceForm.v\"& rs1(\"ProduktID\") &\".value);\"& VbCrLf
    Set rs2 = con.execute(\"select * from t_Type where t_Type.ProduktID = \"& rs1(\"ProduktID\"))
    while not rs2.eof
        OutPutText = OutPutText &\"<option value=\"\"\"& rs2(\"Pris\") &\"\"\">\"& rs2(\"TypeName\") &\"</option>\"& VbCrLf
        response.write rs2.movenext
    wend
    Set rs2 = nothing
    OutPutText = OutPutText &\"</select></td><td><input type=Text name=\"\"P\"& rs1(\"ProduktID\") &\"\"\"></td></tr>\"& VbCrLf
    rs1.movenext
wend
set rs1 = nothing
ScriptText = ScriptText &\"  PriceForm.Moms.value = Math.round(TotalPrice*0.20);\"& VbCrLf &\"PriceForm.PriceExMoms.value = Math.round(TotalPrice*0.80);\"& VbCrLf &\"PriceForm.PriceIncMoms.value = TotalPrice; }</script></head>\"& VbCrLf
OutPutText = OutPutText &\"<tr><td colspan=3><hr></td></tr><tr><td colspan=2>Pris Ex Moms:</td><td><input type=text name=PriceExMoms></td></tr><tr><td colspan=2>Moms:</td><td><input type=text name=Moms></td></tr><tr><td colspan=2>Pris Inc Moms:</td><td><input type=text name=PriceIncMoms></td></tr></table></form></body>\"& VbCrLf
response.write \"<html>\"& ScriptText & OutPutText &\"</html>\"& VbCrLf
%>
Avatar billede kbonline Nybegynder
01. september 2001 - 09:45 #5
hvordan bygger jeg den ind i dette ?


Databasens navn er : konfig.mdb
Postkilde : data


<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>


<OPTION value=4368.00>750 Mhz AMD Duron</OPTION>
<OPTION value=4556.00>800 Mhz AMD Duron</OPTION>
</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>
<OPTION value=0.00 selected>128MB SDram&nbsp; ( incl. )</OPTION>
<OPTION value=318.00>256MB SDram (+318)</OPTION>
<OPTION value=556.00>512MB SDram (+556)</OPTION>
</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> <OPTION value=0.00 selected>20 GB Harddisk ( incl. )</OPTION> 
<OPTION value=375.00>30 GB (+375)</OPTION>
<OPTION value=625.00>40 GB (+625)</OPTION>
      </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>
<OPTION value=0.00 selected>TNT Vanta 16Mb AGP ( incl. )</OPTION>
<OPTION value=375.00>M64 32MB TNT 2 (+375)</OPTION>

      </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>
<OPTION value=0.00 selected>1,44 MB Diskdrev ( incl. )</OPTION>
<OPTION value=620.00>120 MB Diskdrev (+620)</OPTION></SELECT>
    </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> <OPTION value=0.00 selected>Ingen Skærm</OPTION>
<OPTION value=1343.00>Hyundai 15&quot; S560 0.28 (+1343)</OPTION>
<OPTION value=2493.00>Hyundai 17&quot; F790 Flatscreen (+2493)</OPTION>
      </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>
<OPTION value=0.00 selected>ingen CD drev</OPTION>
<OPTION value=375.00>Actima 52x CD (+375)</OPTION>
</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>
<OPTION value=0.00 selected>Intet lydkort</OPTION>
<OPTION value=300.00>PCI 128 lyd (+300)</OPTION>
</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>
<OPTION value=0.00 selected>Standard 3 knaps mus (incl. )</OPTION>
<OPTION value=361.00>Logitech Cordless Wheel (+361)</OPTION>
</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> 
<OPTION value=0.00 selected>Ingen programmer</OPTION>
<OPTION value=1686.00>Windows 2000 (+1686)</OPTION>
      </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>
<OPTION value=0.00 selected>Intet modem</OPTION>
<OPTION value=311.00>56K Baud Intern Modem (+311)</OPTION>
</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>
<OPTION value=0.00 selected>STD. Midi tower ATX kabinet (incl. )</OPTION>
<OPTION value=312.00>Kvalitets kabinet (+312)</OPTION></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>
<!--

function opdater()
{
dummy.cpupris.value  = dummy.cpu.options[dummy.cpu.selectedIndex].value;
dummy.rampris.value  = dummy.ram.options[dummy.ram.selectedIndex].value;
dummy.hdpris.value    = dummy.hd.options[dummy.hd.selectedIndex].value;
dummy.grafikpris.value= dummy.grafik.options[dummy.grafik.selectedIndex].value;
dummy.diskpris.value  = dummy.disk.options[dummy.disk.selectedIndex].value;
dummy.monpris.value  = dummy.mon.options[dummy.mon.selectedIndex].value;
dummy.cdpris.value    = dummy.cd.options[dummy.cd.selectedIndex].value;
dummy.keypris.value  = dummy.key.options[dummy.key.selectedIndex].value;
dummy.muspris.value  = dummy.mus.options[dummy.mus.selectedIndex].value;
dummy.softpris.value  = dummy.soft.options[dummy.soft.selectedIndex].value;
dummy.modempris.value = dummy.modem.options[dummy.modem.selectedIndex].value;
dummy.kabpris.value  = dummy.kab.options[dummy.kab.selectedIndex].value;
dummy.incl.value      = (Math.round(dummy.cpupris.value) + Math.round(dummy.rampris.value)+ Math.round(dummy.hdpris.value)+ Math.round(dummy.grafikpris.value) + Math.round(dummy.diskpris.value)+
                        Math.round(dummy.monpris.value) + Math.round(dummy.cdpris.value)+
                        Math.round(dummy.keypris.value) + Math.round(dummy.muspris.value)+ Math.round(dummy.softpris.value)+ Math.round(dummy.modempris.value)+ Math.round(dummy.kabpris.value));
dummy.excl.value      = Math.round(dummy.incl.value*0.80);
dummy.moms.value      = Math.round(dummy.incl.value*0.20);


}

opdater();

function nulstil()
{
    document.dummy.reset();
    opdater();
    return false;
}
-->
</SCRIPT>
</BODY></HTML>
Avatar billede cyb Nybegynder
01. september 2001 - 10:36 #6
Skal jeg lave HTML\'en så den passer med det du har vist der ?
Ligger alle produkter og typer allerede i databasen ?
Avatar billede kbonline Nybegynder
01. september 2001 - 10:55 #7
jeps de ligger under \"produkt\" og har en \"kode\" kolonne der hedder \"kode\"
koderne er linie 1 = 1    -  linie 2 = 2 osv.
Avatar billede cyb Nybegynder
01. september 2001 - 12:08 #8
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>
<!--

function opdater()
{
dummy.cpupris.value  = dummy.cpu.options[dummy.cpu.selectedIndex].value;
dummy.rampris.value  = dummy.ram.options[dummy.ram.selectedIndex].value;
dummy.hdpris.value    = dummy.hd.options[dummy.hd.selectedIndex].value;
dummy.grafikpris.value= dummy.grafik.options[dummy.grafik.selectedIndex].value;
dummy.diskpris.value  = dummy.disk.options[dummy.disk.selectedIndex].value;
dummy.monpris.value  = dummy.mon.options[dummy.mon.selectedIndex].value;
dummy.cdpris.value    = dummy.cd.options[dummy.cd.selectedIndex].value;
dummy.keypris.value  = dummy.key.options[dummy.key.selectedIndex].value;
dummy.muspris.value  = dummy.mus.options[dummy.mus.selectedIndex].value;
dummy.softpris.value  = dummy.soft.options[dummy.soft.selectedIndex].value;
dummy.modempris.value = dummy.modem.options[dummy.modem.selectedIndex].value;
dummy.kabpris.value  = dummy.kab.options[dummy.kab.selectedIndex].value;
dummy.incl.value      = (Math.round(dummy.cpupris.value) + Math.round(dummy.rampris.value)+ Math.round(dummy.hdpris.value)+ Math.round(dummy.grafikpris.value) + Math.round(dummy.diskpris.value)+
                        Math.round(dummy.monpris.value) + Math.round(dummy.cdpris.value)+
                        Math.round(dummy.keypris.value) + Math.round(dummy.muspris.value)+ Math.round(dummy.softpris.value)+ Math.round(dummy.modempris.value)+ Math.round(dummy.kabpris.value));
dummy.excl.value      = Math.round(dummy.incl.value*0.80);
dummy.moms.value      = Math.round(dummy.incl.value*0.20);


}

opdater();

function nulstil()
{
    document.dummy.reset();
    opdater();
    return false;
}
-->
</SCRIPT>
</BODY></HTML>
<% set rs = nothing %>
Avatar billede kbonline Nybegynder
01. september 2001 - 12:20 #9
jeg kikker lige på det
hvad er evt. din email?
Avatar billede kbonline Nybegynder
01. september 2001 - 17:04 #10
hjælp hjælp !!!
øv jeg har kikket lidt på det, men får fejl.
kan jeg sende dig filerne (asp og mdb)?
og til hvilken email?
Avatar billede cyb Nybegynder
01. september 2001 - 22:45 #11
Ok - send det til mig på romme@jubiipost.dk så fixer jeg på det :-)
Avatar billede kbonline Nybegynder
01. september 2001 - 23:08 #12
din email bliver afvist ?????
Avatar billede kbonline Nybegynder
01. september 2001 - 23:19 #13
du kan hente filerne her

http://www.hobbyrummet.dk\\konfig.htm

det er muligvis min email der er galt på den
Avatar billede kbonline Nybegynder
01. september 2001 - 23:44 #14
ups jeg glemte lige at skrive min email så du kan sende det retur til mig

admin@kbonline.dk
Avatar billede cyb Nybegynder
04. september 2001 - 13:11 #15
Så har jeg sendt koden til dig, hvis ellers min mail fungere korekt :-)
Avatar billede kbonline Nybegynder
05. september 2001 - 00:13 #16
hej martin

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.
Avatar billede kbonline Nybegynder
05. september 2001 - 00:14 #17
(jeg kan forresten stadig ikke sende mail til dig)
Avatar billede kbonline Nybegynder
05. september 2001 - 00:51 #18
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
Avatar billede cyb Nybegynder
05. september 2001 - 08:55 #19
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.
Avatar billede cyb Nybegynder
05. september 2001 - 09:29 #20
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

Cpu                = trim(request(\"Cpu\"))
CpuPris            = 0
Motherboard        = trim(request(\"Motherboard\"))
MotherboardPris    = 0
Ram                = trim(request(\"Ram\"))
RamPris            = 0
Kabinet            = trim(request(\"Kabinet\"))
KabinetPris        = 0
Grafikkort        = trim(request(\"Grafikkort\"))
GrafikkortPris    = 0
Harddisk        = trim(request(\"Harddisk\"))
HarddiskPris    = 0
CdRom            = trim(request(\"CdRom\"))
CdRomPris        = 0
Braender        = trim(request(\"Braender\"))
BraenderPris    = 0
Lydkort            = trim(request(\"Lydkort\"))
LydkortPris        = 0
Hoejtalere        = trim(request(\"Hoejtalere\"))
HoejtalerePris    = 0
Modem            = trim(request(\"Modem\"))
ModemPris        = 0
Tastatur        = trim(request(\"Tastatur\"))
TastaturPris    = 0
Mus                = trim(request(\"Mus\"))
MusPris            = 0
StyreSystem        = trim(request(\"StyreSystem\"))
StyreSystemPris    = 0
TillaegsProgrammerPris    = 0
%>
<html>

<head>
    <title>pc-konfugurator</title>
</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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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 %>&nbsp;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) %>&nbsp;kr.</td>

</tr>
</table>

  </center>
</div>

</body>

</html>
Avatar billede kbonline Nybegynder
05. september 2001 - 17:28 #21
FANTASTISK FLOT

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)

:-)
Avatar billede cyb Nybegynder
05. september 2001 - 18:22 #22
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.
Avatar billede kbonline Nybegynder
05. september 2001 - 23:52 #23
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 ?
Avatar billede cyb Nybegynder
06. september 2001 - 09:19 #24
Nej du skal lave en side der udføre arbejdet, jeg kikke lige lidt på det i aften.
Avatar billede cyb Nybegynder
06. september 2001 - 16:21 #25
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>
Avatar billede kbonline Nybegynder
07. september 2001 - 16:07 #26
har du opgivet, den sidste del med mail ?

hvis du kan løse det får du også de 50 point fra spg.

http://www.eksperten.dk/spm/104238?id=104238
Avatar billede cyb Nybegynder
08. september 2001 - 01:42 #27
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

Cpu                = trim(request(\"Cpu\"))
CpuPris            = 0
Motherboard        = trim(request(\"Motherboard\"))
MotherboardPris    = 0
Ram                = trim(request(\"Ram\"))
RamPris            = 0
Kabinet            = trim(request(\"Kabinet\"))
KabinetPris        = 0
Grafikkort        = trim(request(\"Grafikkort\"))
GrafikkortPris    = 0
Harddisk        = trim(request(\"Harddisk\"))
HarddiskPris    = 0
CdRom            = trim(request(\"CdRom\"))
CdRomPris        = 0
Braender        = trim(request(\"Braender\"))
BraenderPris    = 0
Lydkort            = trim(request(\"Lydkort\"))
LydkortPris        = 0
Hoejtalere        = trim(request(\"Hoejtalere\"))
HoejtalerePris    = 0
Modem            = trim(request(\"Modem\"))
ModemPris        = 0
Tastatur        = trim(request(\"Tastatur\"))
TastaturPris    = 0
Mus                = trim(request(\"Mus\"))
MusPris            = 0
StyreSystem        = trim(request(\"StyreSystem\"))
StyreSystemPris    = 0
TillaegsProgrammerPris    = 0

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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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&#198;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 %>&nbsp;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 %>&nbsp;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) %>&nbsp;kr.</td>

</tr>
</table>
    <input type=Submit name=\"Godkend\" value=\"Godkend\">&nbsp;&nbsp;&nbsp;<input type=\"button\" onclick=\"printPage();\" value=\"print\">
  </center>
</div>

</body>

</html>
<% end if %>
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester