amatuer
Wed Dec 20 01:12:31 CST 2006
Main Page code:
(ProjDetailsnew4.asp)
<% on error resume next
If session("user")="" Then
Response.redirect("default.htm")
End if
If session("ID")="" Then
Response.redirect("default.htm")
End if
If Session("ID") < 1 Then
Response.redirect("home.asp?page=rights")
End if
if request.form("FarmName") = "" Then
errors = errors + "<BR>Farm Name"
end if
if request.form("selFarms") = "" Then
errors = errors + "<BR>Farm Types"
end if
if (request.form("TotArea") = "") then
errors = errors + "<BR>Total Area"
elseif (not(isnumeric(request.form("TotArea")))) or
(cint(request.form("TotArea")) < (cint(request.form("ADL")) +
cint(request.form("ALUI")) + cint(request.form("PG")) +
cint(request.form("NG")))) Then
errors = errors + "<BR>Total Area"
end if
if (not(request.form("ADL") = "")) and
(not(isnumeric(request.form("ADL")))) Then
errors = errors + "<BR>Arable Dry Land"
end if
if (not(request.form("ALUI") = "")) and
(not(isnumeric(request.form("ALUI")))) Then
errors = errors + "<BR>Arable Land Under Irrigation"
end if
if (not(request.form("PG") = "")) and
(not(isnumeric(request.form("PG")))) Then
errors = errors + "<BR>Planted Grazing"
end if
if (not(request.form("NG") = "")) and
(not(isnumeric(request.form("NG")))) Then
errors = errors + "<BR>Natural Grazing"
end if
%>
<html>
<head>
<title>Adding new Project</title>
<STYLE>
.mask {
behavior: url("mask_vbs.htc");
font: 10pt Tahoma;
color: black
}
H1 {
font: bold 18pt verdana;
color: navy
}
TD {
font: 10pt verdana;
}
A:link {text-decoration:none; }
A:visited {text-decoration:none; }
A:hover { text-decoration:underline; }
</STYLE>
</head>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<script language="VBScript" for="selStake" event="onChange">
document.all.IFrame1.src="P4_Iframe.asp?Stake=" &
projdetnew4.selStake.value
</script>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
Sub ProjDetnxt2_onclick
If (projdetnew4.selStake.value) = "Mentor" Then
document.getElementById("selTitleStake").value =
IFrame1.document.getElementById("selTitleStake1").value
document.getElementById("NameStake").value =
IFrame1.document.getElementById("NameStake1").value
document.getElementById("SurnameStake").value =
IFrame1.document.getElementById("SurnameStake1").value
End If
End Sub
</SCRIPT>
<!-- <script for = "ProjDetnxt2" language="VBScript" event="onClick">
If (projdetnew4.selStake.value) = "Mentor" Then
msgbox document.getElementById("NameStake1").value
txt2 = projdetnew4.IFrame1.selTitleStake.value
projdetnew4.selTitleStake.value = txt2
txt3 = IFrame1.NameStake1.value
document.getElementById("NameStake").value =
IFrame1.document.getElementById("NameStake1").value
txt4 = projdetnew4.IFrame1.SurnameStake.value
projdetnew4.SurnameStake.value = txt4
txt5 = projdetnew4.IFrame1.ContactNo.value
projdetnew4.ContactNo.value = txt5
ElseIf (projdetnew4.selStake.value) = "Insitution" Then
txt1 = projdetnew4.IFrame1.InstName.value
projdetnew4.InstName.value = txt1
txt2 = projdetnew4.IFrame1.selTitleStake2.value
projdetnew4.selTitleStake.value = txt2
txt3 = projdetnew4.IFrame1.NameStake2.value
projdetnew4.NameStake.value = txt3
txt4 = projdetnew4.IFrame1.SurnameStake2.value
projdetnew4.SurnameStake.value = txt4
txt5 = projdetnew4.IFrame1.ContactNo2.value
projdetnew4.ContactNo.value = txt5
End If
projdetnew4.submit
</script> -->
<body>
<% if errors = "" then %>
<table border="1" cellspacing="0" cellpadding="0" style="WIDTH: 85%;
HEIGHT: 171px" align=center>
<TR>
<td width="20%"><IMG style="WIDTH: 192px; HEIGHT: 37px" height=36
src="senwes-logos/image002.png" width=225 border=0><BR><IMG
style="WIDTH: 207px; HEIGHT: 17px" height=17
src="senwes-logos/image004.png" width=227 border=0></TD>
<TD align="center"><FONT face=Arial size=6
color=#004a31><STRONG><EM>Add a
Project</EM></STRONG></FONT></FONT></TD></TR>
<TR>
<TD><FONT color="Gray" face="arial">Current User: <%=
session("User") %></FONT> </TD>
<TD align="right"><font face="arial" style="FONT-STYLE: italic"
color="#993300">Create a new Project</font>
<TR>
<TD colSpan=2><BR>
<form method="POST" action="ProjDetailsnew5.asp" name="projdetnew4">
<input type="hidden" name="ProjFarmer" value="<%=
request.form("ProjFarmer") %>">
<input type="hidden" name="ProjType" value="<%=
request.form("ProjType") %>">
<input type="hidden" name="LegalEnt" value="<%=
request.form("LegalEnt") %>">
<input type="hidden" name="NoBeneficiaries" value="<%=
request.form("NoBeneficiaries") %>">
<input type="hidden" name="DevStage" value="<%=
request.form("DevStage") %>">
<input type="hidden" name="Priority" value="<%=
request.form("Priority") %>">
<input type="hidden" name="CommDate" value="<%=
request.form("CommDate") %>">
<input type="hidden" name="selTitle" value="<%=
request.form("selTitle") %>">
<input type="hidden" name="LangPref" value="<%=
request.form("LangPref") %>">
<input type="hidden" name="Surname" value="<%= request.form("Surname")
%>">
<input type="hidden" name="FirstNames" value="<%=
request.form("FirstNames") %>">
<input type="hidden" name="Tel1" value="<%= request.form("Tel1") %>">
<input type="hidden" name="Tel2" value="<%= request.form("Tel2") %>">
<input type="hidden" name="idNum" value="<%= request.form("idNum")
%>">
<input type="hidden" name="selProvince" value="<%=
request.form("selProvince") %>">
<input type="hidden" name="selPostTown" value="<%=
request.form("selPostTown") %>">
<input type="hidden" name="selStreetTown" value="<%=
request.form("selStreetTown") %>">
<input type="hidden" name="PostalAddr" value="<%=
request.form("PostalAddr") %>">
<input type="hidden" name="StrAddr" value="<%= request.form("StrAddr")
%>">
<input type="hidden" name="PostalCode" value="<%=
request.form("PostalCode") %>">
<input type="hidden" name="StrCode" value="<%= request.form("StrCode")
%>">
<input type="hidden" name="selBranch" value="<%=
request.form("selBranch") %>">
<input type="hidden" name="FarmName" value="<%=
request.form("FarmName") %>">
<input type="hidden" name="selFarms" value="<%=
request.form("selFarms") %>">
<input type="hidden" name="ADL" value="<%= request.form("ADL") %>">
<input type="hidden" name="ALUI" value="<%= request.form("ALUI") %>">
<input type="hidden" name="PG" value="<%= request.form("PG") %>">
<input type="hidden" name="NG" value="<%= request.form("NG") %>">
<input type="hidden" name="TotArea" value="<%= request.form("TotArea")
%>">
<input type="hidden" name="LatPos" value="<%= request.form("LatPos")
%>">
<input type="hidden" name="LongPos" value="<%= request.form("LongPos")
%>">
<input type="hidden" name="txtcomments" value="<%=
request.form("txtcomments") %>">
<input type="hidden" name="InstName" id="InstName" value="">
<input type="hidden" name="selTitleStake" id="selTitleStake" value="">
<input type="hidden" name="NameStake" id="NameStake" value="">
<input type="hidden" name="SurnameStake" id="SurnameStake" value="">
<input type="hidden" name="ContactNo" id="ContactNo" value="">
<table border="0" cellpadding="2" align="CENTER">
<tr>
<td align="center" colspan="4" style="background-color:
#F5F5DC;"><FONT face=Tahoma color=#993300><b>Stakeholder
Details</b></FONT></td><tr>
<TR>
<TD align=right><FONT face=Tahoma color=#993300
size=-1>Stakeholder</FONT></TD>
<TD><select name=selStake style="Width: 146px;">
<option value="None">None</option>
<option value="Institution">Institution</option>
<option value="Mentor">Mentor</option></select></TD>
</tr>
<TR>
<td colspan="4">
<iframe src="P4_Iframe.asp" name="IFrame1" id="IFrame1" width="500"
height="200" align="right" scrolling="no" frameborder="0"></iframe>
</td>
</tr>
</TABLE><br>
<P align=right style="margin-right: 100;">
<input type="Button" name="ProjDetBack" value="Back" style="WIDTH:
90px; HEIGHT: 24px" onClick="JavaScript:history.back(1)">
<input type="Reset" name="ProjDetClear" value="Clear"
style="WIDTH: 90px; HEIGHT: 24px">
<input type="submit" name="ProjDetnxt2" value="Next" style="WIDTH:
90px; HEIGHT: 24px"></P><br>
</form>
<% Else %>
</TABLE>
<h1 align="center"><font face="Arial" color="#993300">Errors Trying to
Save</font></h1>
<Font color="Navy" face="Arial">
Problems where encountered in saving the following fields:<br><br>
<%= errors %><BR><br>
Please click back to fix them!
</font>
<p align="center"><input type="Button" name="ProjDetBack" value="Back"
onClick="JavaScript:history.back(1)"><br>
<% End If %>
Code for Iframe:
(P4_Iframe.asp)
<html>
<head>
<title>Untitled</title>
</head>
<script language="VBScript" for=SurnameStake1 event=Onchange>
document.frmIFrame.SurnameStake1.value =
Replace(document.frmIFrame.SurnameStake1.value,
(left(document.frmIFrame.SurnameStake1.value, 1)),
UCase(left(document.frmIFrame.SurnameStake1.value, 1)), 1, 1)
</script>
<script language="VBScript" for=NameStake1 event=Onchange>
document.frmIFrame.NameStake1.value =
Replace(document.frmIFrame.NameStake1.value,
(left(document.frmIFrame.NameStake1.value, 1)),
UCase(left(document.frmIFrame.NameStake1.value, 1)), 1, 1)
</script>
<script language="VBScript" for=SurnameStake2 event=Onchange>
document.frmIFrame.SurnameStake2.value =
Replace(document.frmIFrame.SurnameStake2.value,
(left(document.frmIFrame.SurnameStake2.value, 1)),
UCase(left(document.frmIFrame.SurnameStake2.value, 1)), 1, 1)
</script>
<script language="VBScript" for=NameStake2 event=Onchange>
document.frmIFrame.NameStake2.value =
Replace(document.frmIFrame.NameStake2.value,
(left(document.frmIFrame.NameStake2.value, 1)),
UCase(left(document.frmIFrame.NameStake2.value, 1)), 1, 1)
</script>
<body>
<form action="" name="frmIFrame" id="frmIFrame">
<% If request.querystring("Stake") = "Mentor" Then %>
<FONT face=Tahoma color=#993300
size=-1>Title</FONT> <select
name=selTitleStake1 style="Width: 146px;">
<option value=