AJAX

Help tweaking some java

Please support our JavaScript / DHTML / AJAX advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

•

Join Date: Aug 2007

Posts: 6

Reputation: StrongOak is an unknown quantity at this point

Solved Threads: 0

StrongOak

Offline

Newbie Poster

Help tweaking some java

Aug 21st, 2007

I have some java code that is pulling from SQL some data, which is filling a groupbox with Medicare ICD-9-CM billable codes. The user can click the Category, then select the codeset then the third box fills in the sub codes and description for them to make the final selection for a form. It is working, but it is EXTREMELY SLOW, so I did a view source and pasted it as a static page, well it isnt the SQL, but the sheer volume of the entries causing the slow down. So I looked on other websites with mass amounts of data, it seems they wrote the code to not look up the data until you click each section, where my code is pulling it all first before displaying it. I am hoping someone can tell me how to make it only pull data once the item in the box is clicked and set a variable I can use to pull the next set of data to fill the other boxes to speed it up OR any ideas how to make this faster would be great. I am not sure the maximum number of allowed lines, but here is the code. The attachment is a screen shot of what is currently output once it processes all the data into the boxed (takes almost 2 minutes to bring up the page right now)

 Help with Code Tags 
 asp Syntax (Toggle Plain Text) 
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Language" content="en-us">
<title>ICD-9-CM Billable Code Selector</title>
</head>
<body>
 
 
<form method="post" name="driver_search" action="/support/downloads/welcome.asp?action=next" onSubmit="return fnChkSelection(this)">
<div align="center">
<table border="0" width="543" cellpadding="0" cellspacing="0">
<tr>
	<td align="center"><b>Diagnosis Category</b></td>
	<td align="center"><b>Code Set</b></td>
	<td align="center"><b>ICD-9-CM Code</b></td>
</tr>
	<tr>
		<td align="center" valign="top">
		<select name="State" class="threepane" style="width: 329; overflow: hidden; height:356" size="2" onChange="populateFamilies(driver_search.State.options[driver_search.State.selectedIndex].value,driver_search);" ID="Select4"></font></select></td>
		<td align="center">
		<select name="CountyCBSA" class="threepane" style="width: 70; overflow: hidden; height:355" size="12" onChange="populateProducts(driver_search.State.options[driver_search.State.selectedIndex].value, driver_search.CountyCBSA.options[driver_search.CountyCBSA.selectedIndex].value);" ID="Select5"></select></td>
		<td align="center" valign="top">
		<select name="Product_ID" class="threepane" style="width: 450; overflow: hidden; height:356" size="2" onClick="try {(this.form.Product_Name.value=this.options[this.options.selectedIndex].text)} catch(e) {};" ID="Select1"></select></td>
	</tr>
<%
DiagCatCount = 0
DIM DiagCatsID(500)
DIM DiagCatsName(500)
DIM CodeSetID(1000)
 
SQL = "SELECT * FROM [PPS Diagnosis Categories] order by id"
 
 
	fFirstPass = True
    Set DiagCAT = Server.CreateObject("ADODB.Connection")
    DiagCAT.ConnectionTimeout = Session("DiagCAT_ConnectionTimeout")
    DiagCAT.CommandTimeout = Session("DiagCAT_CommandTimeout")
    DiagCAT.Open "Driver={SQL Server};Server=DBServer;Database=CodeSet;Uid=webguy;Pwd=filler;"
    Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set DataRangeHdr1 = Server.CreateObject("ADODB.Recordset")
    cmdTemp.CommandText = SQL
    cmdTemp.CommandType = 1
    Set cmdTemp.ActiveConnection = DiagCAT
    DataRangeHdr1.Open cmdTemp, , 0, 1
 
'on error resume next
 
Do
    If fEmptyRecordset Then Exit Do
    If Not fFirstPass Then
        DataRangeHdr1.MoveNext
    Else
        fFirstPass = False 
	    If DataRangeHdr1.EOF Then Exit Do
    End If
 
