Many of us have needed or wanted to create RSS feeds with the content of our sites, the truth is easier than it seems, of course, after reading and researching I realized this, I intend to share here as
Saturday, October 31, 2009
Recipe For Fondant On Cake Boss
Generate ASP ASP using RSS and BD
Many of us have needed or wanted to create RSS feeds with the content of our sites, the truth is easier than it seems, of course, after reading and researching I realized this, I intend to share here as
the Many of us have needed or wanted to create RSS feeds with the content of our sites, the truth is easier than it seems, of course, after reading and researching I realized this, I intend to share here as
First we create the RSS file that can even have the ASP extension, for example rss.asp and paste something like this: \u0026lt;!--# include file = "conexion.inc" -> , \u0026lt;% 'FILE WITH THE CONNECTION BD%>
\u0026lt;%
' DSN-Less connection
database Query = "SELECT * from table
ORDER by ID desc" 'CREATE THE QUERY rs.Open Query, connection, 1.1' OPEN THE QUERY
'
XML OUTPUT' HERE WE CREATE THE NECESSARY XML GIVING OUT THE FORM AND HEAD
fldF
Dim Response. ContentType = "text / xml" Response.Write
"\u0026lt;? xml version =" 1.0 "encoding =" iso-8859-1 "?>" & vbCrLf Response.Write
\u0026lt;rss version = "" 2.0 "xmlns: dc =" http://purl.org/dc/elements/1.1/ "xmlns: content =" "http://purl.org/rss/1.0/modules/content/ ""> "& vbCrLf Response.Write
" \u0026lt;channel> "
& vbCrLf Response.Write "\u0026lt;title> TITLE \u0026lt;/ title>" & vbCrLf Response.Write
"\u0026lt;link> http://www.TUWEB.com \u0026lt;/ link>" & vbCrLf
Response. Write "\u0026lt;description> DESCRIPTION \u0026lt;/ description>" & vbCrLf Response.Write
"\u0026lt;language> en \u0026lt;/ language>" & vbCrLf
'REPLACES ONE PLACE TO CLEAR FIELD CONTENT
comment = replace (comment, "t", "í)
comment = replace (comment," or "," ó)
comment = replace (comment, "ú", "& desktop search; ")
count = count +1
Response.Write" \u0026lt;item> "& vbCrLf
Response.Write "\u0026lt;title>" & RS ("title") & "\u0026lt;/ title>" & vbCrLf Response.Write
"\u0026lt;link> http://www.TUWEB.com/articulos . asp? id = "& rs (" id ")&"\u0026lt;/ link> "& vbCrLf Response.Write
" \u0026lt;description> "& vbCrlf
Response.Write" \u0026lt;! [ CDATA ["& vbCrLf Response.Write
comment & & "]]>" vbCrlf
Response.Write" \u0026lt;/ description> "& vbCrLf Response.Write
"GUID> isPermaLink=""true""> http://www.TUWEB.com/articulos.asp?id =" & rs ("id ")&"\u0026lt;/ guid>" & vbCrLf
Response.Write "\u0026lt;/ item>" & vbCrLf
rs.MoveNext
Loop Response.Write "\u0026lt;/ channel>" & vbCrLf Response.Write
"\u0026lt;/ rss>" & vbCrLf
rs.Close Set rs = nothing
%>
And presto, that's the ASP file that we create, not if you need more explanation, if so, I welcome your comments.
Above is a small modification of the original
http://www.cristovivo.com/rss.asp
Monday, October 19, 2009
Hunting Gear For Sale
Tribute Montes Juan Andres Iturriaga Plant
A sense and sincere tribute to Andrés Montes of the hand of a good friend, the text is copied in full of Juanma Iturriaga blog in the country. Damn
black, these things are not friends. You will not suddenly, without warning, on a Friday night either, leaving us to dust. But I should not wonder. It was never yours to follow a script. Hardly politically correct. And, sorry to tell you now, but you've always been a freak. "Iturriaga, listen, which is that I have 10 years, was on the bus in Madrid, and was the only black!" You used to tell me year after year in our endless lunches and dinners on tour through the world of God. Maybe you should check this, or maybe not, but if you've never been a character "classifiable." For many reasons. From the professional to the personal. From your style to broadcast the matches to those birds that took me and you felt so proud. And then you did not want to recognize you!.
Man, Andrew, now what we do without you? People want to know how you were behind the camera, if it was true that life can be wonderful, where they dragged them out nicknames, if you were depressed at the Sixth and much more. Because they do not see that is mounted. A tribute and more of a declaration of those beginning with "I went very close friend" I have greatly disturbed because the hypocrisy never tolerate it well, but I'm talking about all Internet. They have done a lot of videos on your memory, some of them would love verdad.Te senses. Or maybe not. Because I never knew very well how to do this for fame. On the one hand ranting about everything related to it. The jerks that you passed you shouted tiki-taka! , or who might be around the party screaming Andrew, Andrew!, Despite seeing with headphones on and talking nonstop. Have you a hundred times to stop to sign autographs and get you photos. But on the other hand, all that we were around you were sure that deep down, I liked much.
And that you spent a lot of things. You were like some coaches, who say they read newspapers but they know everything he writes. The hearings gave you the same but you know by heart. Supposedly gave you the same to football, basketball, bocce, and once said in a press conference (olé your eggs!) But we were able to discuss any subject with a passion basketball inaccessible to someone who does not feel the sport. Advocated an optimistic message with that life can be wonderful and sometimes cost you too enjoy it. Nor wonder, since you've had a lot of whores. Your health, your separation, you can not have your children by your side. When you said you were not going to broadcast football over the Sixth did you hard. But you were screwed. Very fucked up. What were you all the Eurobasket in Poland. You said you did not care but I feel deceived and abused. Still, you are not noted on the air. And you were able to sign off with outstanding elegance when your body asked to give a good bang.
know I'm going to miss. To your good things and also those who were not so much because it recognizes that sometimes you were a real pain in the ass. Perhaps all these dualities was the reason for your magnetism. Your ability to attract attention, to be heard, to get away with it almost always travel, to make us laugh again and again with "Montes things."
I do not know how long you will remain news. Given the times, I guess not much. But do not worry. People like Caesar, Coldstream, Epi, the Lizard or myself we are going to take with us. And we are not alone. Your friend Mike, my son will too. To him are linked forever to Tokyo, where we got to change their hotel and take us to the Park Hyatt in the movie Lost in Translation . There, all together, we spent one of the best weeks of our lives, despite your difficulties to make you understand and you bring up the still water and ice, but ice water, but in a separate glass. I cried on Friday when Mikel heard!
And that's what you said earlier. These things are not done, dammit. You might have expected, I do not know, 30 years old, until the World Cup Basketball 2038, where we would have removed a big singing the praises of the English of the children of Gasol, Navarro, Calderón and company. It would have been nice.
A kiss on the bald fellow. And without a precedent and this time without me you have to say, I admit publicly: What luck I have had to have known! 
A sense and sincere tribute to Andrés Montes of the hand of a good friend, the text is copied in full of Juanma Iturriaga blog in the country. Damn
black, these things are not friends. You will not suddenly, without warning, on a Friday night either, leaving us to dust. But I should not wonder. It was never yours to follow a script. Hardly politically correct. And, sorry to tell you now, but you've always been a freak. "Iturriaga, listen, which is that I have 10 years, was on the bus in Madrid, and was the only black!" You used to tell me year after year in our endless lunches and dinners on tour through the world of God. Maybe you should check this, or maybe not, but if you've never been a character "classifiable." For many reasons. From the professional to the personal. From your style to broadcast the matches to those birds that took me and you felt so proud. And then you did not want to recognize you!.
Man, Andrew, now what we do without you? People want to know how you were behind the camera, if it was true that life can be wonderful, where they dragged them out nicknames, if you were depressed at the Sixth and much more. Because they do not see that is mounted. A tribute and more of a declaration of those beginning with "I went very close friend" I have greatly disturbed because the hypocrisy never tolerate it well, but I'm talking about all Internet. They have done a lot of videos on your memory, some of them would love verdad.Te senses. Or maybe not. Because I never knew very well how to do this for fame. On the one hand ranting about everything related to it. The jerks that you passed you shouted tiki-taka! , or who might be around the party screaming Andrew, Andrew!, Despite seeing with headphones on and talking nonstop. Have you a hundred times to stop to sign autographs and get you photos. But on the other hand, all that we were around you were sure that deep down, I liked much.
And that you spent a lot of things. You were like some coaches, who say they read newspapers but they know everything he writes. The hearings gave you the same but you know by heart. Supposedly gave you the same to football, basketball, bocce, and once said in a press conference (olé your eggs!) But we were able to discuss any subject with a passion basketball inaccessible to someone who does not feel the sport. Advocated an optimistic message with that life can be wonderful and sometimes cost you too enjoy it. Nor wonder, since you've had a lot of whores. Your health, your separation, you can not have your children by your side. When you said you were not going to broadcast football over the Sixth did you hard. But you were screwed. Very fucked up. What were you all the Eurobasket in Poland. You said you did not care but I feel deceived and abused. Still, you are not noted on the air. And you were able to sign off with outstanding elegance when your body asked to give a good bang.
know I'm going to miss. To your good things and also those who were not so much because it recognizes that sometimes you were a real pain in the ass. Perhaps all these dualities was the reason for your magnetism. Your ability to attract attention, to be heard, to get away with it almost always travel, to make us laugh again and again with "Montes things."
I do not know how long you will remain news. Given the times, I guess not much. But do not worry. People like Caesar, Coldstream, Epi, the Lizard or myself we are going to take with us. And we are not alone. Your friend Mike, my son will too. To him are linked forever to Tokyo, where we got to change their hotel and take us to the Park Hyatt in the movie Lost in Translation . There, all together, we spent one of the best weeks of our lives, despite your difficulties to make you understand and you bring up the still water and ice, but ice water, but in a separate glass. I cried on Friday when Mikel heard!
And that's what you said earlier. These things are not done, dammit. You might have expected, I do not know, 30 years old, until the World Cup Basketball 2038, where we would have removed a big singing the praises of the English of the children of Gasol, Navarro, Calderón and company. It would have been nice.
A kiss on the bald fellow. And without a precedent and this time without me you have to say, I admit publicly: What luck I have had to have known!
Sunday, October 18, 2009
Drivers License Templates Ontario
fantastic ornament in the university library
This spectacular ornamental plant serves well to reflect the status of my university library, on the one hand we have converted the old library reading room (where the plant) and a zero maintenance, no air conditioning, which until a few days has been begged, no loan of books, not even to see in the room and has no staff.
On the other hand we have a fantastic new library should be open, but it is not simply lend books, but not as usual, is a much more comfortable, we must ask one day advance and then come and pick it up, very handy if you are studying and have a question.
And all this without telling us why you are even closed.
Friday, October 16, 2009
Is It Possible To Turn Into A Wolf
Upload Files ASP components
Want to upload files to the server via a form, with one or more fields of type FILE, but ASPUpload can not use, do not want to pay or can not register components. Here is a complete solution for file upload, written 100% in ASP and VBScript.
Want to upload files to the server via a form, with one or more fields of type FILE, but ASPUpload can not use, do not want to pay or can not register components. Here is a complete solution for file upload, written 100% in ASP and VBScript.
Introduction
Upload files to the server using a form is an option that provides powerful HTML in
as allowing us to create complete web applications: we can make our own system
Home FTP, web, we can let our partners upload their images, etc.all through a web page.
Unfortunately, ASP does not provide an automatic mechanism to process this type of shipment. Therefore,
the need to extend the ASP, along with commercial products and SA-FileUp ASPUpload or
writing our own program.
The problem of using components, whether owned or purchased (or pirated ... Who said that?) Is
in many hosting plans we can not register these components. In these cases, the only solution is to program
by pure ASP code, and that's what I done. Requirements
xelUpload
is the name of a VBScript class that has properties and methods to handle sending files to the server. His only requirement is to have version 5 or above script engine. To see which version you have available, you can write: Response.WriteScriptEngineMajorVersion
If you see a 5, everything is correct. If not, you can download the latest version from the Microsoft site on script, or install Internet Explorer 5 or higher , which includes among its files. As if you did not know, so the file arrives correctly server, we need to add another attribute to the brand
FORM, which specifies the encoding of the form to send it, and allows us to upload binary data well:
\u0026lt;form action = "pagina.asp" method = "post "enctype =" multipart / form-data "
> How to use How does xelUpload
? The first thing we do is include the file by: \u0026lt;!--# include file = "xelupload.asp" -> if the same directory or \u0026lt;!--# include virtual = "/ includes / xelupload.asp" ->
if another virtual path, in this case, / includes / .
Then we create an instance of the object, and call the Upload to start the process on the page that receives the form. \u0026lt;% Dim objUploadobjUpload.Upload ()%>
xelUpload object, once called his method Upload, store the files sent with the form in the collection files, and fields normal text library eltosForm . The first contains objects of type File , another class that also included, and second elements can be accessed with objUpload.Form ("field") , which is quite familiar. ;-)
for the number of files uploaded correctly, we can use: Response.Write objUpload.Ficheros.Count & "uploads."
To access the properties and methods of each file uploaded, we can iterate through the collection, or direct access to one, with the name of the INPUT field have the form: Dim
objUpload, objFicheroobjUpload.Upload () 'If we \u0026lt;input type="file" September name="imagen"> objFichero = objUpload.Ficheros ("image")' Loop all: for each objFichero in objUpload.Ficheros.Items ... next
NOTE: The ZIP file with the code, documentation and an example is at the end of the article. Properties and methods to see in detail what we can do with the files once uploaded, see what offers xelUpload
class and class file , respectively
| | Properties |
| | |
Returns form field named "drivername." Completely equivalent | Request.Form (drivername) . |
| | |
Make the process of receiving the form and stores the results | . It is essential call this method before accessing the other object properties or collections xelUpload. |
| | |
files contains a collection of objects | file, one for each file sent from the form correctly. |
| File Properties | |
| | |
Name Returns the original name of the file without | the path in the user's disk. For example, mickeymouse.gif . |
Returns the size in bytes of the file. | |
Returns the content type of the file into a string, if recognized by the server, or "application / octet-stream." For example, for the previous image, | return "image / gif" . |
pure binary data file. | |
| | |
route Save the file to disk on the server, with the original name in the path passed as an argument. Must be a physical path, not virtual, so you probably use Server.MapPath | well: objFichero.Guardar (Server.MapPath ("\\ upload")) |
SaveAs name, path Save the file to disk, with the specified name in the path specified. The name must be a valid file name and path, a physical path. | |
objFld Saves the contents of the file in order | ADO Field passed as argument. Below I explain how to do this. |
Suppose we send a form like this:
action="pagina.asp" \u0026lt;form method="post" enctype="multipart/form-data"> Name: \u0026lt;input type = "text" name = "user" size = "20"> \u0026lt;br> Age: \u0026lt;input type="text" name="edad" size="5"> \u0026lt;br> \u0026lt;input type = "file" name = "image" > \u0026lt;input type="submit" \u0026lt;br> value="Enviar"> \u0026lt;/ form>
On the page that greets you and you specified in the ACTION attribute, pagina.asp , we use Our super-versatile xelUpload (notice that I'm happy, eh?) for the type of file and send us your size. If it is a GIF image and does not exceed 15k (15 * 1024 bytes), store it in two directories different (okay, it is not so normal, but I have to illustrate the methods) and a database, in a hypothetical table that keeps users (can you imagine?) the name, age, and a GIF ( User supposedly, although GIF and less than 15k ... ahem). not going to save only the file name: we will store the entire image in a database Access. This is the code of your page that receives the form
\u0026lt;% 'pagina.asp %>\u0026lt;!--# include file = "xelupload.asp "-->\u0026lt;% Dim oConn, rs, SQLDim objUpload, objFich, strName, strEdadDim maxtam, strNombreFichero'nuestro máximomaxtam size = 15 * 1024set xelUploadobjUpload.Upload objUpload = new () 'Retrieve Fields = objUpload.Form edadstrNombre user ("user") = objUpload.Form Streda ("age")' if not upload any file , we avisamosif objUpload.Ficheros.Count = 0 thenResponse.Write ("You have not uploaded any files!") else'accedemos the file by name in the formularioset objFich = objUpload.Ficheros ("image") if objFich.Tamano \u0026lt; ; = maxtam and objFich.TipoContenido = "image / gif" then'Es the right file, we will save all parties. :-) "First, in our current directory with the name Server.MapPath tieneobjFich.Guardar (".")' Now in the upload directory with today's date as nombrestrNombreFichero = Day (Date) & Month (Date) & Year (Date) objFich.GuardarComo strNombreFichero, Server.MapPath ("upload") 'Now we connect to a database datosset oConn = Server.CreateObject ("ADODB.Connection") set rs = Server.CreateObject ("ADODB.Recordset") 'We connect to ODBC DSN, base'de assuming the data is in the same directoriooConn.Open "Driver = {Microsoft Access Driver (*. mdb)}; "_ &" DBQ = "& Server.MapPath (" usuarios.mdb ") SQL =" SELECT * FROM Users "'Open the Recordset: 0 is the cursor adForwardOnly 'and 2 is the bolt adLockPessimisticrs.Open SQL oConn, 0, 2'Añadimos a new registrors.AddNewrs.Fields ("Name") = strNombrers.Fields ("Age") = strEdadrs.Fields ("FileName") = objFich.Nombre 'We call the corresponding field by passing GuardarBD! ! objFich.GuardarBD rs.Fields ("Picture") 'Save the new registrors.Update' and all that come clean padresrs.Closeset nothingoConn.Closeset rs = oConn = nothing 'All right! Response.Write "has been added the new user \u0026lt;b> "& strName &" \u0026lt;/ b>, "_ &" to file "& objFich.Nombre &" Size "& objFich.Tamano &" '. " clean our xelUpload and ficheroset oFich = nothingset objUpload = válidoResponse.Write nothingelse'No was a file (a file is not acceptable. ") Response.Write (" You must be a GIF file less than 15k. ") end if IfEnd %> This code
you see all the possibilities xelUpload . Table users that use this structure: | Field Name Type data | |
| | AutoNumber Name |
| | Text |
| | Text |
| FileName Text | |
| | |
OLE object is the type that accepts binary Access. In SQL Server the equivalent is image, which is binary and can support more than 8,000 bytes, or binary if we keep less than 8,000 bytes. comments, notes, etc. There is a major constraint
Request object, making it essential to include the handling of the standard fields of a form within the program that handles files Uploaded: after using Request.BinaryRead
can not use Request.Form
and vice versa. So you have to use Form property of your object xelUpload to read the usual fields of a form. Source: AspFacil
File: Xelupload
xelupload.zip
Subscribe to:
Posts (Atom)