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
%>
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
%>