Dim conn
set conn= server.createobject("adodb.connection")
conn.open("dsn=mysqlDSN;uid=myuid;pwd=mypassword;database=mydatabase)

$db = mysql_connect("db.3gnt.net", $username, $password);

$conn=pg_connect("dbname=$dbname host=db.3gnt.net user=$username password=$password");

try {
Class.forName("org.gjt.mm.mysql.Driver");
String url = "jdbc:mysql://db.3gnt.net/dbname";
String user = "username";
String pass = "password";
Connection conn = DriverManager.getConnection(url, user, pass); 
Statement stmt = conn.createStatement();
String insertSQL = "INSERT INTO table VALUES ( .... )";
stmt.execute(insertSQL);
String sqlQuery = "SELECT * FROM table_name";
ResultSet rs = stmt.executeQuery(sqlQuery);
while ( rs.next() ){
String columX = rs.getString("column_name1");
int columY = rs.getInt("column_name2");
Date columZ = rs.getDate("column_name3");
}
rs.close();
stmt.close();
conn.close();
}catch(SQLException e){
}

#!/usr/bin/perl
use DBI;
$db = $dbname;
$host = "db.3gnt.net";
$user = $username;
$pwd = $password;
$dbh = DBI->connect( "DBI:mysql:$db:$host", $user, $pwd)
		or die "Connecting : $DBI::errstr\n ";
$sql = "SELECT * FROM blah_table";
$sth = $dbh->prepare($sql) or die "preparing: ",$dbh->errstr;
$sth->execute or die "executing: ", $dbh->errstr;
print "content-type: text/html\n\n";
while ($row = $sth->fetchrow_hashref)		
{
	print $row->{'some_field_name'},'
';	
}