Public Sub ClobInsert(query, cont, no)
%>
<!--METADATA TYPE="typelib" NAME="ADODB Type Library" FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll"-->
<%
  '++++++++++++++++++++++++++++++++++++
  ' Query : 쿼리문을 입력한다.
  ' Cont   : 본문내용(타입은 Clob 타입이 였을경우 사용된다)
  ' no      : 글번호를 입력
  '++++++++++++++++++++++++++++++++++++
  Set oCmd = Server.CreateObject("ADODB.Command")
  With oCmd
    .ActiveConnection = Conn
    .CommandText = query
    .CommandType = adCmdText

    .Parameters.Append .CreateParameter("@text",adLongVarChar,adParamInput,LenB(cont),cont)
    .Parameters.Append .CreateParameter("@no",adDouble,adParamInput)

    .Parameters("@text") = cont
    .Parameters("@no") = no

    .Execute
  End With
End Sub
%>

+ Recent posts