Listing 2: VBScript Code That Tests the Stored Procedure

<%
Dim cn, rs
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open <connection string>
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = cn
cmd.CommandText = "guidgen"
Set rs = cmd.Execute
If RS.BOF or RS.EOF Then 
  Response.Write "no value generated"
Else
  newguid = rs(0)
End If
%>