|
Hello,
I have found some code that uploads a file from a users hard drive, to a folder on a web server.
If, and how is it possible to rename the file that has been uploaded to image1.jpg so it can later be referred to by another application?
Also, is it possible to rescale the image when it is being uploaded?
Following are the links and source code:
http://mmedia.glos.ac.uk/students/mu305/soe/insert.rar
http://mmedia.glos.ac.uk/students/mu305/soe/andalucia/insert.htm
http://mmedia.glos.ac.uk/students/mu305/soe/andalucia/loader.asp
http://mmedia.glos.ac.uk/students/mu305/soe/andalucia/insert.asp
Many thanks,
Robert
|
|
|
|
|
I sent you a email with the info, check it.
----
hxxbin
|
|
|
|
|
Hi all,
How can i modify the request object that is coming from a servlet and pass on in the servlet filter.
Thanx,
Vivek
|
|
|
|
|
Hi,
How can i run a javascript function by appending the url of any site.
Regards,
Vivek
|
|
|
|
|
huh 
explain a little clearer...
How do I print my voice mail?
|
|
|
|
|
Hi all
I'm using the following code:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsDivision
Dim rsDivision_numRows
Set rsDivision = Server.CreateObject("ADODB.Recordset")
rsDivision.ActiveConnection = MM_connOperations_STRING
rsDivision.Source = "Select * from tblDivision"
rsDivision.CursorType = 0
rsDivision.CursorLocation = 2
rsDivision.LockType = 1
rsDivision.Open()
rsDivision_numRows = 0
%>
<%
Dim rsBranch
Dim rsBranch_numRows
Set rsBranch = Server.CreateObject("ADODB.Recordset")
rsBranch.ActiveConnection = MM_connOperations_STRING
rsBranch.Source = "SELECT * FROM tblBranch order by DivisionID"
rsBranch.CursorType = 0
rsBranch.CursorLocation = 2
rsBranch.LockType = 1
rsBranch.Open()
rsBranch_numRows = 0
%>
<%
Dim rsSection
Dim rsSection_numRows
Set rsSection = Server.CreateObject("ADODB.Recordset")
rsSection.ActiveConnection = MM_connOperations_STRING
rsSection.Source = "SELECT BranchID, Section FROM tblSection"
rsSection.CursorType = 0
rsSection.CursorLocation = 2
rsSection.LockType = 1
rsSection.Open()
rsSection_numRows = 0
%>
<title>Untitled Document
<%
While (NOT rsDivision.EOF)
%>
"><%=(rsDivision.Fields.Item("Division").Value)%>
<%
rsDivision.MoveNext()
Wend
If (rsDivision.CursorType > 0) Then
rsDivision.MoveFirst
Else
rsDivision.Requery
End If
%>
<%
While (NOT rsBranch.EOF)
%>
"><%=(rsBranch.Fields.Item("Branch").Value)%>
<%
rsBranch.MoveNext()
Wend
If (rsBranch.CursorType > 0) Then
rsBranch.MoveFirst
Else
rsBranch.Requery
End If
%>
-----------------------------------------------------
This original code came from http://www.macromedia.com/support/ultradev/ts/documents/client_dynamic_listbox.htm but it doesn't really show an example past two dependent list boxes. After choosing the secod box, I get an error:
Line: 160
char: 6
Error: 'options' is null or not an object
the line in question seems to be for FOR loop part
-------------------------------------------------
function clearDynaList(oList){
for (var i = oList.options.length; i >= 0; i--){
oList.options[i] = null;
}
-------------------------------------------------
I need some help
thanks
James (e-mail me at James.Caravan@gems4.gov.bc.ca)
|
|
|
|
|
Hi,
I have an ASPX page where I am loading a custom web usercontrol I wrote. Now, have a placeholder on the ASPX, which I call the method placeholder.addcontrols("usercontrol1.ascx"). In the usercontrol I have a method which is being called in the the onload event. The problem right now is that if that method fails, I can't throw an exception or anything. I always get object instance not created. If I am loading the control, and it fails on the load event and I throw the exception shoudln't it go back to my aspx and I can handle it there or should I not put the method on the page load and have it somewhere else. Hope I didn't confuse anyone. Thanks in advance.
|
|
|
|
|
Hi,
I'm working on an intranet site where users can bring up their excel spreadsheet (accounting template) and complete their quarterly numbers. It was easy to create this page by taking the xls file in Windows Explorer and dropping it on a FrontPage web page. Really neat stuff, it looks and acts just like excel but with many limitations. I want the users to enter their info in and then save the spreadsheet - not to their computer (which they can by clicking on the export button which goes to excel) but back to the web server. Does anyone have any suggestions on how to do this with an existing spreadsheet/workbook? Any example code? 
Thanks,
Mike
Thanks,
Mike
|
|
|
|
|
Hi,
is there by chance a possibility to obtain the users IP-Adresse. I'm writing an application which is going to store the IP adress in a database? Javascript or ASP? Where shall I look?
thanks in advance,
Matthias
If eell I ,nust draw to your atenttion to het fakt that I can splel perfrectly well - i;ts my typeying that sukcs.
(Lounge/David Wulff)
www.emvoid.de
|
|
|
|
|
what you need to use is something like this:
<%= Request.ServerVariables("remote_addr") %>
The above line in your asp code will give you the clients IP address
void signature(){
cout<<"Sobbayi Interactive"<
|
|
|
|
|
hi,
does anybody know a link with the ADODB documentation? msdn.microsoft.com has an 404 error for the online documentation in the library. it's all ado.net there. but I just need the classic. any ideas?
matthias
If eell I ,nust draw to your atenttion to het fakt that I can splel perfrectly well - i;ts my typeying that sukcs.
(Lounge/David Wulff)
www.emvoid.de
|
|
|
|
|
This is all I can find: ActiveX Data Objects[^]. It appears to have been updated for the latest MDAC 2.8[^] version. From the article, MDAC 2.8 is an update following a security review of the previous product, but doesn't appear to change any significant functionality. MS recommends testing apps based on MDAC 2.8 on a non-production machine, of course.;)
Will Build Nuclear Missile For Food - No Target Too Small
|
|
|
|
|
Many thanks, very helpful.
Matthias
If eell I ,nust draw to your atenttion to het fakt that I can splel perfrectly well - i;ts my typeying that sukcs.
(Lounge/David Wulff)
www.emvoid.de
|
|
|
|
|
I have seen this article long time before here.... but didnt book mark it... can anyone help me in locating this article... CP search didnt help me
I was born intelligent
Education ruined me!.
|
|
|
|
|
If you are trying to publish content in XLS or DOC Format in ASP, you must add a Contet-Type line for example:
<br />
<%@ LANGUAGE="VBSCRIPT" %><br />
<%<br />
Response.ContentType = "application/vnd.ms-excel"<br />
%><br />
<br />
<TABLE cellspacing=1 cellpadding=1><br />
<TR><br />
<TD align=center colspan=4><FONT size=4 color=blue>Price Quote</FONT></TD><br />
</TR><br />
<TR><br />
<TD>Product</TD><br />
<TD>Price</TD><br />
<TD>Quantity</TD><br />
<TD>Total</TD><br />
</TR><br />
<TR><br />
<TD>Widget A</TD><br />
<TD>36</TD><br />
<TD>2</TD><br />
<TD>=B3*C3</TD><br />
</TR><br />
<TR><br />
<TD>Widget B</TD><br />
<TD>45</TD><br />
<TD>3</TD><br />
<TD>=B4*C4</TD><br />
</TR><br />
<TR><br />
<TD></TD><br />
<TD></TD><br />
<TD>Total</TD><br />
<TD>=Sum(D3:D4)</TD><br />
</TR><br />
<br />
<br />
</TABLE><br />
You can read an article in http://www.paragoncorporation.com/ArticleDetail.aspx?ArticleID=3
----
hxxbin
|
|
|
|
|
I assume this is a ASP page.
I get this error message. Any idea???
Server Application Error
The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance
I was born intelligent
Education ruined me!.
|
|
|
|
|
??? Yeah this a ASP page, but the error I don't understand, you had .NET support in your web server???
----
hxxbin
|
|
|
|
|
hxxbin wrote:
you had .NET support in your web server???
YES... but, will that influence my ASP page. AS far as I understand ASP and ASPX and processed by seperate work process..
He who controls others may be powerful,
But he who has mastered himself is mightier still.
|
|
|
|
|
when i add my own htc file "Size.htc" to vml sentence<v:oval.../>,the picture become disappeared.why?? following is the code:
<v:oval id="oval" style="behavior:url(Size.htc);position:absolute; width=100pt;height=75pt;" fillcolor="blue" />
|
|
|
|
|
nobody can help me?
ok
|
|
|
|
|
Does anyone know of a PHP implementation for the blowfish algorithm?
I am aware of the Perl CPAN module for blowfish, but i'm really looking for a PHP version...?
Anyone know of such a thing...?
Thanks 
p.s-Perhaps a C CGI script which can encrypt and decrypt data that I can call would be ideal in this situtation for the performance improvment I would get???
TIA
How do I print my voice mail?
|
|
|
|
|
blowfish is one of the supported algorithms in the mcrypt library as far as i know ... i use a different encryption / decryption cipher thru these libraries ... let me know if u want some source code
"there is no spoon"
biz stuff about me
|
|
|
|
|
Edit: I just did a google search and found it...now I just hope my hosting provider supports mcrypt
Source code for a blowfish would be awesome
Otherwise I have to call a perl script to encrypt/decrypt which I don't want to do...or port blowfish from C++ to PHP...which might cause me some serious headaches...
mcrypt library eh,...where would I find such a lib...?
Thanks
How do I print my voice mail?
|
|
|
|
|
does anybody know how to stop outlook totally screwing up html email when it is forwarded? the mail is fine forwarded from outlook express ... it seems outlook inserts its own stylesheet
anybody have any experience with this?
thnx
"there is no spoon"
biz stuff about me
|
|
|
|
|
This is my first update record and I'm trying to get ideals on a great way to do it. I am basically using a checkbox to select a record to update. I was able to borrow some code "The Code Project (ASP Help Board, similiar to ASPFREE)". A nice guy name Torsten Mauz left the link. So I incorporated it into my code, but I can't get it to work. Can someone give it a look...and spread the wealth... the Code is below.
<% Language ="VBscript" %>
<%
Dim CnDB
Dim rsData
Dim strConnect
Dim strSQL
Dim srchLastName
%>
<title> Resource Pool Database Record Update
Resource Employee Pool - Update Search for:
<%
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''
' ASP CODE / Opens the recorDset and AND selects all the data '
' and writes the database to the screen. '
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''
srchLastName = Request.Form("strLastName")
If srchLastName <> "" Then
Set CnDB = OpenDB() 'Opens the Database
Set rsData = Server.CreateObject ("ADODB.RecordSet") 'Opens the Recorset
strSQL = "Select * From ****** Where LastName = '" & srchLastName & "'" 'Selects all the data in the database
Set rsData = CnDB.Execute(strSQL) 'Executes the command to retrieve the database
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''
' This setsup the table for writing the files to the database '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''
If Not (rsData.EOF) Then
%>
<%
Dim rsEmpId
Dim rsFirstName
Dim rsLastName
Dim rsWorkDay
Dim rsCUnion
Dim rsBranch
Dim rsDept
Dim rsTimeIn
Dim rsTimeOut
Dim rsLunchOut
Dim rsLunchIn
Dim rsTotalHours
Dim rsAuthSig
Do Until rsData.EOF
'rsEmpId = rsData("EmpId")
rsLastName = rsData("LastName")
rsFirstName = rsData("Firstname")
rsWorkDay = rsData("Workday")
rsCUnion = rsData("CreditUnion")
rsBranch = rsData("Branch")
rsDept = rsData("Dept")
rsTimeIn = rsData("TimeIn")
rsTimeOut = rsData("TimeOut")
rsLunchOut = rsData("LunchOut")
rsLunchIn = rsData("LunchIn")
rsTotalHours = rsData("THours")
rsMetricHours = rsData("MHours")
'rsAuthSig = rsData("AuthSig")
Response.Write ""
'Response.Write "| Update | Last Name | First Name | Work Day | Credit Union | Branch | Department | Time In | Time Out | Lunch Out | Lunch In | Total Hours | Metric Hours | Authorized By |
|---|
"
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
' Borrowed Code '
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
dim iNum 'the number of checkboxes to generate
dim strAll 'a comma delinated list of all the values
dim i 'a loop counter
dim arrAll 'an array which will hold all of the values
dim arrVals 'an array to hold all checked values
dim arrInactive() 'an array to hold all unchecked values
dim bThere 'a boolean match variable
dim IDX 'an index variable
'dim strSql 'the resulting SQL string
dim z 'a loop counter
iNum = Request.QueryString ("numBoxes")
if iNum = "" then
iNum = 10
end if
if Request.Form = "" then
strAll = ""
%>
<%
'**********************
'this would be your recordset loop
'basically replace i with the ID of the record.
for i = 1 to iNum
Do
%>
<%
''''''''''''''''''''''''''
'' My Code '
''''''''''''''''''''''''''
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrlf
Response.Write "" & VbCrLf
Response.Write "" & VbCrLf
Response.Write "" & VbCrLf
Response.Write "" & VbCrLf
Response.Write "" & VbCrLf
Response.Write "" & VbCrLf
'Response.Write "" & VbCrLf
Response.Write ""
rsData.MoveNext
Loop
rsData.Close
CloseDB CnDB
End If
'''''''''''''''''''''''''''''''''
' Borrowed Code Continues '
'''''''''''''''''''''''''''''''''
%>
<%
'append the id to strAll
strAll = strAll & i & ","
next
%>
| <%=i%> | | " & rsLastName & " | " & rsFirstName & " | " & rsWorkDay & " | " & rsCUnion & " | " & rsBranch & " | " & rsDept & " | " & rsTimeIn & " | " & rsTimeOut & " | " & rsLunchOut & " | " & rsLunchIn & " | " & rsTotalHours & " | " & rsMetricHours & " | " & rsAuthSig & " | |
<%
'trim off the trailing ","
strAll = left(strAll, (len(strAll) -1))
%>
<%
else
'get the array with all of the checkbox id's
arrAll = split(Request.Form ("allBoxes"), ",")
'get the array with the id's that were ticked
arrVals = split(Request.Form ("chkBox"), ",")
strSql = ""
strSql = strSql & "UPDATE aTable SET active = 1 WHERE "
'loop through the checkboxes which were ticked
for i = 0 to ubound(arrVals)
if i = 0 then
strSql = strSql & "id = "& arrVals(i)
else
'only add the " AND " if this is not the first value
strSql = strSql & " AND id = "& arrVals(i)
end if
next
Response.Write strSql & "
"
'dimension the array to the size we need
redim arrInActive(ubound(arrAll) - ubound(arrVals))
'set our indexer variable
IDX = 0
'loop through all the checkbox values
for i = 0 to ubound(arrAll)
'a boolean value to check if we match or not
bThere = false
'loop through the values which were submitted
for z = 0 to ubound(arrVals)
'if it is found then set the boolean to true
'this is so we don't add it to the new array
if trim(arrVals(z)) = trim(arrAll(i)) then
bThere = true
end if
next
'if it wasn't in the submitted array (i.e. it wasn't checked)
if bThere = false then
'add the value to the new array
arrInactive(IDX) = arrAll(i)
'increment our indexer
IDX = IDX + 1
end if
next
strSql = ""
strSql = strSql & "UPDATE aTable SET active = 0 WHERE "
'loop through the array which holds the values that were NOT ticked
for i = 0 to ubound(arrInactive)
if arrInactive(i) <> "" then
if i = 0 then
strSql = strSql & "id = "& arrInactive(i)
else
'only add the " ADD " if this is not the first variable
strSql = strSql & " AND id = "& arrInactive(i)
end if
end if
next
Response.Write strSql
end if
%>
{ alert("A LastName Is Required to Do a Search");
}
Click Here to Search again
<%
End If
Loop
End If
%>
Thanks:
Vision: The ability to see the invisible.... |
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
