Additional Projects:
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=SQLOLEDB.1; Network Library=dbmssocn;Password=jj2008;User ID=jjcontractors;Initial Catalog=localhost;Data Source=localhost;"
objConn.Open
sqlQuery = "SELECT * FROM jjProjects order by projectname"
Set objRS = objConn.Execute(sqlQuery)
Do while not objRS.EOF
sqlQueryJobCnt = "SELECT count(*) as cnt FROM jjImages WHERE projectid= '" & objRS("id") & "'"
Set objRSCnt = objConn.Execute(sqlQueryJobCnt)
if objRSCnt("cnt") = 0 then
Response.Write ("" & objRS("ProjectName") & "
")
end if
objRS.Movenext
Loop
%>
|
