first i want to use link href to click and display its data on next page.
and anther work i want to do selected redio buttons top_id is submetted in another recordset. please help me soon - <%@ Language =vbscript%>
-
<% Option Explicit %>
-
<html>
-
<head><TITLE>VOICE OF BARAUNIANS</TITLE></head>
-
<body>
-
<!--#include file="front.inc"-->
-
<div style="Position:Absolute; width:700; TOP:0; left:180; background-color:#f0f0f0">
-
<%
-
Dim conn
-
dim objrs
-
Dim R
-
Dim R1
-
Dim vtopsub
-
dim vtopid
-
dim vempno
-
Dim countloop
-
Dim replycount
-
Set conn = Server.CreateObject("ADODB.Connection")
-
conn.Open("DSN=ORACLE; User Id = STARTER; Password = STARTER")
-
Set R = Server.CreateObject("ADODB.Recordset")
-
Set R1 = Server.CreateObject("ADODB.Recordset")
-
Set R = Conn.Execute("SELECT top_id, top_sub, launch_by, launch_dt FROM topmaster order by top_id ")
-
%>
-
<div style="Position:Absolute; top:100; left:0; width:820; height:472; background-color:skyblue">
-
<table border=0>
-
<tr>
-
<td align='center' colspan='10%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Top Id</b></font></td>
-
<td align='center' colspan='40%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Topic</b></font></td>
-
<td align='center' colspan='40%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Employee Name</b></font></td>
-
<td align='center' colspan='20%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Posted Date</b></font></td>
-
<td align='center' colspan='10%' bgcolor='#f0f0f0'><font face="arial" size=2><b>No.Of Reply</b></font></td>
-
<td align='center' colspan='10%' bgcolor='#f0f0f0'><font face="arial" size=2><b>Reply</b></font></td>
-
</tr>
-
<%R.Movefirst
-
countloop = 1
-
Do While Not R.EOF%>
-
<tr>
-
<td align='right' colspan='10%'><font face="arial" size=2><a href=voice.asp><%Response.Write R("top_id")%></a></font></td>
-
<td align='left' colspan='40%'><font face="arial" size=2><a href=voice.asp><%Response.Write R("top_sub")%></a></font></td>
-
<td align='left' colspan='40%'><font face="arial" size=2><%Response.Write R("launch_by")%></font></td>
-
<td align='center' colspan='20%'><font face="arial" size=2><%Response.Write R("launch_dt")%></font></td>
-
<%Set R1 = Conn.Execute("SELECT top_id, rep_id from topic where top_id = " & R("top_id"))
-
If R1.Recordcount >= 0 Then
-
replycount = R1.Recordcount
-
else
-
replycount = 0
-
end if%>
-
<td align='center' colspan='10%'><font face="arial" size=2><%Response.Write replycount%></font></td>
-
<td> <input type="radio" name="radio1" value="R("top_id")" checked></td>
-
</tr>
-
<%countloop = countloop + 1
-
If countloop <= 10 Then
-
R.Movenext
-
Else
-
R.Movelast
-
End If
-
Loop %>
-
<%
-
R.Find "top_id = '" & Request.Form("top_id") & "'"
-
If Not R.EOF Then
-
vtopid = Request.Form("top_id")
-
Response.Cookies("top_id") = vtopid
-
end if
-
%>
-
</table>
-
<table width=765>
-
<tr>
-
<td align='right'><input type="submit" name="submit" value="Reply" onclick="reply()"></td>
-
</tr>
-
</table>
-
-
</div>
-
<%conn.close
-
Set conn = Nothing
-
%>
-
<script language="Javascript">
-
function brvoice()
-
{
-
window.location = "brvoice.asp"
-
}
-
-
function reply()
-
{
-
window.location = "voicereply.asp"
-
}
-
function voice()
-
{
-
window.location = "voice.asp"
-
}
-
function newtopic()
-
{
-
window.location = "newtopic.asp"
-
}
-
</script>
-
</body>
-
</html>
- <%@ Language=VBScript%>
-
<%Option Explicit%>
-
<html>
-
<head>
-
<title>Barauni Refinery -Voice of baraunians</title>
-
<!--#include file="front.inc"-->
-
</head>
-
<body>
-
<%If Request.Cookies("userid") = "" Then
-
Response.Redirect "login.asp"
-
Else%>
-
<div style="Position:Absolute; top:100; left:180; width:820; height:472; background-color:skyblue">
-
<%
-
Dim R
-
Dim R1
-
dim R2
-
Dim vrepby
-
Dim vtopid
-
Dim vrepid
-
Dim vrepdt
-
Dim vreply
-
Dim errorMsg
-
Dim conn
-
dim i
-
Dim no_of_day
-
Set conn = Server.Createobject("ADODB.Connection")
-
conn.Open "DSN=ORACLE; User ID = STARTER; Password = STARTER"
-
Set R = Server.CreateObject("ADODB.Recordset")
-
Set R1 = Server.CreateObject("ADODB.Recordset")
-
Set R2 = Server.CreateObject("ADODB.Recordset")
-
Set R2 = Conn.Execute("SELECT a.top_id, a.top_sub, a.launch_by, a.launch_dt, a.msg,b.rep_id, b.rep_by, b.rep_dt, b.reply FROM topmaster a,topic b ")
-
%>
-
<center><b><font face="arial"><h2>POST YOUR REPLY</h2></font></b></center>
-
<hr>
-
<p>
-
<form method="POST" action="voicereply.asp">
-
<div style="position:absolute; left:300; top:60; z-index:0">
-
<table border=1 width=250 > <font face="monotype corsiva"><b>Topic</b></center></font>
-
<tr>
-
<td align='center'>Topic ID</td><td colspan='10%' align='right'><%Response.Write R2("top_id") %></td>
-
</tr>
-
<tr>
-
<td align='center'>Topic Subject</td><td colspan='10%' align='right'><%Response.Write R2("top_sub") %></td>
-
</tr>
-
<tr>
-
<td align='center'>Employee Name</td><td colspan='40%' align='right'><%Response.Write R2("launch_by") %></td>
-
</tr>
-
<tr>
-
<td align='center'>Posted Date</td><td colspan='40%' align='right'><%Response.Write R2("launch_dt")%></td>
-
</tr>
-
<tr>
-
<td align='center' >No.Of Reply</td>
-
</tr>
-
<%end if%>
-
</table>
-
</div>
-
<% R1.Open "Select top_id from topmaster order by top_id", conn, adOpenStatic, adLockOptimistic, adCmdText
-
R.Open "Select rep_id from topic order by rep_id", conn, adOpenStatic, adLockOptimistic, adCmdText
-
If R.Recordcount > 0 Then
-
R.Movelast
-
vrepid = R("rep_id")
-
vrepid = CInt(vrepid) + 1
-
Else
-
vrepid = 1
-
End if
4  1618  jhardman 3,406
Recognized Expert Specialist
first i want to use link href to click and display its data on next page.
and anther work i want to do selected redio buttons top_id is submetted in another recordset. please help me soon
Please explain again what your question is. I'm afraid it is not clear what you are asking.
Jared
sir i am creating a page which is display records from table i wants to click on link and display its row detail after searching from table.
another work i wants to do reply on that topic and add its priamry key into anothe table automatically
that my problems
i cant disply specific row data it only disply first or last data from table clicking on any link .
jhardman 3,406
Recognized Expert Specialist
OK, from what I can see there are a couple holes. 1- the line that generates the radio button should look like this: - <td> <input type="radio" name="radio1" value="<%=R("top_id")%>" checked></td>
the <%=%> notation is just a shortened notation for <%response.writ e%>. As you had it written the value passed to the form was "R("
2- On the second page you will need to pull up this info and pass it to the db somehow. Sind you are using a radio button and only one option will be selected, I would do something like this: - "SELECT * FROM topic WHERE top_id = '" & request.form("radio1") & "'"
I'm not sure I follow everything in your second page, so I hope I'm not steering you wrong, but it should be something along those lines.
Jared
thanks for taking response
plz support enhanced mode at next time
Sign in to post your reply or Sign up for a free account.
Similar topics | |
by: daveland |
last post by:
I am working on some JavaScript that dynamically adds rows to a table
in response to a button click. A new row does appear on the screen
when the button is clicked. However, that table to which a row has
been added is itself contained within an outer table (to handle the
desired screen layout). That outer table does not properly grow to
contain the new size of the table to which the row was added. (More
specifically, I have...
|
by: John |
last post by:
Hi All,
I have a database with a button that when it is click it sends an email
to the client.
This email button works without any problems in other computers. On
Thursday we bought a new computer, and this particular button does not
function on the new computer.
I installed several version of Outlook from 2000 to 2003 and still
doesn't work, windows has the latest patches, I installed the jet engine, I
|
by: BBFrost |
last post by:
We just recently moved one of our major c# apps from VS Net 2002 to VS Net
2003. At first things were looking ok, now problems are starting to
appear.
So far ...
(1) ComboBox.SelectedValue = db_value;
If the db_value was not included in the ComboBox value list the
ComboBox.SelectedIndex used to return -1, Now the very same code is
|
by: Lloyd Sheen |
last post by:
This IDE is driving me nuts. I needed another button so I copied an
existing one, changed the Text and the id and position by drag and drop.
Well then I run and get the following:
Control 'Button19' of type 'Button' must be placed inside a form tag with
runat=server
Can the IDE not do what it is supposed to do. It seems that it is a fight
to make it do anything or did I do something wrong? It would seem silly to
have to create a...
|
by: Michael Yanowitz |
last post by:
Hello:
Below I have included a stripped down version of the GUI I am working on.
It contains 2 dialog boxes - one main and one settings. It has the following
problems, probably all related, that I am hoping someone knows what I am
doing wrong:
1) Pressing the Settings.. Button multiple times, brings up many instances
of the Settings Panel. I just want it to bring up one. Is there an easy
way to do that?
| | |
by: David |
last post by:
Hello all. I am trying to implement my first server control and have
run into two problems that I cannot solve. I need the assistance of
someone with more experience.
My goal was to create an input button that would allow for both text
and an image on it. I am attempting to accomplish this by basing off
of the asp:button control. I added a property for the image url and
one to determine if the image is displayed on the left or right...
|
by: Wes Brooks |
last post by:
Hello expert,
Please help me with the following problems. I have spent ages to resolve
them but no luck.
I have two forms.
(1) "Document Reception Input Form" is the main form. The search field
Document ID is unbound combo box. The table is Documents.
(2) "Document Reception Subform" is the sub form in tabular form. The linked
field is DocID. The table is DocumentReception.
|
by: rajarya |
last post by:
Hi,
I m designing a HTML page(index.html),here i have 2 frames,by defult both frames have index1.html and index2.html as their source .
in first frame(index.html) ,i have some redio buttons,and a submmit button.
so when I select one ption and click the submit button in the left side frame(or frame 1 or in index1.html) my right side frame should be reloded with a new html page as per the javascript method in main html page.
but insted I...
|
by: Chris |
last post by:
I was having problems using my local IIS to display asp.net pages, or any
pages for that matter. I actually reinstalled IIS and then uninstalled the
..net framework and reinstalled it. All pages now work including my asp.net
pages sort of....... What I mean is the page now displays without a server
unavailable error (I resolved this by putting asp.net permissions on the
folder containing the aspx pages). However when I point IIS at that...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look !
Part I. Meaning of...
|
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, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed.
This is as boiled down as I can make it.
Here is my compilation command:
g++-12 -std=c++20 -Wnarrowing bit_field.cpp
Here is the code in...
| | |
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 tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth.
The Art of Business Website Design
Your website is...
|
by: Hystou |
last post by:
Overview:
Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
|
by: TSSRALBI |
last post by:
Hello
I'm a network technician in training and I need your help.
I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs.
The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols.
I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
|
by: adsilva |
last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
|
by: 6302768590 |
last post by:
Hai team
i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
|
by: muto222 |
last post by:
How can i add a mobile payment intergratation into php mysql website.
| | |
by: bsmnconsultancy |
last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...
| |
