blodefood
06-02-2004, 03:24 PM
I have a script that writes to a database, but I would like to take the data from the three date forms (month,day,year) and combine them into one Access database cell as an eight-digit number (example 20040602) so it can be formatted as a date in an HTML table.
Do I do this in the script or in the SQL statement?
_____________________________
'variables
dim objCon
dim objRec
dim usid, sysselect, probdesc
dim reqmonth, reqday, reqyear, compusid, compmonth, compday, compyear
dim reqstatus, estcompmonth, estcompday, estcompyear, reqcomment
'SQL
"select * from reqtable"
'Fields
objRec.AddNew
objRec.Fields("usid")=Request.Form("tusid")
objRec.Fields("sysselect")=Request.Form("tsysselect")
objRec.Fields("probdesc")=Request.Form("tprobdesc")
objRec.Fields("reqmonth")=Request.Form("treqmonth")
> objRec.Fields("reqday")=Request.Form("treqday")
> objRec.Fields("reqyear")=Request.Form("treqyear")
> objRec.Fields("compusid")=Request.Form("tcompusid")
objRec.Fields("reqstatus")=Request.Form("treqstatus")
> objRec.Fields("compmonth")=Request.Form("tcompmonth")
> objRec.Fields("compday")=Request.Form("tcompday")
> objRec.Fields("compyear")=Request.Form("tcompyear")
> objRec.Fields("estcompmonth")=Request.Form("testcompmonth")
> objRec.Fields("estcompday")=Request.Form("testcompday")
> objRec.Fields("estcompyear")=Request.Form("testcompyear")
objRec.Fields("reqcomment")=Request.Form("treqcomment")
objRec.Update
usid=Request.Form("tusid")
sysselect=Request.Form("tsysselect")
probdesc=Request.Form("tprobdesc")
> reqmonth=Request.Form("treqmonth")
> reqday=Request.Form("treqday")
> reqyear=Request.Form("treqyear")
compusid=Request.Form("tcompusid")
reqstatus=Request.Form("treqstatus")
> compmonth=Request.Form("tcompmonth")
> compday=Request.Form("tcompday")
> compyear=Request.Form("tcompyear")
> estcompmonth=Request.Form("testcompmonth")
> estcompday=Request.Form("testcompday")
> estcompyear=Request.Form("testcompyear")
reqcomment=Request.Form("treqcomment")
Do I do this in the script or in the SQL statement?
_____________________________
'variables
dim objCon
dim objRec
dim usid, sysselect, probdesc
dim reqmonth, reqday, reqyear, compusid, compmonth, compday, compyear
dim reqstatus, estcompmonth, estcompday, estcompyear, reqcomment
'SQL
"select * from reqtable"
'Fields
objRec.AddNew
objRec.Fields("usid")=Request.Form("tusid")
objRec.Fields("sysselect")=Request.Form("tsysselect")
objRec.Fields("probdesc")=Request.Form("tprobdesc")
objRec.Fields("reqmonth")=Request.Form("treqmonth")
> objRec.Fields("reqday")=Request.Form("treqday")
> objRec.Fields("reqyear")=Request.Form("treqyear")
> objRec.Fields("compusid")=Request.Form("tcompusid")
objRec.Fields("reqstatus")=Request.Form("treqstatus")
> objRec.Fields("compmonth")=Request.Form("tcompmonth")
> objRec.Fields("compday")=Request.Form("tcompday")
> objRec.Fields("compyear")=Request.Form("tcompyear")
> objRec.Fields("estcompmonth")=Request.Form("testcompmonth")
> objRec.Fields("estcompday")=Request.Form("testcompday")
> objRec.Fields("estcompyear")=Request.Form("testcompyear")
objRec.Fields("reqcomment")=Request.Form("treqcomment")
objRec.Update
usid=Request.Form("tusid")
sysselect=Request.Form("tsysselect")
probdesc=Request.Form("tprobdesc")
> reqmonth=Request.Form("treqmonth")
> reqday=Request.Form("treqday")
> reqyear=Request.Form("treqyear")
compusid=Request.Form("tcompusid")
reqstatus=Request.Form("treqstatus")
> compmonth=Request.Form("tcompmonth")
> compday=Request.Form("tcompday")
> compyear=Request.Form("tcompyear")
> estcompmonth=Request.Form("testcompmonth")
> estcompday=Request.Form("testcompday")
> estcompyear=Request.Form("testcompyear")
reqcomment=Request.Form("treqcomment")