Advertisement

05.06.2008 at 02:14PM PDT, ID: 23380982
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
9.3

need code sample of vbscript form validation upon updating set in database

Asked by bschave2 in Active Server Pages (ASP)

Tags:

I would like to validate this form before the element values in the form are updated. Please give a sample of code on how to do it.Start Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
773:
774:
775:
776:
777:
778:
779:
780:
781:
782:
783:
784:
785:
786:
787:
788:
789:
790:
791:
792:
793:
794:
795:
796:
797:
798:
799:
800:
801:
802:
803:
804:
805:
806:
807:
808:
809:
810:
811:
812:
813:
814:
815:
816:
817:
818:
819:
820:
821:
822:
823:
824:
825:
826:

<%
Option Explicit
%>
<!--#include file="inc/ETPRoutines.asp"-->
<!--#include file="inc/pop_up.js"-->
<%
Dim strError, strError2, strError3, strError4, strError5, strError6, strError7, strError8, strError9, strError10, strError11, strError12, strError13, strError14, strError15, strError16, strError17, strError18, strError19, strError20, strSQL
 
Dim redAsterik, asterisk2, asterisk3, asterisk4, asterisk5, asterisk6, asterisk7, asterisk8, asterisk9, asterisk10, asterisk11, asterisk12, asterisk13, asterisk14, asterisk15, asterisk16, asterisk17, asterisk18, asterisk19, asterisk20
Dim completeFormTxt
 
Dim commentNote, commentIssue, commentKeyDecision, commentAccomplishment
Dim objRS12, strSQL12, projectNumber
 
commentNote = "note"
commentIssue = "issues"
commentKeyDecision = "key decisions"
commentAccomplishment = "accomplishments"
projectNumber = CStr(Request.querystring("projectID"))
 
Dim SQL, SQL1, SQL2, SQL3, SQL4, SQL5, strSQL3, strSQL4, objRS4
Dim comment1, commentsDate1, comment2, commentDate2, comment3, commentDate3, comment4, commentDate4
Dim postDate1, postDate2, postDate3, postDate4
 
Dim commentType1, commentType2, commentType3, commentType4
 
Dim projectNum, assocProjectNum, companyNum, city, state1, projectType, projectSubtype, systemAbbrev, priorityCode, projectDescr, projectReq, appOwner, approvedBy, programmer, projectRev, estComplHrs, reqComplDate, reqComplHrs, dateCompl, statusDate, statCode, dateSubmitted, dateReceived, dateApproved, dateAssigned, testTurnover, startDate, endDate, reqPriority, estComplDate, actualComplHrs, PercentCompl, didRegister, didNotRegister
 
Dim SQL6, SQL7, SQL8, SQL9, SQL10
 
projectNum = Request.Form("projectID")
companyNum = Request.Form("companyNumber")
city = Request.Form("city")
state1 = Request.Form("state1")
projectType = Request.Form("projectType")
projectSubtype = Request.Form("projectSubtype")
systemAbbrev = Request.Form("systemAbbrev")
priorityCode = Request.Form("priorityCode")
assocProjectNum =  Request.Form("assocProjectNumber")
projectDescr = Request.Form("projectDescription")
projectReq = Request.Form("projectRequestor")
appOwner = Request.Form("appOwner")
approvedBy = Request.Form("approvedBy")
programmer = Request.Form("programmer")
projectRev = Request.Form("projectReview")
estComplHrs = Request.Form("estComplHrs")
reqComplDate = Request.Form("reqComplDate")
reqComplHrs = Request.Form("reqComplHrs")
dateCompl = Request.Form("dateCompl")
statusDate = Request.Form("statusDate")
statCode = Request.Form("statCode")
dateSubmitted = Request.Form("dateSubmitted")
dateReceived = Request.Form("dateReceived")
dateApproved = Request.Form("dateApproved")
dateAssigned = Request.Form("dateAssigned")
testTurnover = Request.Form("testTurnover")
startDate = Request.Form("startDate")
endDate = Request.Form("endDate")
reqPriority = Request.Form("reqPriority")
comment1 = replace(Request.Form("comment1"), VbCr, "<br>")
comment2 = replace(Request.Form("comment2"), VbCr, "<br>")
comment3 = replace(Request.Form("comment3"), VbCr, "<br>")
comment4 = replace(Request.Form("comment4"), VbCr, "<br>")
estComplDate = Request.Form("estComplDate")
actualComplHrs = Request.Form("actualComplHrs")
percentCompl = Request.Form("percentCompl")
completeFormTxt = "<strong>Please complete all fields marked with an asterisk <span style=color:#39b81c;font-size:18px;>*</span></strong><br /><br /><br /><br />"
asterisk2  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk3  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk4  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk5  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk6  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk7  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk8  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk9  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk10  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk11  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk12  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk13  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk14  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk15  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk16  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk17  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk18  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk19  = "<span style=color:#39b81c;font-size:18px;> *</span>"
asterisk20  = "<span style=color:#39b81c;font-size:18px;> *</span>"
redAsterik = "<span style=color:#ff3300;font-size:18px;> *<span>"
 
didRegister = request.form("action2")
		
