Whats wrong why the Expression
[[ Request.Form("E_Mail" = E_Mail_Obj("E_MailAdd" ]]
is always True
This is my Code
*******************
<!-- #include file ="globalVariables.asp" -->
<!-- #include file="globalFunctions.asp" -->
<HTML>
<HEAD> <Title> Informaion </Title> </HEAD>
<BODY bgColor=AntiqueWhite>
<CENTER>
<H2> Journal Users </H2>
Please fill all the information <BR><BR>
<FORM METHOD = "Post">
<Select Size = 3 Name = "Abri" >
<OPTION> Mr.</OPTION>
<OPTION> Mrs</OPTION>
<OPTION> Miss</OPTION>
</SELECT>
<P>
First Name
<INPUT name = "F_Name" > <P>
* Last Name
<INPUT name = "L_Name" > <P>
Organization Name
<INPUT name = "Org_Name" style="WIDTH: 233px; HEIGHT: 22px" size=30> <P>
* E-mail Address
<INPUT name = "E_Mail" style="WIDTH: 334px; HEIGHT: 22px" size=42> <P>
<BR>
<BR>
<INPUT type="submit" value="Submit" id=submit1 name=subInfo>
<INPUT type="reset" value=Reset></P>
<%
dim E_Mail_Obj, Test
set E_Mail_Obj = sqlcommand("select E_MailAdd from JournalInfo ", OBJCONN)
Test = true
if Request.form("subInfo" = "Submit" then
While Not E_Mail_Obj.EOF
If Request.Form("E_Mail" = E_Mail_Obj("E_MailAdd"
OR (In_Program = "" Then
Test = False
End If
E_Mail_Obj.MoveNext
wend
If Test = true Then
Set write_data = sqlcommand("INSERT INTO JournalInfo (Suffix, FirstName, Lastname, Organization, E_mailadd) VALUES('"&Request.Form("Abri"&"','"&Request.Form("F_Name"&"','"&Request.Form("L_Name"&"','"&Request.Form("Org_Name"&"','"&Lcase(Request.Form("E_Mail")&"')", OBJCONN)
End If
End If
%>
</CENTER>
</FORM>
</BODY>
</HTML>
[[ Request.Form("E_Mail" = E_Mail_Obj("E_MailAdd" ]]
is always True
This is my Code
*******************
<!-- #include file ="globalVariables.asp" -->
<!-- #include file="globalFunctions.asp" -->
<HTML>
<HEAD> <Title> Informaion </Title> </HEAD>
<BODY bgColor=AntiqueWhite>
<CENTER>
<H2> Journal Users </H2>
Please fill all the information <BR><BR>
<FORM METHOD = "Post">
<Select Size = 3 Name = "Abri" >
<OPTION> Mr.</OPTION>
<OPTION> Mrs</OPTION>
<OPTION> Miss</OPTION>
</SELECT>
<P>
First Name
<INPUT name = "F_Name" > <P>
* Last Name
<INPUT name = "L_Name" > <P>
Organization Name
<INPUT name = "Org_Name" style="WIDTH: 233px; HEIGHT: 22px" size=30> <P>
* E-mail Address
<INPUT name = "E_Mail" style="WIDTH: 334px; HEIGHT: 22px" size=42> <P>
<BR>
<BR>
<INPUT type="submit" value="Submit" id=submit1 name=subInfo>
<INPUT type="reset" value=Reset></P>
<%
dim E_Mail_Obj, Test
set E_Mail_Obj = sqlcommand("select E_MailAdd from JournalInfo ", OBJCONN)
Test = true
if Request.form("subInfo" = "Submit" then
While Not E_Mail_Obj.EOF
If Request.Form("E_Mail" = E_Mail_Obj("E_MailAdd"
OR (In_Program = "" Then
Test = False
End If
E_Mail_Obj.MoveNext
wend
If Test = true Then
Set write_data = sqlcommand("INSERT INTO JournalInfo (Suffix, FirstName, Lastname, Organization, E_mailadd) VALUES('"&Request.Form("Abri"&"','"&Request.Form("F_Name"&"','"&Request.Form("L_Name"&"','"&Request.Form("Org_Name"&"','"&Lcase(Request.Form("E_Mail")&"')", OBJCONN)
End If
End If
%>
</CENTER>
</FORM>
</BODY>
</HTML>