-
X.dbeditparams
Is there a way to use size200 to only specify one field instead of every field that is data type 200 or 202? I have looked at the examples and cant find anything. Here is the code I am using
MyDb.dbEditParams="(;,) TableName=Jobs, SIZE200=7x50, BookMarkFlds=Job_ID,StickyUpdate=true"
I want to make the field "Requirements" a text area, not all of them.. here is my full code in case it helps... Thanks!!!
<%
Response.Expires = 0
Set MyDb = Server.CreateObject("AspDB.EP")
MyDb.dbDSN = "DSN=JobsDB; UID=sqluser; PWD=;"
MyDb.DBColor="2,auto,steelblue"
' Mydb.dbEditParams = "TableName=Jobs,BookMarkFlds=Job_ID"
MyDb.dbEditParams="(;,) TableName=Jobs, SIZE200=7x50, BookMarkFlds=Job_ID,StickyUpdate=true"
MyDb.DbEditDropFlds="Facility,,Jobs,Facility,, ,,,Distinct;Job_Type,,Jobs,Job_Type,,,,,Distinct;C ontact,,Jobs,Contact,,,,,Distinct;Shift,,Jobs,Shif t,,,,,Distinct;Job_Code,,Jobs,Job_Code,,,,,Distinc t"
MyDb.dbEditHideFlds = "Job_ID,Job_Code"
Mydb.dbEditFlds = "(;|)Facility|Department|Job_Title" &_
"|Shift|Hours/PP|Posting_Date[DATE(mm/dd/yy)]|Closing_Date[mm/dd/yy]|Requirements|Job_Type|Contact|AddHeading=" &_
"<h3>Add a new Job</H3>Fill out the fields, and click " &_
"the 'Add' button below|EditHeading=<H3>Add / Update / " &_
"Delete the current record</H3>|DeleteHeading=<h3>Delete the current " &_
"record</h3><BR>" &_
"|UpdateHeading=<H3>Update the current record</H3>"
MyDb.dbFormHideFlds = "Job_Code"
MyDb.dbFilterhideflds = "Requirements,Job_Code"
MyDb.DbFilterDropFlds = "Facility,,Jobs,Facility,,,,,Distinct;Job_Type ,,Jobs,Job_Type,,,,,Distinct;Contact,,Jobs,Contact ,,,,,Distinct;Shift,,Jobs,Shift,,,,,Distinct;Job_I D,,Jobs,Job_ID,,,,,Distinct;Posting_Date,,Jobs,Pos ting_Date,,,,,Distinct,Department,,Jobs,Department ,,,,,Distinct;Job_Title,,Jobs,Job_Title,,,,,Distin ct;Hours,,Jobs,Hours,,,,,Distinct;Closing_Date,,Jo bs,Closing_Date,,,,,Distinct;Department,,Jobs,Depa rtment,,,,,Distinct;Hours/PP,,Jobs,[Hours/PP],,,,,Distinct"
MyDb.dbFilterParams = "Help=False, Assistant=True"
MyDb.DbGridTableTag="border=0 cellspacing=3 cellpadding=4"
MyDb.DbGridIndex = False
MyDb.DbGridInc = "5"
MyDb.dbGridHideFlds = "Job_Type,Job_ID,Shift, Requirements,Job_Code"
MyDb.DbMode="both"
MyDb.dbMagicCell="Facility,,#Facility#,index,, "
MyDb.DbNavigationItem = "top,prev,next,bottom,gridrow,filter,download, color,reload, update, add, delete"
MyDb.DbNavigationIcon = "gif, grid, form, top, prev, next, bottom, rowplus, rowminus, gridplus, gridminus, formplus,formminus, search, resetfilter, download, color, reload, tables, edit, add, update, delete, save, open, updatebatch"
MyDb.DbNavigation="top"
MyDb.DbStartup = "grid"
Mydb.dbSQL = "Select * From Jobs"
Mydb.dbSuppressMsg = true
MyDb.DbUnit=101
MyDb.DBStatusBar = True
MyDb.Dbimagedir = "images/"
s = DefaultDelimiters & zHead & ",<Center><h3>Add My record</h3></Center>; "
s = s & zDelHead & ",<CENTER><h3>Delete This record</h3></CENTER><br><font size=2 face=arial><strong>If you would like to enter information without using the drop down boxes simply click on the<font color=Red> Drop</font> button. Click the <font color=red>Back</font> button to return to the previous page.</stong>;"
s = s & zAddhead & ",<h3>Create A New Job Listing</h3><br><font size=2 face=arial><strong>If you would like to enter information without using the drop down boxes simply click on the<font color=Red> Drop</font> button. Click the <font color=red>Back</font> button to return to the previous page.</stong>; "
s = s & zEditHead & ",<Center><h3>Edit This Job</h3></center>; "
s = s & zFilter & ",Search Complete; "
s = s & zFilterHead & ",<CENTER><H3>Job Search Screen</H3></CENTER>; "
s = s & zApplyFilter & ",Go do my Search; "
s = s & zResetFilter & ",Reset this filter screen; "
s = s & zHead & ",<CENTER><H3>Current Jobs</H3></CENTER>; "
s = s & zEdit & ",<FONT SIZE=5>EDIT<BR>NOW!</FONT>; "
s = s & zUpdate & ",<I>Update<BR>This Job<I>;"
s = s & zClear & ",Start Over;"
s = s & zDelete & ",Go Delete; "
s = s & zReturn & ",Return!; "
s = s & zUpdateHead & ",<h3>Update This Job</h3><br><font size=2 face=arial><strong>If you would like to enter information without using the drop down boxes simply click on the<font color=Red> Drop</font> button. Click the <font color=red>Back</font> button to return to the previous page.</stong>; "
s = s & zCopyRec & ",Make a Copy; "
s = s & zUpdateRec & ",UPDATE-REC!; "
s = s & zDrop & ",Toggle DropDown; "
s = s & zReset & ",Reset Fields!; "
s = s & zMemoText & ",Memo;"
s = s & zField & ",Field Names:;"
s = s & zNewRec & ",Add A New Job Below;"
s = s & zCurrentRec & ",Edit/Update/Delete Current Job;"
s = s & zNotes & ",Notes in this area;"
s = s & zMsgFilterPassThruHelp & ",<B><center></Center></B>;"
MyDb.dbUserLocalText = s
MyDb.aspDBEP
%>