If DataRangeHdr1.EOF Then Exit Do
 
DiagCatCount = DiagCatCount + 1
DiagCatsID(DiagCatCount) = DataRangeHdr1("id")
DiagCatsName(DiagCatCount) = DataRangeHdr1("Name")
Loop
%>
 
<input type="hidden" name="Product_Name" value="" ID="Hidden2">
<script LANGUAGE="JavaScript">
				<!--
				try {
				var ThirdPane668=new Array;
				var ThirdPane669=new Array;
				var ThirdPane600=new Array;
 
				}
				catch(e)
				{;}
 
 
				categoryList();
				displaysubcat(0);
 
				function displaysubcat(nCatID)
				{
					if ( nCatID !='')
					{
					familyList(0);
 
					}
				}	
 
				function familyList(catID) {
					clearBox(document.driver_search.CountyCBSA);
					clearBox(document.driver_search.Product_ID);
 
					switch(parseInt(catID)) {
 
<%
For T = 1 to DiagCatCount
SQL = "SELECT * FROM [PPS Diagnosis View] WHERE category = " & DiagCatsID(T) & " order by id"
 
 
	fFirstPass = True
    Set DiagCAT = Server.CreateObject("ADODB.Connection")
    DiagCAT.ConnectionTimeout = Session("DiagCAT_ConnectionTimeout")
    DiagCAT.CommandTimeout = Session("DiagCAT_CommandTimeout")
    DiagCAT.Open "Driver={SQL Server};Server=DBServer;Database=CodeSet;Uid=webguy;Pwd=filler;"
    Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set DataRangeHdr1 = Server.CreateObject("ADODB.Recordset")
    cmdTemp.CommandText = SQL
    cmdTemp.CommandType = 1
    Set cmdTemp.ActiveConnection = DiagCAT
    DataRangeHdr1.Open cmdTemp, , 0, 1
 
'on error resume next
 
Do
    If fEmptyRecordset Then
	NoRecords = 1
    Exit Do
    End If
    If Not fFirstPass Then
        DataRangeHdr1.MoveNext
    Else
        fFirstPass = False 
	    If DataRangeHdr1.EOF Then
	NoRecords = 1
	    Exit Do
	    End If
%>
						 case <%=DiagCatsID(T)%> :			
<%
    End If
 
If DataRangeHdr1.EOF Then Exit Do
 
id = DataRangeHdr1("id")
code = Trim(DataRangeHdr1("code"))
DiagnosisName = DataRangeHdr1("DiagnosisName")
DiagnosisName = (Replace(DiagnosisName,"'"," "))
 
CodeMark = InStr(code,".")
If (CodeMark -1) > 0 then
CodeMark = CodeMark - 1
CodeSet= LEFT(code,CodeMark)
end if
 
If CodeTemp <> CodeSet then
CodeCount = CodeCount + 1
CodeSetID(CodeCount) = CodeSet
%>
addBoxItem(document.driver_search.CountyCBSA, '<%=CodeSet%>', '<%=CodeSet%>');
<%
CodeTemp = CodeSet
End If
Loop
If NORECORDS = 0 then
%>
 
						break;
<%
else
NORECORDS = 0
end if
next
%>
 
 
					}
				}
 
 
				function categoryList()  
				{
				//SQL Here to pull Categories
<%
For O = 1 to DiagCatCount
%>
addBoxItem(document.driver_search.State, '<%=DiagCatsName(O)%>', '<%=DiagCatsID(O)%>');
<%
Next
%>
 
			    //SQL End
				}
 
				function productList(catID,WageIndex) {
/**/													
					clearBox(document.driver_search.Product_ID);
 
					switch(parseInt(catID)) {
 
<%
For T = 1 to DiagCatCount 
%>
//--------------------Category Loop-----------------------------------------------
 
					case <%=DiagCatsID(T)%> : 
						switch(parseInt(WageIndex)) {
 
<%
CodeCount = 3
For Y = 1 to CodeCount
 
SQL = "SELECT * FROM [PPS Diagnosis View] WHERE code LIKE '" & CodeSetID(Y) & ".%'"
 
 
	fFirstPass = True
    Set DiagCAT = Server.CreateObject("ADODB.Connection")
    DiagCAT.ConnectionTimeout = Session("DiagCAT_ConnectionTimeout")
    DiagCAT.CommandTimeout = Session("DiagCAT_CommandTimeout")
    DiagCAT.Open "Driver={SQL Server};Server=DBServer;Database=CodeSet;Uid=webguy;Pwd=filler;"
    Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set DataRangeHdr1 = Server.CreateObject("ADODB.Recordset")
    cmdTemp.CommandText = SQL
    cmdTemp.CommandType = 1
    Set cmdTemp.ActiveConnection = DiagCAT
    DataRangeHdr1.Open cmdTemp, , 0, 1
 
'on error resume next
 
Do
    If fEmptyRecordset Then
	NoRecords = 1
    Exit Do
    End If
    If Not fFirstPass Then
        DataRangeHdr1.MoveNext
    Else
        fFirstPass = False 
	    If DataRangeHdr1.EOF Then
	NoRecords = 1
	    Exit Do
	    End If
%>
						 case <%=CodeSetID(Y)%> :			
<%
    End If
 
If DataRangeHdr1.EOF Then Exit Do
 
id = DataRangeHdr1("id")
code = Trim(DataRangeHdr1("code"))
DiagnosisName = DataRangeHdr1("DiagnosisName")
DiagnosisName = (Replace(DiagnosisName,"'"," "))
 
 
%>
addBoxItem(document.driver_search.Product_ID, '<%=code%> - <%=DiagnosisName%>', '<%=code%>');
<%
Loop
%>
						break;
<%
 
next
%>
						}
						break;
<%
next
%>
 
//-------------AFTER LOOP------------------------------------------------------
 
 
 
 
				}
				}
 
				function populateFamilies(catID,thisForm) {
					if (catID != '') {
						familyList(catID);
					}
 
					if (document.driver_search.CountyCBSA.length == 1) {
						document.driver_search.CountyCBSA.selectedIndex = 0;
						productList(catID, document.driver_search.CountyCBSA.options[document.driver_search.CountyCBSA.selectedIndex].value);
					}
				}
 
				function populateProducts(catID, WageIndex) {
 
					if (catID != '' ) {
						if (WageIndex != '' ) {
							productList(catID, WageIndex);
						}
 
					}
				}
 
				function clearBox(formItem) {
					for(i = formItem.length ; i > -1 ; i--) {
						formItem.options[i] = null;
					}                                                   
				}
 
				function addBoxItem(formItem, valText, valValue) {
 
					try{
					newoption = new Option(valText, valValue, false, false);
					formItem.options[formItem.length] = newoption;    
 
						if (valText.indexOf("==") == 0) {
							newoption.style.background="#FFA90D"
							newoption.style.color="#ffffff"
						}
					}    
					catch(e){;}                                  
 
 
//						formItem.style.bgcolor="#ff9900"
				}
 
				// -->
