:: Coppins Holdings ::

<%@LANGUAGE="VBSCRIPT"%> <% Response.Expires = -1 'connect to the database here Connect if request.form("prod")<>"" and request.form("qty") <> "" then 'Alright adding a new record here dim strFORMfields,strtcomflds strFORMfields = request.form("prod") & ",#" strFORMfields = strFORMfields & date() & "#, " strFORMfields =strFORMfields & request.form("qty") & ",'" strFORMfields = strFORMfields & session.sessionid & "'" strtcomflds = "prodid,orddate,qty,mysession" strSQL = "insert into orders(" & strtcomflds & ") values(" & strFORMfields & ")" set objRS=Server.CreateObject("ADODB.Recordset") objConn.Execute(strSQL) end if %> :: Coppins Holdings ::

Add Products

Product:	Quantity

<% Connect dim mysum mysum=0 set objRS=Server.CreateObject("ADODB.Recordset") strSQL="select * FROM qryORDEDETAILS where mysession='" & session.sessionid & "'" objRS.open strSQL,objConn,adOpenstatic if not objrs.eof then %>

Products on Order

<% while not objRS.EOF mysum= mysum + objRS(3) %> <% objrs.movenext wend Disconnect %>

Remove	Product	Quantity	Price	Extended
">	<%=objrs(0)%>	<%=objrs(1)%>	<%=objrs(2)%>	<%=objrs(3)%>
			Total Amount	<%=mysum%>

<% end if %>