If didRegister = "register2" Then
 
		%>
		<!--#include file="inc/connection6.asp"-->
		<%
							
          strSQL3 = "UPDATE project SET " _
		  			& " projectID = '" & projectNum & "', " _
		  			& " companyNumber = '" & companyNum & "', " _
					& " city = '" & city & "', " _
					& " state1 = '" & state1 & "', " _
					& " projectType = '" & projectType & "', " _
					& " projectSubtype = '" & projectSubtype & "', " _
					& " systemAbbrev = '" & systemAbbrev & "', " _
					& " priorityCode = '" & priorityCode & "', " _
					& " assocProjectNumber = '" & assocProjectNum & "', " _
					& " projectDescription = '" & projectDescr & "', " _
					& " projectRequestor = '" & projectReq & "', " _
					& " appOwner = '" & appOwner & "', " _
					& " approvedBy = '" & approvedBy & "', " _
					& " programmer = '" & programmer & "', " _
					& " projectReview = '" & projectRev & "', " _
					& " estComplHrs = '" & estComplHrs & "', " _
					& " reqComplDate = '" & FormatMySQLDate( reqComplDate ) & "', " _
					& " dateCompl = '" & FormatMySQLDate( dateCompl ) & "', " _
					& " statusDate = '" & FormatMySQLDate( statusDate ) & "', " _
					& " statCode = '" & statCode & "', " _
					& " dateSubmitted = '" & FormatMySQLDate( dateSubmitted ) & "', " _
					& " dateReceived = '" & FormatMySQLDate( dateReceived ) & "', " _
					& " dateApproved = '" & FormatMySQLDate( dateApproved ) & "', " _
					& " dateAssigned = '" & FormatMySQLDate( dateAssigned ) & "', " _
					& " testTurnover = '" & FormatMySQLDate( testTurnover ) & "', " _
					& " startDate = '" & FormatMySQLDate( startDate ) & "', " _
					& " endDate = '" & FormatMySQLDate( endDate ) & "', " _
					& " reqPriority = '" & reqPriority & "', " _
					& " estComplDate = '" &  FormatMySQLDate( estComplDate ) & "', " _
					& " actualComplHrs = '" & actualComplHrs & "', " _
					& " percentCompl = '" & percentCompl & "' " _
					& " WHERE projectID = " & Request.Form("projectID")
			
			Set objRS4 = objConn6.Execute( strSQL3 )
			
				If Request.Form("comment1") = "" Then
					postDate1 = ""
					commentType1 = ""
				Else
					postDate1 = Date()
					commentType1 = "note"
					%>
					<!--#include file="inc/connection3.asp"-->
					<%
						SQL7 = "INSERT INTO comments (projectID, comment, commentDate, commentType) VALUES(" & _
								"'" & projectNum & "', " & _
								"'" & EscapeApostrophe( comment1 ) & "', " & _
								"'" & FormatMySQLDate( postDate1 ) & "', " & _
								"'" & commenttype1 & "')"
			
						Set objConn1 = objConn1.Execute (SQL7)
				End If
			 
			  
			   if Request.Form("comment2") = "" Then
					postDate2 = ""
					commentType2 = ""
	
				Else
					postDate2 = Date()
					commentType2 = "issues"
		
					%>
					<!--#include file="inc/connection2.asp"-->
					<%
			
					SQL8 = "INSERT INTO comments (projectID, comment, commentDate, commentType) VALUES(" & _
							"'" & projectNum & "', " & _
							"'" & EscapeApostrophe( comment2 ) & "', " & _
							"'" & FormatMySQLDate( postDate2 ) & "', " & _
							"'" & commenttype2 & "')"
			
							Set objConn2 = objConn2.Execute (SQL8)
				End If
			 
				if Request.Form("comment3") = "" Then
					postDate3 = ""
					commentType3 = ""
	
				Else
					postDate3 = Date()
					commentType3 = "key decisions"
					%>
					<!--#include file="inc/connection4.asp"-->
					<%	
			
					SQL9 = "INSERT INTO comments (projectID, comment, commentDate, commentType) VALUES(" & _
						"'" & projectNum & "', " & _
						"'" & EscapeApostrophe( comment3 ) & "', " & _
						"'" & FormatMySQLDate( postDate3 ) & "', " & _
						"'" & commenttype3 & "')"
			
					Set objConn3 = objConn3.Execute (SQL9)
				
				End If
			 
				If Request.Form("comment4") = "" Then
					postDate4 = ""
					commentType4 = ""
	
				Else
					postDate4 = Date()
					commentType4 = "accomplishments"
 
					%>
					<!--#include file="inc/connection5.asp"-->
					<%	
			
					SQL10 = "INSERT INTO comments (projectID, comment, commentDate, commentType) VALUES(" & _
						"'" & projectNum & "', " & _
						"'" & EscapeApostrophe( comment4 ) & "', " & _
						"'" & FormatMySQLDate( postDate4 ) & "', " & _
						"'" & commenttype4 & "')"
			
					Set objConn4 = objConn4.Execute (SQL10)
				End If
 
End If
 
 
		