</script>
 
</table>
 
 
		</body>
		</html>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Language" content="en-us">
<title>ICD-9-CM Billable Code Selector</title>
</head>
<body>
			

<form method="post" name="driver_search" action="/support/downloads/welcome.asp?action=next" onSubmit="return fnChkSelection(this)">
<div align="center">
<table border="0" width="543" cellpadding="0" cellspacing="0">
<tr>
	<td align="center"><b>Diagnosis Category</b></td>
	<td align="center"><b>Code Set</b></td>
	<td align="center"><b>ICD-9-CM Code</b></td>
</tr>
	<tr>
		<td align="center" valign="top">
		<select name="State" class="threepane" style="width: 329; overflow: hidden; height:356" size="2" onChange="populateFamilies(driver_search.State.options[driver_search.State.selectedIndex].value,driver_search);" ID="Select4"></font></select></td>
		<td align="center">
		<select name="CountyCBSA" class="threepane" style="width: 70; overflow: hidden; height:355" size="12" onChange="populateProducts(driver_search.State.options[driver_search.State.selectedIndex].value, driver_search.CountyCBSA.options[driver_search.CountyCBSA.selectedIndex].value);" ID="Select5"></select></td>
		<td align="center" valign="top">
		<select name="Product_ID" class="threepane" style="width: 450; overflow: hidden; height:356" size="2" onClick="try {(this.form.Product_Name.value=this.options[this.options.selectedIndex].text)} catch(e) {};" ID="Select1"></select></td>
	</tr>
