|
Disable the button when you call a function, when it`s finish enable it again.
<italic>Work hard and a bit of luck is the key to success. You don`t need to be genius, to be rich.
|
|
|
|
|
Dear Sirs,
I am trying to download a csv file from the internet using
the MSHTML model and can successfully obtain the data to a
HTMLDocument variable using the following.
Dim objMSHTML As New MSHTML.HTMLDocument
Dim objDocument As MSHTML.HTMLDocument
Set objDocument = objMSHTML.createDocumentFromUrl
(txtURL.Text, vbNullString)
where txtURL.Text
= "http://www.a_web_site.com/download/data.csv"
What I cannot do is extract the csv data from the
variable, as it does not appear to be associated with any
node / element etc.
I know the objDocument does contain the data as I can
check the size of the variable to which it returns a
largeish value
I am really quite lost with all this - I do not really
understand how all this works and have been trying to find
an online resource that explains it in lay terms, however
everything that I have located to date goes way over my
head!
Hoping someone can assist
Regards
Jack
|
|
|
|
|
I am trying to write a web page that allows a user to select things from box1 (hospitallist1) which then show up in box2(selHospitals) - this works. Box2 items then need to be passed to the next page - I know I am just being braindead but I have been trying things for 3 hours - I cannot get this to pass the values to the next page. When I move items to the new listbox - does this create the array or do I need to do something else to create the string?. Any help is appreciated - I am new to .asp!
Below is the code for both programs.
Prog1:
<%@ Language=VBScript %>
function addtocombo()
{
var i = 0
var selectedItem
var selectedText
var selectedValue
var newoption1
for (counter = 0; counter < userslist.hospitallist.length; counter++)
{if (userslist.hospitallist.options(counter).selected == 1)
{selectedItem = document.userslist.hospitallist.selectedIndex;
selectedText =
document.userslist.hospitallist.options[counter].text;
selectedValue =
document.userslist.hospitallist.options[counter].value;
newoption1 = new Option(selectedText, selectedValue, false, false);
document.userslist.selitems.options[i] = newoption1;
i = i + 1}
}
}
function moveit()
{
var boxLength = document.userslist.selHospitals.length;
var selectedItem = document.userslist.hospitallist1.selectedIndex;
var selectedText =
document.userslist.hospitallist1.options[selectedItem].text;
var selectedValue =
document.userslist.hospitallist1.options[selectedItem].value;
var i;
var isNew = true;
if (boxLength != 0)
{
for (i = 0; i < boxLength; i++)
{thisitem = document.userslist.selHospitals.options[i].text;
if (thisitem == selectedText)
{isNew = false;
break;}
}
}
if (isNew)
{ newoption = new Option(selectedText, selectedValue, false, false);
document.userslist.selHospitals.options[boxLength] = newoption;}
document.userslist.hospitallist1.selectedIndex=-1;
}
function removefromcombo()
{ var boxLength = document.userslist.selHospitals.length;
arrSelected = new Array();
var count = 0;
for (i = 0; i < boxLength; i++)
{if (document.userslist.selHospitals.options[i].selected)
{arrSelected[count] =
document.userslist.selHospitals.options[i].value;}
count++;
}
var x;
for (i = 0; i < boxLength; i++)
{for (x = 0; x < arrSelected.length; x++)
{if (document.userslist.selHospitals.options[i].value ==
arrSelected[x])
{document.userslist.selHospitals.options[i] = null;}
}
boxLength = document.userslist.selHospitals.length;
}
}
//-->
<%
dim hospitallist1
dim selHospitals
%>
Hospital Selection List
| Click on Name to Add
Hospital List | | User's Current Hospital
List |
------ ALL HOSPITALS -----
ARH Regional Medical Center
Baptist Hospital East
Baptist Hospital Northeast
Baptist Regional Medical Center
Berea Hospital
Bluegrass Community Hospital
Bourbon Community Hospital
Breckinridge Memorial Hospital
Caldwell County Hospital
Caritas Medical Center
Carroll County Hospital
Casey County Hospital
Caverna Memorial Hospital Inc.
| | |
|
Prog2:
<%
dim strHospitalList
dim whatislist
strHospitalList = (Request.form("sHospitals"))
whatislist = TypeName(strHospitalList)
Response.write "List = " & strHospitalList
%>
|
|
|
|
|
I don't see wht a dynamically created OPTION list wouldn't get passed onto a called script...
Why not try it and see what happens?
It's frustrating being a genius and living the life of a moron!!!
|
|
|
|
|
Hi ,
The values from the page automatically delete when page load is executed . You have two options
One , set the page Eventwireup ="false" in the html code . Then the control after pressing the button will not goes to page load .
the second option is take an hidden variable in html and assigned the values of list box when you are assigning the values to another list box . and take the value from hidden variable and insert , between the values because the array of javascript is not supported by not net .
when you need individual vaues use split function in .net .
when you are retrving the values from the hidden variable use id of hidden variable .value
|
|
|
|
|
Hi,
I have a list of links as an usorted list:
<ul>
<li><a href="....">link1</a></li>
<li><a href="....">link2</a></li>
<li><a href="....">link3</a></li>
<li><a href="....">link4</a></li>
<li><a href="....">link5</a></li>
<li><a href="....">link6</a></li>
</ul>
Now I would like to have this links in 3 columns; somwthing like this:
link1 link2 link3
link4 link5 link6
I don't want to use tables. My idea was to give the li elements a class name that represents the column:
<ul>
<li class="col1"><a href="....">link1</a></li>
<li class="col2"><a href="....">link2</a></li>
<li class="col3"><a href="....">link3</a></li>
<li class="col1"><a href="....">link4</a></li>
<li class="col2"><a href="....">link5</a></li>
<li class="col3"><a href="....">link6</a></li>
</ul>
but now I have the Problem of how to write the css code. I've made all of them inline (with display:inline) and gave the three classes three different positions, but now all elements are on the same line
Any Ideas how to solve this Problem without a table?
Thanks Alot
Roland
|
|
|
|
|
I have the following kind of
Text: |field|
Longer Text: |field|
As you can see, the fields dont quite line up. So, what I really want to do is somehow 'force space' (as in place sufficient tabs or whatever) in so that the two line up.
How can I do this?
Thanks a lot,
Jim
|
|
|
|
|
While you could use absolute positioning or white space or other CSS trickery to try line columns up, generally speaking, the simplest and most cross-plaftorm way to align columns is by placing your text and controls inside of a container (such as a table) that supports the alignment.
HTH,
Tim
|
|
|
|
|
|
hi all,
actually i have placed one Input box in my HTML page, and through CSS i have assigned it's position value = relative.
now i would like to know the TOP and LEFT values of this particular input box within the HTML page. when I was trying to access the values of the Input box using following code
inputbox1.style.left
inputbox1.style.top
but these lines are returning nothing
plz help me in this
thank you all in advance
nagarajuepuri
|
|
|
|
|
Try pixelLeft
If your trying to get the coordinates of an element relative to the document I believe you will have to iterate each parent element and tally up their TOP values.
It's frustrating being a genius and living the life of a moron!!!
|
|
|
|
|
I want to exclude the header infromation from being diplayed with contents donwloaded using GET HTTP..?? Any idea how can i do that..?
|
|
|
|
|
Hi, i'm trying to attach my querystring to some email script so that it attachs the image and emails it.
My querystring would be /send.asp?name=images/logo.jpg
and heres my script
<%@ Language=VBScript %><br />
<%<br />
Dim name<br />
name=Request.QueryString("name")<br />
<br />
%><%<br />
If Len(Request.Form("txtEmail")) > 0 then<br />
<br />
Dim objMail<br />
Set objMail = Server.CreateObject("CDONTS.NewMail")<br />
<br />
objMail.From = "info@4guysfromrolla.com (4GuysFromRolla.com)"<br />
objMail.Subject = "Email attachment demo"<br />
objMail.AttachFile Server.MapPath ("name")<br />
objMail.To = Request.Form("txtEmail")<br />
objMail.Body = "This is a demo on sending an email with an attachment."<br />
objMail.Send<br />
<br />
Response.write("Mail was Sent")<br />
<br />
'You should always do this with CDONTS.<br />
set objMail = nothing<br />
<br />
<br />
End If<br />
%><br />
<br />
<form method="post" id=form1 name=form1><br />
Enter your email address:<br><br />
<input type="text" name="txtEmail" value="<%=Request.Form("txtEmail")%>"><br />
<input type="text" name="name" value="<% =name %>"><br />
<p><br />
<input type="submit" value="Send me an Email with an Attachment!" id=submit1 name=submit1><br />
</form><br />
<br />
Any help would be great thanks
|
|
|
|
|
You should first encode the name because http always convert special symbol like it convert blank space into + sign and also more .
First use server.encode(name)
then pass it as query string
then in the next page first use
name = server.decode(name)
If it not work then
make own symbol like + to replace blank from querystring
and another symbol from the query string
and then in the next page replace these symbol again .
|
|
|
|
|
i find the code below could call cmd in the window and run the command notepad.exe to start the notepad.
<br />
import java.lang.System;<br />
import java.lang.Runtime;<br />
import java.io.IOException;<br />
public class test<br />
{<br />
public static void main(String args[]) throws IOException <br />
{<br />
Runtime load = Runtime.getRuntime();<br />
load.exec("C:\\windows\\notepad.exe");<br />
}<br />
}
so i want to know how to call the cmd to run the java command
java java_class_name 1 1 3 6 hhh.txt uuu.txt
i have try load.exec("java java_class_name 1 1 3 6 hhh.txt uuu.txt")
it is not work
kei
|
|
|
|
|
Hi all:
I need to control the vertical scroll position of a page when the user hits an arrow. The problem is that the page is like a list or text area control and the behavior should be like this: only when I'm at the bottom of this list the scroll should go down and not at every hit of the arrow. Every item of the list is a DIV element, so I've intended to scroll at a certain position depending on the DIV viewed but I can't manage to work it. How can I know if the DIV is within the viewed area?
I dont't know if that's the best way to do it so if you think there's a better way it'll be welcome.
Thanks,
Marc
|
|
|
|
|
I have a search page that has a form that only works half way when I use "GET" and the other half only works when I use "POST"... does anyone have any ideas???
Thanks in advance
|
|
|
|
|
I'm not sure I know what your saying...but...
If you mean some of your POST/GET variables are not being submitted to the server...
You should ask your hosting company or check the config's to see if maybe there is an option which limits the amount of GET/POST data allowed to be submitted - on the server side (ie: PHP you may want to look at the php.ini)
Cheers
It's frustrating being a genius and living the life of a moron!!!
|
|
|
|
|
Need help with this code. I can not get the onchange dropdown to display info about the selected item in the dropdown.
its alot of code, Sorry.
here is the code:
<%
' Constants ripped from adovbs.inc:
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adCmdText = &H0001
' Our own constants:
Const PAGE_SIZE = 200 ' The size of our pages.
' Declare our variables... always good practice!
Dim strURL ' The URL of this page so the form will work
' no matter what this file is named.
Dim cnnSearch ' ADO connection
Dim rstSearch ' ADO recordset
Dim strDBPath ' path to our Access database (*.mdb) file
Dim strSQL ' The SQL Query we build on the fly
Dim strSearch ' The text being looked for
Dim iPageCurrent ' The page we're currently on
Dim iPageCount ' Number of pages of records
Dim iRecordCount ' Count of the records returned
Dim I ' Standard looping variable
' Retreive the URL of this page from Server Variables
strURL = Request.ServerVariables("URL")
' Retreive the term being searched for. I'm doing it on
' the QS since that allows people to bookmark results.
' You could just as easily have used the form collection.
strSearch = Request.QueryString("search")
strSearch = Replace(strSearch, "'", "''")
' Retrieve page to show or default to the first
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
' Since I'm doing this all in one page I need to see if anyone
' has searched for something. If they have we hit the DB.
' O/W I just show the search form and quit.
%>
[Since we've got a very small sample DB, try a single letter
search like 's' or 'd' for an example that actually pages!]
<%
If strSearch <> "" Then
' MapPath of virtual database file path to a physical path.
' If you want you could hard code a physical path here.
strDBPath = Server.MapPath("../fpdb/agent.mdb")
' Create an ADO Connection to connect to the sample database.
' We're using OLE DB but you could just as easily use ODBC or a DSN.
Set cnnSearch = Server.CreateObject("ADODB.Connection")
' This line is for the Access sample database:
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
' Build our query based on the input.
strSQL = "SELECT * " _
& "FROM agent_info " _
& "WHERE last LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
& "OR first LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
& "ORDER BY last;"
' Execute our query using the connection object. It automatically
' creates and returns a recordset which we store in our variable.
Set rstSearch = Server.CreateObject("ADODB.Recordset")
rstSearch.PageSize = PAGE_SIZE
rstSearch.CacheSize = PAGE_SIZE
' Open our recordset
rstSearch.Open strSQL, cnnSearch, adOpenStatic, adLockReadOnly, adCmdText
' Get a count of the number of records and pages
' for use in building the header and footer text.
iRecordCount = rstSearch.RecordCount
iPageCount = rstSearch.PageCount
If iRecordCount = 0 Then
' Display no records error.
%>
No Agents matched your search. Please try again.
<%
Else
' Move to the page we need to show.
rstSearch.AbsolutePage = iPageCurrent
' Show a quick status line letting people know where they are:
%>
<% ' displays number of records that match %>
<%= iRecordCount %> Records Found.
<%
' Display a combo box of the data in the recordset. We loop through the
' recordset displaying the fields from the table and using MoveNext
' to increment to the next record. We stop when we reach EOF.
%>
<% ' here is where I started editing file %>
<%
Do While Not rstSearch.EOF And rstSearch.AbsolutePage = iPageCurrent
%>
<%
if Request.Form("name") = rstSearch ("last") then
Response.Write ""
Response.Write oRs("last") & ", " & oRs("first") & ""
oRs.MoveNext
else
Response.Write ""
Response.Write rstSearch ("last") & ", " & rstSearch ("first") & ""
rstSearch.MoveNext
end if
loop
%>
<% ' here is where I stopped editing file %>
The following was selected : <%=Request.Form ("name")%>
<%
End If
' Close our recordset and connection and dispose of the objects
rstSearch.Close
Set rstSearch = Nothing
cnnSearch.Close
Set cnnSearch = Nothing
End If
%>
|
|
|
|
|
HI...
Can somebody guide me ? Im desiging a web pabe in VB.NET & ASP.NET which will access the device connected to COM port. I do not know how to create classes for that or any other method.
thank you
G2
|
|
|
|
|
Hi, i will be launching a site on which i will have a birthday reminder service along with some other features. Site is being made with the help of ASP and MSAccess. its birthday reminder service is a bit similar to that of birthdayalarm.com. Now if you go to www.birthdayalarm.com you will notice that when it gives you an option to add birthdays to your list, it allows you to get access to your msn list on that very site..a user just has to enter his msn/yahoo id and password on that site and then it shows his full contact list, and then with just one click it can e-mail all those users in the contact list. I want that kind of a system with which users on my site can have access to their msn and yahoo contact list...after they provide their user id and password. Does someone has any idea on how that thing can be made available on my site...any help would be greatly appreciated as its a really important part of my site. Any help (specially with some detailed instructions) would be greatly appreciated.
thnax
|
|
|
|
|
Hi, Everybody,
I have a question about how to send an email with attachment, here is it:
We can just give a string of the filePath+FileName to AttachFile method, and then send it by using CDO message object. My question is where is the file located? is it on the server of on the client side.
The client side I mentioned aboved means, I create an ASP page where the user can choose the files he/she wants it appears on the EMail. This way the file is on the client side(internet user's pc). Can we just use the file path or we have to upload the file to the server first and then use the server's file to attach it to the email?
Thanks a lot!!
Alan
Alan Shen
MCAD for .NET Version
^~^~^~^~^~^~^~^~^~^~^
Great idea is the beginging of success!
|
|
|
|
|
alanshen209 wrote:
Can we just use the file path or we have to upload the file to the server first and then use the server's file to attach it to the email?
The email is sent in the server, so you have to upload the file to the server and then attach the file in the server to the email.
-- LuisR
Luis Alonso Ramos
Intelectix - Chihuahua, Mexico
Not much here: My CP Blog!
|
|
|
|
|
Hi,
Thanks very much for your answer.
I have one more question:
when I use the following code send the email, I got an Error like this:
Error Type:
CDO.Message.1 (0x8004020A)
The SMTP server name is required, and was not found in the configuration source.
code:
Set Msg = CreateObject("CDO.Message")
With Msg
.To = "careers@integrarx.com"
.From = myRequest("email")
.Subject = "Applied Form"
.HTMLBody = htmlBody
.AddAttachment SavePath
.Send
End With
set Msg=nothing
the code works very well without the attachment, Would you please tell me why and how to fix it.
Alan Shen
MCAD for .NET Version
^~^~^~^~^~^~^~^~^~^~^
Great idea is the beginging of success!
|
|
|
|
|
What value u getting in SavePath variable.
it should be absolute path of the file
SavePath="C:\inetpub\wwwroot\file.jpg"
for getting absolute path use Server.Mappath
|
|
|
|