Response.Write( "<html>" & VbCr )
Response.Write( "<head>" & VbCr )
Response.Write("<title>Project Tracker 2.0 - Edit / Delete Project</title>" & VbCr )
Response.Write("<link href=inc/styles.css type=text/css rel=StyleSheet>" & VbCr )
%>
<!-- #include file="inc/scripts.js" -->
<!-- #include file="inc/DatePicker.js" -->
<%
Response.Write("</head>" & VbCr )
Response.Write("<body onLoad=MM_preloadImages('images/add_project_btn.jpg','images/edit_project_btn.jpg','images/search_projects_btn.jpg','images/time_entry_btn.jpg','images/project_calendar_btn.jpg')>" & VbCr )
Response.Write("<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & VbCr )
  Response.Write("<tr>" & VbCr )
    Response.Write("<td colspan=""8"" background=""images/bg.jpg"" height=""88""><table width=""569"" border=""0"" align=""right"" cellpadding=""0"" cellspacing=""0"">" & VbCr )
      Response.Write("<tr>" & VbCr )
        Response.Write("<td align=""right"" valign=""top""><img src=""images/app_title_template.jpg"" width=""537"" height=""88""></td>" & VbCr )
        Response.Write("</tr>" & VbCr )
    Response.Write("</table>" & VbCr )
      Response.Write("<table width=""202"" border=""0"" align=""left"" cellpadding=""0"" cellspacing=""0"">" & VbCr )
      Response.Write("<tr>" & VbCr )
        Response.Write("<td><img src=""images/logo.jpg"" width=""202"" height=""88""></td>" & VbCr )
      Response.Write("</tr>" & VbCr )
    Response.Write("</table></td>" & VbCr )
  Response.Write("</tr>" & VbCr )
  Response.Write("<tr>" & VbCr )
    Response.Write("<td width=""100%"" align=""center"" valign=""top"" background=""images/nav_bg.jpg""><table width=""985"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & VbCr )
      Response.Write("<tr>" & VbCr )
        Response.Write("<td width=""15%""><a href=""add_project.asp"" onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('add project','','images/add_project_btn.jpg',1)""><img src=""images/add_project_up_btn.jpg"" alt=""add projects"" name=""add project"" width=""166"" height=""35"" border=""0""></a></td>" & VbCr )
        Response.Write("<td width=""13%""><a href=""edit_project.asp"" onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('edit/delete projects','','images/edit_project_btn.jpg',1)""><img src=""images/edit_project_up_btn.jpg"" alt=""add/delete projects"" name=""edit/delete projects"" width=""191"" height=""35"" border=""0""></a></td>" & VbCr )
        Response.Write("<td width='2%'><a href=""project_report.asp"" onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('project reports','','images/project_report_btn.jpg',1)""><img src=""images/project_report_up_btn.jpg"" alt=""project reports"" name=""project reports"" width=""161"" height=""35"" border=""0""></a></td>" & VbCr )
        Response.Write("<td width=""14%""><a href=""search_projects.asp"" onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('search projects','','images/search_projects_btn.jpg',1)""><img src=""images/search_projects_up_btn.jpg"" alt=""search projects"" name=""search projects"" width=""165"" height=""35"" border=""0""></a></td>" & VbCr )
        Response.Write("<td width=""14%""><a href=""time_entry.asp"" onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('time entry','','images/time_entry_btn.jpg',1)""><img src=""images/time_entry_up_btn.jpg"" alt=""time entry"" name=""time entry"" width=""140"" height=""35"" border=""0""></a></td>" & VbCr )
        Response.Write("<td width=""14%""><a href=""project_calendar.asp"" onMouseOut=""MM_swapImgRestore()"" onMouseOver=""MM_swapImage('project calendar','','images/project_calendar_btn.jpg',1)""><img src=""images/project_calendar_up_btn.jpg"" alt=""project calendar"" name=""project calendar"" width=""162"" height=""35"" border=""0""></a></td>" & VbCr )
      Response.Write("</tr>" & VbCr )
    Response.Write("</table></td>" & VbCr )
  Response.Write("</tr>" & VbCr )
Response.Write("</table>" & VbCr )
 
Response.Write("<h2>EDIT \ DELETE PROJECTS</h2>" & VbCr )
 
%>
<!--#include file="inc/connection1.asp"-->
<%	
 
Set objRS4 = Server.CreateObject( "ADODB.Recordset" )
 
strSQL4 = " SELECT * FROM project " & _
		  " WHERE projectID = '" & Request.QueryString( "projectID" ) & "';"
 
	Set objRS4 = objConn.Execute( strSQL4 )
 
		If Not objRS4.EOF Then
 
 
			SQL = "SELECT DISTINCT city, state1 FROM location" _
			& " order by city DESC"
			CmdPopulateLocate.Open SQL, DataConn
 
			SQL1 = "SELECT DISTINCT programmer FROM programmer" _
			& " order by programmer ASC"
			CmdPopulateprogrammer.Open SQL1, DataConn
 
			SQL2 = "SELECT DISTINCT statusID, statCode FROM statscode" _
			& " order by statCode ASC"
			CmdPopulateStatus.Open SQL2, DataConn
 
			SQL3 = "SELECT DISTINCT companyNumber FROM companynum" _
			& " order by companyNumber"
			CmdPopulateCompany.Open SQL3, DataConn
 
			SQL4 = "SELECT DISTINCT projectType FROM project_type" _
			& " order by projectType"
			CmdPopulateProjecttype.Open SQL4, DataConn
 
			SQL5 = "SELECT DISTINCT projectSubtype FROM project_subtypes" _
			& " order by projectSubtype"
			CmdPopulateProjectSubtype.Open SQL5, DataConn
 
			Response.Write("<span class=""textRight"">" & completeFormTxt & strError & "</span>" & vbcr)
			Response.Write("<form name='form2' action='update_project.asp' method='POST'>" & vbcr)
			Response.Write("<span class='textRight'></span>" & vbcr)
			Response.Write("<table width='100%' cellpadding='0' cellspacing='0'>" & vbcr)
  			  Response.Write("<tr>" & vbcr)
    				Response.Write("<td><span class='sectionHeader'>Basic Project Information</span><table width='98%' height='97' cellpadding='0' cellspacing='0' class='contactTable'>" & vbcr)
           	  			Response.Write("<tr height='2'>" & vbcr)
           					Response.Write("<td width='1%'></td>" & vbcr)
              					Response.Write("<td width='13%'></td>" & vbcr)
             					Response.Write("<td width='17%'></td>" & vbcr)
             					Response.Write("<td width='4%'></td>" & vbcr)
             					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='17%'></td>" & vbcr)
              					Response.Write("<td width='4%'></td>" & vbcr)
              					Response.Write("<td width='12%'></td>" & vbcr)
              					Response.Write("<td width='18%'></td>" & vbcr)
             					Response.Write("<td width='1%'></td>" & vbcr)
              			Response.Write("</tr>" & vbcr)
            			Response.Write("<tr height='30'>" & vbcr)
             			Response.Write("<td></td>" & vbcr)
             			Response.Write("<td>Project Number:" & asterisk2 & strError9 & "</td>" & vbcr)
             			Response.Write("<td><input type='text' maxlength='6' size='27' name='projectID' value='" & objRS4("projectID") & projectNum &"'></td>" & vbcr)
              			Response.Write("<td>&nbsp;</td>" & vbcr)
             			Response.Write("<td>Company Number:" & asterisk3 & strError2 & "</td>" & vbcr)
             			Response.Write("<td><select name='companyNumber' size='1' value='" & objRS4("companyNumber") & "'>" & vbcr)
                			Response.Write("<option value='0'>----- Select a Company -----</option>" & vbcr)
               					While Not CmdPopulateCompany.EOF
                					Response.Write("<option value='" & CmdPopulateCompany("companyNumber") & "'" & vbcr)
								if CmdPopulateCompany("companyNumber")=objRS4("companyNumber") then 
									response.Write("selected" & vbcr)
								end if 
								Response.Write(">" & CmdPopulateCompany("companyNumber") & "</option>" & vbcr)
         
									CmdPopulateCompany.Movenext
    							wend
  									CmdPopulateCompany.close 
				
              			Response.Write("</select></td>" & vbcr)
              			Response.Write("<td>&nbsp;</td>" & vbcr)
              			Response.Write("<td>Location:" & asterisk7 & strError6 & "</td>" & vbcr)
              			Response.Write("<td align='left'><select name='city' size='1' value='" & objRS4("city") & "'>" & vbcr)
              			Response.Write("<option value='0'>----- Select a Location -----</option>" & vbcr)
                  			While Not CmdPopulateLocate.EOF
                 				Response.Write(" <option value='" & CmdPopulateLocate("city") & "'" & VbCr ) 
				  			if CmdPopulateLocate("city")=objRS4("city") then 
				  				response.Write("selected" & vbcr)
				  			end if 
				  		Response.Write(">" & CmdPopulateLocate("city") & "," & CmdPopulateLocate("state1") & "</option>" & vbcr)
                  
							CmdPopulateLocate.Movenext
    						wend
  							CmdPopulateLocate.close 
				
                			Response.Write("</select></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
            			Response.Write("</tr>" & vbcr)
            			Response.Write("<tr height='30'>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td>Project Type:" & asterisk4 & strError3 & "</td>" & vbcr)
              			Response.Write("<td><select name='projectType' size='1' value='" & objRS4("projectType") & "'>" & vbcr)
                			Response.Write("<option value='0'>---- Select a Project Type ----</option>" & vbcr)
                				While Not CmdPopulateProjecttype.EOF
                					Response.Write("<option value='" & CmdPopulateProjecttype("projectType") & "'" & vbcr) 
								if CmdPopulateProjecttype("projectType")=objRS4("projectType") then 
									response.Write("selected" & vbcr)
								end if
									Response.Write(">" & CmdPopulateProjecttype("projectType") & "</option>" & vbcr)
                
								CmdPopulateProjecttype.Movenext
    							wend
  								CmdPopulateProjecttype.close 
				
              			Response.Write("</select></td>" & vbcr)
              			Response.Write("<td>&nbsp;</td>" & vbcr)
              			Response.Write("<td>Project Subtype:" & asterisk5 & strError4 & "</td>" & vbcr)
              			Response.Write("<td><select name='projectSubtype' size='1' value='" & objRS4("projectSubtype") & "'>" & vbcr)
              			Response.Write("<option value='0'>----- Select a Subtype -----</option>" & vbcr)
              
                			While Not CmdPopulateProjectSubtype.EOF
                				Response.Write("<option value='" & CmdPopulateProjectSubtype("projectSubtype") & "'" & vbcr) 
							if CmdPopulateProjectSubtype("projectSubType")=objRS4("projectSubtype") then 
								response.Write("selected" & vbcr) 
							end if
								Response.Write(">" & CmdPopulateProjectSubtype("projectSubtype") & "</option>" & vbcr)
          
							CmdPopulateProjectSubtype.Movenext
    						wend
  							CmdPopulateProjectSubtype.close 
				
							Response.Write("</select></td>" & vbcr)
              			Response.Write("<td>&nbsp;</td>" & vbcr)
              			Response.Write("<td>System Abbrev:" & asterisk6 & strError5 & "</td>" & vbcr)
              			Response.Write("<td align='left'><input type='text' maxlength='20' size='22' name='systemAbbrev' value='" & objRS4("systemAbbrev") & "'></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
            			Response.Write("</tr>" & vbcr)
            			Response.Write("<tr height='30'>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td>Priority Code:" & asterisk8 & strError7 & "</td>" & vbcr)
              			Response.Write("<td><input type='text' maxlength='3' size='27' name='priorityCode' value='" & objRS4("priorityCode") & Request.Form("priorityCode") & "'></td>" & vbcr)
              			Response.Write("<td>&nbsp;</td>" & vbcr)
              			Response.Write("<td>Assoc. Project Number:" & strError8 & "</td>" & vbcr)
              			Response.Write("<td><input type='text' maxlength='6' size='22' name='assocProjectNumber' value='" & objRS4("assocProjectNumber") & "'></td>" & vbcr)
              			Response.Write("<td>&nbsp;</td>" & vbcr)
              			Response.Write("<td>Project Description:" & asterisk10 & strError10 & "</td>" & vbcr)
              			Response.Write("<td align='left'><input type='text' maxlength='150' size='22' name='projectDescription' value='" & objRS4("projectDescription") & "'></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
            			Response.Write("</tr>" & vbcr)
            			Response.Write("<tr height='5'>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
              			Response.Write("<td></td>" & vbcr)
            			Response.Write("</tr>" & vbcr)
          			Response.Write("</table>" & vbcr)
          			Response.Write("<br>" & vbcr)
         			Response.Write(" <br>" & vbcr)
			Response.Write("<span class='sectionHeader'>Project Affiliates</span>" & vbcr)
			Response.Write("<table width='98%' height='67' cellpadding='0' cellspacing='0' class='contactTable'>" & vbcr)
  			Response.Write("<tr height='2'>" & vbcr)
   		  				Response.Write("<td width='1%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
             					Response.Write("<td width='15%'></td>" & vbcr)
             					Response.Write("<td width='4%'></td>" & vbcr)
             					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='4%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
             					Response.Write("<td width='1%'></td>" & vbcr)
		  			Response.Write("</tr>" & vbcr)
  			Response.Write("<tr height='30'>" & vbcr)
    			Response.Write("<td></td>" & vbcr)
    			Response.Write("<td>Project Requestor:" & asterisk11 & strError11 & "</td>" & vbcr)
    			Response.Write("<td><input type='text' maxlength='20' size='27' name='projectRequestor' value='" & objRS4("projectRequestor") & "'></td>" & vbcr)
    			Response.Write("<td>&nbsp;</td>" & vbcr)
    			Response.Write("<td>Application Owner:" & asterisk12 & strError12 & "</td>" & vbcr)
    			Response.Write("<td><input type='text' maxlength='20' size='22' name='appOwner' value='" & objRS4("appOwner") & "'></td>" & vbcr)
    			Response.Write("<td>&nbsp;</td>" & vbcr)
   			Response.Write("<td>Approved By:" & asterisk13 & strError13 & "</td>" & vbcr)
    			Response.Write("<td align='left'><input type='text' maxlength='20' size='22' name='approvedBy' value='" & objRS4("approvedBy") & "'></td>" & vbcr)
    			Response.Write("<td></td>" & vbcr)
  			Response.Write("</tr>" & vbcr)
  			Response.Write("<tr height='30'>" & vbcr)
    			Response.Write("<td></td>" & vbcr)
    			Response.Write("<td>PGMR Assigned:" & asterisk14 & strError14 & "</td>" & vbcr)
    			Response.Write("<td><select name='programmer' id='programmer' size='1' value='" & objRS4("programmer") & "'>" & vbcr)
      			Response.Write("<option value='0'>---- Select a Programmer ----</option>" & vbcr)
     				While Not CmdPopulateProgrammer.EOF
      					Response.Write("<option value='" & CmdPopulateProgrammer("programmer") & "'" & vbcr)
	  				if CmdPopulateProgrammer("programmer")=objRS4("programmer") then 
	  					response.Write("selected" & vbcr)
	  				end if 
						Response.Write("/>" & CmdPopulateProgrammer("programmer")  & "</option>" & vbcr)
		
					CmdPopulateProgrammer.Movenext
      				wend
  					CmdPopulateProgrammer.close 
    			Response.Write("</select></td>" & vbcr)
    			Response.Write("<td>&nbsp;</td>" & vbcr)
    			Response.Write("<td>Project Reviewed By:</td>" & vbcr)
    			Response.Write("<td><input type='text' maxlength='20' size='22' name='projectReview' value='" & objRS4("projectReview") & "'></td>" & vbcr)
    			Response.Write("<td>&nbsp;</td>" & vbcr)
    			Response.Write("<td>&nbsp;</td>" & vbcr)
    			Response.Write("<td align='left'>&nbsp;</td>" & vbcr)
    			Response.Write("<td></td>" & vbcr)
  			Response.Write("</tr>" & vbcr)
  				Response.write("<tr height='5'>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
    				Response.Write("<td></td>" & vbcr)
  					Response.Write("</tr>" & vbcr)
			Response.Write("</table>" & vbcr)
			Response.Write("<br>" & vbcr)
			Response.Write("<br>" & vbcr)
			Response.Write("<span class='sectionHeader'>Completion Dates</span>" & vbcr)
			Response.Write("<table width='98%' height='67' cellpadding='0' cellspacing='0' class='contactTable'>" & vbcr)
        				Response.Write("<tr height='2'>" & vbcr)
   		  	  				Response.Write("<td width='1%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
             					Response.Write("<td width='15%'></td>" & vbcr)
             					Response.Write("<td width='4%'></td>" & vbcr)
             					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='4%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
             					Response.Write("<td width='1%'></td>" & vbcr)
		  					Response.Write("</tr>" & vbcr)
  							Response.Write("<tr height='30'>" & vbcr)
    		  					Response.Write("<td></td>" & vbcr)
    		  					Response.Write("<td>Estimated Compl Hrs:" & asterisk15 & strError15 & "</td>" & vbcr)
   			  					Response.Write("<td><input type='text' maxlength='5' size='27' name='estComplHrs' value='" & objRS4("estComplHrs") & "'></td>" & vbcr)
   			  					Response.Write("<td>&nbsp;</td>" & vbcr)
   			  					Response.Write("<td>Actual Compl Hrs:</td>" & vbcr)
   			  					Response.Write("<td><input type='text' maxlength='20' size='22' name='actualComplHrs' value='" & objRS4("actualComplHrs") & "'></td>" & vbcr)
   			  					Response.Write("<td>&nbsp;</td>" & vbcr)
			  					Response.Write("<td>Percent Compl:</td>" & vbcr)
   			  					Response.Write("<td align='left'><input type='text' maxlength='20' size='22' name='percentCompl' value='" & objRS4("percentCompl") & "'></td>" & vbcr)
    		  					Response.Write("<td></td>" & vbcr)
		  					Response.Write("</tr>" & vbcr)
 		 					Response.Write("<tr height='30'>" & vbcr)
   								Response.Write("<td></td>" & vbcr)
    							Response.Write("<td align='left' valign='middle'>Estimated Compl Date:</td>" & vbcr)
	 	    					Response.Write("<td align='left' valign='middle'><input type='text' style='width:80px;' width='80' id='estComplDate' name='estComplDate' value='" & objRS4("estComplDate") & "' maxlength='10' readonly>" & vbcr)
  									Response.Write("<a href=""javascript:show_calendar('form2.estComplDate');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px;' width='26' height='24' border='0'></a></td>" & vbcr)
	 	   						Response.Write("<td>&nbsp;</td>" & vbcr)
    							Response.Write("<td align='left' valign='middle'>Required Compl Date:</td>" & vbcr)
   								Response.Write("<td><input type='text' style='width:80px;' width='80' id='reqComplDate' name='reqComplDate' value='" & objRS4("reqComplDate") & "' maxlength='10' readonly>" & vbcr)
		    						Response.Write("<a href=""javascript:show_calendar('form2.reqComplDate');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px' width=26 height=24 border='0'></a></td>" & vbcr)
   								Response.Write("<td>&nbsp;</td>" & vbcr)
    							Response.Write("<td align='left' valign='middle'>Date Completed:</td>" & vbcr)
   								Response.Write("<td align='left' valign='middle'><input type='text' style='width:80px;' width='80' id='dateCompl' name='dateCompl' value='" & objRS4("dateCompl") & "' maxlength='10' readonly>" & vbcr)
  									Response.Write("<a href=""javascript:show_calendar('form2.dateCompl');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px' width=22 height=24 border='0'></a></td>" & vbcr)
    							Response.Write("<td></td>" & vbcr)
		  					Response.Write("</tr>" & vbcr)
  							Response.Write("<tr height='5'>" & vbcr)
  		  					Response.Write("<td></td>" & vbcr)
  		  					Response.Write("<td></td>" & vbcr)
  		  					Response.Write("<td></td>" & vbcr)
  		  					Response.Write("<td></td>" & vbcr)
  		  					Response.Write("<td></td>" & vbcr)
  		  					Response.Write("<td></td>" & vbcr)
  		  					Response.Write("<td></td>" & vbcr)
  		  					Response.Write("<td></td>" & vbcr)
  		 				 	Response.Write("<td></td>" & vbcr)
  		  					Response.Write("<td></td>" & vbcr)
		  				Response.Write("</tr>" & vbcr)
					Response.Write("</table>" & vbcr)
					Response.Write("<br>" & vbcr)
					Response.Write("<br>" & vbcr)
					Response.Write("<span class='sectionHeader'>Status &amp; Date Information</span>" & vbcr)
					Response.Write("<table width='98%' height='127' cellpadding='0' cellspacing='0' class='contactTable'>" & vbcr)
        				Response.Write("<tr height='2'>" & vbcr)
   		  	  				Response.Write("<td width='1%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
             					Response.Write("<td width='15%'></td>" & vbcr)
             					Response.Write("<td width='4%'></td>" & vbcr)
             					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='4%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
              					Response.Write("<td width='15%'></td>" & vbcr)
             					Response.Write("<td width='1%'></td>" & vbcr)
		 					Response.Write("</tr>" & vbcr)
  							Response.Write("<tr height='30'>" & vbcr)
    		  					Response.Write("<td></td>" & vbcr)
    		  					Response.Write("<td>Status Date:</td>" & vbcr)
   			  					Response.Write("<td><input type='text' style='width:80px;' width='80' id='statusDate' name='statusDate' value='" & objRS4("statusDate") & "' maxlength='10'></td>" & vbcr)
   			  					Response.Write("<td>&nbsp;</td>" & vbcr)
   			  					Response.Write("<td>Status Code:" & asterisk16 & strError16 & "</td>" & vbcr)
   			  					Response.Write("<td><select name='statCode' id='statCode' size='1' onChange=""javascript:suggestValues(this);"" value='" & objRS4("statCode") & "'>" & vbcr)
              	 					Response.Write("<option value='0'>- Select a Project Status -</option>" & vbcr)
              
                					While Not CmdPopulateStatus.EOF
                						Response.Write("<option value='" & CmdPopulateStatus("statCode") & "'" & vbcr)
									if CmdPopulateStatus("statCode")=objRS4("statCode") then 
										response.Write("selected" & vbcr)
									end if
									Response.Write("/>" & CmdPopulateStatus("statCode") & "</option>" & vbcr)
           
									CmdPopulateStatus.Movenext
    								wend
  									CmdPopulateStatus.close 
								Response.Write("</select></td>" & vbcr)
   			 					Response.Write("<td>&nbsp;</td>" & vbcr)
			  					Response.Write("<td>Date Submitted:" & asterisk17 & strError17 & "</td>" & vbcr)
   			  					Response.Write("<td align='left'><input type='text' style='width:80px;' width='80' id='dateSubmitted' name='dateSubmitted' value='" & objRS4("dateSubmitted") & "' maxlength='10' readonly>" & vbcr)
 									Response.Write("<a href=""javascript:show_calendar('form2.dateSubmitted');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px' width=22 height=24 border='0'></a></td>" & vbcr)
    		  					Response.Write("<td></td>" & vbcr)
		  					Response.Write("</tr>" & vbcr)
 		 					Response.Write("<tr height='30'>" & vbcr)
   								Response.Write("<td></td>" & vbcr)
    							Response.Write("<td>Date Received:" & asterisk18 & strError18 & "</td>" & vbcr)
		 						Response.Write("<td><input type='text' style='width:80px;' width='80' id='dateReceived' name='dateReceived' value='" & objRS4("dateReceived") & "' maxlength='10' readonly>" & vbcr)
	 	    						Response.Write("<a href=""javascript:show_calendar('form2.dateReceived');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px' width=22 height=24 border='0'></a></td>" & vbcr)
   								Response.Write("<td>&nbsp;</td>" & vbcr)
    							Response.Write("<td>Date Approved:" & asterisk19 & strError19 & "</td>" & vbcr)
   								Response.Write("<td><input type='text' style='width:80px;' width='80' id='dateApproved' name='dateApproved' value='" & objRS4("dateApproved") & "' maxlength='10' readonly>" & vbcr)
		    						Response.Write("<a href=""javascript:show_calendar('form2.dateApproved');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px' width=22 height=24 border='0'></a></td>" & vbcr)
    							Response.Write("<td>&nbsp;</td>" & vbcr)
    							Response.Write("<td>Date Assigned:" & asterisk20 & strError20 & "</td>" & vbcr)
   								Response.Write("<td align='left'><input type='text' style='width:80px;' width='80' id='dateAssigned' name='dateAssigned' value='" & objRS4("dateAssigned") & "' maxlength='10' readonly>" & vbcr)
  									Response.Write("<a href=""javascript:show_calendar('form2.dateAssigned');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px' width=22 height=24 border='0'></a></td>" & vbcr)
    							Response.Write("<td></td>" & vbcr)
		  					Response.Write("</tr>" & vbcr)
  							Response.Write("<tr height='30'>" & vbcr)
    							Response.Write("<td></td>" & vbcr)
    							Response.Write("<td>Turned Over to Test:</td>" & vbcr)
   								Response.Write("<td><input type='text' style='width:80px;' width='80' id='testTurnover' name='testTurnover' value='" & objRS4("testTurnover") & "' maxlength='10' readonly>" & vbcr)
  Response.Write("<a href=""javascript:show_calendar('form2.testTurnover');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px' width=22 height=24 border='0'></a></td>" & vbcr)
    							Response.Write("<td>&nbsp;</td>" & vbcr)
    							Response.Write("<td>Start Date:</td>" & vbcr)
   								Response.Write("<td><input type='text' style='width:80px;' width='80' id='startDate' name='startDate' value='" & objRS4("startDate") & "' maxlength='10' readonly>" & vbcr)
 									Response.Write("<a href=""javascript:show_calendar('form2.startDate');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px' width=22 height=24 border='0'></a></td>" & vbcr)
    							Response.Write("<td>&nbsp;</td>" & vbcr)
    							Response.Write("<td>End Date:</td>" & vbcr)
    							Response.Write("<td align='left'><input type='text' style='width:80px;' width='80' id='endDate' name='endDatee' value='" & objRS4("endDate") & "' maxlength='10' readonly>" & vbcr)
  									Response.Write("<a href=""javascript:show_calendar('form2.endDate');"" onMouseOver=""window.status ='DatePicker';return true;"" onMouseOut=""window.status='';return true;""><img src='images/calendar_icon.gif' style='position:relative; top:3px; left:0px; WIDTH:22px; HEIGHT:18px' width=22 height=24 border='0'></a></td>" & vbcr)
    							Response.Write("<td></td>" & vbcr)
		  					Response.Write("</tr>" & vbcr)
          					Response.Write("<tr height='30'>" & vbcr)
    							Response.Write("<td></td>" & vbcr)
    							Response.Write("<td>Requestor's Priority:</td>" & vbcr)
   			    				Response.Write("<td><input type='text' maxlength='20' size='27' name='reqPriority' value='" & objRS4("reqPriority") & "'></td>" & vbcr)
		    					Response.Write("<td>&nbsp;</td>" & vbcr)
    							Response.Write("<td>&nbsp;</td>" & vbcr)
   			    				Response.Write("<td>&nbsp;</td>" & vbcr)
   			    				Response.Write("<td>&nbsp;</td>" & vbcr)
   								Response.Write("<td>&nbsp;</td>" & vbcr)
    							Response.Write("<td align='left'>&nbsp;</td>" & vbcr)
    							Response.Write("<td></td>" & vbcr)
		  					Response.Write("</tr>" & vbcr)
  							Response.Write("<tr height='5'>" & vbcr)
  		  						Response.Write("<td></td>" & vbcr)
  		  						Response.Write("<td></td>" & vbcr)
  		 						Response.Write("<td></td>" & vbcr)
  		  						Response.Write("<td></td>" & vbcr)
  		  						Response.Write("<td></td>" & vbcr)
  		  						Response.Write("<td></td>" & vbcr)
  		  						Response.Write("<td></td>" & vbcr)
  		  						Response.Write("<td></td>" & vbcr)
  		  						Response.Write("<td></td>" & vbcr)
  		  						Response.Write("<td></td>" & vbcr)
		  					Response.Write("</tr>" & vbcr)
						Response.Write("</table>" & vbcr)
						Response.Write("<br>" & vbcr)
						Response.Write("<br>" & vbcr)
						Response.Write("<span class='sectionHeader'>Comments &amp; Issues</span>" & vbcr)
 
						Response.Write("<table width='98%' height='132' cellpadding='0' cellspacing='0' class='contactTable'>" & vbcr)
  							Response.Write("<tr height='2'>" & vbcr)
   								Response.Write(" <td width='1%'></td>" & vbcr)
    							Response.Write("<td width='47%'></td>" & vbcr)
    							Response.Write("<td width='5%'></td>" & vbcr)
    							Response.Write("<td width='46%'></td>" & vbcr)
    							Response.Write("<td width='1%'></td>" & vbcr)
  							Response.Write("</tr>" & vbcr)
  							Response.Write("<tr height='30'>" & vbcr)
    							Response.Write("<td></td>" & vbcr)
    							Response.Write("<td>" & vbcr)
	
									Set objRS12 = Server.CreateObject( "ADODB.Recordset" )
 
									strSQL12 = "SELECT Count(*) AS MyRecordCount " _
                   								& "FROM comments " _
                   								& "WHERE projectID = '" & projectNumber & "' AND commentType = '" & commentNote & "'"
      
									Set objRS12 = objConn.Execute( strSQL12 )
			
										if objRS12("MyRecordCount") = "0" Then
					
											Response.Write("<table cellpadding='0' cellspacing='0' height='20' width='450' id='plainTable'>" & vbcr)
												Response.Write("<tr>" & vbcr)
													Response.Write("<td width='350'>Comments:</td>" & vbcr)
												Response.Write("</tr>" & vbcr)
											Response.Write("</table>" & vbcr)
					
										Else
											Response.Write("<table cellpadding='0' cellspacing='0' height='20' width='450' id='plainTable'>" & vbcr)
												Response.Write("<tr>" & vbcr)
													Response.Write("<td width='350'>Comments:</td>" & vbcr)
													Response.Write("<td width='100'><span id=notes><a href=""javascript:popUp('comments.asp?projectID=" & Request.Querystring( "ProjectID" ) & "')"">View all comments</a></span></td>" & vbcr)
												Response.Write("</tr>" & vbcr)
											Response.Write("</table>" & vbcr)
										End If
					
										objRS12.Close
									Response.Write("</td>" & vbcr)
    								Response.Write("<td>&nbsp;</td>" & vbcr)
    								Response.Write("<td>" & vbcr)
	
										Set objRS12 = Server.CreateObject( "ADODB.Recordset" )
 
										strSQL12 = "SELECT Count(*) AS MyRecordCount " _
                  					 				& "FROM comments " _
                   									& "WHERE projectID = '" & projectNumber & "' AND commentType = '" & commentIssue & "'"
      
										Set objRS12 = objConn.Execute( strSQL12 )
			
										if objRS12("MyRecordCount") = "0" Then
					
										Response.Write("<table cellpadding='0' cellspacing='0' height='20' width='450' id='plainTable'>" & vbcr)
										Response.Write("<tr>" & vbcr)
										Response.Write("<td width='350'>Issues:</td>" & vbcr)
										Response.Write("</tr>" & vbcr)
										Response.Write("</table>" & vbcr)
					
										Else
										Response.Write("<table cellpadding='0' cellspacing='0' height='20' width='450' id='plainTable'>" & vbcr)
										Response.Write("<tr>" & vbcr)
										Response.Write("<td width='370'>Issues:</td>" & vbcr)
										Response.Write("<td width='80'><span id=notes><a href=""javascript:popUp('issues.asp?projectID=" & Request.Querystring( "ProjectID" ) & "')"">View all Issues</a></span></td>" & vbcr)
										Response.Write("</tr>" & vbcr)
										Response.Write("</table>" & vbcr)
										End If
					
										objRS12.Close
									Response.Write("</td>" & vbcr)
   	 								Response.Write("<td></td>" & vbcr)
  								Response.Write("</tr>" & vbcr)
  								Response.Write("<tr height='65'>" & vbcr)
									Response.Write("<td></td>" & vbcr)
    								Response.Write("<td align='left' valign='top'><textarea name='comment1' value='" & Server.HTMLEncode(Request.Form("comment1")) & "' cols='55' rows='7'></textarea></td>" & vbcr)
    								Response.Write("<td>&nbsp;</td>" & vbcr)
    								Response.Write("<td align='left' valign='top'><textarea name='comment2' value='" & Server.HTMLEncode(Request.Form("comment2")) & "' cols='55' rows='7'></textarea></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
  								Response.Write("</tr>" & vbcr)
  								Response.Write("<tr height='5'>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
  								Response.Write("</tr>" & vbcr)
							Response.Write("</table>" & vbcr)
							Response.Write("<br>" & vbcr)
							Response.Write("<br>" & vbcr)
							Response.Write("<span class='sectionHeader'>Key Decisions and Accomplishments</span>" & vbcr)
							Response.Write("<table width='98%' height='132' cellpadding='0' cellspacing='0' class='contactTable'>" & vbcr)
  								Response.Write("<tr height='2'>" & vbcr)
    								Response.Write("<td width='1%'></td>" & vbcr)
    								Response.Write("<td width='47%'></td>" & vbcr)
    								Response.Write("<td width='5%'></td>" & vbcr)
    								Response.Write("<td width='46%'></td>" & vbcr)
    								Response.Write("<td width='1%'></td>" & vbcr)
  								Response.Write("</tr>" & vbcr)
  								Response.Write("<tr height='30'>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
     								Response.Write("<td>" & vbcr)
	
										Set objRS12 = Server.CreateObject( "ADODB.Recordset" )
 
											strSQL12 = "SELECT Count(*) AS MyRecordCount " _
                   										& "FROM comments " _
                   										& "WHERE projectID = '" & projectNumber & "' AND commentType = '" & commentKeyDecision & "'"
      
										Set objRS12 = objConn.Execute( strSQL12 )
			
										if objRS12("MyRecordCount") = "0" Then
					
											Response.Write("<table cellpadding='0' cellspacing='0' height='20' width='450' id='plainTable'>" & vbcr)
												Response.Write("<tr>" & vbcr)
													Response.Write("<td width='350'>Key Decisions:</td>" & vbcr)
												Response.Write("</tr>" & vbcr)
											Response.Write("</table>" & vbcr)
					
										Else
											Response.Write("<table cellpadding='0' cellspacing='0' height='20' width='450' id='plainTable'>" & vbcr)
												Response.Write("<tr>" & vbcr)
													Response.Write("<td width='330'>Key Decisions:</td>" & vbcr)
													Response.Write("<td width='120'><span id=notes><a href=""javascript:popUp('key_decisions.asp?projectID=" & Request.Querystring( "ProjectID" ) & "')"">View all Key Decisions</a></span></td>" & vbcr)
												Response.Write("</tr>" & vbcr)
											Response.Write("</table>" & vbcr)
										End If
					
										objRS12.Close
									Response.Write("</td>" & vbcr)
    								Response.Write("<td>&nbsp;</td>" & vbcr)
    								Response.Write("<td>" & vbcr)
	
										Set objRS12 = Server.CreateObject( "ADODB.Recordset" )
 
											strSQL12 = "SELECT Count(*) AS MyRecordCount " _
                   										& "FROM comments " _
                   										& "WHERE projectID = '" & projectNumber & "' AND commentType = '" & commentAccomplishment & "'"
      
										Set objRS12 = objConn.Execute( strSQL12 )
			
										if objRS12("MyRecordCount") = "0" Then
					
											Response.Write("<table cellpadding='0' cellspacing='0' height='20' width='450' id='plainTable'>" & vbcr)
												Response.Write("<tr>" & vbcr)
													Response.Write("<td width='350'>Accomplishments:</td>" & vbcr)
												Response.Write("</tr>" & vbcr)
											Response.Write("</table>" & vbcr)
					
										Else
											Response.Write("<table cellpadding='0' cellspacing='0' height='20' width='450' id='plainTable'>" & vbcr)
												Response.Write("<tr>" & vbcr)
													Response.Write("<td width='320'>Accomplishments:</td>" & vbcr)
													Response.Write("<td width='140'><span id=notes><a href=""javascript:popUp('accomplishments.asp?projectID=" & Request.Querystring( "ProjectID" ) & "')"">View all Accomplishments</a></span></td>" & vbcr)
												Response.Write("</tr>" & vbcr)
											Response.Write("</table>" & vbcr)
										End If
					
										objRS12.Close
									Response.Write("</td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
  								Response.Write("</tr>" & vbcr)
  								Response.Write("<tr height='65'>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
    								Response.Write("<td align='left' valign='top'><textarea name='comment3' value='" & Server.HTMLEncode(Request.Form("comment3")) & "' cols='55' rows='7'></textarea></td>" & vbcr)
    								Response.Write("<td>&nbsp;</td>" & vbcr)
    								Response.Write("<td align='left' valign='top'><textarea name='comment4' value='" & Server.HTMLEncode(Request.Form("comment4")) & "' cols='55' rows='7'></textarea></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
  								Response.Write("</tr>" & vbcr)
  								Response.Write("<tr height='5'>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
    								Response.Write("<td></td>" & vbcr)
  								Response.Write("</tr>" & vbcr)
							Response.Write("</table></td>" & vbcr)
						Response.Write("</tr>" & vbcr)
					Response.Write("</table>" & vbcr)
					Response.Write("<br>" & vbcr)
					Response.Write("<span class='textRight'><input type='submit' name='submit' value='Save'>" & vbcr)
					Response.Write("<p>&nbsp;</p>" & vbcr)
					Response.Write("<input type='hidden' name='action2' value='register2'>" & vbcr)
Response.Write("</form>" & vbcr)
 
End If
 
Response.Write("</body>" & vbcr)
Response.Write("</html>" & vbcr)
 
%>
[+][-]05.07.2008 at 01:36AM PDT, ID: 21514224

View this solution now by starting your 7-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zone: Active Server Pages (ASP)
Tags: vbscript, ASP
Sign Up Now!
Solution Provided By: gawai
Participating Experts: 1
Solution Grade: A
 
 
 
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628