<%
DiagCatCount = 0
DIM DiagCatsID(500)
DIM DiagCatsName(500)
DIM CodeSetID(1000)

SQL = "SELECT * FROM [PPS Diagnosis Categories] order by id"


	fFirstPass = True
    Set DiagCAT = Server.CreateObject("ADODB.Connection")
    DiagCAT.ConnectionTimeout = Session("DiagCAT_ConnectionTimeout")
    DiagCAT.CommandTimeout = Session("DiagCAT_CommandTimeout")
    DiagCAT.Open "Driver={SQL Server};Server=DBServer;Database=CodeSet;Uid=webguy;Pwd=filler;"
    Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set DataRangeHdr1 = Server.CreateObject("ADODB.Recordset")
    cmdTemp.CommandText = SQL
    cmdTemp.CommandType = 1
    Set cmdTemp.ActiveConnection = DiagCAT
    DataRangeHdr1.Open cmdTemp, , 0, 1

'on error resume next

Do
    If fEmptyRecordset Then Exit Do
    If Not fFirstPass Then
        DataRangeHdr1.MoveNext
    Else
        fFirstPass = False 
	    If DataRangeHdr1.EOF Then Exit Do
    End If
    
If DataRangeHdr1.EOF Then Exit Do

DiagCatCount = DiagCatCount + 1
DiagCatsID(DiagCatCount) = DataRangeHdr1("id")
DiagCatsName(DiagCatCount) = DataRangeHdr1("Name")
Loop
%>

