How to 'force' server side for VBScript

Turkbear · Mar 22, 2002

I have read in these forums that VBScript can be either client or server side - Since Netscape cannot handle VBScript that is client-side, how do I make the code run at the server?

Here is the page I need to work in IE or Netscape
It currently works great in IE....
( The VBScript code is from Adrian Forbes and I have included it in a simple test page with values from a drop-down list populated from a database...)
-----------------------------------------------------------
<%@ Language=VBScript %>
<html>
<body>
<div align="center" >
<%
Dim objDC, objRS
' Create and establish data connection
Set objDC = Server.CreateObject("ADODB.Connection&quot

objDC.ConnectionTimeout = 15
objDC.CommandTimeout = 30

'Code to connect to Oracle Warehouse
objDC.Open "Provider=MSDAORA.1;Password=*****;User ID=*****;Data Source=whs1"

SqlStrEmp = "Select distinct empl_nm,empl_nbr empnbr from warehouse.hr_public order by empl_nm"

Set RS1 = objDC.Execute(SqlStrEmp)

arrEmpData = RS1.GetRows()

RS1.Close
Set RS1 = Nothing

objDC.Close
Set objDC = Nothing
iRecFirstEmp = LBound(arrEmpData, 2)
iRecLastEmp = UBound(arrEmpData, 2)
iFieldFirstEmp = LBound(arrEmpData, 1)
iFieldLastEmp = UBound(arrEmpData, 1)

%>


<form name=frmTest METHOD="POST" ACTION="SeeForm.asp">
<select size="1" name=prompt0 ID=cboTest onKeyPress="return SelectText();">
<%
' Loop through the records (second dimension of the array)
For I = iRecFirstEmp To iRecLastEmp
' Continue until we get to the end of the recordset.

%>
<OPTION VALUE="<%=trim(arrEmpData(iFieldLastEmp,I)) %>"><%=trim(arrEmpData(iFieldFirstEmp,I)) %> </OPTION>
<%
' Get next record

Next ' I
%>

</SELECT>
</select>
<INPUT type="hidden" NAME="p1" Value="">
<INPUT type="submit" Value="Try It" >
</form>
</div>

<script type="text/vbscript" language="VBScript" runat="server">
dim sBuffer ' This var stores the buffer of letters typed

function SelectText
dim objSelect, i, iLen

SelectText = False ' We need to return False to disable the
' SELECT's built-in functionality which is to
' select the first OPTION that begins with the
' key you pressed

sBuffer = sBuffer & Chr(window.event.keyCode) ' The keyCode is the ASCII value of the key you pressed
' so turn that into a character and add it to the buffer
iLen = len(sBuffer) ' We will be using this length a lot so store it in a local var for speed

set objSelect = document.frmTest.cboTest ' Get a handle on the SELECT object
for i = 0 to objSelect.Options.length - 1 ' Loop through each OPTION
if strcomp(left(objSelect.Options(i).Text, iLen), sBuffer, 1) = 0 then ' Test if the OPTION's Text starts with
' document.all("BestMatch&quot

.innerText = objSelect.Options(i).Text
document.frmTest.p1.value = objSelect.Options(i).Text ' the same letters as the buffer
objSelect.SelectedIndex = i ' If it does we want to select it

exit function ' Then exit the function
end if
next

sBuffer = "" ' If the code gets this far there is nothing in the SELECT
' that matches the buffer so reset it allowing the user
' to type new letters

end function
</script>

</body>
</html>
--------------------------------------------------------
Thanks in advance for helping a newbie understand what's going on... [bigears]

dilettante · Mar 22, 2002

What you have here is an ASP page. It just happens to USE VBscript.

ASP can only run server-side, so IE/Netscape makes little difference except for the HTML emitted by the page.

If Netscrape is having trouble, it must be some detail in the HTML the processing of this page at the server creates and sends back to the browser.

I'd start by hitting the page and doing a "view source" to see what might be wrong. Then the ASP code will be "peeled away" so the trouble will be easier to spot.

Turkbear · Mar 25, 2002

Thanks for the tip..I did that and no obvious differences appear :

Here is the ( shortened ) 'View Source' from netscape which does not work ( is has the standard drop-down list behavior):
<html>
<body>
<div align="center" >



<form name=frmTest METHOD="POST" ACTION="SeeForm.asp">
<select size="1" name=prompt0 ID=cboTest onKeyPress="return SelectText();">

<OPTION VALUE="00083545">Aaker,Dennis Wayne </OPTION>

<OPTION VALUE="01010317">Aamodt,Jeanne W </OPTION>

<OPTION VALUE="00170380">Aamodt,Lawrence Gerald </OPTION>

<OPTION VALUE="00432570">Aamot,James P </OPTION>

<OPTION VALUE="00084303">Aanenson,Alan N </OPTION>

<OPTION VALUE="00623908">Aarre,Darrin M </OPTION>

<OPTION VALUE="00260452">Aarre,Dean R </OPTION>

<OPTION VALUE="00265581">Aase,Brian Dale </OPTION>

<OPTION VALUE="01061416">Aasum,Christopher M </OPTION>

<OPTION VALUE="00099100">Aasum,Michael D </OPTION>

<OPTION VALUE="00168204">Abbe,Giles J </OPTION>

<OPTION VALUE="00504001">Abbott,Kevin E </OPTION>

<OPTION VALUE="00226981">Abear,Dale D </OPTION>

<OPTION VALUE="01041261">Abel,Elizabeth Jean </OPTION>

<OPTION VALUE="01033272">Abel,Jerome A </OPTION>

<OPTION VALUE="01042550">Abernathy,Jennifer Lynn </OPTION>

<OPTION VALUE="01009802">Abfalter,Robert A </OPTION>

<OPTION VALUE="01036153">Abrahamson,David A </OPTION>

<OPTION VALUE="00297351">Abrahamson,Duane E </OPTION>
------------SKIPPED 5000 more in list for clarity ------------------------------
</SELECT>
</select>
<INPUT type="hidden" NAME="p1" Value="">
<INPUT type="submit" Value="Try It" >
</form>
</div>

<script type="text/vbscript" language="VBScript">

dim sBuffer ' This var stores the buffer of letters typed

function SelectText
dim objSelect, i, iLen

SelectText = False ' We need to return False to disable the
' SELECT's built-in functionality which is to
' select the first OPTION that begins with the
' key you pressed

sBuffer = sBuffer & Chr(window.event.keyCode) ' The keyCode is the ASCII value of the key you pressed
' so turn that into a character and add it to the buffer
iLen = len(sBuffer) ' We will be using this length a lot so store it in a local var for speed

set objSelect = document.frmTest.cboTest ' Get a handle on the SELECT object
for i = 0 to objSelect.Options.length - 1 ' Loop through each OPTION
if strcomp(left(objSelect.Options(i).Text, iLen), sBuffer, 1) = 0 then ' Test if the OPTION's Text starts with
document.frmTest.p1.value = objSelect.Optionsi).Text ' the same etters as the buffer
objSelect.SelectedIndex = i ' If it does we want to select it

