Create Procedure DocDetailProc(
  @strID varchar(20) = '04971',
  @strName varchar(100) = '' OUTPUT,
  @strMainHtml varchar(8000) = '' OUTPUT,
  @strPracHtml varchar(8000) = '' OUTPUT)

##</code><code>##

   $ID = $Request->QueryString('Key')->Item(1);
   
   use Win32::OLE::Const 'Microsoft ActiveX Data Objects 2.5';
   
   $Conn = $Server->CreateObject("ADODB.Connection");
   $cmd = $Server->CreateObject("ADODB.Command");
   $Conn->Open("Provider=SQLOLEDB;DATA SOURCE=mis-interdev;UID=myUID;PWD=myPWD;DATABASE=myDB;");
   $cmd->{ActiveConnection} = $Conn;
   $cmd->{CommandType}=adCmdStoredProc;
   $cmd->{CommandText}='DocDetailProc';
   $cmd->Parameters->Refresh();
   $cmd->Parameters->{@strID}->{Value}=$ID;
 
   $cmd->Execute();
 
   $Name=$cmd->Parameters->{@strID}->{Value};
   $MainHtml=$cmd->Parameters->{@strMainHtml}->{Value};
   $PracHtml=$cmd->Parameters->{@strPracHtml}->{Value}; 
%>

   <td width="585" align="left" height="18"><font face="Verdana" size="2"><%=$Name%>
   </font></td>
	<td width="253" align="center" rowspan="3" height="88">
</tr>
  <tr>
    <td width="185" valign="baseline" align="left" height="19"><strong><small><font face="Verdana">Specialties</font></small></strong></td>
<%
  $Response->Write($cmd->Parameters->{@strMainHtml});
  $Response->Write($cmd->Parameters->{@strPracHtml});
  $Conn->Close;