|
 |
asp_databases thread: if statement is failing (javascript)
Message #1 by "James Garrett" <jhgarrett@e...> on Tue, 12 Feb 2002 14:31:14 -0500
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_0054_01C1B3D1.ECC736E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Then I stated:
if (rsMonth("CAL_YEAR") =3D=3D rsYear("CAL_YEAR")) {
}
This statement never evaluates to TRUE. I displayed both values prior to
the if statement and saw that they were equal.
I set up things with the following command and recordset objects:
cmdYear =3D Server.CreateObject("ADODB.Command")
with(cmdYear){
CommandText =3D strYear
ActiveConnection =3D Conn
}
rsYear =3D Server.CreateObject("ADODB.Recordset")
with(rsYear) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsYear =3D cmdYear.Execute()
rsYear.movefirst()
cmdMonth =3D Server.CreateObject("ADODB.Command")
with(cmdMonth){
CommandText =3D strYrMth
ActiveConnection =3D Conn
}
rsMonth =3D Server.CreateObject("ADODB.Recordset")
with(rsMonth) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsMonth =3D cmdMonth.Execute()
What could be the problem?
Thank you,
James
Message #2 by <marcus@p...> on Tue, 12 Feb 2002 21:11:50 -0000
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_0010_01C1B409.E3A4D3A0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Try
if (rsMonth("CAL_YEAR").value =3D=3D rsYear("CAL_YEAR").value) {
}
----- Original Message -----
From: James Garrett
To: ASP Databases
Sent: Tuesday, February 12, 2002 7:31 PM
Subject: [asp_databases] if statement is failing (javascript)
Then I stated:
if (rsMonth("CAL_YEAR") =3D=3D rsYear("CAL_YEAR")) {
}
This statement never evaluates to TRUE. I displayed both values prior
to the if statement and saw that they were equal.
I set up things with the following command and recordset objects:
cmdYear =3D Server.CreateObject("ADODB.Command")
with(cmdYear){
CommandText =3D strYear
ActiveConnection =3D Conn
}
rsYear =3D Server.CreateObject("ADODB.Recordset")
with(rsYear) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsYear =3D cmdYear.Execute()
rsYear.movefirst()
cmdMonth =3D Server.CreateObject("ADODB.Command")
with(cmdMonth){
CommandText =3D strYrMth
ActiveConnection =3D Conn
}
rsMonth =3D Server.CreateObject("ADODB.Recordset")
with(rsMonth) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsMonth =3D cmdMonth.Execute()
What could be the problem?
Thank you,
James
$subst('Email.Unsub').
Message #3 by "James Garrett" <jhgarrett@e...> on Tue, 12 Feb 2002 16:17:11 -0500
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_0090_01C1B3E0.BA063620
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Thank you for your assistance. I tried your suggestion ... it did not
work. Do you have others. My approach and your suggestion should work.
What could be causing this glitch?
----- Original Message -----
From: marcus@p...
To: ASP Databases
Sent: Tuesday, February 12, 2002 4:11 PM
Subject: [asp_databases] Re: if statement is failing (javascript)
Try
if (rsMonth("CAL_YEAR").value =3D=3D rsYear("CAL_YEAR").value) {
}
----- Original Message -----
From: James Garrett
To: ASP Databases
Sent: Tuesday, February 12, 2002 7:31 PM
Subject: [asp_databases] if statement is failing (javascript)
Then I stated:
if (rsMonth("CAL_YEAR") =3D=3D rsYear("CAL_YEAR")) {
}
This statement never evaluates to TRUE. I displayed both values
prior to the if statement and saw that they were equal.
I set up things with the following command and recordset objects:
cmdYear =3D Server.CreateObject("ADODB.Command")
with(cmdYear){
CommandText =3D strYear
ActiveConnection =3D Conn
}
rsYear =3D Server.CreateObject("ADODB.Recordset")
with(rsYear) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsYear =3D cmdYear.Execute()
rsYear.movefirst()
cmdMonth =3D Server.CreateObject("ADODB.Command")
with(cmdMonth){
CommandText =3D strYrMth
ActiveConnection =3D Conn
}
rsMonth =3D Server.CreateObject("ADODB.Recordset")
with(rsMonth) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsMonth =3D cmdMonth.Execute()
What could be the problem?
Thank you,
James
$subst('Email.Unsub').
$subst('Email.Unsub').
Message #4 by "Drew, Ron" <RDrew@B...> on Tue, 12 Feb 2002 17:28:09 -0500
|
|
This is a multi-part message in MIME format.
------_=_NextPart_001_01C1B414.8C5C5D74
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable
I know this may sound like we dont believe you but please do a
response.write rsMonth("CAL_YEAR").value
response.write rsYear("CAL_YEAR").value
and verify that the results agree. Could one be defined differently on
the tables like numeric versus character?
-----Original Message-----
From: James Garrett [mailto:jhgarrett@e...]
Sent: Tuesday, February 12, 2002 4:17 PM
To: ASP Databases
Subject: [asp_databases] Re: if statement is failing (javascript)
Thank you for your assistance. I tried your suggestion ... it did not
work. Do you have others. My approach and your suggestion should work.
What could be causing this glitch?
----- Original Message -----
From: marcus@p...
To: ASP Databases <mailto:asp_databases@p...>
Sent: Tuesday, February 12, 2002 4:11 PM
Subject: [asp_databases] Re: if statement is failing (javascript)
Try
if (rsMonth("CAL_YEAR").value =3D=3D rsYear("CAL_YEAR").value) {
}
----- Original Message -----
From: James <mailto:jhgarrett@e...> Garrett
To: ASP Databases <mailto:asp_databases@p...>
Sent: Tuesday, February 12, 2002 7:31 PM
Subject: [asp_databases] if statement is failing (javascript)
Then I stated:
if (rsMonth("CAL_YEAR") =3D=3D rsYear("CAL_YEAR")) {
}
This statement never evaluates to TRUE. I displayed both values prior to
the if statement and saw that they were equal.
I set up things with the following command and recordset objects:
cmdYear =3D Server.CreateObject("ADODB.Command")
with(cmdYear){
CommandText =3D strYear
ActiveConnection =3D Conn
}
rsYear =3D Server.CreateObject("ADODB.Recordset")
with(rsYear) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsYear =3D cmdYear.Execute()
rsYear.movefirst()
cmdMonth =3D Server.CreateObject("ADODB.Command")
with(cmdMonth){
CommandText =3D strYrMth
ActiveConnection =3D Conn
}
rsMonth =3D Server.CreateObject("ADODB.Recordset")
with(rsMonth) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsMonth =3D cmdMonth.Execute()
What could be the problem?
Thank you,
James
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
Message #5 by "James Garrett" <jhgarrett@e...> on Tue, 12 Feb 2002 16:43:44 -0500
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_00B6_01C1B3E4.6F220360
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
MessageUsing your suggestion, I got a display of the values expected. I
got the same results without the .value property.
I am using three different recordsets to retrieve data from the same
table. rsYear contains the distinct years in the table, rsMonth contains
the distinct year/month combinations, and rsCal retrieves all of the
fields to be displayed.
... here is the code (use rich text format to display
highlighted/colored fields:
****************************
<% @Language=3D"Javascript" %>
<% Server.ScriptTimeout =3D 240 %>
<html>
<head>
<title> Calendar ASP - Example of ADO Read</title>
</head>
<body>
<!--#include file=3D"connect.asp"-->
<!--#include file=3D"recordset.asp"-->
<%
var strOut, swMonth
var strSQL =3D "SELECT CAL_NAME, CAL_EVENT_TITLE, CAL_DATE, CAL_TIME,
CAL_CONTENT, CAL_PHONE, CAL_EMAIL, CAL_WEB, CAL_YEAR, CAL_MONTH FROM
CALENDAR"
var strYrMth =3D "SELECT DISTINCT CAL_YEAR, CAL_MONTH FROM CALENDAR
ORDER BY CAL_YEAR, CAL_MONTH"
var strYear =3D "SELECT DISTINCT CAL_YEAR FROM CALENDAR ORDER BY
CAL_YEAR"
cmdYear =3D Server.CreateObject("ADODB.Command")
with(cmdYear){
CommandText =3D strYear
ActiveConnection =3D Conn
}
rsYear =3D Server.CreateObject("ADODB.Recordset")
with(rsYear) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsYear =3D cmdYear.Execute()
rsYear.movefirst()
cmdMonth =3D Server.CreateObject("ADODB.Command")
with(cmdMonth){
CommandText =3D strYrMth
ActiveConnection =3D Conn
}
rsMonth =3D Server.CreateObject("ADODB.Recordset")
with(rsMonth) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsMonth =3D cmdMonth.Execute()
rsCal =3D Server.CreateObject("ADODB.Recordset")
with(rsCal) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
Response.Write("<table>")
while ( rsYear.EOF !=3D true ) //start year switch
{
Response.Write("<tr><td><b>" + rsYear("CAL_YEAR") +
"</b></td><td> </td><td> </td></tr>")
rsMonth.movefirst()
while ( rsMonth.EOF !=3D true ) //start month display
{ Response.Write("<tr><td>" + rsMonth("CAL_YEAR").value +
"</td><td>:</td><td>" + rsYear("CAL_YEAR").value + "</td></tr>")
if (rsMonth("CAL_YEAR") =3D=3D rsYear("CAL_YEAR")) //start year
comparison
{ strTmp =3D strSQL
strTmp +=3D " WHERE CAL_YEAR =3D " + rsMonth("CAL_YEAR") + " AND
CAL_MONTH =3D " + rsMonth("CAL_MONTH") + " ORDER BY CAL_YEAR,
CAL_MONTH, CAL_EVENT_TITLE, CAL_NAME"
rsCal.Open(strTmp, Conn, adOpenStatic, adLockReadOnly, adCmdText)
rsCal.movefirst()
swMonth =3D 0
while (rsCal.EOF !=3D true) //start calendar display
{ switch (rsCal("CAL_MONTH") )
{case "1":
strOut =3D "January"
break
case "2":
strOut =3D "February"
break
case "3":
strOut =3D "March"
break
case "4":
strOut =3D "April"
break
case "5":
strOut =3D "May"
break
case "6":
strOut =3D "June"
break
case "7":
strOut =3D "July"
break
case "8":
strOut =3D "August"
break
case "9":
strOut =3D "September"
break
case "10":
strOut =3D "October"
break
case "11":
strOut =3D "November"
break
case "12":
strOut =3D "December"
break
}
if (swMonth =3D=3D 0) {
Response.Write("<tr><td>" + strOut +
"</td><td>:</td><td> </td></tr>")
swMonth =3D 1}
if (rsCal("CAL_EVENT_TITLE") !=3D "!") {
Response.Write("<tr><td>Event</td><td>:</td><td>" +
rsCal("CAL_EVENT_TITLE") + "</td></tr>")}
if (rsCal("CAL_NAME") !=3D "!") {
Response.Write("<tr><td>Host</td><td>:</td><td>" +
rsCal("CAL_NAME") + "</td></tr>") }
if (rsCal("CAL_DATE") !=3D "!") {
Response.Write("<tr><td>Date</td><td>:</td><td>" +
rsCal("CAL_DATE") + "</td></tr>")}
if (rsCal("CAL_TIME") !=3D "!") {
Response.Write("<tr><td>Time</td><td>:</td><td>" +
rsCal("CAL_TIME") + "</td></tr>")}
if (rsCal("CAL_CONTENT") !=3D null || rsCal("CAL_CONTENT") !=3D "")
{
Response.Write("<tr
valign=3D'top'><td>Description</td><td>:</td><td>" +
rsCal("CAL_CONTENT") + "</td></tr>")}
if (rsCal("CAL_PHONE") !=3D "!") {
Response.Write("<tr><td>Telephone</td><td>:</td><td>" +
rsCal("CAL_PHONE") + "</td></tr>")}
if (rsCal("CAL_EMAIL") !=3D "!") {
Response.Write("<tr><td>Email</td><td>:</td><td>" +
rsCal("CAL_EMAIL")+ "</td></tr>")}
if (rsCal("CAL_WEB") !=3D "!"){
Response.Write("<tr><td>URL</td><td>:</td><td>" + rsCal("CAL_WEB")
+ "</td></tr>")}
if (rsCal.EOF =3D=3D true) break
rsCal.movenext()
Response.Write("<tr><td> </td><td> </td><td> </td></tr>")
}//end of Calendar display loop
rsCal.Close()
} //endif year comparison
if ( rsMonth.EOF =3D=3D true ) break
rsMonth.movenext()
}//end month loop
if ( rsYear.EOF =3D=3D true ) break
rsYear.movenext()
}//end year loop
Response.Write("</table>")
rsMonth.Close()
rsMonth =3D null
rsCal =3D null
rsYear.Close()
rsYear =3D null
Conn.Close()
Conn =3D null
%>
</body>
</html>
Message #6 by "Jeffrey Lee" <leech74@s...> on Wed, 13 Feb 2002 07:08:20 +0800
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_02A3_01C1B45D.37CA7D60
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
MessageTry
if (parseInt(rsMonth("CAL_YEAR")) =3D=3D parseInt(rsYear("CAL_YEAR")))
----- Original Message -----
From: James Garrett
To: ASP Databases
Sent: Wednesday, February 13, 2002 5:43 AM
Subject: [asp_databases] Re: if statement is failing (javascript)
Using your suggestion, I got a display of the values expected. I got
the same results without the .value property.
I am using three different recordsets to retrieve data from the same
table. rsYear contains the distinct years in the table, rsMonth contains
the distinct year/month combinations, and rsCal retrieves all of the
fields to be displayed.
... here is the code (use rich text format to display
highlighted/colored fields:
****************************
<% @Language=3D"Javascript" %>
<% Server.ScriptTimeout =3D 240 %>
<html>
<head>
<title> Calendar ASP - Example of ADO Read</title>
</head>
<body>
<!--#include file=3D"connect.asp"-->
<!--#include file=3D"recordset.asp"-->
<%
var strOut, swMonth
var strSQL =3D "SELECT CAL_NAME, CAL_EVENT_TITLE, CAL_DATE, CAL_TIME,
CAL_CONTENT, CAL_PHONE, CAL_EMAIL, CAL_WEB, CAL_YEAR, CAL_MONTH FROM
CALENDAR"
var strYrMth =3D "SELECT DISTINCT CAL_YEAR, CAL_MONTH FROM CALENDAR
ORDER BY CAL_YEAR, CAL_MONTH"
var strYear =3D "SELECT DISTINCT CAL_YEAR FROM CALENDAR ORDER BY
CAL_YEAR"
cmdYear =3D Server.CreateObject("ADODB.Command")
with(cmdYear){
CommandText =3D strYear
ActiveConnection =3D Conn
}
rsYear =3D Server.CreateObject("ADODB.Recordset")
with(rsYear) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsYear =3D cmdYear.Execute()
rsYear.movefirst()
cmdMonth =3D Server.CreateObject("ADODB.Command")
with(cmdMonth){
CommandText =3D strYrMth
ActiveConnection =3D Conn
}
rsMonth =3D Server.CreateObject("ADODB.Recordset")
with(rsMonth) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsMonth =3D cmdMonth.Execute()
rsCal =3D Server.CreateObject("ADODB.Recordset")
with(rsCal) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
Response.Write("<table>")
while ( rsYear.EOF !=3D true ) //start year switch
{
Response.Write("<tr><td><b>" + rsYear("CAL_YEAR") +
"</b></td><td> </td><td> </td></tr>")
rsMonth.movefirst()
while ( rsMonth.EOF !=3D true ) //start month display
{ Response.Write("<tr><td>" + rsMonth("CAL_YEAR").value +
"</td><td>:</td><td>" + rsYear("CAL_YEAR").value + "</td></tr>")
if (rsMonth("CAL_YEAR") =3D=3D rsYear("CAL_YEAR")) //start year
comparison
{ strTmp =3D strSQL
strTmp +=3D " WHERE CAL_YEAR =3D " + rsMonth("CAL_YEAR") + " AND
CAL_MONTH =3D " + rsMonth("CAL_MONTH") + " ORDER BY CAL_YEAR,
CAL_MONTH, CAL_EVENT_TITLE, CAL_NAME"
rsCal.Open(strTmp, Conn, adOpenStatic, adLockReadOnly, adCmdText)
rsCal.movefirst()
swMonth =3D 0
while (rsCal.EOF !=3D true) //start calendar display
{ switch (rsCal("CAL_MONTH") )
{case "1":
strOut =3D "January"
break
case "2":
strOut =3D "February"
break
case "3":
strOut =3D "March"
break
case "4":
strOut =3D "April"
break
case "5":
strOut =3D "May"
break
case "6":
strOut =3D "June"
break
case "7":
strOut =3D "July"
break
case "8":
strOut =3D "August"
break
case "9":
strOut =3D "September"
break
case "10":
strOut =3D "October"
break
case "11":
strOut =3D "November"
break
case "12":
strOut =3D "December"
break
}
if (swMonth =3D=3D 0) {
Response.Write("<tr><td>" + strOut +
"</td><td>:</td><td> </td></tr>")
swMonth =3D 1}
if (rsCal("CAL_EVENT_TITLE") !=3D "!") {
Response.Write("<tr><td>Event</td><td>:</td><td>" +
rsCal("CAL_EVENT_TITLE") + "</td></tr>")}
if (rsCal("CAL_NAME") !=3D "!") {
Response.Write("<tr><td>Host</td><td>:</td><td>" +
rsCal("CAL_NAME") + "</td></tr>") }
if (rsCal("CAL_DATE") !=3D "!") {
Response.Write("<tr><td>Date</td><td>:</td><td>" +
rsCal("CAL_DATE") + "</td></tr>")}
if (rsCal("CAL_TIME") !=3D "!") {
Response.Write("<tr><td>Time</td><td>:</td><td>" +
rsCal("CAL_TIME") + "</td></tr>")}
if (rsCal("CAL_CONTENT") !=3D null || rsCal("CAL_CONTENT") !=3D
"") {
Response.Write("<tr
valign=3D'top'><td>Description</td><td>:</td><td>" +
rsCal("CAL_CONTENT") + "</td></tr>")}
if (rsCal("CAL_PHONE") !=3D "!") {
Response.Write("<tr><td>Telephone</td><td>:</td><td>" +
rsCal("CAL_PHONE") + "</td></tr>")}
if (rsCal("CAL_EMAIL") !=3D "!") {
Response.Write("<tr><td>Email</td><td>:</td><td>" +
rsCal("CAL_EMAIL")+ "</td></tr>")}
if (rsCal("CAL_WEB") !=3D "!"){
Response.Write("<tr><td>URL</td><td>:</td><td>" +
rsCal("CAL_WEB") + "</td></tr>")}
if (rsCal.EOF =3D=3D true) break
rsCal.movenext()
Response.Write("<tr><td> </td><td> </td><td> </td></tr>")
}//end of Calendar display loop
rsCal.Close()
} //endif year comparison
if ( rsMonth.EOF =3D=3D true ) break
rsMonth.movenext()
}//end month loop
if ( rsYear.EOF =3D=3D true ) break
rsYear.movenext()
}//end year loop
Response.Write("</table>")
rsMonth.Close()
rsMonth =3D null
rsCal =3D null
rsYear.Close()
rsYear =3D null
Conn.Close()
Conn =3D null
%>
</body>
</html>
$subst('Email.Unsub').
Message #7 by "James Garrett" <jhgarrett@e...> on Tue, 12 Feb 2002 17:49:14 -0500
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_00F5_01C1B3ED.95F88DC0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
MessagePERFECT!!!
Thank you,
James
----- Original Message -----
From: Jeffrey Lee
To: ASP Databases
Sent: Tuesday, February 12, 2002 6:08 PM
Subject: [asp_databases] Re: if statement is failing (javascript)
Try
if (parseInt(rsMonth("CAL_YEAR")) =3D=3D parseInt(rsYear("CAL_YEAR")))
----- Original Message -----
From: James Garrett
To: ASP Databases
Sent: Wednesday, February 13, 2002 5:43 AM
Subject: [asp_databases] Re: if statement is failing (javascript)
Using your suggestion, I got a display of the values expected. I got
the same results without the .value property.
I am using three different recordsets to retrieve data from the same
table. rsYear contains the distinct years in the table, rsMonth contains
the distinct year/month combinations, and rsCal retrieves all of the
fields to be displayed.
... here is the code (use rich text format to display
highlighted/colored fields:
****************************
<% @Language=3D"Javascript" %>
<% Server.ScriptTimeout =3D 240 %>
<html>
<head>
<title> Calendar ASP - Example of ADO Read</title>
</head>
<body>
<!--#include file=3D"connect.asp"-->
<!--#include file=3D"recordset.asp"-->
<%
var strOut, swMonth
var strSQL =3D "SELECT CAL_NAME, CAL_EVENT_TITLE, CAL_DATE,
CAL_TIME, CAL_CONTENT, CAL_PHONE, CAL_EMAIL, CAL_WEB, CAL_YEAR,
CAL_MONTH FROM CALENDAR"
var strYrMth =3D "SELECT DISTINCT CAL_YEAR, CAL_MONTH FROM CALENDAR
ORDER BY CAL_YEAR, CAL_MONTH"
var strYear =3D "SELECT DISTINCT CAL_YEAR FROM CALENDAR ORDER BY
CAL_YEAR"
cmdYear =3D Server.CreateObject("ADODB.Command")
with(cmdYear){
CommandText =3D strYear
ActiveConnection =3D Conn
}
rsYear =3D Server.CreateObject("ADODB.Recordset")
with(rsYear) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsYear =3D cmdYear.Execute()
rsYear.movefirst()
cmdMonth =3D Server.CreateObject("ADODB.Command")
with(cmdMonth){
CommandText =3D strYrMth
ActiveConnection =3D Conn
}
rsMonth =3D Server.CreateObject("ADODB.Recordset")
with(rsMonth) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsMonth =3D cmdMonth.Execute()
rsCal =3D Server.CreateObject("ADODB.Recordset")
with(rsCal) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
Response.Write("<table>")
while ( rsYear.EOF !=3D true ) //start year switch
{
Response.Write("<tr><td><b>" + rsYear("CAL_YEAR") +
"</b></td><td> </td><td> </td></tr>")
rsMonth.movefirst()
while ( rsMonth.EOF !=3D true ) //start month display
{ Response.Write("<tr><td>" + rsMonth("CAL_YEAR").value +
"</td><td>:</td><td>" + rsYear("CAL_YEAR").value + "</td></tr>")
if (rsMonth("CAL_YEAR") =3D=3D rsYear("CAL_YEAR")) //start year
comparison
{ strTmp =3D strSQL
strTmp +=3D " WHERE CAL_YEAR =3D " + rsMonth("CAL_YEAR") + " AND
CAL_MONTH =3D " + rsMonth("CAL_MONTH") + " ORDER BY CAL_YEAR,
CAL_MONTH, CAL_EVENT_TITLE, CAL_NAME"
rsCal.Open(strTmp, Conn, adOpenStatic, adLockReadOnly, adCmdText)
rsCal.movefirst()
swMonth =3D 0
while (rsCal.EOF !=3D true) //start calendar display
{ switch (rsCal("CAL_MONTH") )
{case "1":
strOut =3D "January"
break
case "2":
strOut =3D "February"
break
case "3":
strOut =3D "March"
break
case "4":
strOut =3D "April"
break
case "5":
strOut =3D "May"
break
case "6":
strOut =3D "June"
break
case "7":
strOut =3D "July"
break
case "8":
strOut =3D "August"
break
case "9":
strOut =3D "September"
break
case "10":
strOut =3D "October"
break
case "11":
strOut =3D "November"
break
case "12":
strOut =3D "December"
break
}
if (swMonth =3D=3D 0) {
Response.Write("<tr><td>" + strOut +
"</td><td>:</td><td> </td></tr>")
swMonth =3D 1}
if (rsCal("CAL_EVENT_TITLE") !=3D "!") {
Response.Write("<tr><td>Event</td><td>:</td><td>" +
rsCal("CAL_EVENT_TITLE") + "</td></tr>")}
if (rsCal("CAL_NAME") !=3D "!") {
Response.Write("<tr><td>Host</td><td>:</td><td>" +
rsCal("CAL_NAME") + "</td></tr>") }
if (rsCal("CAL_DATE") !=3D "!") {
Response.Write("<tr><td>Date</td><td>:</td><td>" +
rsCal("CAL_DATE") + "</td></tr>")}
if (rsCal("CAL_TIME") !=3D "!") {
Response.Write("<tr><td>Time</td><td>:</td><td>" +
rsCal("CAL_TIME") + "</td></tr>")}
if (rsCal("CAL_CONTENT") !=3D null || rsCal("CAL_CONTENT") !=3D
"") {
Response.Write("<tr
valign=3D'top'><td>Description</td><td>:</td><td>" +
rsCal("CAL_CONTENT") + "</td></tr>")}
if (rsCal("CAL_PHONE") !=3D "!") {
Response.Write("<tr><td>Telephone</td><td>:</td><td>" +
rsCal("CAL_PHONE") + "</td></tr>")}
if (rsCal("CAL_EMAIL") !=3D "!") {
Response.Write("<tr><td>Email</td><td>:</td><td>" +
rsCal("CAL_EMAIL")+ "</td></tr>")}
if (rsCal("CAL_WEB") !=3D "!"){
Response.Write("<tr><td>URL</td><td>:</td><td>" +
rsCal("CAL_WEB") + "</td></tr>")}
if (rsCal.EOF =3D=3D true) break
rsCal.movenext()
Response.Write("<tr><td> </td><td> </td><td> </td></tr>")
}//end of Calendar display loop
rsCal.Close()
} //endif year comparison
if ( rsMonth.EOF =3D=3D true ) break
rsMonth.movenext()
}//end month loop
if ( rsYear.EOF =3D=3D true ) break
rsYear.movenext()
}//end year loop
Response.Write("</table>")
rsMonth.Close()
rsMonth =3D null
rsCal =3D null
rsYear.Close()
rsYear =3D null
Conn.Close()
Conn =3D null
%>
</body>
</html>
$subst('Email.Unsub').
$subst('Email.Unsub').
Message #8 by "Jeffrey Lee" <leech74@s...> on Wed, 13 Feb 2002 08:23:23 +0800
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_0337_01C1B467.B3F9D390
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
MessageJames, it works?
If I'm not wrong, when you make comparison like this in Jscript, the
variable is not really equal because of the way JSCript handle the type
of the return values from the db.
It happen to me once too.
Make a effort to type cast everytime you make a cmparison.
It will save you a lot of time in the long run.
----- Original Message -----
From: James Garrett
To: ASP Databases
Sent: Wednesday, February 13, 2002 6:49 AM
Subject: [asp_databases] Re: if statement is failing (javascript)
PERFECT!!!
Thank you,
James
----- Original Message -----
From: Jeffrey Lee
To: ASP Databases
Sent: Tuesday, February 12, 2002 6:08 PM
Subject: [asp_databases] Re: if statement is failing (javascript)
Try
if (parseInt(rsMonth("CAL_YEAR")) =3D=3D
parseInt(rsYear("CAL_YEAR")))
----- Original Message -----
From: James Garrett
To: ASP Databases
Sent: Wednesday, February 13, 2002 5:43 AM
Subject: [asp_databases] Re: if statement is failing (javascript)
Using your suggestion, I got a display of the values expected. I
got the same results without the .value property.
I am using three different recordsets to retrieve data from the
same table. rsYear contains the distinct years in the table, rsMonth
contains the distinct year/month combinations, and rsCal retrieves all
of the fields to be displayed.
... here is the code (use rich text format to display
highlighted/colored fields:
****************************
<% @Language=3D"Javascript" %>
<% Server.ScriptTimeout =3D 240 %>
<html>
<head>
<title> Calendar ASP - Example of ADO Read</title>
</head>
<body>
<!--#include file=3D"connect.asp"-->
<!--#include file=3D"recordset.asp"-->
<%
var strOut, swMonth
var strSQL =3D "SELECT CAL_NAME, CAL_EVENT_TITLE, CAL_DATE,
CAL_TIME, CAL_CONTENT, CAL_PHONE, CAL_EMAIL, CAL_WEB, CAL_YEAR,
CAL_MONTH FROM CALENDAR"
var strYrMth =3D "SELECT DISTINCT CAL_YEAR, CAL_MONTH FROM
CALENDAR ORDER BY CAL_YEAR, CAL_MONTH"
var strYear =3D "SELECT DISTINCT CAL_YEAR FROM CALENDAR ORDER BY
CAL_YEAR"
cmdYear =3D Server.CreateObject("ADODB.Command")
with(cmdYear){
CommandText =3D strYear
ActiveConnection =3D Conn
}
rsYear =3D Server.CreateObject("ADODB.Recordset")
with(rsYear) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsYear =3D cmdYear.Execute()
rsYear.movefirst()
cmdMonth =3D Server.CreateObject("ADODB.Command")
with(cmdMonth){
CommandText =3D strYrMth
ActiveConnection =3D Conn
}
rsMonth =3D Server.CreateObject("ADODB.Recordset")
with(rsMonth) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsMonth =3D cmdMonth.Execute()
rsCal =3D Server.CreateObject("ADODB.Recordset")
with(rsCal) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
Response.Write("<table>")
while ( rsYear.EOF !=3D true ) //start year switch
{
Response.Write("<tr><td><b>" + rsYear("CAL_YEAR") +
"</b></td><td> </td><td> </td></tr>")
rsMonth.movefirst()
while ( rsMonth.EOF !=3D true ) //start month display
{ Response.Write("<tr><td>" + rsMonth("CAL_YEAR").value +
"</td><td>:</td><td>" + rsYear("CAL_YEAR").value + "</td></tr>")
if (rsMonth("CAL_YEAR") =3D=3D rsYear("CAL_YEAR")) //start year
comparison
{ strTmp =3D strSQL
strTmp +=3D " WHERE CAL_YEAR =3D " + rsMonth("CAL_YEAR") + "
AND CAL_MONTH =3D " + rsMonth("CAL_MONTH") + " ORDER BY CAL_YEAR,
CAL_MONTH, CAL_EVENT_TITLE, CAL_NAME"
rsCal.Open(strTmp, Conn, adOpenStatic, adLockReadOnly,
adCmdText)
rsCal.movefirst()
swMonth =3D 0
while (rsCal.EOF !=3D true) //start calendar display
{ switch (rsCal("CAL_MONTH") )
{case "1":
strOut =3D "January"
break
case "2":
strOut =3D "February"
break
case "3":
strOut =3D "March"
break
case "4":
strOut =3D "April"
break
case "5":
strOut =3D "May"
break
case "6":
strOut =3D "June"
break
case "7":
strOut =3D "July"
break
case "8":
strOut =3D "August"
break
case "9":
strOut =3D "September"
break
case "10":
strOut =3D "October"
break
case "11":
strOut =3D "November"
break
case "12":
strOut =3D "December"
break
}
if (swMonth =3D=3D 0) {
Response.Write("<tr><td>" + strOut +
"</td><td>:</td><td> </td></tr>")
swMonth =3D 1}
if (rsCal("CAL_EVENT_TITLE") !=3D "!") {
Response.Write("<tr><td>Event</td><td>:</td><td>" +
rsCal("CAL_EVENT_TITLE") + "</td></tr>")}
if (rsCal("CAL_NAME") !=3D "!") {
Response.Write("<tr><td>Host</td><td>:</td><td>" +
rsCal("CAL_NAME") + "</td></tr>") }
if (rsCal("CAL_DATE") !=3D "!") {
Response.Write("<tr><td>Date</td><td>:</td><td>" +
rsCal("CAL_DATE") + "</td></tr>")}
if (rsCal("CAL_TIME") !=3D "!") {
Response.Write("<tr><td>Time</td><td>:</td><td>" +
rsCal("CAL_TIME") + "</td></tr>")}
if (rsCal("CAL_CONTENT") !=3D null || rsCal("CAL_CONTENT")
!=3D "") {
Response.Write("<tr
valign=3D'top'><td>Description</td><td>:</td><td>" +
rsCal("CAL_CONTENT") + "</td></tr>")}
if (rsCal("CAL_PHONE") !=3D "!") {
Response.Write("<tr><td>Telephone</td><td>:</td><td>" +
rsCal("CAL_PHONE") + "</td></tr>")}
if (rsCal("CAL_EMAIL") !=3D "!") {
Response.Write("<tr><td>Email</td><td>:</td><td>" +
rsCal("CAL_EMAIL")+ "</td></tr>")}
if (rsCal("CAL_WEB") !=3D "!"){
Response.Write("<tr><td>URL</td><td>:</td><td>" +
rsCal("CAL_WEB") + "</td></tr>")}
if (rsCal.EOF =3D=3D true) break
rsCal.movenext()
Response.Write("<tr><td> </td><td> </td><td> </td></tr>")
}//end of Calendar display loop
rsCal.Close()
} //endif year comparison
if ( rsMonth.EOF =3D=3D true ) break
rsMonth.movenext()
}//end month loop
if ( rsYear.EOF =3D=3D true ) break
rsYear.movenext()
}//end year loop
Response.Write("</table>")
rsMonth.Close()
rsMonth =3D null
rsCal =3D null
rsYear.Close()
rsYear =3D null
Conn.Close()
Conn =3D null
%>
</body>
</html>
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
Message #9 by "James Garrett" <jhgarrett@e...> on Tue, 12 Feb 2002 18:04:14 -0500
|
|
This is a multi-part message in MIME format.
------=_NextPart_000_011B_01C1B3EF.AE95E7E0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
MessageThank you.
----- Original Message -----
From: Jeffrey Lee
To: ASP Databases
Sent: Tuesday, February 12, 2002 7:23 PM
Subject: [asp_databases] Re: if statement is failing (javascript)
James, it works?
If I'm not wrong, when you make comparison like this in Jscript, the
variable is not really equal because of the way JSCript handle the type
of the return values from the db.
It happen to me once too.
Make a effort to type cast everytime you make a cmparison.
It will save you a lot of time in the long run.
----- Original Message -----
From: James Garrett
To: ASP Databases
Sent: Wednesday, February 13, 2002 6:49 AM
Subject: [asp_databases] Re: if statement is failing (javascript)
PERFECT!!!
Thank you,
James
----- Original Message -----
From: Jeffrey Lee
To: ASP Databases
Sent: Tuesday, February 12, 2002 6:08 PM
Subject: [asp_databases] Re: if statement is failing (javascript)
Try
if (parseInt(rsMonth("CAL_YEAR")) =3D=3D
parseInt(rsYear("CAL_YEAR")))
----- Original Message -----
From: James Garrett
To: ASP Databases
Sent: Wednesday, February 13, 2002 5:43 AM
Subject: [asp_databases] Re: if statement is failing
(javascript)
Using your suggestion, I got a display of the values expected. I
got the same results without the .value property.
I am using three different recordsets to retrieve data from the
same table. rsYear contains the distinct years in the table, rsMonth
contains the distinct year/month combinations, and rsCal retrieves all
of the fields to be displayed.
... here is the code (use rich text format to display
highlighted/colored fields:
****************************
<% @Language=3D"Javascript" %>
<% Server.ScriptTimeout =3D 240 %>
<html>
<head>
<title> Calendar ASP - Example of ADO Read</title>
</head>
<body>
<!--#include file=3D"connect.asp"-->
<!--#include file=3D"recordset.asp"-->
<%
var strOut, swMonth
var strSQL =3D "SELECT CAL_NAME, CAL_EVENT_TITLE, CAL_DATE,
CAL_TIME, CAL_CONTENT, CAL_PHONE, CAL_EMAIL, CAL_WEB, CAL_YEAR,
CAL_MONTH FROM CALENDAR"
var strYrMth =3D "SELECT DISTINCT CAL_YEAR, CAL_MONTH FROM
CALENDAR ORDER BY CAL_YEAR, CAL_MONTH"
var strYear =3D "SELECT DISTINCT CAL_YEAR FROM CALENDAR ORDER BY
CAL_YEAR"
cmdYear =3D Server.CreateObject("ADODB.Command")
with(cmdYear){
CommandText =3D strYear
ActiveConnection =3D Conn
}
rsYear =3D Server.CreateObject("ADODB.Recordset")
with(rsYear) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsYear =3D cmdYear.Execute()
rsYear.movefirst()
cmdMonth =3D Server.CreateObject("ADODB.Command")
with(cmdMonth){
CommandText =3D strYrMth
ActiveConnection =3D Conn
}
rsMonth =3D Server.CreateObject("ADODB.Recordset")
with(rsMonth) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
rsMonth =3D cmdMonth.Execute()
rsCal =3D Server.CreateObject("ADODB.Recordset")
with(rsCal) {
CusorLocation =3D adUseClient
CursorType =3D adOpenStatic
LockType =3D adLockReadOnly
Opt =3D adCmdText
}
Response.Write("<table>")
while ( rsYear.EOF !=3D true ) //start year switch
{
Response.Write("<tr><td><b>" + rsYear("CAL_YEAR") +
"</b></td><td> </td><td> </td></tr>")
rsMonth.movefirst()
while ( rsMonth.EOF !=3D true ) //start month display
{ Response.Write("<tr><td>" + rsMonth("CAL_YEAR").value +
"</td><td>:</td><td>" + rsYear("CAL_YEAR").value + "</td></tr>")
if (rsMonth("CAL_YEAR") =3D=3D rsYear("CAL_YEAR")) //start
year comparison
{ strTmp =3D strSQL
strTmp +=3D " WHERE CAL_YEAR =3D " + rsMonth("CAL_YEAR") + "
AND CAL_MONTH =3D " + rsMonth("CAL_MONTH") + " ORDER BY CAL_YEAR,
CAL_MONTH, CAL_EVENT_TITLE, CAL_NAME"
rsCal.Open(strTmp, Conn, adOpenStatic, adLockReadOnly,
adCmdText)
rsCal.movefirst()
swMonth =3D 0
while (rsCal.EOF !=3D true) //start calendar display
{ switch (rsCal("CAL_MONTH") )
{case "1":
strOut =3D "January"
break
case "2":
strOut =3D "February"
break
case "3":
strOut =3D "March"
break
case "4":
strOut =3D "April"
break
case "5":
strOut =3D "May"
break
case "6":
strOut =3D "June"
break
case "7":
strOut =3D "July"
break
case "8":
strOut =3D "August"
break
case "9":
strOut =3D "September"
break
case "10":
strOut =3D "October"
break
case "11":
strOut =3D "November"
break
case "12":
strOut =3D "December"
break
}
if (swMonth =3D=3D 0) {
Response.Write("<tr><td>" + strOut +
"</td><td>:</td><td> </td></tr>")
swMonth =3D 1}
if (rsCal("CAL_EVENT_TITLE") !=3D "!") {
Response.Write("<tr><td>Event</td><td>:</td><td>" +
rsCal("CAL_EVENT_TITLE") + "</td></tr>")}
if (rsCal("CAL_NAME") !=3D "!") {
Response.Write("<tr><td>Host</td><td>:</td><td>" +
rsCal("CAL_NAME") + "</td></tr>") }
if (rsCal("CAL_DATE") !=3D "!") {
Response.Write("<tr><td>Date</td><td>:</td><td>" +
rsCal("CAL_DATE") + "</td></tr>")}
if (rsCal("CAL_TIME") !=3D "!") {
Response.Write("<tr><td>Time</td><td>:</td><td>" +
rsCal("CAL_TIME") + "</td></tr>")}
if (rsCal("CAL_CONTENT") !=3D null || rsCal("CAL_CONTENT")
!=3D "") {
Response.Write("<tr
valign=3D'top'><td>Description</td><td>:</td><td>" +
rsCal("CAL_CONTENT") + "</td></tr>")}
if (rsCal("CAL_PHONE") !=3D "!") {
Response.Write("<tr><td>Telephone</td><td>:</td><td>" +
rsCal("CAL_PHONE") + "</td></tr>")}
if (rsCal("CAL_EMAIL") !=3D "!") {
Response.Write("<tr><td>Email</td><td>:</td><td>" +
rsCal("CAL_EMAIL")+ "</td></tr>")}
if (rsCal("CAL_WEB") !=3D "!"){
Response.Write("<tr><td>URL</td><td>:</td><td>" +
rsCal("CAL_WEB") + "</td></tr>")}
if (rsCal.EOF =3D=3D true) break
rsCal.movenext()
Response.Write("<tr><td> </td><td> </td><td> </td></tr>")
}//end of Calendar display loop
rsCal.Close()
} //endif year comparison
if ( rsMonth.EOF =3D=3D true ) break
rsMonth.movenext()
}//end month loop
if ( rsYear.EOF =3D=3D true ) break
rsYear.movenext()
}//end year loop
Response.Write("</table>")
rsMonth.Close()
rsMonth =3D null
rsCal =3D null
rsYear.Close()
rsYear =3D null
Conn.Close()
Conn =3D null
%>
</body>
</html>
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
$subst('Email.Unsub').
|
|
|
View Cart
