cu aproximatie asta ar fi
<%@LANGUAGE="VBSCRIPT"%>
<% set rsObj = Server.CreateObject("ADODB.Connection")
rsObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=de:\\Site\baza de date\comenzi.mdb"
%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Cumparaturi</title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="Microsoft Theme" content="none, default">
<meta name="Microsoft Border" content="none, default">
</head>
<body onbeforeunload="HandleOnClose()">
<% ' daca este apasat butonul de recalculare se apeleaza functia de recalculare
if Request.form("re")="Recalc" then
update Request.form("recalc"),request.form("Cant")
end if
%>
<% ' Daca clientul mai vrea sa comande atunci il redirectam spre pagina de produse
if Request.Form("Inapoi")= "Mai vreau sa cumpar!!" then
response.redirect("default.asp")
end if
%>
<% ' Daca clientul doreste sa stearga o inregistrare atunci se apeleaza functia de stergere
if Request.form("Sterge")="Sterge" then
sterge Request.Form("stg")
end if
%>
<pe style="margin-top: 0; margin-bottom: 0"><b><font size="4" face="Arial Blacca">Cosul de
cumparaturi</font></b></pe>
<font size="4" face="Arial Blacca">
<% AfiseazaTabel() %>
<% if session("norec")>0 then %>
</font>
<pe> <font size="4" face="Arial Blacca">Total Comanda: <% TotalCom() %> </font> </pe>
<font size="4" face="Arial Blacca">
<% end if%>
</font>
<form method="POST" action="--WEBBOT-SELF--">
<font face="Arial Blacca" size="4">
<input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"></font><pe>
<font face="Arial Blacca" size="4">
<input type="submit" value="Mai vreau sa cumpar!!" name="Inapoi"></font></pe>
</form>
<pe style="margin-top: 0; margin-bottom: 0"> </pe>
<form method="POST" action="--WEBBOT-SELF--">
<font size="4" face="Arial Blacca">Nume <input type="text" name="nume" size="20"></font></pe>
<pe><font size="4" face="Arial Blacca">Adresa <input type="text" name="adresa" size="20"></font></pe>
<pe><font size="4" face="Arial Blacca">Telefon <input type="text" name="telefon" size="20"></font></pe>
<pe><font face="Arial Blacca" size="4">E-mail <input type="text" name="email" size="20"></font></pe>
<pe>
<font face="Arial Blacca" size="4">
<input type="submit" value="Comanda" name="Comanda"><input type="reset" value="Anuleaza" name="anuleaza"></font></pe>
</pe>
</form>
<font size="4" face="Arial Blacca">
<%
if Request.form("Comanda")="Comanda" then
vnume = request.form("nume")
vadresa = request.form("adresa")
vtelefon = request.form("telefon")
vemail = request.form("email")
response.write(vnume & vadresa & vtelefon & vemail)
dim cmd
set cmd = server.createobject("ADODB.Command")
cmd.commandtype = 1
cmd.activeconnection = rsObj
cmd.commandtext = "INSERT INTO Comclienti VALUES('"&CStr(session.sessionID)&"','"&vnume&" "&vadresa&" "&vtelefon&" "&vemail&"',"& session("total")&",1)"
cmd.execute
rsObj.close()
response.redirect("comanda.asp")
end if %>
<% function HandleOnClose()
session.abandon
end function %>
<% function AfiseazaTabel()
set rsCos = Server.CreateObject("ADODB.Recordset")
rsCos.ActiveConnection = rsObj
rsCos.Source = "SELECT * FROM DetaliiCom WHERE idSesiune="&CStr(session.sessionID)
rsCos.Open() %>
</font>
<table width="75%" border="1">
<tr>
<th><font size="4" face="Arial Blacca">Cod Produs</font></th>
<th><font size="4" face="Arial Blacca">Cantitate</font></th>
<th><font size="4" face="Arial Blacca">Pret vanzare</font></th>
<th><font size="4" face="Arial Blacca">total</font></th>
<th><font size="4" face="Arial Blacca">Optiuni</font></th>
</tr>
<% if rsCos.EOF and rsCos.BOF then %>
<pe><font size="4" face="Arial Blacca">NU SUNT PRODUSE COMANDATE</font></pe>
<font size="4" face="Arial Blacca">
<%session("norec")=0%>
<%else%>
<%session("norec")=0 %>
<% while (not rsCos.EOF) %>
</font>
<tr>
<td><font size="4" face="Arial Blacca"><%=(rsCos.Fields.Item("Codprod").Value)%> </font></td>
<td><form method="POST" action="--WEBBOT-SELF--">
<font face="Arial Blacca" size="4">
<input type="text" name="Cant" size="7" value="<%=(rsCos.Fields.Item("cant").Value)%>">
<input type="hidden" value="<%=(rsCos.Fields.Item("Codprod").Value)%>" name="recalc">
<input type="submit" value="Recalc" name="re">
</font>
</form>
</td>
<td><font size="4" face="Arial Blacca"><%=(rsCos.Fields.Item("pretv").Value)%> </font></td>
<td><font size="4" face="Arial Blacca"><%=(rsCos.Fields.Item("pretv").Value)*(rsCos.Fields.Item("cant").Value)%> </font></td>
<td><form method="POST" action="--WEBBOT-SELF--">
<font face="Arial Blacca" size="4">
<input type="hidden" value="<%=(rsCos.Fields.Item("Codprod").Value)%>" name="Stg">
</font><font face="Arial Blacca" size="4">
<input type="submit" value="Sterge" name="Sterge">
</font>
</form>
</td>
<%session("norec")=session("norec")+1 %>
</tr>
<% rsCos.MoveNext() %>
<%wend %>
<%end if%>
</table>
<font size="4" face="Arial Blacca">
<% rsCos.close()
end function %>
<% function totalCom
set rsCos = Server.CreateObject("ADODB.Recordset")
rsCos.ActiveConnection = rsObj
rsCos.Source = "SELECT Sum([cant]*[pretv]) AS total, DetaliiCom.idSesiune FROM DetaliiCom GROUP BY DetaliiCom.idSesiune HAVING DetaliiCom.idSesiune="&CStr(session.sessionID)
rsCos.Open()
response.write(rsCos.Fields.Item("total").Value)
session("total")= rsCos.Fields.Item("total").Value
end function
%>
<% sub Update(codp, canti)
dim cmd2
set cmd2 = server.createobject("ADODB.Command")
cmd2.commandtype = 1
cmd2.activeconnection = rsObj
cmd2.commandtext = "UPDATE DetaliiCom SET cant = "&cstr(canti)& " WHERE idsesiune= "&CStr(session.sessionID)& " AND codprod=" & cstr(codp)
cmd2.execute
end sub %>
<% sub sterge(codp)
dim cmd2
set cmd2 = server.createobject("ADODB.Command")
cmd2.commandtype = 1
cmd2.activeconnection = rsObj
cmd2.commandtext = "DELETE FROM DetaliiCom WHERE idsesiune= "&CStr(session.sessionID)& " AND codprod=" & cstr(codp)
cmd2.execute
end sub %>
</font>
</body>
</html>
asta ar fi ceva mai simplu si e doar cosul de cumparaturi , codul asp de la fiecare produs e cam asa :
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Panoul de comanda</title>
</head>
<body bgcolor="#FFFFFF">
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveResults" U-File="fpweb:///_private/form_results.csv" sa-Format="TEXT/CSV" sa-Label-Fields="TRUE" -->
<pe align="center"><b><font size="5">COMANDA PRODUSE</font></b></pe>
<pe align="center"> </pe>
<pe align="center"> </pe>
<pe align="left"><b>NOcaIA 6310 CANTITATE <input type="text" name="C1" size="20"><input type="submit" value="Comanda" name="Comanda1"><input type="reset" value="Anuleaza" name="Anuleaza"></b></pe>
<pe align="left"><b>NOcaIA 6610i CANTITATE
<input type="text" name="C2" size="20"><input type="submit" value="Comanda" name="Comanda2"><input type="reset" value="Anuleaza" name="Anuleaza0"></b></pe>
<pe align="left"><b>NOcaIA 6800 CANTITATE
<input type="text" name="C3" size="20"><input type="submit" value="Comanda" name="Comanda3"><input type="reset" value="Anuleaza" name="Anuleaza1"></b></pe>
<pe align="left"><b>NOcaIA 6810 CANTITATE
<input type="text" name="C4" size="20"><input type="submit" value="Comanda" name="Comanda4"><input type="reset" value="Anuleaza" name="Anuleaza2"></b></pe>
<pe align="left"><b>NOcaIA 7250 CANTITATE
<input type="text" name="C5" size="20"><input type="submit" value="Comanda" name="Comanda5"><input type="reset" value="Anuleaza" name="Anuleaza3"></b></pe>
<pe align="left"><b>NOcaIA 7250I CANTITATE
<input type="text" name="C6" size="20"><input type="submit" value="Comanda" name="Comanda6"><input type="reset" value="Anuleaza" name="Anuleaza4"></b></pe>
<pe align="left"><b>NOcaIA 7260 CANTITATE
<input type="text" name="C7" size="20"><input type="submit" value="Comanda" name="Comanda7"><input type="reset" value="Anuleaza" name="Anuleaza5"></b></pe>
<pe align="left"><b>NOcaIA 7270 CANTITATE
<input type="text" name="C8" size="20"><input type="submit" value="Comanda" name="Comanda8"><input type="reset" value="Anuleaza" name="Anuleaza6"></b></pe>
<pe align="left"><b>NOcaIA 7280 CANTITATE
<input type="text" name="C9" size="20"><input type="submit" value="Comanda" name="Comanda9"><input type="reset" value="Anuleaza" name="Anuleaza7"></b></pe>
<pe align="left"><b>NOcaIA 7600 CANTITATE
<input type="text" name="C10" size="20"><input type="submit" value="Comanda" name="Comanda10"><input type="reset" value="Anuleaza" name="Anuleaza8"></b></pe>
<pe align="left"><b>NOcaIA 7610 CANTITATE
<input type="text" name="C11" size="20"><input type="submit" value="Comanda" name="Comanda11"><input type="reset" value="Anuleaza" name="Anuleaza9"></b></pe>
<pe align="left"><b>NOcaIA 7650 CANTITATE
<input type="text" name="C12" size="20"><input type="submit" value="Comanda" name="Comanda12"><input type="reset" value="Anuleaza" name="Anuleaza10"></b></pe>
<pe align="left"> </pe>
<pe align="left"><b><a href="cumparaturi.html">
<input type="submit" value="Validare Comanda" name="Oca"></a></b></pe>
</form>
</pe>
<pe align="left"><b>
</b></pe>
<pe align="left"><b>
</b></pe>
<pe> </pe>
<pe> </pe>
<pe> </pe>
</form>
<% vsess = Session.sessionID %>
<% if Request.Form("Comanda1")="Comanda" then
vcant = Request.Form("C1")
vpret = 2240000
vcodp = 1
end if
if Request.Form ("Comanda2")="Comanda" then
vcant = Request.Form ("C2")
vpret = 3200000
vcodp = 2
end if
if request.form ("Comanda3")="Comanda" then
vcant = request.form ("C3")
vpret = 6400000
vcodp = 3
end if
if request.form ("Comanda4")="Comanda" then
vcant = request.form ("C4")
vpret = 7350000
vcodp = 4
end if
if request.form ("Comanda5")="Comanda" then
vcant = request.form ("C5")
vpret = 6650000
vcodp = 5
end if
if request.form ("Comanda6")="Comanda" then
vcant = request.form ("C6")
vpret = 8000000
vcodp = 6
end if
if request.form ("Comanda7")="Comanda" then
vcant = request.form ("C7")
vpret = 9600000
vcodp = 7
end if
if request.form ("Comanda8")="Comanda" then
vcant = request.form ("C8")
vpret = 9600000
vcodp = 8
end if
if request.form ("Comanda9")="Comanda" then
vcant = request.form ("C9")
vpret = 17500000
vcodp = 9
end if
if request.form ("Comanda10")="Comanda" then
vcant = request.form ("C10")
vpret = 11200000
vcodp = 10
end if
if request.form ("Comanda11")="Comanda" then
vcant = request.form ("C11")
vpret = 6300000
vcodp = 11
end if
if request.form ("Comanda12")="Comanda" then
vcant = request.form ("C12")
vpret = 8250000
vcodp = 12
end if
%>
<%
if vcant>=1 then
set rsObj = Server.CreateObject("ADODB.Connection")
rsObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=de:\\Site\baza de date\comenzi.mdb"
set rsCos = Server.CreateObject("ADODB.Recordset")
rsCos.ActiveConnection = rsObj
rsCos.Source = "SELECT * FROM DetaliiCom WHERE idSesiune="&CStr(session.sessionID)&" AND codprod="&cstr(vcodp)
rsCos.Open()
%>
<%
if (not rsCos.EOF) then
' Produsul se afla deja in cosul de cumparaturi
response.redirect "cumparaturi.asp"
else
dim cmd
set cmd = server.createobject("ADODB.Command")
cmd.commandtype = 1
cmd.activeconnection = rsObj
cmd.commandtext = "INSERT INTO DetaliiCom VALUES ("&cstr(vsess)&","&cstr(vcodp)&","&cstr(vcant)&","&cstr(vpret)&")"
cmd.execute
response.redirect "cumparaturi.asp"
End If
End if
%>
</body>
</html>
si totul incerci cu o baza de date in access
marius_alcatraz@yahoo.com si iti trimit un exemplu , lam avut ca proiect. ceva simplu doar cod html.
adicaa ceva gen postal 
Contact
Facebook
Twitter
RSS
