February 5th, 2008

Got a blog? Win an iPod Touch!

So I mentioned a couple of posts ago that I'm now running that cocktail recipe site. Well, in order to get more traffic, I'm running a contest. If you have a blog or site and are willing to link to the site, or submit a recipe of your own, you can win an iPod Touch! Enter now!

February 1st, 2008

How to get the iPhone working on Roger's EDGE network

I'm quite happy to be the proud owner of a shiny new iPhone, which may or may not be unlocked and running on Roger's network in Canada.

Now, hypothetically, if someone else were to unlock said iPhone, and want to use it with their current data plan through Roger's, they will find that the standard EDGE settings simply don't work. The iPhone accepts them, and seems to connect, but no data is sent or received, it just hangs on web pages and mail connections.

So I did some searching around the web, and I found EDGE settings that work. Just go to Settings > General > Network > EDGE, and enter:

APN: internet.com
user: guest
pass: guest

And it works! Voila, iPhone data-rich goodness all over Canada!

January 11th, 2008

A sweet site for cocktail recipes

Web

I'm happy to announce that I'm taking over managements of shot-cocktail-recipe.com! Basically, it's one massive site created to serve thousands of cocktail recipes! But it's more than just a recipe guide. You can also see the most popular coolers and cocktails that other people are drinking. Another feature is that when you're looking at a particular recipe, you can see which other cocktails relate to the one you know, so you may get an idea for another drink!

Anyhow, I plan to make these enhancements:

  1. fix the rating feature, so you can vote on the drinks
  2. add a comments feature
  3. add a tell-a-friend feature
  4. add a 'submit your own drink' feature
  5. add a 'virtual bartender' feature
  6. host some contests of some sort

What do you think so far? Any other ideas?

December 19th, 2007

The cheapest SEO deal I've ever seen

OK, this is one seriously aggressive marketing campaign, perhaps the most aggressive that I've seen from any SEO company to date! Agilis marketing, a Virginia SEO Company is offering a 'Holiday' special, where you can get your website on the first age of Google for any search query, for only $99! Even though the query has to be at least three words in length, this is still pretty ambitious. I'd like to see them get the keyword "Toronto real estate" ranked for only that much :)!

December 12th, 2007

How to create XML from an Access (mdb) database with ASP

OK, so I recently created this code with VBS, but it would work with ASP as well. Basically, you need to place the script in a folder where it can get write permissions to create the XML file. Then you'll connect to the Access database like you would normally. Although to be perfectly honest, you could use this script to create an XML from data in just about any type of database that you can connect to!

'=== declare variables
Dim objConn, strConnect, strSQL, rs, tb, mdbFile, objFSO, xmlFile, objWrite

'=== filename variables
xmlFile = Server.MapPath(""inventory.xml")
mdbFile = Server.MapPath("
database.mdb")

'=== tab character for xml file
tb = chr(9)

'=== instantiate objects
set objFSO  = Server.CreateObject( "Scripting.FileSystemObject" )
Set objConn = Server.CreateObject( "
ADODB.Connection" )

'=== connect to database
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile

'=== open/create xml file
If Not objFSO.FileExists( xmlFile ) Then objFSO.CreateTextFile( xmlFile )
set objWrite = objFSO.OpenTextFile( xmlFile, 2 )

'=== open the xml file
objWrite.WriteLine("<?xml version=""1.0"" encoding=""ISO-8859-1""?>")
objWrite.WriteLine("
<data>")

strSQL = "SELECT * FROM table WHERE 1=1"
Set rs = objConn.Execute(StrSQL)

'=== loop through results
Do While not rs.EOF
    objWrite.WriteLine(tb & "<item>")
    objWrite.WriteLine(tb & tb & "
<id>" & rs("id") & "</id>")
    objWrite.WriteLine(tb & tb & "
<product>" & replace(rs("product"),"&","&amp;") & "</product>")
    objWrite.WriteLine(tb & tb & "
<color>" & rs("color") & "</color>")
    objWrite.WriteLine(tb & tb & "
<size>" & rs("size") & "</size>")
    objWrite.WriteLine(tb & "
</item>")
    rs.MoveNext
Loop

'=== finish xml file
objWrite.WriteLine("</data>")
objWrite.Close()

Next Page »