<%@ Language=VBScript %>
<%
DIM sKWords
DIM sDescr
Public Function Exec_prc_sel_KWords(ByVal intKWordsID, ByRef lngRetVal, ByRef strErrDesc)
Dim strSQL
Dim objCmd
Dim objCn
Dim objRs
'On Error Resume Next
Set objCmd = Server.CreateObject("ADODB.Command")
Set objCn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "prc_sel_KWords"
objCn.Open "PROVIDER=SQLOLEDB; DATA SOURCE=192.168.1.2; Initial CATALOG=Roma; User Id=sa;; Password=;"
With objCmd
.Commandtext = strSQL
.Commandtype = adCmdStoredProc
Set .ActiveConnection = objCn
.Parameters.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
.Parameters.Append .CreateParameter("KWordsID", adInteger, adParamInput, 4, intKWordsID)
End With
With objRs
.CursorLocation = adUseClient
.Open objCmd, , adOpenDynamic, adLockReadOnly
sKWords = objrs.fields("Keywords")
sDescr = objrs.fields("Descr")
Set .ActiveConnection = Nothing
End With
Set Exec_prc_sel_KWords = objRs
objCn.Close
Set objCn = Nothing
Set objCmd = Nothing
If Err <> 0 Then
lngRetVal = Err.Number
strErrDesc = Err.Description
End If
End Function
CALL Exec_prc_sel_KWords(5,1,1)
%>
Roma Reports
ROMA Reports
This section will contain a variety of ROMA related reports from around the
nation.
