---
title: "Problem hur man gör !"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/175409-problem-hur-man-gör"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ragnared"
published: "2008-11-19T18:03:26.000Z"
updated: "2008-11-21T04:47:22.000Z"
replies: 6
views: 549
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/175409-problem-hur-man-gör"
---

# Problem hur man gör !

## #1 — ragnared, 2008-11-19T18:03Z

Hej jag har en liten shop där man kan lägga in hur mycket man har av varje produkt på lager tex man har 5 hemma. Men jag vill när kunden klicka på köp så ska det ändras i databasen till 4 osv. Här är sidan men jag har försökt att klura ut hur man gör men fattar tyvärr inte att och ber verkligen om er hjälp.

```
<!-- #INCLUDE FILE="settings.asp" -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny sida 1</title>
<script type="text/javascript">

function imgPopup5(url){
	var loader=new Image();
	var top=parseInt(screen.height/2-50); var left=parseInt(screen.width/2-50);
	var tempwin=window.open("","","scrollbars=no,resizable=yes,toolbar=no,location=no,directories=no,status=no,menubar=no,width=100,height=100,top="+top+",left="+left);
	with(tempwin.document){
		open();
		write("<html><head><title>Bildvisare</title></head><body marginwidth=0 marginheight=0 leftmargin=0 topmargin=0 rightmargin=0 style=\"overflow:hidden;background-color:black;color:white;\">");
		write("Please wait...");
		write("</body></html>");
		close();
	}
	loader.onload=function(){
		var top=parseInt(screen.height/2-this.height/2);
		var left=parseInt(screen.width/2-this.width/2);
		tempwin.close();
		MyWin = window.open("","","scrollbars=no,resizable=yes,toolbar=no,location=no,directories=no,status=no,menubar=no,width="+this.width+",height="+this.height+",top="+top+",left="+left);
		with(MyWin.document){
			open();
			write("<html><head><title>Bildvisare</title></head><body marginwidth=0 marginheight=0 leftmargin=0 topmargin=0 rightmargin=0 style=\"overflow:hidden;\">");
			write("<img id='myimg' src=\""+url+"\">");
			write("</body></html>");
			close();
		}
	}
	loader.src=url;
}
</script>
<%
id=Request.Querystring("code_no")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("databas/main.mdb")
          sqlstmt = "SELECT * FROM products where code_no = '" & id & "' ORDER BY id"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount

	
%>
<%

if trim(rs("opt1")) <> "" then

str_option = "document.itemsform.id" & rs("code_no") & "option.options[document.itemsform.id" & rs("code_no") & "option.selectedIndex].text"

else

str_option = "'&nbsp;'"

end if

if trim(rs("opt11")) <> "" then

str_option2 = "document.itemsform.id" & rs("code_no") & "option2.options[document.itemsform.id" & rs("code_no") & "option2.selectedIndex].text"

else

str_option2 = "'&nbsp;'"

end if

%>

</head>

<body topmargin="3" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">

	<table border="0" width="750" height="482" cellspacing="1" cellpadding="0">
		<tr>
			<td height="480" width="12">&nbsp;</td>
			<td height="480" width="540" valign="top">
			
			
			
<br>
			
			
			
<center>

<FORM NAME="itemsform">

<INPUT NAME="id<% = rs("code_no")%>number" TYPE=Hidden VALUE="<% = rs("code_no")%>">

<table BORDER=0 CELLSPACING=2 WIDTH="484" HEIGHT="423" >

<tr>
<td WIDTH="478" HEIGHT="198">
<img src="images/<% = rs("image")%>" width="380">		<br><br>	
					
					
	
					
					
					
        <b><font face="Verdana" style="font-size: 13pt"><% = rs("item")%></font></b><br><br>
        
        
        
        
        <font size="2" face="Verdana"><b>
		<font face="Arial"><span style="font-size: 11pt">
		<font face="Verdana"><span style="font-size: 9pt">
		<INPUT TYPE="value" NAME="id<% = rs("code_no")%>quant" VALUE="1" SIZE=2>
      
<%if trim(rs("opt1")) <> "" then%>

<%if trim(rs("opt1")) <> "" then%>

<SELECT name="id<% = rs("code_no")%>option" onChange="url=this.options[this.selectedIndex].value; if(url){ location.href=url; }">

<OPTION><% = rs("opt1")%></OPTION>
<% end if %>

<%if trim(rs("opt2")) <> "" then%>
<option value="<% = rs("adress2")%>"><% = rs("opt2")%></OPTION>
<% end if %>

<%if trim(rs("opt3")) <> "" then%>
<option value="<% = rs("adress3")%>"><% = rs("opt3")%></OPTION>
<% end if %>

<%if trim(rs("opt4")) <> "" then%>
<option value="<% = rs("adress4")%>"><% = rs("opt4")%></OPTION>
<% end if %>

<%if trim(rs("opt5")) <> "" then%>
<option value="<% = rs("adress5")%>"><% = rs("opt5")%></OPTION>
<% end if %>

<%if trim(rs("opt6")) <> "" then%>
<option value="<% = rs("adress6")%>"><% = rs("opt6")%></OPTION>
<% end if %>

<%if trim(rs("opt7")) <> "" then%>
<option value="<% = rs("adress7")%>"><% = rs("opt7")%></OPTION>
<% end if %>

<%if trim(rs("opt8")) <> "" then%>
<option value="<% = rs("adress8")%>"><% = rs("opt8")%></OPTION>
<% end if %>

<%if trim(rs("opt9")) <> "" then%>
<option value="<% = rs("adress9")%>"><% = rs("opt9")%></OPTION>
<% end if %>

<%if trim(rs("opt10")) <> "" then%>
<option value="<% = rs("adress10")%>"></OPTION>
<% end if %>
</SELECT>

<% end if %>

<%if trim(rs("opt11")) <> "" then%>

<%if trim(rs("opt11")) <> "" then%>

<SELECT name="id<% = rs("code_no")%>option2" class="field">

<OPTION><% = rs("opt11")%></OPTION>
<% end if %>

<%if trim(rs("opt12")) <> "" then%>
<OPTION><% = rs("opt12")%></OPTION>
<% end if %>

<%if trim(rs("opt13")) <> "" then%>
<OPTION><% = rs("opt13")%></OPTION>
<% end if %>

<%if trim(rs("opt14")) <> "" then%>
<OPTION><% = rs("opt14")%></OPTION>
<% end if %>

<%if trim(rs("opt15")) <> "" then%>
<OPTION><% = rs("opt15")%></OPTION>
<% end if %>

<%if trim(rs("opt16")) <> "" then%>
<OPTION><% = rs("opt16")%></OPTION>
<% end if %>

<%if trim(rs("opt17")) <> "" then%>
<OPTION><% = rs("opt17")%></OPTION>
<% end if %>

<%if trim(rs("opt18")) <> "" then%>
<OPTION><% = rs("opt18")%></OPTION>
<% end if %>

<%if trim(rs("opt19")) <> "" then%>
<OPTION><% = rs("opt19")%></OPTION>
<% end if %>

<%if trim(rs("opt20")) <> "" then%>
<OPTION><% = rs("opt20")%></OPTION>
<% end if %>
</SELECT>

<% end if %>
<%
Function Free(txt) 
txt = Replace(Trim(txt), vbCrLf, "<br>")
Free = txt 
End Function 
%>

		<font style="font-size: 9pt" face="Verdana"></b>

<INPUT TYPE="button" NAME="id<% = rs("code_no")%>add" VALUE="Köp" onclick="top.center.cart.addItem('<% = rs("item")%>','<% = rs("price")%>', document.itemsform.id<% = rs("code_no")%>quant.value, '<% = rs("code_no")%>', <%=str_option %>, <%=str_option2 %>, '<% =RS("shipping") %>')";>
					
					
					
					
					</font>
					<p><font style="font-size: 9pt" face="Arial"><b>
					Lagerstatus:</b>&nbsp;&nbsp;</font><font face="Arial" style="font-size: 9pt" color="#000000"><span style="background-color: #FFFF00"><b><%					
Select Case rs("inlager")
	Case 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50
		Response.Write "Finns i lager"
	Case 8
		Response.Write "8 st"
			Case 2,3,4,5,6,7
		Response.Write "Finns i lager"

		Case 0,1
		Response.Write "Tillfälligt slut"
	Case Else
		Response.Write "Finns i lager"
End Select	
%>	</b>
					
					
					</span></font><font face="Arial" style="font-size: 9pt" color="#000000"></font><font style="font-size: 9pt" face="Arial"><br><br>
<b>Inkl.moms:</b>&nbsp;&nbsp;<% = rs("price")%>&nbsp;Kr&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  </b><b>Artnr:</b>&nbsp;&nbsp;<% = rs("code_no")%></b><br><b><br><br>Produktbeskrivning:</b> <br><br><%=Free(Rs("pentry"))%></td>
</tr>

<tr>
<td WIDTH="478" HEIGHT="125">&nbsp;</td>
</tr>

</table>

</FORM>

			
			</td>
			<td height="480" width="4" valign="top"></td>
			<td height="480" width="189" valign="top"><!--#INCLUDE File="right_menu1.asp" --></td>
		</tr>
	</table>
</div>

</body>

</html>
```

