<% OPTION EXPLICIT %>
<%
dim strConnect, pageTitle, adder, Rev, softID, rstempVals, ValsSQL, exSoft, ConVals, strOptions, strBys
adder = request.Form("adder")
If IsNull(adder) = True Then adder = "S"
If Len(adder)<1 Then adder = "S"
softID = request.Form("exSOFT")
If IsNull(softID) = True Then softID = "0"
If Len(softID)<1 Then softID = "0"
Rev = request.Form("REV")
If IsNull(Rev) = True Then Rev = ""
If Len(Rev)<1 Then Rev = ""
strconnect="DSN=quality"
pageTitle=" | Add a Validation Record"
ValsSQL = "SELECT SoftName, softID FROM ITsoftValidated;"
Set ConVals=Server.CreateObject("ADODB.Connection")
ConVals.Open strConnect
Set rstempVals = ConVals.Execute(ValsSql)
If rstempVals.eof Then response.write("NOTHING PULLED")
strOptions = ""
Do Until rstempVals.eof
strOptions = strOptions & "<OPTION VALUE='" & rstempVals(1) & "' "
If softID = CStr(rstempVals(1)) Then strOptions = strOptions & "SELECTED='Yes'"
strOptions = strOptions & ">" & rstempVals(0) & "</OPTION>"
rstempVals.movenext
LOOP
rstempVals.Close
Set rstempVals = Nothing
ConVals.Close
Set ConVals = Nothing
ValsSQL = "SELECT LName, FName, UID FROM userListActive ORDER BY LName, FName;"
Set ConVals=Server.CreateObject("ADODB.Connection")
ConVals.Open strConnect
Set rstempVals = ConVals.Execute(ValsSql)
If rstempVals.eof Then response.write("<OPTION value=''>Alert IT - NOTHING PULLED</OPTION>")
strBys = ""
Do Until rstempVals.eof
strBys = strBys & "<OPTION VALUE='" & rstempVals(2) & "' "
strBys = strBys & ">" & rstempVals(0) & ", " & rstempVals(1) & "</OPTION>"
rstempVals.movenext
LOOP
rstempVals.Close
Set rstempVals = Nothing
ConVals.Close
Set ConVals = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<link rel="stylesheet" type="text/css" href="[URL unfurl="true"]http://internal.aydindisplays.com/includes/style.css"[/URL] />
<SCRIPT LANGUAGE="JavaScript">
<!-- Begin
function verifyAddition() {
var themessage = "You are required to complete the following fields: ";
//if (document.AddRec.exSOFT.value=="0") AND (document.AddRec.nwSoft.value=="") {
//themessage = themessage + " - You must either select an existing software or input the name of a new software.";
//}
if (document.AddRec.valRev.value=="") {
themessage = themessage + " - You must enter a revision.";
}
if (document.AddRec.valWhen.value=="") {
themessage = themessage + " - You must enter the date the test took place.";
}
if (document.AddRec.valIntent.value=="") {
themessage = themessage + " - You must describe the intended purpose of the software as you've tested it.";
}
if (document.AddRec.valBy.value=="0") {
themessage = themessage + " - You must select the name of the person who tested the software.";
}
//alert if fields are empty and cancel form submit
if (themessage == "You are required to complete the following fields: ") {
return true;
document.AddRec.submit();
}
else {
alert(themessage);
return false;
}
}
// End -->
</script>
<TITLE> Aydin Displays Intranet - Software Validation Record <% response.write(pageTitle) %> </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="Cheryl Kern">
</HEAD>
<BODY background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/backgrounds/ay.gif">[/URL]
<FONT face="Verdana, Arial">
<!-- Centering Table Start /-->
<TABLE width="100%" height="100%" >
<TR align="center" valign="top">
<TD>
<!-- Border Table Start /-->
<TABLE width="678" bgcolor="white" border="1">
<TR>
<TD>
<!-- White Table Start /-->
<TABLE width="674" border="0">
<TR>
<TD><A HREF="[URL unfurl="true"]http://internal.aydindisplays.com"><IMG[/URL] SRC="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/logos/AydinITNet.gif"[/URL] width="676" height="75" border="0" alt="ITNet"></A></TD>
</TR>
<TR><TD bgcolor="8C2605" height="3"> </TD></TR>
<TR>
<TD align="center">
<!-- Title Table Start /-->
<TABLE cellpadding="0" cellspacing="0">
<TR><TD><Font size="+1"><B>IT Test Software Validation Record</B></font> <% response.write(pageTitle) %> </TD><TD><img src="/graphics/pixel.gif" width="10"></TD>
</TR>
</TABLE>
<!-- Title Table End /-->
</TD>
</TR>
<TR><TD bgcolor="8C2605" height="3"> </TD></TR>
<TR>
<TD>
<!-- Body Table Start /-->
<TABLE width="674" border="0" cellspacing="0" cellpadding="0">
<TR valign="top">
<TD width="205" align="left" rowspan="2">
<!-- --------------------------------------Menu------------------------------------------- /-->
<TABLE width="200" border = "0" cellspacing="0" cellpadding="0">
<TR>
<TD width="17" height="30" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonOptionGreyL.gif">[/URL] </TD>
<TD width="166" class="but" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonBodyGrey.gif"[/URL] align="center"><FONT color="000000">Validated Items</FONT></TD>
<TD width="24" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonOpenGreyR.gif">[/URL] </TD>
</TR>
<TR>
<TD width="17" height="30" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonOptionRedL.gif">[/URL] </TD>
<TD width="166" class="but" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonBodyRed.gif"[/URL] align="center"><A class="but" href="[URL unfurl="true"]HTTP://internal.aydindisplays.com/IT/">IT[/URL] Home</A></TD>
<TD width="24" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonOptionRedR.gif">[/URL] </TD>
</TR>
<TR>
<TD width="17" height="30" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonOptionRedL.gif">[/URL] </TD>
<TD width="166" class="but" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonBodyRed.gif"[/URL] align="center"><A class="but" href="[URL unfurl="true"]HTTP://internal.aydindisplays.com/IT/ITL100.asp">Full[/URL] List</A></TD>
<TD width="24" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonOptionRedR.gif">[/URL] </TD>
</TR>
<TR>
<TD width="17" height="30" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonOptionRedL.gif">[/URL] </TD>
<TD width="166" class="but" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonBodyRed.gif"[/URL] align="center"><A class="but" href="[URL unfurl="true"]HTTP://internal.aydindisplays.com/IT/ITL100addition.asp">Add[/URL] a Record</A></TD>
<TD width="24" background="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/navigation/ButtonOptionRedR.gif">[/URL] </TD>
</TR>
</TABLE>
<!-- --------------------------------------/Menu------------------------------------------- /-->
</TD>
<TD width="2" align="left" rowspan="2"><IMG src="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/pixel.gif"[/URL] width="4" height="1"></TD>
<TD><IMG src="[URL unfurl="true"]http://internal.aydindisplays.com/graphics/pixel.gif"[/URL] width="1" height="4"></TD>
</TR>
<TR valign="top">
<TD>
<P>Under construction: please be patient.</P>
<FORM name="AddRec" action="ITL100AddProc.asp" method="post">
<CENTER><TABLE>
<TR>
<TD align=right>Software:</TD>
<TD>
<SELECT NAME="exSoft" tabindex="1">
<OPTION VALUE="0" <% If adder = "S" Then response.write("selected='yes'") %>>New Software</OPTION>
<%
response.write(strOptions)
%>
</SELECT>
</TD>
</TR>
<TR>
<TD align=right>new item:<BR><I><font size=-2>only if not found above</font></I></TD>
<TD>
<INPUT TYPE="TEXT" NAME="nwSoft" size="50" maxlength="255" value="">
</TD>
</TR>
<TR>
<TD align=right>Revision:</TD>
<TD>
<INPUT TYPE="TEXT" NAME="ValRev" size="50" maxlength="50" tabindex="2" value="<% response.write(Rev) %>">
</TD>
</TR>
<TR>
<TD align=right>Tested by:</TD>
<TD>
<SELECT NAME="valBy" tabindex="3">
<OPTION VALUE="0" SELECTED="YES">SELECT YOUR NAME</OPTION>
<%
response.write(strBys)
%>
</SELECT>
</TD>
</TR>
<TR>
<TD align=right>Tested on:</TD>
<TD>
<INPUT TYPE="TEXT" NAME="ValWhen" size="10" maxlength="10" tabindex="4" value=" <% response.write(date) %> ">
</TD>
</TR>
<TR valign="top">
<TD align=right>Intended Use:</TD>
<TD>
<TEXTAREA NAME="ValIntent" Rows="4" cols="37" maxlength="500" tabindex="5" value=""></TextArea>
</TD>
</TR>
<TR>
<TD></TD>
<TD align=center>
<INPUT TYPE="Radio" VALUE="-1"" Name="ValResult" checked="yes"> PASS (valid)<font color=white>|---|</font>
<INPUT TYPE="Radio" VALUE="0"" Name="ValResult"> FAIL (invalid)
</TD>
</TR>
<TR valign="top">
<TD align=right>Notes:</TD>
<TD>
<TEXTAREA NAME="ValNotes" Rows="4" cols="37" maxlength="500" tabindex="6" value=""></TextArea>
</TD>
</TR>
<TR>
<TD colspan=2>
<CENTER><INPUT type="image" src="/graphics/Buttons/bButtonContinue.gif" tabindex="7" onclick="return verifyAddition()"><BR><a href='#' onclick="return verifyAddition()">test</a></CENTER></FORM>
</TD>
</TR>
</TABLE></CENTER>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<!-- Body Table End /-->
</TD>
</TR>
<TR><TD bgcolor="8C2605" height="3"> </TD></TR>
<TR>
<TD>
<!-- Footer Table Start /-->
<TABLE width="674" border="0" bgcolor="white">
<TR>
<TD><font size="-2"><center>Information on these pages is proprietary.-----<%response.write(now)%>-----For internal use/reference only.</center></font></TD>
</TR>
</TABLE>
<!-- Footer Table End /-->
</TD>
</TR>
</TABLE>
<!-- White Table End /-->
</TD>
</TR>
</TABLE>
<!-- Border Table End /-->
</TD>
</TR>
</TABLE>
<!-- Centering Table End /-->
</FONT>
</BODY>
</HTML>