Urgent Help


K

kiran

Hi All,
here is my code which is working with out any issues.. I want to fill color
where cell is empty can any one pls help.

<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
Dim cst
Dim objRS
Dim strSQL
Dim strConnection
Dim i
Dim conn

cst = "Provider=MSDAORA;Data Source=mypspcxv6;User
ID=interspc;Password=interspc;"

set conn = CreateObject("ADODB.Connection")
conn.Open cst

strSQL = "SELECT job, TO_CHAR(start_date, 'dd-mon-yy hh24:mi:ss')
Start_Date, TO_CHAR(end_date,'dd-mon-yy hh24:mi:ss') End_Date FROM ITJOB
WHERE JOB NOT LIKE 'sp%' AND END_DATE LIKE SYSDATE OR END_DATE IS NULL" '

set objRS = conn.Execute (strSQL)

if(objRS.BOF and objRS.EOF) then
Response.Write "No Records Found"
Response.End
end if
%>


<HTML>
<HEAD>
<TITLE>Interspec Job Log</TITLE>
</HEAD>

<BODY>
<TABLE BORDER="4" CELLPADDING="1" CELLSPACING="2" WIDTH="100%">

<%
Response.Write "<TR BGCOLOR=""LightBlue"">"
For i = 0 to objRS.Fields.Count - 1
Response.Write "<TH><FONT FACE=""ARIAL"" SIZE=""2"">" &
objRS.Fields(i).Name & "</FONT></TH>"
Next
Response.write "</TR>"

objRS.MoveFirst
Do While Not objRS.EOF
Response.Write "<TR>"
For i = 0 to objRS.Fields.Count - 1
Response.Write "<TD><FONT FACE=""ARIAL"" SIZE=""1"">" & objRS.Fields(i) &
"</FONT></TD>"
Next
Response.write "</TR>"
objRS.MoveNext
Loop
%>
</TABLE>

</BODY>
</HTML>
<%
objRS.Close
set objRS = Nothing
set cst = Nothing
%>
 
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top