exit function ' Then exit the function
end if
next

sBuffer = "" ' If the code gets this far there is nothing in the SELECT
' that matches the buffer so reset it allowing the user
' to type new letters

end function

</script>

</body>
</html>

-----------
Here is it from IE ( which works as I wanted..the more letters you type, the closer you get to the name you want)
<html>
<body>
<div align="center" >



<form name=frmTest METHOD="POST" ACTION="SeeForm.asp">
<select size="1" name=prompt0 ID=cboTest onKeyPress="return SelectText();">

<OPTION VALUE="00083545">Aaker,Dennis Wayne </OPTION>

<OPTION VALUE="01010317">Aamodt,Jeanne W </OPTION>

<OPTION VALUE="00170380">Aamodt,Lawrence Gerald </OPTION>

<OPTION VALUE="00432570">Aamot,James P </OPTION>

<OPTION VALUE="00084303">Aanenson,Alan N </OPTION>

<OPTION VALUE="00623908">Aarre,Darrin M </OPTION>

<OPTION VALUE="00260452">Aarre,Dean R </OPTION>

<OPTION VALUE="00265581">Aase,Brian Dale </OPTION>

<OPTION VALUE="01061416">Aasum,Christopher M </OPTION>

<OPTION VALUE="00099100">Aasum,Michael D </OPTION>

