<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'SELECT OID, OPeopleID, ODate, OBottlesReturned, OBottlesOrdered FROM tblorders
Dim sDate, SDay, sOrderDate
dim sOrderoDate
Const SClosedOrder = 4
sOrderoDate = CheckOrderDate
sOrderoDate = mysqlDate(sOrderoDate,1)
Response.write sOrderoDate & " order date
"
sOID = ParsField(Request.Form("txtOID"))
sPID = ParsField(Request.Form("txtPID"))
sBottlesReturned = ParsField(Request.Form("txtBottle"))
sBottlesOrdered = ParsField(Request.Form("txtMilkOrder"))
sAction = Request.Form("txtAction")
Response.write sPID &", "& sBottlesReturned &", "& sBottlesOrdered &"
"
Set oDBConn = Server.CreateObject("ADODB.Connection")
oDBConn.Open sDBCONNSTR
If sAction = "Update" Then
'Update order
UpdateOrder
session("errormsg")="Your bottle count has been updated"
ElseIf sAction = "Add" Then
AddOrder
session("errormsg")="Your bottle count has been added"
Else
session("errormsg")="Nothing has been changed"
End If
session("PeopleID")=""
response.write session("errormsg") & "
"
Response.redirect("index.asp")
'*****************************************************
'* Sub UpdateOrder()
'* Update client information
'*****************************************************
Sub UpdateOrder()
Dim sSQL, rsTemp, sBody,sSubject
'sSQL="UPDATE tblorders "&_
' "SET OID=[value-1],
' OPeopleID=[value-2],
' ODate=[value-3],
' OBottlesReturned=[value-4],
' OBottlesOrdered=[value-5]
' WHERE 1"
sSQL = "UPDATE tblorders " &_
"SET OPeopleID = " & sPID & ", " &_
"ODate = '" & sOrderoDate & "', " &_
"OBottlesReturned = " & sBottlesReturned & ", " &_
"OBottlesOrdered = " & sBottlesOrdered & " " &_
"WHERE OID = " & sOID & " "
response.write sSQL & " - sql
"
Set rsTemp = DBExecute(sSQL)
End Sub
'*****************************************************
'* Function AddOrder()
'* Add a bottle return
'*****************************************************
Sub AddOrder()
sSQL = "INSERT INTO tblorders(OPeopleID, ODate, OBottlesReturned, OBottlesOrdered) "&_
"VALUES ("&_
ParsField(sPID) & "," &_
"'" & ParsField(sOrderoDate) & "'," &_
ParsField(sBottlesReturned) & ", " &_
ParsField(sBottlesOrdered) & ")"
response.write sSQL & "
"
Set rsTemp = DBExecute(sSQL)
response.write "Insert order
"
End Sub
function mysqlDate(d,dir)
'if not isDate( d ) then call errorMessage( d & " is not a date " )
'if not isDate( d ) then exit function
if not isDate( d ) then d = Date()
dim strNewDate
select case dir
case 1 '=== store in db
strNewDate = year( d ) & "-" & month( d ) & "-" & day( d )
case 2 '=== use with asp
strNewDate = month( d )& "/" & day( d ) & "/" & year( d )
end select
'strNewDate = cDate( strNewDate )
mysqlDate = strNewDate
end function
%>