plss help me with this code

Dev Shed Forums Sponsor:

Laplink Gold 2008 - $15 Off with Coupon Code CJM9NE

June 15th, 2003, 07:33 PM

raviram80

Contributing User

Join Date: May 2003

Posts: 58

Time spent in forums: 24 sec
Reputation Power: 6

plss help me with this code

hii everybody

I am working on the following code and supposedly it si not wroking ...none of the buttons in the code are working...can anyone plss help me find the error wherever it is in the script so that i can proceed ahead with the code

<html>

<head>
<title>Test</title>

<script language="Javascript">

function doSend() {
squeryData = document.all("txtQueryData").value
if (squeryData == null) {
alert("You must get the data first")
return false
}
document.all("queryStuff").value = squeryData;
xaction = ../../../../.testup2.php
document.forms("form1").action = xaction;
document.form1.submit();
}

</script>

</head>

<body onload="doLoad()">

<h3 align="center">Send Queries to Server by Coordinator</h3>


<form name="form1" action=""--WEBBOT-SELF--"" method="post">
<font style="arial narrow" size="2">

<input type="button" name="loadQueryData" value="Load data">
<input type="button" onclick="doSend()" value="Send to server">

</form>

<script language="VBScript">

sub loadQueryData_onclick()

dim conn
dim rs
dim connStr
dim qry
dim xMRN,xID

msgbox "hi"

Set conn = CreateObject("ADODB.Connection")
conn.CursorLocation = 3
Set rs = CreateObject("ADODB.Recordset")

conn.Open "TestDB"

': Queries
qry = "Select * from q4

rs.Open qry, conn, adOpenStatic

if not rs.eof then
rs.movelast
total = rs.recordcount
rs.movefirst
msgbox total & " records from Queries were loaded",,""
end if
if not rs.eof then
queryArr = rs.GetRows()
rs.Close
dim sQueries
sQueries = ""
'IDlist = ""
for i = lbound(queryArr,2) to ubound(queryArr,2)
pid = queryArr(0,i)
if i = 0 then
sQueries = pid

else

sQueries = sQueries & "*" & pid

end if

next
erase queryArr
txtQueryData.value = sQueries
stuff.value = sQueries
else
rs.close
msgbox "There are no queries to upload",,""
end if

': Missing data
'==

conn.close
set rs = nothing
set conn = nothing

end sub

</script>

<hr/>

<br><input type="hidden" name="txtPatient" size="20" value="">
<br><textarea name="stuff" rows="5" cols="60"></textarea>
<br><input type="hidden" name="txtQueryData" size="20" value="">
<br><input type="hidden" name="txtMRN" size="20" value="">
<input type="hidden" name="txtMRN2" size="20" value="">

</body>

</html>

Thanks so much

Ravi

June 15th, 2003, 09:43 PM

mohecan

Contributing User

Join Date: Feb 2003

Location: Melbourne, Australia

Posts: 212

Time spent in forums: < 1 sec
Reputation Power: 6

What is the error message you are getting?

__________________
How can I soar like an eagle when
I'm flying with turkey's?

June 15th, 2003, 10:20 PM

raviram80

Contributing User

Join Date: May 2003

Posts: 58

Time spent in forums: 24 sec
Reputation Power: 6

hii theree

none of the two buttons are working...and i am getting no error message ..the code for the buttons does not seem to work

thanks

ravi

June 15th, 2003, 10:35 PM

mohecan

Contributing User

Join Date: Feb 2003

Location: Melbourne, Australia

Posts: 212

Time spent in forums: < 1 sec
Reputation Power: 6

OK, now I see it.

in your onclick command, change to:

Code:

onclick="javascript:return doSend()"

for more info see: http://www.devguru.com/Technologies...tml_button.html

and also
http://www.devguru.com/Technologies...html_input.html
HTH

Last edited by mohecan : June 15th, 2003 at 10:41 PM.

June 16th, 2003, 11:44 AM

Onslaught

/(bb|[^b]{2})/

Join Date: Nov 2001

Location: Somewhere in the great unknown

Posts: 4,827

Time spent in forums: 1 Day 22 h 57 m 29 sec
Reputation Power: 88

In the future please use an appropriate subject title. See the sticky at the top of this forum for more information.

Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > plss help me with this code

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

Accelerating Trading Partner Performance
One in five. That's how many partner transactions have at least one error. That is an amazing statistic, particularly given the extraordinary leaps in innovation across the global supply chain during the past two decades. Download this white paper to learn more.

Competing on Analytics
This Tech Analysis is designed to help identify characteristics shared by analytics competitors, and includes information about 32 organizations that have made a commitment to quantitative, fact-based analysis.

Cost Effective Scaling with Virtualization and Coyote Point Systems
An overview of the industry trend toward virtualization, how server consolidation has increased the importance of application uptime and the steps being taken to integrate load balancing technology with virtualized servers.

Five Checkpoints to Implementing IP Telephony
Implementation planning for IP PBX software and IP telephony has become vital as businesses replace discontinued legacy PBX phone systems. This informative whitepaper outlines five "checkpoints" for any implementation plan that will help make IP communications a successful proposition.

Hosted Email Security: Staying Ahead of New Threats
In the last two years, email has become a fierce battleground between the nefarious forces of spam and malware, and the heroes of messaging protection. The spam volumes increased alarmingly every month, bringing clever new forms of phishing and virus propagation attacks.

More Free IT White Papers!