<OPTION VALUE="00168204">Abbe,Giles J </OPTION>

<OPTION VALUE="00504001">Abbott,Kevin E </OPTION>

<OPTION VALUE="00226981">Abear,Dale D </OPTION>

<OPTION VALUE="01041261">Abel,Elizabeth Jean </OPTION>

<OPTION VALUE="01033272">Abel,Jerome A </OPTION>

<OPTION VALUE="01042550">Abernathy,Jennifer Lynn </OPTION>

<OPTION VALUE="01009802">Abfalter,Robert A </OPTION>

<OPTION VALUE="01036153">Abrahamson,David A </OPTION>

<OPTION VALUE="00297351">Abrahamson,Duane E </OPTION>

<OPTION VALUE="01026769">Abu-shaqra,Diaa F. </OPTION>

<OPTION VALUE="00483694">Ackerman,Duane F </OPTION>

<OPTION VALUE="00354253">Adair,Ralph L </OPTION>

<OPTION VALUE="00430858">Adam,John P </OPTION>

<OPTION VALUE="00279102">Adamez,Lydia </OPTION>

<OPTION VALUE="01038464">Adams,Angela R </OPTION>

<OPTION VALUE="01035997">Adams,Billy O </OPTION>

<OPTION VALUE="00421412">Adams,Cynthia Flynn </OPTION>

<OPTION VALUE="00346708">Adams,James L </OPTION>

<OPTION VALUE="01034363">Adams,Jerome </OPTION>

<OPTION VALUE="00557686">Adams,Linda L </OPTION>

<OPTION VALUE="01030391">Adamsky,Steven J </OPTION>
----------------- SKIPPED 5000m More ----------------------------------------

</SELECT>
</select>
<INPUT type="hidden" NAME="p1" Value="">
<INPUT type="submit" Value="Try It" >
</form>
</div>

<script type="text/vbscript" language="VBScript">
dim sBuffer ' This var stores the buffer of letters typed

function SelectText
dim objSelect, i, iLen

SelectText = False ' We need to return False to disable the
' SELECT's built-in functionality which is to
' select the first OPTION that begins with the
' key you pressed

sBuffer = sBuffer & Chr(window.event.keyCode) ' The keyCode is the ASCII value of the key you pressed
' so turn that into a character and add it to the buffer
iLen = len(sBuffer) ' We will be using this length a lot so store it in a local var for speed

set objSelect = document.frmTest.cboTest ' Get a handle on the SELECT object
for i = 0 to objSelect.Options.length - 1 ' Loop through each OPTION
if strcomp(left(objSelect.Options(i).Text, iLen), sBuffer, 1) = 0 then ' Test if the OPTION's Text starts with
document.frmTest.p1.value = objSelect.Options(i).Text ' the same letters as the buffer
objSelect.SelectedIndex = i ' If it does we want to select it

exit function ' Then exit the function
end if
next

sBuffer = "" ' If the code gets this far there is nothing in the SELECT
' that matches the buffer so reset it allowing the user
' to type new letters

end function
</script>

</body>
</html>

--------------
Spot anything?

Thanks again

trollacious · Mar 25, 2002

Anything with the following will not work in Netscape:

<script type="text/vbscript" language="VBScript">

You need to use Javascript for script functions that are written on the HTML pages inside script tags.

Turkbear · Mar 25, 2002

That is what is confusing me [sad]

..If the scripts run server-side why does it matter which browser gets the page..
( I realise that the script is in the body and is interactive, could that be why the script must run client-side?)

Thanks for the quick response..This is a very active forum..

trollacious · Mar 25, 2002

Turkbear · Mar 25, 2002

Thanks..That's the reluctant conclusion I have come to..
Now the work begins, since I am not sure how to code VB functions like that in JavaScript..( Oh Well, another learning opportunity....)

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

How to 'force' server side for VBScript

Turkbear

Technical User

dilettante

MIS

Turkbear

Technical User

trollacious

Programmer

Turkbear

Technical User

trollacious

Programmer

Turkbear

Technical User

Similar threads

Part and Inventory Search

Sponsor