pc-konfigurator

Selvfølgelig. Det er endda nemt hvis du har databasen.

Jeps, men det er ikke ASP der laver det der udregning, det er JavaScript.
Men de værdier som JavaScriptet bruger, kan jo sagtens komme fra din DB

Hmm, 2 sek

hvad sker der vis man adder samtidig?

Det kan godt laves, man skal blot hente værdierne fra databasen.

kender i et sted hvor man kan finde \"source\" til noget sådant??
eller er der en af jer der kan lave det for mig?

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

Se evt:
104255

> kbonline, tror du ikke vi har sluttet det her spørgsmål nu ?