Hi,
I am complete JavaScript novice and would really appreciate some help with
this code:
================================================== ===================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ssdb.asp" -->
<%
Dim rs_news_edit
Dim rs_news_edit_numRows
Set rs_news_edit = Server.CreateObject("ADODB.Recordset")
rs_news_edit.ActiveConnection = MM_ssdb_STRING
rs_news_edit.Source = "SELECT * FROM tblnews"
rs_news_edit.CursorType = 0
rs_news_edit.CursorLocation = 2
rs_news_edit.LockType = 1
rs_news_edit.Open()
rs_news_edit_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_news_edit_numRows = rs_news_edit_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL
and Form parameters
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If
MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem &
Server.URLencode(Request.QueryString(MM_item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem &
Server.URLencode(Request.Form(MM_item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the
strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<html>
<head>
<title>ss</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
..showSwitch {
display: block;
font-family: Georgia, "Times New Roman", Times, serif;
color: #FF0000;
}
..hideSwitch {
display: none;
font-family: Georgia, "Times New Roman", Times, serif;
color: #FF0000;
}
</style>
<script>
function showHideSwitch2 (theid, value) {
if (document.getElementById) {
switch_id = document.getElementById(theid);
if (value == 'show') {
switch_id.className = 'showSwitch';
}else{ switch_id.className = 'hideSwitch';
}
}
}
</script>
<style type="text/css">
<!--
-->
</style>
</head>
<body background="Images/BG.jpg">
<table width="100%" height="100%" border="0" align="center" cellpadding="0"
cellspacing="0">
<tr>
<td align="center" valign="middle">
<table width="700" height="600" border="1" align="center" cellpadding="0"
cellspacing="0" bordercolor="#B1D3EC">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" height="100%" border="0" align="center"
cellpadding="0" cellspacing="0">
<tr>
<td><div align="left"> <img
src="Images/edit_news.jpg" width="142" height="40"></div></td>
</tr>
<tr>
<td><p align="center"> </p>
<p align="left"> </p>
<table width="95%" border="0" align="center"
cellpadding="0" cellspacing="0">
<%
While ((Repeat1__numRows <> 0) AND (NOT rs_news_edit.EOF))
%>
<tr>
<td width="28%"><p
align="left"><%=(rs_news_edit.Fields.Item("news_su mmary").Value)%></p>
<p> </p></td>
<td width="28%"><div align="center">
<p><%=(rs_news_edit.Fields.Item("news_complete").V alue)%></p>
<p> </p>
</div></td>
<td width="28%"> </td>
<td width="16%">
<div align="center">
<p align="right"><a href="edit_news_01.asp?<%=
MM_keepURL & MM_joinChar(MM_keepURL) & "id=" &
rs_news_edit.Fields.Item("id").Value %>">Change</a>
</p>
<p> </p>
</div></td>
</tr>
<tr>
<td colspan="4"><p align="left"><a href="javascript:;"
onClick="showHideSwitch2('switch4', 'show')">open
4</a>
<a href="javascript:;" onClick="showHideSwitch2('switch4', 'hide')">close
4</a>
<p class="hideSwitch" id="switch4"><table width="75%" border="1"
align="center">
<tr>
<td>1</td>
<td>1</td>
<td>1</td>
</tr>
<tr>
<td>1</td>
<td>1</td>
<td>1</td>
</tr>
<tr>
<td>1</td>
<td>1</td>
<td>1</td>
</tr>
</table></p></p>
</td>
</tr>
<tr>
<td colspan="4"><hr></td>
</tr>
<tr>
<td colspan="4"> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_news_edit.MoveNext()
Wend
%>
</table>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p></td>
</tr>
</table></td>
</tr>
<tr>
<td height="10" bgcolor="#B1D3EC"> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
rs_news_edit.Close()
Set rs_news_edit = Nothing
%>
================================================== ===================
The problem is that the table with the '1's in it does not appear in each
repeat region bit, so for example if you clicked on the 5th repeated region
section the table would still open in the first section with the included
dynamic data also from the first item
Is there anyway I can fix this ?
Thanks in advance,
Andy. 3 1819
Andy wrote: Hi,
I am complete JavaScript novice and would really appreciate some help with this code:
================================================== ===================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ssdb.asp" --> <% Dim rs_news_edit Dim rs_news_edit_numRows
Set rs_news_edit = Server.CreateObject("ADODB.Recordset") rs_news_edit.ActiveConnection = MM_ssdb_STRING rs_news_edit.Source = "SELECT * FROM tblnews" rs_news_edit.CursorType = 0 rs_news_edit.CursorLocation = 2 rs_news_edit.LockType = 1 rs_news_edit.Open()
rs_news_edit_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index
Repeat1__numRows = -1 Repeat1__index = 0 rs_news_edit_numRows = rs_news_edit_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth
Dim MM_removeList Dim MM_item Dim MM_nextItem
' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If
MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone=""
' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next
' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next
' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If
' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <html> <head> <title>ss</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style> .showSwitch { display: block; font-family: Georgia, "Times New Roman", Times, serif; color: #FF0000; } .hideSwitch { display: none; font-family: Georgia, "Times New Roman", Times, serif; color: #FF0000; } </style>
<script>
function showHideSwitch2 (theid, value) { if (document.getElementById) { switch_id = document.getElementById(theid); if (value == 'show') { switch_id.className = 'showSwitch'; }else{ switch_id.className = 'hideSwitch'; } } }
</script>
<style type="text/css"> <!-- --> </style>
</head> <body background="Images/BG.jpg"> <table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="middle"> <table width="700" height="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#B1D3EC"> <tr> <td bgcolor="#FFFFFF"> <table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="left"> <img src="Images/edit_news.jpg" width="142" height="40"></div></td> </tr> <tr> <td><p align="center"> </p> <p align="left"> </p> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0"> <% While ((Repeat1__numRows <> 0) AND (NOT rs_news_edit.EOF)) %> <tr> <td width="28%"><p align="left"><%=(rs_news_edit.Fields.Item("news_su mmary").Value)%></p> <p> </p></td> <td width="28%"><div align="center">
<p><%=(rs_news_edit.Fields.Item("news_complete").V alue)%></p> <p> </p> </div></td> <td width="28%"> </td> <td width="16%"> <div align="center"> <p align="right"><a href="edit_news_01.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "id=" & rs_news_edit.Fields.Item("id").Value %>">Change</a> </p> <p> </p> </div></td> </tr> <tr> <td colspan="4"><p align="left"><a href="javascript:;" onClick="showHideSwitch2('switch4', 'show')">open 4</a> <a href="javascript:;" onClick="showHideSwitch2('switch4', 'hide')">close 4</a> <p class="hideSwitch" id="switch4"><table width="75%" border="1" align="center"> <tr> <td>1</td> <td>1</td> <td>1</td> </tr> <tr> <td>1</td> <td>1</td> <td>1</td> </tr> <tr> <td>1</td> <td>1</td> <td>1</td> </tr> </table></p></p> </td> </tr> <tr> <td colspan="4"><hr></td> </tr> <tr> <td colspan="4"> </td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_news_edit.MoveNext() Wend %> </table> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p></td> </tr> </table></td> </tr> <tr> <td height="10" bgcolor="#B1D3EC"> </td> </tr> </table></td> </tr> </table> </body> </html> <% rs_news_edit.Close() Set rs_news_edit = Nothing %>
================================================== ===================
The problem is that the table with the '1's in it does not appear in each repeat region bit, so for example if you clicked on the 5th repeated region section the table would still open in the first section with the included dynamic data also from the first item
Is there anyway I can fix this ?
Thanks in advance,
Andy.
Andy this is VBScript.
This post has been copied to microsoft.public.scripting.vbscript, check
there for a reply.
Follow-ups have been set to microsoft.public.scripting.vbscript only.
--
Andrew Urquhart
- FAQ: http://jibbering.com/faq
- Archive: http://groups.google.com/groups?grou...ang.javascript
- Reply: www.andrewu.co.uk/about/contact/
Hi Andrew,
The VBscript is for the ASP code, there is a little JavaScript within
section of code that controls the show hide aspect of website, its this I
hope to fix.
Thanks
Andy.
"Andrew Urquhart" <re***@website.in.sig> wrote in message
news:6pL1c.650$54.540@newsfe1-win... Andy wrote: Hi,
I am complete JavaScript novice and would really appreciate some help with this code:
================================================== ===================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ssdb.asp" --> <% Dim rs_news_edit Dim rs_news_edit_numRows
Set rs_news_edit = Server.CreateObject("ADODB.Recordset") rs_news_edit.ActiveConnection = MM_ssdb_STRING rs_news_edit.Source = "SELECT * FROM tblnews" rs_news_edit.CursorType = 0 rs_news_edit.CursorLocation = 2 rs_news_edit.LockType = 1 rs_news_edit.Open()
rs_news_edit_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index
Repeat1__numRows = -1 Repeat1__index = 0 rs_news_edit_numRows = rs_news_edit_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth
Dim MM_removeList Dim MM_item Dim MM_nextItem
' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If
MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone=""
' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next
' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next
' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If
' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <html> <head> <title>ss</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style> .showSwitch { display: block; font-family: Georgia, "Times New Roman", Times, serif; color: #FF0000; } .hideSwitch { display: none; font-family: Georgia, "Times New Roman", Times, serif; color: #FF0000; } </style>
<script>
function showHideSwitch2 (theid, value) { if (document.getElementById) { switch_id = document.getElementById(theid); if (value == 'show') { switch_id.className = 'showSwitch'; }else{ switch_id.className = 'hideSwitch'; } } }
</script>
<style type="text/css"> <!-- --> </style>
</head> <body background="Images/BG.jpg"> <table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="middle"> <table width="700" height="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#B1D3EC"> <tr> <td bgcolor="#FFFFFF"> <table width="100%" height="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="left"> <img src="Images/edit_news.jpg" width="142" height="40"></div></td> </tr> <tr> <td><p align="center"> </p> <p align="left"> </p> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0"> <% While ((Repeat1__numRows <> 0) AND (NOT rs_news_edit.EOF)) %> <tr> <td width="28%"><p align="left"><%=(rs_news_edit.Fields.Item("news_su mmary").Value)%></p> <p> </p></td> <td width="28%"><div align="center">
<p><%=(rs_news_edit.Fields.Item("news_complete").V alue)%></p> <p> </p> </div></td> <td width="28%"> </td> <td width="16%"> <div align="center"> <p align="right"><a href="edit_news_01.asp?<%= MM_keepURL & MM_joinChar(MM_keepURL) & "id=" & rs_news_edit.Fields.Item("id").Value %>">Change</a> </p> <p> </p> </div></td> </tr> <tr> <td colspan="4"><p align="left"><a href="javascript:;" onClick="showHideSwitch2('switch4', 'show')">open 4</a> <a href="javascript:;" onClick="showHideSwitch2('switch4', 'hide')">close 4</a> <p class="hideSwitch" id="switch4"><table width="75%" border="1" align="center"> <tr> <td>1</td> <td>1</td> <td>1</td> </tr> <tr> <td>1</td> <td>1</td> <td>1</td> </tr> <tr> <td>1</td> <td>1</td> <td>1</td> </tr> </table></p></p> </td> </tr> <tr> <td colspan="4"><hr></td> </tr> <tr> <td colspan="4"> </td> </tr> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_news_edit.MoveNext() Wend %> </table> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p> <p align="center"> </p></td> </tr> </table></td> </tr> <tr> <td height="10" bgcolor="#B1D3EC"> </td> </tr> </table></td> </tr> </table> </body> </html> <% rs_news_edit.Close() Set rs_news_edit = Nothing %>
================================================== ===================
The problem is that the table with the '1's in it does not appear in each repeat region bit, so for example if you clicked on the 5th repeated region section the table would still open in the first section with the included dynamic data also from the first item
Is there anyway I can fix this ?
Thanks in advance,
Andy.
Andy this is VBScript. This post has been copied to microsoft.public.scripting.vbscript, check there for a reply. Follow-ups have been set to microsoft.public.scripting.vbscript only. -- Andrew Urquhart - FAQ: http://jibbering.com/faq - Archive: http://groups.google.com/groups?grou...ang.javascript - Reply: www.andrewu.co.uk/about/contact/
In article <40***********************@news.dial.pipex.com>, andyww14
@hotmail.com enlightened us with... Hi Andrew,
The VBscript is for the ASP code, there is a little JavaScript within section of code that controls the show hide aspect of website, its this I hope to fix.
Then copy and paste the code as the browser sees it. With View->Source.
Preferably in a smaller bit of code that simply demonstrates the
javascript problem so we can copy and paste it and play with it.
You expect us to know VBScript? ;)
(actually having the script there is confusing if it is a JS problem,
because we don't see what the browser sees, so how can we fix it?)
From what I can tell, though, the name is hardcoded as
<a href="javascript :;" onClick="showHideSwitch2('switch4', 'hide')">
Well, if that piece repeats as it shows, the same div will be passed for
every click. So that same div will be hidden and shown every time.
Check the real source to see.
--
--
~kaeli~
Santa's helpers are subordinate clauses. http://www.ipwebdesign.net/wildAtHeart http://www.ipwebdesign.net/kaelisSpace This thread has been closed and replies have been disabled. Please start a new discussion. Similar topics
by: dracolytch |
last post by:
Good day all,
Ok, I have a pretty tricky problem that I need some help with.
I pass around search query information a fair amount (specifically
WHERE statements). Normally, I just rawurlencode()...
|
by: KKramsch |
last post by:
OK, here's the scenario: I have a CGI script that generates a
page with frames (BTW, I'm not crazy about frames, but in this case
the decision to use them is out of my hands). In a typical...
|
by: Peter Pfeiffer |
last post by:
I've written several scripts that have "while" blocks which increment a
date by one day if the date does not match one of a group of dates.
However, sometimes it apparently steps out out the while...
|
by: Jarrod Hyder |
last post by:
Ok, I wrote my own weblog and I'm working on the web interface for
adding/editing my posts. I decided to add a little preview button...when
the button is clicked it is suppose to open a pop-up...
|
by: DKode |
last post by:
I have a "Timesheet" application I am building for my company.
The way I have the sql tables setup, is each day has a unique record
for a specific user, then there is a TimeEntry table, that has...
|
by: howachen |
last post by:
Hi,
I have one very simple tricky question which is quite interesting, I
would like to share with all of you here...
//=======================================
<script...
|
by: Singulus |
last post by:
Hello all,
I've searched for similar threads, I've found some bit of useful info
here and there, but nevertheless I want to post my questions...So, how
can I (we, in fact the forum can benefit...
|
by: -Lost |
last post by:
I'm REALLY liking this so far. And for those who welcome something a
little less cryptic than what the resident date guru offers, here's a
chance to try something fairly elegant and definitely...
|
by: Dan Rumney |
last post by:
Hi all,
I've been writing Javascript for quite a while now and have, of late,
been writing quite a lot of AJAX and AJAX-related code.
In the main, my dynamically generated pages are created...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
|
by: tracyyun |
last post by:
Dear forum friends,
With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...
|
by: agi2029 |
last post by:
Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...
|
by: isladogs |
last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM).
In this session, we are pleased to welcome a new...
|
by: conductexam |
last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...
| |