ASP.NET
Dim sales_cutoff As Integer = 1000
Dim myConnection As SqlConnection = New SqlConnection("connection_string"
Dim myCommand As SqlCommand = myConnection.CreateCommand()
myCommand.CommandText = "SELECT title_id, title, ytd_sales FROM
titles WHERE ytd_sales >= @sales ORDER BY ytd_sales DESC"
myCommand.Parameters.Add("@sales", SqlDbType.Int).value
= sales_cutoff
Dim SqlDataAdapter myAdapter = New SqlDataAdapter(myCommand)
Dim topSellers As DataSet = New DataSet()
myAdapter.Fill(topSellers, "titles"

CFML
<CFSET sales_cutoff = 1000>
<CFQUERY NAME="topSellers"
DATASOURCE="dsn">
SELECT title_id, title, ytd_sales
FROM titles
WHERE ytd_sales >=
<CFQUERYPARAM value="#sales_cutoff#" CFSQLType="CF_SQL_INTEGER">
ORDER BY ytd_sales DESC
</CFQUERY>

ASP.NET
Dim connString as String
connString = "..."
Dim objConnection as OleDbConnection
objConnection = New OleDbConnection(connString)
objConnection.Open()
Dim strSQL as String = "SELECT firstName, email FROM users"
Dim objCommand as OleDbCommand
objCommand = New OleDbCommand(strSQL, objConnection)
Dim objDataReader as OleDbDataReader
objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConnection)
Dim myMail As MailMessage = New MailMessage()
myMail.From = "foo@bar.com"
myMail.To = objDataReader("eMail"
myMail.Subect = "Test Message"
myMail.Body = "Dear" & objDataReader("firstName" & " ..."
SmtpMail.Send(myMail)
objDataReader.Close()

CFML
<CFQUERY DATASOURCE="dsn"
NAME="users">
SELECT firstName, email FROM users
</CFQUERY>
<CFMAIL QUEREY="users"
TO="#email#"
FROM="bar@foo.com"
SUBJECT="Test Message">
Dear #firstname#, ...
</CFMAIL>

ASP.NET
Dim myWebClient As System.Net.WebClient
myWebClient = New System.Net.WebClient()
Dim buffer As Byte()
buffer = myWebClient.DownloadData("http://www.macromedia.com/")
Dim content As String
content = System.Text.Encoding.UTF8.GetString(buffer)
Response.Write(Server.HtmlEncode(content))

CFML
<CFHTTP URL="http://www.macromedia.com/" METHOD="GET">
<CFOUTPUT>#CFHTTP.FileContent#</CFOUTPUT>