<%@ Page Language="VB" AutoEventWireup="false"%>
<%@ Import Namespace="System.Data.SqlClient" %>
Here comes the data!
<%
Dim connect As New SqlConnection( _
"Server=mycomp;UID=sa;password=password01;database=Dummies")
connect.Open()
Dim cmd As New SqlCommand( _
"select nameid from names where first_name ='Jeff'", _
connect)
Dim id As Int32
id = cmd.ExecuteScalar()
connect.Close()
Response.Write(id)
%>