December 19th, 2007

The cheapest SEO deal I've ever seen

SEO Optimization

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

ASP Code

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()