<%
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<> Designed by Mychajlo Mykola Dubil November 2006
'<>
'<> HLOR Web/SQL system
'<>
'<> Email:
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
'<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "[URL unfurl="true"]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">[/URL]
<html>
<head>
<title>HLOR 4.5</title>
<link rel="shortcut icon" href="/favicon.ico" type="image/x-icon" />
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="cache-control" content="no-cache" />
<link rel="stylesheet" type="text/css" href="stdtheme.css" />
<script type="text/javascript">
function ShowHide()
{
If document.getElementsById("LSAcheck").checked=true
{
document.getElementsById("LSAStartD").type="text"
}
Else
{
document.getElementsById("LSAStartD").type="hidden"
}
}
</script>
</head>
<body>
<!--#INCLUDE FILE="config.asp" -->
<%
sub FillDropDown(TableName, FieldName1, FieldName2)
Response.Write ("<tr>")
Response.Write ("<td align='right'>" & FieldName2 & ":</td>")
strSQL = "SELECT " & FieldName1 & ", " & FieldName2 & " FROM " & TableName & " ORDER BY " & FieldName2 & ";"
set rsSelectUsr = my_Conn.Execute (strSQL)
Response.Write ("<td align='left'>")
Response.Write ("<select length='20'>")
Response.Write ("<option value=0>Please Select a " & FieldName2 & "</option>")
Do While Not rsSelectUsr.EOF
ValField1 = rsSelectUsr.Fields.Item(FieldName1).Value
ValField2 = rsSelectUsr.Fields.Item(FieldName2).Value
Response.Write ("<option value=" & ValField1 & ">" & ValField2 &"</option>")
rsSelectUsr.MoveNext()
loop
rsSelectUsr.close
set rsSelectUsr = Nothing
Response.Write ("</select>")
Response.Write ("</td>")
Response.Write ("</tr>")
End sub %>
<Form>
<table class="ex" width="95%" align="center">
<tr>
<td align="right">Project ID:</td>
<td align="left"><Input type="text"size="10"></input>
</tr>
<tr>
<td align="right">Project Name:</td>
<td align="left"><input type="text"size="30"></input>
</tr>
<tr>
<td align="right">LID:</td>
<td align="left"><input type="text"size="8"></input>
</tr>
<tr>
<td align="right">Project Description:</td>
<td align="left"><textarea rows="3" cols="40"></textarea>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<% call FillDropDown("TblSIMUsers","SIMRefNo","SIM") %>
<% call FillDropDown("TblPIMUsers","PIMRefNo","PIM") %>
<% call FillDropDown("TblFJSPMUsers","FJSPMRefNo","FJSPM") %>
<% call FillDropDown("TblCGPMUsers","CGPMRefNo","CGPM") %>
<% call FillDropDown("TblLSMUsers","LSMRefNo","LSM") %>
<% call FillDropDown("TblSDMUsers","SDMRefNo","SDM") %>
<tr>
<td align="right">LSA required:</td>
<td align="left"><input type="checkbox" name="LSAcheck" id="LSAcheck" onchange="ShowHide()"></input></td>
</tr>
<tr>
<td align="right">Start Date:</td>
<td align="left"><input type="hidden" name="LSAStartD" id="LSAStartD" size="10"></input>
End Date:<input type="text" name="LSAEndD" size="10" disabled="disabled"></input></td>
</tr>
<tr>
<td align="right"> </td>
<td align="left"><input type="submit" value="Submit"></input>
<input type="button" value="Cancel"></input></td>
</tr>
</table>
</form>
</body>
</html>