Codcomp Asp 4f5e3e
This document was ed by and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this report form. Report r6l17
Overview 4q3b3c
& View Codcomp Asp as PDF for free.
More details 26j3b
- Words: 882
- Pages: 5
codcomp.asp
CUMPAR COMPONENTE 235r6a
<%next%>
codsis.asp <% Option Explicit Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %>
<% IF Session("n")=0 THEN dim coss(2,22) Session("CUMPCOS")=coss %>
<%Next%>
<%If bal<16 THEN %>
test.asp <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document">New Page 1 3go2z <% Dim connn,rss strNr=0 set connn=Server.CreateObject("ADODB.Connection") connn.Provider="Microsoft.Jet.OLEDB.4.0" connn.Open(Server.Mappath("s.mdb")) set rss = Server.CreateObject("ADODB.recordset") rss.open "Clienti", connn, 2, 2 rss.movefirst for strNr=1 to 3 rss.movenext next rss.movenext %>
PUTETI CUMPARA CU OPTIUNEA 
TOTAL PLATA <% Session("")=2 If Session("n")>-1 THEN Session("Prettotal")=Session("Prettotal")+Request.QueryString("varPret") Response.Write(Session("Prettotal")) End IF%> 
<%next%>
LISTA DE COMPONENTE |
BUC. |
PRET |
| <%=Session("CUMPCOS")(4,bal) %> <%Response.Write(Session("CUMPCOS")(0,bal))%> < %Response.Write(Session("CUMPCOS")(1,bal))%> | < %Response.Write(Session("CUMPCOS")(2,bal))%> | < %Response.Write(Session("CUMPCOS")(3,bal))%> |
codsis.asp <% Option Explicit Response.Expires = 0 Response.Expiresabsolute = Now() - 1 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %>
PAS 1. SELECTATI <%Response.Write (Comptabel(1,Session("n")+1))%>
<% Response.End End If coss=Session("CUMPCOS") IF Comptabel(1,Session("n"))=Request.QueryString("Rubr") THEN coss(0,Session("n"))=Request.QueryString("varProd") coss(1,Session("n"))=Request.QueryString("varModel") coss(2,Session("n"))=Request.QueryString("varPret") IF Session("n")=1 THEN coss(0,22)=Request.QueryString("varFSBMB") IF Session("n")=2 THEN coss(0,21)=Request.QueryString("varFSBPR") IF Session("n")=2 THEN coss(0,20)=Request.QueryString("varFRPR") IF Session("n")=2 THEN coss(0,19)=Request.QueryString("varVIOPR") IF Session("n")=4 THEN coss(0,18)=Request.QueryString("varFSBMEM") IF Session("n")=4 THEN coss(0,17)=Request.QueryString("varCantMEM") IF Session("n")=1 THEN coss(1,17)=Request.QueryString("varNotaMB") IF Session("n")=2 THEN coss(1,18)=Request.QueryString("varNotaPROC") IF Session("n")=4 THEN coss(1,19)=Request.QueryString("varNotaMEM") IF Session("n")=5 THEN coss(1,20)=Request.QueryString("varNotaHDD") IF Session("n")=7 THEN coss(1,21)=Request.QueryString("varNotaPVIDEO") IF Session("n")=8 THEN coss(1,22)=Request.QueryString("varNotaCDROM") IF Session("n")=9 THEN coss(2,17)=Request.QueryString("varNotaDVD") IF Session("n")=10 THEN coss(2,18)=Request.QueryString("varNotaCDW") IF Session("n")=11 THEN coss(2,19)=Request.QueryString("varNotaSOUNDB") IF Session("n")=12 THEN coss(2,20)=Request.QueryString("varNotaBOXE") IF Session("n")=13 THEN coss(2,21)=Request.QueryString("varNotaMON") Else Session("n")=Session("n")-1 End If Session("CUMPCOS")=coss for bal=1 to Session("n") %>ALCATUIREA SISTEMULUI |
PRET |
| <%Response.Write (Comptabel(1,bal)) %> <%Response.Write(Session("CUMPCOS")(0,bal))%> < %Response.Write(Session("CUMPCOS")(1,bal))%> | < %Response.Write(Session("CUMPCOS")(2,bal))%> |
PAS <%=(Session("n")+1)%>. SELECTATI <%Response.Write (Comptabel(1,Session("n")+1))%>
<% End If If Session("n")=15 and Request.QueryString("Rubr")="TASTATURA" THEN varFMPR=int(coss(0,20)/126*2)/2 varFSBBIOS=133 If coss(0,22)=200 or coss(0,21)=100 or coss(0,18)=100 Then varFMPR=coss(0,20)/100 varFSBBIOS=100 End If If coss(1,8)="-" Then coss(1,8)="None" If coss(1,9)="-" Then coss(1,9)="None" If coss(1,10)="-" Then coss(1,10)="None" %> <%End IF%>test.asp <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document">
| NUME CONT | POSESOR | SUMA INIT. |
NOUA VAL. |
| <%=rss("Nume cont")%> | <%=(rss("Nume")&" "&rss("Prenume"))%> | <%=rss("Achizitii")%> |
|
; 