<input type="hidden" name="Product_Name" value="" ID="Hidden2">
<script LANGUAGE="JavaScript">
				<!--
				try {
				var ThirdPane668=new Array;
				var ThirdPane669=new Array;
				var ThirdPane600=new Array;

				}
				catch(e)
				{;}
				
				
				categoryList();
				displaysubcat(0);
				
				function displaysubcat(nCatID)
				{
					if ( nCatID !='')
					{
					familyList(0);
					
					}
				}	
				
				function familyList(catID) {
					clearBox(document.driver_search.CountyCBSA);
					clearBox(document.driver_search.Product_ID);

					switch(parseInt(catID)) {
					
<%
For T = 1 to DiagCatCount
SQL = "SELECT * FROM [PPS Diagnosis View] WHERE category = " & DiagCatsID(T) & " order by id"


	fFirstPass = True
    Set DiagCAT = Server.CreateObject("ADODB.Connection")
    DiagCAT.ConnectionTimeout = Session("DiagCAT_ConnectionTimeout")
    DiagCAT.CommandTimeout = Session("DiagCAT_CommandTimeout")
    DiagCAT.Open "Driver={SQL Server};Server=DBServer;Database=CodeSet;Uid=webguy;Pwd=filler;"
    Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set DataRangeHdr1 = Server.CreateObject("ADODB.Recordset")
    cmdTemp.CommandText = SQL
    cmdTemp.CommandType = 1
    Set cmdTemp.ActiveConnection = DiagCAT
    DataRangeHdr1.Open cmdTemp, , 0, 1

'on error resume next

Do
    If fEmptyRecordset Then
	NoRecords = 1
    Exit Do
    End If
    If Not fFirstPass Then
        DataRangeHdr1.MoveNext
    Else
        fFirstPass = False 
	    If DataRangeHdr1.EOF Then
	NoRecords = 1
	    Exit Do
	    End If
%>
						 case <%=DiagCatsID(T)%> :			
<%
    End If
    
If DataRangeHdr1.EOF Then Exit Do

id = DataRangeHdr1("id")
code = Trim(DataRangeHdr1("code"))
DiagnosisName = DataRangeHdr1("DiagnosisName")
DiagnosisName = (Replace(DiagnosisName,"'"," "))

CodeMark = InStr(code,".")
If (CodeMark -1) > 0 then
CodeMark = CodeMark - 1
CodeSet= LEFT(code,CodeMark)
end if

If CodeTemp <> CodeSet then
CodeCount = CodeCount + 1
CodeSetID(CodeCount) = CodeSet
%>
addBoxItem(document.driver_search.CountyCBSA, '<%=CodeSet%>', '<%=CodeSet%>');
<%
CodeTemp = CodeSet
End If
Loop
If NORECORDS = 0 then
%>
						
						break;
<%
else
NORECORDS = 0
end if
next
%>
						
			
					}
				}
				
				
				function categoryList()  
				{
				//SQL Here to pull Categories
<%
For O = 1 to DiagCatCount
%>
addBoxItem(document.driver_search.State, '<%=DiagCatsName(O)%>', '<%=DiagCatsID(O)%>');
<%
Next
%>

			    //SQL End
				}
				
				function productList(catID,WageIndex) {
/**/													
					clearBox(document.driver_search.Product_ID);
					
					switch(parseInt(catID)) {
					
<%
For T = 1 to DiagCatCount 
%>
//--------------------Category Loop-----------------------------------------------

					case <%=DiagCatsID(T)%> : 
						switch(parseInt(WageIndex)) {
						
<%
CodeCount = 3
For Y = 1 to CodeCount

SQL = "SELECT * FROM [PPS Diagnosis View] WHERE code LIKE '" & CodeSetID(Y) & ".%'"


	fFirstPass = True
    Set DiagCAT = Server.CreateObject("ADODB.Connection")
    DiagCAT.ConnectionTimeout = Session("DiagCAT_ConnectionTimeout")
    DiagCAT.CommandTimeout = Session("DiagCAT_CommandTimeout")
    DiagCAT.Open "Driver={SQL Server};Server=DBServer;Database=CodeSet;Uid=webguy;Pwd=filler;"
    Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set DataRangeHdr1 = Server.CreateObject("ADODB.Recordset")
    cmdTemp.CommandText = SQL
    cmdTemp.CommandType = 1
    Set cmdTemp.ActiveConnection = DiagCAT
    DataRangeHdr1.Open cmdTemp, , 0, 1

'on error resume next

Do
    If fEmptyRecordset Then
	NoRecords = 1
    Exit Do
    End If
    If Not fFirstPass Then
        DataRangeHdr1.MoveNext
    Else
        fFirstPass = False 
	    If DataRangeHdr1.EOF Then
	NoRecords = 1
	    Exit Do
	    End If
%>
						 case <%=CodeSetID(Y)%> :			
<%
    End If
    
If DataRangeHdr1.EOF Then Exit Do

id = DataRangeHdr1("id")
code = Trim(DataRangeHdr1("code"))
DiagnosisName = DataRangeHdr1("DiagnosisName")
DiagnosisName = (Replace(DiagnosisName,"'"," "))


%>
addBoxItem(document.driver_search.Product_ID, '<%=code%> - <%=DiagnosisName%>', '<%=code%>');
<%
Loop
%>
						break;
<%

next
%>
						}
						break;
<%
next
%>

//-------------AFTER LOOP------------------------------------------------------

				
							
						
				}
				}
				
				function populateFamilies(catID,thisForm) {
					if (catID != '') {
						familyList(catID);
					}
						
					if (document.driver_search.CountyCBSA.length == 1) {
						document.driver_search.CountyCBSA.selectedIndex = 0;
						productList(catID, document.driver_search.CountyCBSA.options[document.driver_search.CountyCBSA.selectedIndex].value);
					}
				}
				
				function populateProducts(catID, WageIndex) {
				
					if (catID != '' ) {
						if (WageIndex != '' ) {
							productList(catID, WageIndex);
						}

					}
				}
				
				function clearBox(formItem) {
					for(i = formItem.length ; i > -1 ; i--) {
						formItem.options[i] = null;
					}                                                   
				}
				
				function addBoxItem(formItem, valText, valValue) {
				
					try{
					newoption = new Option(valText, valValue, false, false);
					formItem.options[formItem.length] = newoption;    

						if (valText.indexOf("==") == 0) {
							newoption.style.background="#FFA90D"
							newoption.style.color="#ffffff"
						}
					}    
					catch(e){;}                                  
					

//						formItem.style.bgcolor="#ff9900"
				}
					
				// -->
