Web Listing 1: Visual Basic .NET Code That Tests the Stored Procedure

<%@Page Language="VB" Debug="True"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%
Dim rs As DataSet
Dim cn As SqlConnection
Dim cmd As SqlDataAdapter
Dim newguid

cn = New SqlConnection("server=MAGELLAN;database=" _
  & "TestdB;user=test_user;pwd=password")
cmd = New SqlDataAdapter("guidgen", cn)
cmd.SelectCommand.CommandType = _
  CommandType.StoredProcedure

rs = new DataSet()
cmd.Fill(rs, "GUID")
newguid = rs.Tables("GUID").Rows(0).Item(0).ToString()

response.write(newguid)
%>