-
problem with setting text color in the header of the Grid
Hi,
have just starting AspDB Pro. and I ma having problem with setting color of the field names in the header of the Grid. It gives "color=4" at the bottom of the grid also even though there's no X.dbColor="4,XXX" in the whole program
This is giving me grief as I need to stay consistent with the color scheme of the rest of the site.
Any help is appreciated.
Here's tyhe Code
-------------------------
<% response.buffer=true %>
<!--ASP-db-->
<HTML>
<HEAD><title>Consultant Project Relationship Screen</title>
</HEAD>
<BODY BGCOLOR="FFFFFF" TEXT=blue ALINK="red" VLINK="red">
<FONT FACE="Arial,Helvetica" COLOR=red size=4>
<%
response.write("<BR><CENTER>Consultant & Project Relation</CENTER></BR>"
%>
<HR SIZE=2>
<%
Set MyDb = Server.CreateObject("AspDB.Pro"
Mydb.dbColor="ffffff,000000,ffffff,000000"
Mydb.dbUnit = 2
Mydb.dbReset(2)
Mydb.dbDBType = "SQL"
Mydb.dbOptions = "DateWrap='"
PI=Request("SQLName"
DT=Request("SQLDate"
response.write("<BR><H5><CENTER>Week Ending Date = " & Month(DT) & " / " & Day(DT) & " / " & Year(DT) & "</CENTER></H5></BR>"
If PI="" then
PI = Session("SesSQLName"
DT = Session("SesSQLDate"
end if
if (PI <> "" then ' Is this the first time in? If so, set the session
Session("SesSQLName" = PI ' variable so the user's entry will be remembered.
Session("SesSqlDate" = DT
end if
'LOCALSQL = Session("SesSQLName" + "%" ' Add the wildcard character.
Mydb.dbDSN="DSN=KIMTEST;UID=sa;PWD=;"
MyDb.dbGridtabletag = "border=1 cellpadding=2"
'MyDb.dbMode = "Grid"
'Mydb.dbNameMap = "date, Entry Date,bgcolor=white;week_ending_date,Weekend Date,bgcolor=white;actual_hours,Hours,bgcolor=whit e;personname,Name,bgcolor=white;task_name,Task Name,bgcolor=white;name,Project Name,bgcolor=white;person_id, Person ID,bgcolor=white"
MyDb.dbSQL = "SELECT personname,name,task_name,date,actual_hours FROM view_consultant_project WHERE person_id = " & Cint(PI) & " AND Week_Ending_Date = '" & Cstr(DT) & "'"
'Mydb.dbNavigation=""
Mydb.dbnavigationitem="Color"
Mydb.dbGridHideDuprecFlds = "personname"
Mydb.dbGridColSortHideFlds = "0,1,2,3,4"
MyDb.AspDBPro
RECS = MyDb.dbRecordCount
%>
<% if RECS < 1 then %>
<BR><FONT SIZE=4 COLOR=red><I><B>
No records were found!<BR>
Please hit the Back button and try again!<BR></B></I></FONT>
<% end if %>
</FONT>
</BODY>
</HTML>
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
|