Web Development

'write script<br />
Dim script As String = "<script language=""javascript"">function add(id){a=document.getElementByID(id);ttl=document.getElementByID('[ClientID]_ttl');ttl.value = a.value;}</script>"<br />
'get control reference<br />
script = script.Replace("[ClientID]", Me.ClientID.ToString)<br />
Me.Page.RegisterClientScriptBlock("Add", script)<br />
txtStrength.Attributes.Add("OnTextChanged", "javascript:add('" & txtStrength.ClientID & "')")

function execStoredProc(p_strName, p_arrParams)<br />
	dim objCommand<br />
	dim strConnect<br />
	<br />
	strConnect = getConnect("writer")<br />
	set objCommand = Server.CreateObject("ADODB.Command")<br />
	<br />
	objCommand.ActiveConnection = strConnect<br />
	objCommand.CommandText = p_strName <br />
	set execStoredProc = objCommand.Execute(,p_arrParams,adCmdStoredProc)<br />
end function

<!--METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" <br />
  TYPE="TypeLib" <br />
  UUID="{00000205-0000-0010-8000-00AA006D2EA4}"<br />
-->

<br />
Dim objAttachedSetupSheets<br />
Dim AttachedSetupSheetsRS<br />
Dim varRecordsEffected    ' Number of Records effected by the procedure<br />
<br />
Set objAttachedSetupSheets = Server.CreateObject("ADODB.Command")<br />
objAttachedSetupSheets.ActiveConnection = objRoutingConn<br />
objAttachedSetupSheets.CommandText = "ENTER STORED PROCEDURE NAME HERE"<br />
objAttachedSetupSheets.CommandType = adCmdStoredProc<br />
<br />
SET AttachedSetupSheetsRS = objAttachedSetupSheets.Execute varRecordsEffected<br />
IF (NOT(AttachedSetupSheetsRS.EOF)) THEN<br />
	Response.Write("The ID is " & AttachedSetupSheetsRS("SetupSheetID"))<br />
END IF<br />
<br />