</script>

</table>

	
		</body>
		</html>

Here is a shortened view source sample showing what the client sees (keep in mind this one is quick because it doesnt contain the amount of data involved)

[code=asp]
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Language" content="en-us">
<title>ICD-9-CM Billable Code Selection</title>
</head>
<body>

<form method="post" name="driver_search" action="/support/downloads/welcome.asp?action=next" onSubmit="return fnChkSelection(this)">
<div align="center">
<table border="0" width="543" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b>Diagnosis Category</b></td>
<td align="center"><b>Code Set</b></td>
<td align="center"><b>ICD-9-CM Code</b></td>
</tr>
<tr>
<td align="center" valign="top">
<select name="State" class="threepane" style="width: 329; overflow: hidden; height:356" size="2" onChange="populateFamilies(driver_search.State.options[driver_search.State.selectedIndex].value,driver_search);" ID="Select4"></font></select></td>
<td align="center">
<select name="CountyCBSA" class="threepane" style="width: 70; overflow: hidden; height:355" size="12" onChange="populateProducts(driver_search.State.options[driver_search.State.selectedIndex].value, driver_search.CountyCBSA.options[driver_search.CountyCBSA.selectedIndex].value);" ID="Select5"></select></td>
<td align="center" valign="top">
<select name="Product_ID" class="threepane" style="width: 450; overflow: hidden; height:356" size="2" onClick="try {(this.form.Product_Name.value=this.options[this.options.selectedIndex].text)} catch(e) {};" ID="Select1"></select></td>
</tr>

<input type="hidden" name="Product_Name" value="" ID="Hidden2">
<script LANGUAGE="JavaScript">

</script>

</table>

</body>
</html>

[code]

Last edited by StrongOak; Aug 21st, 2007 at 7:08 pm.

Attached Thumbnails

•

Join Date: May 2007

Posts: 4,438

Reputation: Ezzaral has much to be proud of

Solved Threads: 510

Ezzaral

Offline

Industrious Poster

Re: Help tweaking some java

Aug 21st, 2007

This is asp and javascript - not Java. Perhaps you would get more help over in those forums, as this one is for Java programming. At a glance though, those extremely long nested switch statements make me cringe.

•

Join Date: Aug 2007

Posts: 6

Reputation: StrongOak is an unknown quantity at this point

Solved Threads: 0

StrongOak

Offline

Newbie Poster

Re: Help tweaking some java

Aug 21st, 2007

•

Originally Posted by Ezzaral

This is asp and javascript - not Java. Perhaps you would get more help over in those forums, as this one is for Java programming. At a glance though, those extremely long nested switch statements make me cringe.

Well I showed the entire page so everyone would know how it relates, the question I have is java related. I am having trouble finding how to edit the java to only run the populate scripts on the 2nd and third boxes once a selection is made.

For example I want it to populate the left box, then when they click the 1st choice it would assign a variable to that selection (lets say 1) then it could run the script to populate the second box by only pulling the data matching 1 and so on in the third box.

Did I explain that ok?

•

Join Date: Feb 2006

Posts: 2,355

Reputation: masijade has much to be proud of

Solved Threads: 252

masijade

Offline

Nearly a Posting Maven

