pc konfigurator til paypal
Hej experterJeg står og mangler det sidste input til en pc-konfigurator
jeg kan ikke få tallet opdater() boxen input name="incl"
over til paypal´s amount, hvis jeg sætter denne til 200
så kommer den med over, men jeg mangler kun dette, så virker det hele, kan i hjælpe, så vil jeg skynde mig at give nogle points.:)
Her kommer koden jeg har igang...------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="WA_eCart/WA_eCart_Definition_VB.asp" -->
<!--#include file="WA_eCart/WA_eCart1_VB.asp" -->
<!--#include file="Connections/SHOP.asp" -->
<%
Cpu = trim(request("Cpu"))
CpuPris = 0
Bundkort = trim(request("Motherboard"))
BundkortPris = 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
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_SHOP_STRING
Recordset1.Source = "SELECT * FROM Varer WHERE Kategori = 'ram ddr1' order by salgspris"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<html>
<head>
<title>[ netshop - konfigurator ]</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.pc-netshop {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 9px;
font-style: normal;
line-height: normal;
font-weight: normal;
}
-->
</style>
</head>
<HTML><HEAD>
<%
' WA eCart Redirect
if (WA_eCart1_redirStr <> "") then
Response.Redirect(WA_eCart1_redirStr)
end if
%>
<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 leftmargin="0" topmargin="10"></div>
<form name="dummy" target="paypal" action="https://www.paypal.com/cgi-bin/webscr" method="post">
<input type="hidden" name="add" value="1">
<input type="hidden" name="cmd" value="_cart">
<input type="hidden" name="item_name" value="PC-NAVN">
<input type="hidden" name="item_number" value="VARE-NR">
<input type="hidden" name="amount" Value="<%=(Request.form.Item("incl"))%>">
<input type="hidden" name="no_shipping" value="2">
<input type="hidden" name="no_note" value="1">
<input type="hidden" name="currency_code" value="DKK">
<input type="hidden" name="lc" value="DK">
<input type="hidden" name="bn" value="PP-ShopCartBF">
<TABLE width="50%" border=1 cellPadding=0 cellSpacing=0 borderColor=#CCCC99 class="pc-netshop">
<TBODY>
<TR bgcolor="#FFFFFF">
<TD height="24" colspan="10"><font color="#999999" size="1" face="Verdana, Arial, Helvetica, sans-serif">Build
to order model 1013</font></TD>
</TR>
<TR bgcolor="#CCCC99">
<TD width="19%" height="24"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Vælg
en Processorstørrelse</font></TD>
<TD width="68%"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=cpu
size=1 class="pc-netshop" style=\"WIDTH:900px" onchange=opdater() \>
<option value="1975" selected>OFFICE AMD SEMPRON 2600 + </option>
<option value="2175">OFFICE AMD SEMPRON 2800 + </option>
<option value="2295">OFFICE AMD SEMPRON 3000 + </option>
<option value="2395">OFFICE AMD SEMPRON 3100 + </option>
<option value="2695">OFFICE AMD SEMPRON 3300 + </option>
<option value="2995">OFFICE AMD SEMPRON 3400 + </option>
</SELECT>
</font></TD>
<TD width="13%"> <INPUT name=cpupris class="pc-netshop" value=1975 size=9>
</TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Ram</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=ram size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("updatepris").Value)%>"><%=(Recordset1.Fields.Item("Varetekst").Value)%> <font><b>[
= <%=(Recordset1.Fields.Item("updatepris").Value)%> kr.]</b></font></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</SELECT>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
</font></TD>
<TD> <INPUT name=rampris class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Harddisk</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_SHOP_STRING
Recordset1.Source = "SELECT * FROM Varer WHERE Kategori = 'Harddisk IDE35' order by salgspris"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<SELECT name=hd
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("updatepris").Value)%>"><%=(Recordset1.Fields.Item("Varetekst").Value)%><font><b> [
= <%=(Recordset1.Fields.Item("updatepris").Value)%> kr.]</b></font></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</SELECT>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
</font></TD>
<TD> <INPUT name=hdpris class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Grafik
kort</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<%
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_SHOP_STRING
Recordset1.Source = "SELECT * FROM Varer WHERE Kategori = 'Grafikkort PCI-E' order by salgspris"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
' WA eCart Redirect
if (WA_eCart1_redirStr <> "") then
Response.Redirect(WA_eCart1_redirStr)
end if
%>
<%
' WA eCart Redirect
if (WA_eCart1_redirStr <> "") then
Response.Redirect(WA_eCart1_redirStr)
end if
%>
<SELECT name=grafik
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<%
While (NOT Recordset1.EOF)
%>
<option value="<%=(Recordset1.Fields.Item("updatepris").Value)%>"><%=(Recordset1.Fields.Item("Varetekst").Value)%><font><b> [
= <%=(Recordset1.Fields.Item("updatepris").Value)%> kr.]</b></font></option>
<%
Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
%>
</SELECT>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
</font></TD>
<TD> <INPUT name=grafikpris class="pc-netshop" value=0 size=9> </TD>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Disk</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=disk
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<OPTION value=0.00 selected>1,44 MB Diskdrev ( incl. )</OPTION>
<OPTION value=620.00>120 MB Diskdrev (+620)</OPTION>
</SELECT>
</font></TD>
<TD> <INPUT name=diskpris class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Skærm</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=mon
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<OPTION value=0.00 selected>Ingen Skærm</OPTION>
<OPTION value=1343.00>Hyundai 15" S560 0.28 (+1343)</OPTION>
<OPTION value=2493.00>Hyundai 17" F790 Flatscreen (+2493)</OPTION>
</SELECT>
</font></TD>
<TD> <INPUT name=monpris class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">CD-drev</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=cd
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<OPTION value=0.00 selected>ingen CD drev</OPTION>
<OPTION value=375.00>Actima 52x CD (+375)</OPTION>
</SELECT>
</font></TD>
<TD> <INPUT name=cdpris class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Lydkort</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=key
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<OPTION value=0.00 selected>Intet lydkort</OPTION>
<OPTION value=300.00>PCI 128 lyd (+300)</OPTION>
</SELECT>
</font></TD>
<TD> <INPUT name=keypris class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Mus</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=mus
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<OPTION value=0.00 selected>Standard 3 knaps mus (incl. )</OPTION>
<OPTION value=361.00>Logitech Cordless Wheel (+361)</OPTION>
</SELECT>
</font></TD>
<TD> <INPUT name=muspris class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Software</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=soft
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<OPTION value=0.00 selected>Ingen programmer</OPTION>
<OPTION value=1686.00>Windows 2000 (+1686)</OPTION>
</SELECT>
</font></TD>
<TD> <INPUT name=softpris class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Modem</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=modem
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<OPTION value=0.00 selected>Intet modem</OPTION>
<OPTION value=311.00>56K Baud Intern Modem (+311)</OPTION>
</SELECT>
</font></TD>
<TD> <INPUT name=modempris class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kabinet</font></TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
<SELECT name=kab
size=1 class="pc-netshop" style=\"WIDTH:" onchange=opdater() 280px; POSITION: relative\>
<OPTION value=0.00 selected>STD. Midi tower ATX kabinet (incl. )</OPTION>
<OPTION value=312.00>Kvalitets kabinet (+312)</OPTION>
</SELECT>
</font></TD>
<TD class="pc-netshop"> <INPUT name=kabpris class="pc-netshop" value=0 size=9>
</TD>
</TR>
<TR bgcolor="#CCCC99">
<TD colSpan=9><font size="1" face="Verdana, Arial, Helvetica, sans-serif">UDSALGS
PRIS EXCL.MOMS</font></TD>
<TD> <INPUT name=excl class="pc-netshop" value=0 size=9> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD colSpan=9><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><B>MOMS
25%</B></font></TD>
<TD> <div align="left">
<INPUT name=moms class="pc-netshop" value=0 size=9>
</div></TD>
</TR>
<TR bgcolor="#CCCC99">
<TD colSpan=9> </TD>
<TD> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD colSpan=9 class="pc-netshop"> </TD>
<TD> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD colSpan=9 class="pc-netshop"><B><FONT color=#333333 size="1" face="Verdana, Arial, Helvetica, sans-serif">UDSALG
PRIS INCL. MOMS</FONT></B></TD>
<TD>
<INPUT name=incl class="pc-netshop" style=\"FONT-WEIGHT: value="0" size="8">
</TD>
</TR>
<TR bgcolor="#CCCC99">
<TD colSpan=9 bgcolor="#CCCCCC" class="pc-netshop"><div align="right">
<label>
<input name="Submit" type="Submit" value="Send">
<input name="reset"" type=reset onClick=\"return value=Reset nulstil();\>
</label>
</div></TD>
<TD> </TD>
</TR>
<TR bgcolor="#CCCC99">
<TD colSpan=9 bgcolor="#CCCCCC" class="pc-netshop"> </TD>
<TD> </TD>
</TR>
</TBODY>
</TABLE>
<DIV align=center>
<CENTER>
<P> </P>
</CENTER></DIV></FORM>
</BODY></HTML>
/kim