Permalänk: https://www.webforum.nu/p/175409

## #2 — JAreMANNEN, 2008-11-19T18:23Z

Ursäkta mig men det där är nog den mest röriga kod jag någonsin sett :)
Har du gjort allt själv eller bara kopierat från någon gratisvariant?

Permalänk: https://www.webforum.nu/p/2156794

## #3 — ragnared, 2008-11-19T19:01Z

Det är lite blandat i denna kod beroende på olika omständigheter!

Permalänk: https://www.webforum.nu/p/2156799

## #4 — ragnared, 2008-11-20T15:55Z

Jag har ändrat koderna!!

Hoppas du tycker att det blev bättre nu och min fråga igen är:

Hej jag har en liten shop där man kan lägga in hur mycket man har av varje produkt på lager tex man har 5 hemma. Men jag vill när kunden klicka på köp så ska det ändras i databasen till 4 osv. Här är sidan men jag har försökt att klura ut hur man gör men fattar tyvärr inte att och ber verkligen om er hjälp.

```

<!-- #INCLUDE FILE="settings.asp" -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Ny sida 1</title>

<%
id=Request.Querystring("code_no")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("databas/main.mdb")
          sqlstmt = "SELECT * FROM products where code_no = '" & id & "' ORDER BY id"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount

	
%>

</head>

<body topmargin="3" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0">

	<table border="0" width="750" height="482" cellspacing="1" cellpadding="0">
		<tr>
			<td height="480" width="12">&nbsp;</td>
			<td height="480" width="540" valign="top">
			
			
			
<br>
			
			
			
<center>

<FORM NAME="itemsform">

<INPUT NAME="id<% = rs("code_no")%>number" TYPE=Hidden VALUE="<% = rs("code_no")%>">

<table BORDER=0 CELLSPACING=2 WIDTH="484" HEIGHT="423" >

<tr>
<td WIDTH="478" HEIGHT="198">
<img src="images/<% = rs("image")%>" width="380">		<br><br>	
					
					
	
					
					
					
        <b><font face="Verdana" style="font-size: 13pt"><% = rs("item")%></font></b><br><br>
        
        
        
        
        <font size="2" face="Verdana"><b>
		<font face="Arial"><span style="font-size: 11pt">
		<font face="Verdana"><span style="font-size: 9pt">
		<INPUT TYPE="value" NAME="id<% = rs("code_no")%>quant" VALUE="1" SIZE=2>
      

		<font style="font-size: 9pt" face="Verdana"></b>

<INPUT TYPE="button" NAME="id<% = rs("code_no")%>add" VALUE="Köp" onclick="top.center.cart.addItem('<% = rs("item")%>','<% = rs("price")%>', document.itemsform.id<% = rs("code_no")%>quant.value, '<% = rs("code_no")%>', '<% =RS("shipping") %>')";>
					
					
	
					
					</span></font><font face="Arial" style="font-size: 9pt" color="#000000"></font><font style="font-size: 9pt" face="Arial"><br><br>
<b>Inkl.moms:</b>&nbsp;&nbsp;<% = rs("price")%>&nbsp;Kr&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  </b><b>Artnr:</b>&nbsp;&nbsp;<% = rs("code_no")%></b><br><b><br><br>Produktbeskrivning:</b> <br><br><%=Free(Rs("pentry"))%></td>
</tr>

<tr>
<td WIDTH="478" HEIGHT="125">&nbsp;</td>
</tr>

</table>

</FORM>

			
			</td>
			<td height="480" width="4" valign="top"></td>
			<td height="480" width="189" valign="top"></td>
		</tr>
	</table>
</div>

</body>

</html>
```

Permalänk: https://www.webforum.nu/p/2156874

## #5 — Zaiman, 2008-11-20T16:14Z

Du vill väl inte påverka lagersaldon innan köpet genomförts? 
I så fall måste du låta artiklarna komma tillbaka in i lagret om köpet avbryts och det medför bara en massa "onödigt" kodande.

En bättre lösning borde väl vara att räkna ned saldon när en kund genomfört köpet?

Permalänk: https://www.webforum.nu/p/2156877

## #6 — rhdf, 2008-11-20T19:36Z

Ja eller se till så att det lagersaldo man visar utåt är lagersaldo minus antalet_av_produkten_i_kundvagnar
och sen när ett köp genomförs så räknar man ner från lageraldot, avbryts köpet så kommer man bara ha ett tillfälligt "fel" tills kundvagnen för den aktuella kunden töms

Permalänk: https://www.webforum.nu/p/2156904

## #7 — ragnared, 2008-11-21T04:47Z

Men hur bygger man in ett sådant system i y det jag visar här, eller är det mycket kodande?

Permalänk: https://www.webforum.nu/p/2156945

---

Tråden på webben: https://www.webforum.nu/amne/asp/175409-problem-hur-man-gör
