<%@ LANGUAGE=JSCRIPT %> <% var dt = Server.CreateObject("ADODB.Connection"); dt.Open ("spares","root","cromemco"); var dt1 = Server.CreateObject("ADODB.Connection"); dt1.Open ("orders","root","cromemco"); var pmpNr=Request.QueryString("sn")(1); var ln=Request.QueryString("ln")(1); var nme=Request.QueryString("n")(1); var SQL= "insert into view_log (user, time_stamp, pumpNr, pmp_txt, list_nr) values ('"+Request.ServerVariables("AUTH_USER")+"','"+new Date()+"','"+pmpNr+"','"+nme+"','"+ln+"')"; dt1.Execute(SQL); SQL="SELECT a.POS_NR, a.QUANTITY, a.TOT_JM, b.V_D, b.SPR_NR, b.SPR_TXT1, b.SPR_TXT2, c.CROLIST FROM pmpspr a INNER JOIN SPR b ON a.SPR_NR=b.SPR_NR INNER JOIN PRICES c ON a.SPR_NR=c.SPR_NR WHERE a.PMP_NR='"+pmpNr+"' and pos_nr <>8888 and pos_nr>0 ORDER BY POS_NR"; var rs=dt.Execute(SQL); function formatPrice (p) { var m=formatPriceValue(p); var i=Math.floor(m); var d=Math.round((m-i)*100); if (d<10) { d='0'+d; } return i+","+d; } function formatPriceValue (p) { var q=Math.round(p*100)/100; return q; } %> Spare parts of product <%=nme%>
 
Spareparts of product <%=nme%>  P/N <%=pmpNr%>  <%=ln%>
Prices valid until 31/12/2012  

Συμπληρώστε τα πεδία μόνο αν θέλετε να δώσετε παραγγελία:

Μόλις λάβουμε την παραγγελία σας θα επικοινωνήσουμε μαζί σας, για να επιβεβαιώσουμε την ορθότητα των ειδών και ποσοτήτων.

Login:     Company:     Name:     Email:    

<% var r=0; while (!rs.eof) { var CROLIST=rs.fields("CROLIST").value; CROLIST=CROLIST*1.048; r++; var rc= r % 2; var sprn=rs.fields("SPR_NR").value; %> <% rs.MoveNext(); } dt.Close(); dt1.Close(); %>
Pos Sparepart W To Description 1 Description 2 Qnty Order Qty EURO  
<%=rs.fields("POS_NR").value%>   <%=sprn%>   <%=rs.fields("V_D").value%>   <%=rs.fields("TOT_JM").value%>   <%=rs.fields("SPR_TXT1").value%>   <%=rs.fields("SPR_TXT2").value%>   <%=rs.fields("QUANTITY").value%>   <%=formatPrice(CROLIST)%>