Re: Help tweaking some java

Aug 22nd, 2007

JavaScript != Java

You have shown only JavaScript. There is no Java anywhere in that post.

Java Programmer and Sun Systems Administrator

----------------------------------------------

Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it.
--Brian Kernighan

•

Join Date: Aug 2007

Posts: 6

Reputation: StrongOak is an unknown quantity at this point

Solved Threads: 0

StrongOak

Offline

Newbie Poster

Re: Help tweaking some java

Aug 22nd, 2007

•

Originally Posted by masijade

JavaScript != Java

You have shown only JavaScript. There is no Java anywhere in that post.

Shows my level of newbness on java, I am a vbscipt/asp guy trying to learn some java for client side.

I am open to any code to accomplish what I need.

•

Join Date: May 2007

Posts: 4,438

Reputation: Ezzaral has much to be proud of

Solved Threads: 510

Ezzaral

Offline

Industrious Poster

Re: Help tweaking some java

Aug 22nd, 2007

•

Originally Posted by StrongOak

Shows my level of newbness on java, I am a vbscipt/asp guy trying to learn some java for client side.

I am open to any code to accomplish what I need.

You should post this question and code in the Web Development / Javascript forum. As has been pionted out, this forum is for Java questions, which is not the same thing as Javascript.

•

Join Date: Aug 2007

Posts: 6

Reputation: StrongOak is an unknown quantity at this point

Solved Threads: 0

StrongOak

Offline

Newbie Poster

Re: Help tweaking some java

Aug 22nd, 2007

•

Originally Posted by Ezzaral

You should post this question and code in the Web Development / Javascript forum. As has been pionted out, this forum is for Java questions, which is not the same thing as Javascript.

Yeah admins already moved it for me.

•

Join Date: Jan 2007

Posts: 3,203

Reputation: MidiMagic has a spectacular aura about

Solved Threads: 164

MidiMagic

Offline

Nearly a Senior Poster

Re: Help tweaking some java

Aug 23rd, 2007

The code I saw is not valid javascript.

Daylight-saving time uses more gasoline

•

Join Date: Aug 2007

Posts: 6

Reputation: StrongOak is an unknown quantity at this point

Solved Threads: 0

StrongOak

Offline

Newbie Poster

Re: Help tweaking some java

Aug 24th, 2007

•

Originally Posted by MidiMagic

The code I saw is not valid javascript.

Can you elaborate on that? It is out of a java book with asp intrigrated. If your looking at it from a pure java standpoint look at the second code, which is what the client sees.

•

Join Date: Jan 2007

Posts: 3,203

Reputation: MidiMagic has a spectacular aura about

Solved Threads: 164

MidiMagic

Offline

Nearly a Senior Poster

Re: Help tweaking some java

-1

#10

Aug 25th, 2007

Java and JavaScript are two totally different languages. The only common element is the name "Java".

You can't learn JavaScript from a Java book, or Java from a JavaScript book.

The following is NOT valid JavaScript, though it is valid Java.

 Help with Code Tags 
 JavaScript / DHTML / AJAX Syntax (Toggle Plain Text) 
code = Trim(DataRangeHdr1("code"))
DiagnosisName = DataRangeHdr1("DiagnosisName")
DiagnosisName = (Replace(DiagnosisName,"'"," "))
 
CodeMark = InStr(code,".")
code = Trim(DataRangeHdr1("code"))
DiagnosisName = DataRangeHdr1("DiagnosisName")
DiagnosisName = (Replace(DiagnosisName,"'"," "))
 
CodeMark = InStr(code,".")

JavaScript requires a semicolon at the end of each statement, except in certain positions (where the semicolon must not appear). Java does not require semicolons except in certain constructions.

Internet Explorer allows some JavaScript statements to work correctly without semicolons, but other browsers do not. So IE cheats. Don't write your code to rely on IE quirks.

Last edited by MidiMagic; Aug 25th, 2007 at 8:13 pm.

Daylight-saving time uses more gasoline