> Tsiris, before you get too far with this, do you know that client-side
> VBScript works ONLY in Internet Explorer? That anyone accessing your
> site with another browser will get error messages and/or your
> VBScript-coded portions of the page won't work?
Hi.
My fault, I'll clarigy.
First, this is a custom web application, not a web page. The customer will
be using only IE.
Second, it is client side.
Third, here is the code: Please notice that the last sub (at the end of the
code, is the one where I am testing the asp code in)
Thank you very much,
Alex
*****
<%@ Language=VBScript %>
<%
dim InputValue
dim InputCrit
InputCrit=Request.Form ("SearchCr")
InputValue=Request.QueryString ("inputVal").Item
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>AMS+</TITLE>
<LINK REL="STYLESHEET" TYPE="text/css" HREF="../CSS/AMS.css">
<LINK REL="STYLESHEET" TYPE="text/css" HREF="../CSS/Desktop.css">
<STYLE>
.TableLink {behavior:url(../behaviors/TableLink2.htc)}
.ValNumeric {behavior:url(../Behaviors/ValNumeric.htc)}
</STYLE>
</HEAD>
<BODY CLASS="BodyMain" ID="IDDocBody">
<DIV ID="IDDesktopArea" Class="DesktopArea"
Style="VISIBILITY:visible;width:558pt;height:410pt;">
<img SRC="../images/Icons/BServices.gif"
Style="Position:absolute;top:1pt;left:1pt;" WIDTH="30" HEIGHT="30">
<div ALIGN="RIGHT" Style="BORDER-BOTTOM: black 1pt
solid;background:whitesmoke;padding-bottom:1pt;">
<div CLASS="BUTTON_X" TITLE="Close"
OnClick="CloseWin()">X</div>
</div>
<SPAN Class=HeaderTitle
Style="Position:absolute;top:4pt;left:30pt;">Please choose from above
list:</SPAN>
<!-- SEARCH RESULT LIST-->
<DIV ID="IDSearchRows"
Style="position:absolute;top:25pt;left:2pt;width:551pt;height:115pt;overflow
:scroll;">
</DIV>
<!-- SELECT CONTRACT-->
<FieldSet
Style="border:none;top:140pt;left:1pt;height:20pt;width:550pt;">
<!--<table border="1" cellPadding="1"
cellSpacing="1" width="80%" align="center">
<tr width="80%">
<td width="20%"> <INPUT
Type="Button" CLASS="FormButton" ID=IDCancelCnt Name="CancelCnt"
Value="Cancellation" OnClick="CancelCnt()"></td>
<td width="20%"> <INPUT
Type="Button" CLASS="FormButton" ID=IDSuspendCnt Name="SuspendCnt"
Value="Suspension" OnClick="SuspendCnt()"></td>
<td width="20%"> <INPUT
Type="Button" CLASS="FormButton" ID=IDReActivateCnt Name="ReActivateCnt"
Value="Re-Activation" OnClick="ReActivateCnt()"></td>
<td width="20%"> <INPUT
Type="Button" CLASS="FormButton" ID=IDServicesCnt Name="ServicesCnt"
Value="Change Services" OnClick="ChangeServices()"></td>
</tr>
<!--</table> -->
<input ID=IDCancelCnt OnClick="CancelCnt()"
Type="button" Value="Cancellation" CLASS="FormButton" Title="Cancellation"
Style="LEFT: 10pt; WIDTH: 70pt; TOP: 3pt; HEIGHT: 15pt">
<input ID=IDSuspendCnt OnClick="SuspendCnt()"
Type="button" Value="Suspension" CLASS="FormButton" Title="Suspension"
Style="LEFT: 82pt; WIDTH: 70pt; TOP: 3pt; HEIGHT: 15pt">
<input ID=IDReActivateCnt OnClick="ReActivateCnt()"
Type="button" Value="Re-Activation" CLASS="FormButton" Title="Re-Activation"
Style="LEFT: 154pt; WIDTH: 70pt; TOP: 3pt; HEIGHT: 15pt">
<input ID=IDServicesCnt OnClick="ChangeServices()"
Type="button" Value="Change Services" CLASS="FormButton" Title="Change
Services" Style="LEFT: 226pt; WIDTH: 70pt; TOP: 3pt; HEIGHT: 15pt">
</FieldSet>
<!-- DISPLAY CONTRACT DETAILS-->
<DIV ID="IDSearchDetails" Class="SysInfo"
Style="border:none;background-color:whitesmoke;width:551pt;height:240pt;top:
162pt;left:2pt;">
<DIV Class="HLINETITLEL">Your choice</div>
<div Class="HLINE"> </DIV>
<%
Response.Write InputCrit
Response.Write InputValue
%>
</DIV>
</DIV>
</BODY>
</HTML>
<Script Language="VBScript">
Sub CloseWin()
window.close()
End Sub
Sub TableLinkClick()
Dim Row
Dim RowId
On Error Resume Next
Set Row = window.event.srcElement.parentElement
If Row.className = "TableLink" then
RowId = Row.RowId
If err.number > 0 then
msgbox("ERROR: Row Is missing RowId
Attribute")
Exit Sub
End IF
End If
IDAccount.value = Row.RowId
IDCancelAcc.disabled=false
End Sub
Sub CancelCnt()
window.navigate "CntCancellation.asp"
End Sub
Sub SuspendCnt()
window.navigate "CntCancellation.asp"
End Sub
Sub ReActivateCnt()
window.navigate "CntReActivation.asp"
End Sub
Sub ChangeServices()
<% response.write "HELLO WORLD!" %>
End Sub
</script>
---
You are currently subscribed to activeserverpages as: [email protected]
To unsubscribe send a blank email to [EMAIL PROTECTED]
