Hjælp til insættelse af værdi i JS
HejsaJeg har et script som alt efter hvilket vare nummer man vælger, smider nogle værdier ind i nogle felter, men jeg har også en kalkulator som ligger prisen sammen alt efter hvad antal der vælges. Jeg kan ikke få den til at ligge værdien ind i den felt hvor scriptet skal have at vide hvilken pris produktet har
Linen hvor problemet er:
<input style="width: 90px;" class="inputboxright" type="text" name="antal<%=trim(linenr2rs("linenr"))%>" id="antal<%=trim(linenr2rs("linenr"))%>" onkeyup="calc('total<%=trim(linenr2rs("linenr"))%>', antal<%=trim(linenr2rs("linenr"))%>.value, 'HER SKULLE PRISEN STÅ')">
Hele source koden:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Ordre Seddel</title>
<link rel="STYLESHEET" type="text/css" href="../../../frame/holmbergcss.css">
<script language="javascript"><!--
function ciffer2(total) {
if ((i = total.indexOf('.')) > -1) {
tmpstr = total.substring(++i);
total = total.substr(0, i);
if (tmpstr.length < 2) {
resstr = tmpstr;
for (c = tmpstr.length; c < 2; c++)
resstr += '0';
} else {
resstr = tmpstr.substr(0, 2);
}
total += resstr;
} else {
total += '.00';
}
return total;
}
function calc(dest, _amount, _price) {
amount = parseInt(_amount);
if (!isNaN(amount)) { //is amount a number
total = String(amount * parseFloat(_price));
eval('document.forms[0].'+dest).value = ciffer2(total);
} else {
eval('document.forms[0].'+dest).value = '0.00';
}
calcTotal();
}
function calcTotal() {
e = document.forms[0].elements;
total = 0.0;
for (i=0; i < e.length; i++) {
if (e[i].name.indexOf('total')>-1) {
total += parseFloat(e[i].value);
}
}
document.forms[0].formtot.value = ciffer2(String(total));
}
//-->
</script>
<%
'####### Order Line ############
'## Create db objects and SQL
set linenrConn = Server.CreateObject("ADODB.Connection")
linenrConn.Open Application("ConnectString")
Set linenrrs = Server.CreateObject("ADODB.Recordset")
linenrSql = "SELECT * FROM orderlinecounter;"
Set linenrrs = linenrConn.Execute(linenrSql)
Do while not linenrrs.EOF
%>
<script type="text/javascript">
var values<%=trim(linenrrs("linenr"))%>=new Array();
<%
'####### prod price ############
'## Create db objects and SQL
set prodpriceConn = Server.CreateObject("ADODB.Connection")
prodpriceConn.Open Application("ConnectString")
Set prodpricers = Server.CreateObject("ADODB.Recordset")
prodpriceSql = "SELECT id,description,price FROM product;"
Set prodpricers = prodpriceConn.Execute(prodpriceSql)
Do while not prodpricers.EOF
%>
values<%=trim(linenrrs("linenr"))%>[<%=prodpricers("id")%>] = new Array('<%=left(prodpricers("description"),50)%>', '<%=prodpricers("price")%>.00');
<%
prodpricers.MoveNext
Loop
%>
function populate<%=trim(linenrrs("linenr"))%>(num){
document.getElementById('field<%=trim(linenrrs("linenr"))%>one').value = values<%=trim(linenrrs("linenr"))%>[num][0];
document.getElementById('field<%=trim(linenrrs("linenr"))%>two').value = values<%=trim(linenrrs("linenr"))%>[num][1];
}
</script>
<%
linenrrs.MoveNext
Loop
%>
</head>
<body>
<center>
<form method="post" action="ordreseddel.asp" name="orderlines">
<table cellspacing="0" cellpadding="0" border="0" style="width: 666px" class="inputbox">
<tr>
<td valign="top" align="left" style="width: 666px">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#333366"><font size="1" face="Verdana" color="FFFFFF"><b>Vare Nr.</b></font></td>
<td bgcolor="#333366"><font size="1" face="Verdana" color="FFFFFF"><b>Vare beskrivelse</b></font></td>
<td bgcolor="#333366"><font size="1" face="Verdana" color="FFFFFF"><b>Pris</b></font></td>
<td bgcolor="#333366"><font size="1" face="Verdana" color="FFFFFF"><b>Stk</b></font></td>
<td bgcolor="#333366"><font size="1" face="Verdana" color="FFFFFF"><b>Pris Ialt</b></font></td>
</tr>
<%
'####### Order Line 2 ############
'## Create db objects and SQL
set linenr2Conn = Server.CreateObject("ADODB.Connection")
linenr2Conn.Open Application("ConnectString")
Set linenr2rs = Server.CreateObject("ADODB.Recordset")
linenr2Sql = "SELECT * FROM orderlinecounter;"
Set linenr2rs = linenr2Conn.Execute(linenr2Sql)
Do while not linenr2rs.EOF
%>
<tr>
<td bgcolor="#333366">
<select style="width: 95px" class="inputbox" name="select" onchange="populate<%=trim(linenr2rs("linenr"))%>(this.options[selectedIndex].value)">
<option value="choose" SELECTED>Vælg</option>
<%
'####### prod ############
'## Create db objects and SQL
set prodConn = Server.CreateObject("ADODB.Connection")
prodConn.Open Application("ConnectString")
Set prodrs = Server.CreateObject("ADODB.Recordset")
prodSql = "SELECT price,id,varenr FROM product;"
Set prodrs = prodConn.Execute(prodSql)
Do while not prodrs.EOF
%>
<option value="<%=trim(prodrs("id"))%>"><%=trim(prodrs("varenr"))%></option>
<%
prodrs.MoveNext
Loop
%>
</select>
</td>
<td bgcolor="#333366"><input style="width: 300px" class="inputbox" name="field<%=trim(linenr2rs("linenr"))%>one" type="text" id="field<%=trim(linenr2rs("linenr"))%>one"></td>
<td bgcolor="#333366"><input style="width: 90px;" class="inputboxright" name="field<%=trim(linenr2rs("linenr"))%>two" type="text" id="field<%=trim(linenr2rs("linenr"))%>two"></td>
<td bgcolor="#333366"><input style="width: 90px;" class="inputboxright" type="text" name="antal<%=trim(linenr2rs("linenr"))%>" id="antal<%=trim(linenr2rs("linenr"))%>" onkeyup="calc('total<%=trim(linenr2rs("linenr"))%>', antal<%=trim(linenr2rs("linenr"))%>.value, 'field<%=trim(linenr2rs("linenr"))%>two')"></td>
<td bgcolor="#333366"><input style="width: 90px;" class="inputboxright" type="text" name="total<%=trim(linenr2rs("linenr"))%>" value="<%= Session("price" & trim(linenr2rs("linenr"))) %>" readonly></td>
<%
linenr2rs.MoveNext
Loop
%>
</tr>
</table>
</td>
</tr>
</table>
<input type="text" name="formtot" value="0.00" style="width: 80px" readonly>
</form>
</center>
</body>
</html>
Er der en der kan hjælpe mig?? :-)
Mvh
Stig :-)
