Sub Details(byval LinkID, byref Company, byref About, byref Url, byref ImagePathSmall, _
					byref ImagePath, byref IsPremium)
	
       dim oComm	'as adodb.command
		
	set oComm = Server.CreateObject("ADODB.Command")
	with oComm
		.ActiveConnection = strConnString
		.CommandText = PROC_LINK_DETAILS
		.CommandType = adCmdStoredProc 
		.Parameters.Append .CreateParameter(PARAM_LINKID, adInteger, adParamInput, 4, LinkID)           
		.Parameters.Append .CreateParameter(PARAM_LINK_COMPANY, adVarChar, adParamOutput, 250)
		.Parameters.Append .CreateParameter(PARAM_LINK_ABOUT, adVarChar, adParamOutput, 7500) 
		.Parameters.Append .CreateParameter(PARAM_LINK_URL, adVarChar, adParamOutput, 250)           
		.Parameters.Append .CreateParameter(PARAM_LINK_IMAGEPATHSMALL, adVarChar, adParamOutput, 100)
		.Parameters.Append .CreateParameter(PARAM_LINK_IMAGEPATH, adVarChar, adParamOutput, 100)
		.Parameters.Append .CreateParameter(PARAM_LINK_ISPREMIUM, adBoolean, adParamOutput, 1)
		.Execute
	end with		
	Company = oComm.Parameters(PARAM_LINK_COMPANY).Value
	About = oComm.Parameters(PARAM_LINK_ABOUT).Value
	Url = oComm.Parameters(PARAM_LINK_URL).Value
	ImagePathSmall = oComm.Parameters(PARAM_LINK_IMAGEPATHSMALL).Value
	ImagePath = oComm.Parameters(PARAM_LINK_IMAGEPATH).Value
	IsPremium = oComm.Parameters(PARAM_LINK_ISPREMIUM).Value
	set oComm = nothing 	
	
End Sub

quote:

---

Originally posted by Anacrusis

through query anaylyzer using the exec command.

---