Please share it, and find more information on the website: http://www.thezeitgeistmovement.com/

<?php

# Include the script.
include_once('AutoDbUp.php');

# Load the script and specify the path where all sql files are saved,
# the files inside that directory must contain numeric names and increasing
# that will be the revision number of your database, example:
# 1.sql, 2.sql, 3.sql, 4.sql, 5.sql and so on, for each update you make.
$autoDbUp = new AutoDbUp('path/to/sql/files');

# Run the script's upgrade method to search all the new sql files and run them.
$autoDbUp->upgrade();

?>

• getDbVer() - Command that consults your configuration table and retrieves the current database version, you can also make it write the current version number to a file instead of saving it in a table.
• updateDbVer - Updates the database version after an sql file has been succesfully executed.
• dbQuery() and getMysqlError() - Change this two if you have your own database class for mysql, and also check the last functions that BEGIN, ROLLBACK, and COMMIT a mysql transaction if you need to change them.

homeofprojects001



Preview | Download

primavera989



Preview | Download

Home Of Projects has been approved on the BBVA project voting list and we can win the development subvention! Please vote below!

1. Go to C:\WINDOWS\SYSTEM32\DRIVERS\ETC
2. Open hosts file with notepad or any other simple text editor (not WORD)
3. Add these lines at the end of the file:
   89.238.64.39    safer-networking.org
   89.238.64.39    safer-networking.org
4. Now save & close the file and retry the installation and voila! It works! You can also go and surf the website now http://www.safer-networking.org/

1. Go to 'Start' => 'Run'
2. Type 'cmd', a black window opens
3. Type there 'ping www.safer-networking.org'
4. When pinging a message will be displayed saying 'Pinging www.safer-networking.org [89.238.64.39]..'
5. The IP address is that between []

Option Explicit

' Define some variables
Dim objFSO, folderSRC, pathSourceJPG, file, outputFolder
Dim userHeight, userWidth, userConfirmation
userWidth = InputBox("Please enter new width for the images:", "imageResizer.vbs", "640")
userHeight = InputBox("Please enter new height for the images:", "imageResizer.vbs", "480")

' Check if user has entered the width and height
if len(userHeight) = 0 or len(userWidth) = 0 then
 wscript.echo "Missing parameter, width or height, quitting."
 wscript.quit
end if

' Let the user confirm before continuing
userConfirmation = MsgBox("Resize all images in the folder to "& userWidth & "x" & userHeight&"?", 1, "imageResizer.vbs")
if userConfirmation <> 1 then
 wscript.echo "Script was canceled, quitting."
 wscript.quit
end if

Set objFSO = createobject("Scripting.FileSystemObject")
pathSourceJPG = objFSO.GetAbsolutePathName(".\")
outputFolder = pathSourceJPG & "\_thumbs\"
Set folderSRC = objFSO.GetFolder(pathSourceJPG)

' Create output folder
if objFSO.FolderExists(outputFolder) then
 wscript.echo "Output folder """ & outputFolder & """ already exists, I'm going to continue anyway."
else
 objFSO.CreateFolder(outputFolder)
end if

' Browse files
For each file in folderSRC.Files
 ' Check for extensions
 Dim fileExt
 fileExt = lcase(objFSO.GetExtensionName(pathSourceJPG &"\"& file.Name))
 If fileExt = "jpg" or fileExt = "jpeg" or fileExt = "gif" or fileExt = "png" or fileExt = "bmp" Then
 ' Run the resize function
 resizeImage pathSourceJPG &"\"& file.Name, userWidth, userHeight, outputFolder & file.Name
 end if
next

set folderSRC = nothing
	
'--------------------------
' resizeImage(input image, new height, new width, output image)
' Modifica el tamaño de la imagen y guarda una nueva.
'--------------------------
function resizeImage(sourceFile, toWidth, toHeight, destinationFile)
	
	Dim imgWidth, imgHeight, img
	Dim xScale, yScale
	Dim newWidth, newHeight
	Dim conversion
	
	' Load ImageMagick
	Set img = CreateObject("ImageMagickObject.MagickImage.1")
	
	' Get current image size
	imgWidth = img.Identify ("-format", "%w", sourceFile)
	imgHeight = img.Identify ("-format", "%h", sourceFile)
	
	' Calculate scale
	xScale = imgWidth / toWidth
	yScale = imgHeight / toHeight
	
	' Calculate new width and height
	if yScale > xScale then
		newWidth = round(imgWidth * (1/yScale))
		newHeight = round(imgHeight * (1/yScale))
	else
		newWidth = round(imgWidth * (1/xScale))
		newHeight = round(imgHeight * (1/xScale))
	end if
	
	' Run Convert to resize the image.
	conversion = img.Convert("-resize", newWidth&"x"&newHeight&"!", sourceFile, destinationFile)
	set conversion = nothing
	
end function

Set img = CreateObject("ImageMagickObject.MagickImage.1")

Set img = Server.CreateObject("ImageMagickObject.MagickImage.1")

Test website

There is a testing website up where you can see how developing goes: http://www.alexandru.es/thefingerfor

Please feel free to leave a comment saying what you think about it.

reparacionderejillas.es
portideschise.com
visasolar.es
www.alexandru.es/homeofprojects - unfinished project that I'm planning.

If you like what I do and you are interested you will enjoy what I can do for your website.

Thank you! :)
Alex.

English avatars:

And some romanian avatars: