|
|
|
|
|
| | |
| |
Active Server Pages help tutorial how to ASP Help ASP Tutorials ASP Programming ASP Code - ASP Free CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Re: Stored Procedure |
|
From: |
Glenski |
|
Date: |
8/5/2000 3:24:39 AM |
|
IP: |
198.80.192.145 |
Heres a QUICK sample...hope itll help you..
<%
Response.Buffer = true
Const strDSN="DSN=your_dns;uid=username;pwd=password"
Set oConnect = Server.CreateObject("ADODB.Connection")
oConnect.Open strDSN
%>
<Script RUNAT=Server LANGUAGE="VBScript">
-----------------------------------------------------------------
Initial Version : Glenski® (06/03/2K)
Comment: Add record to the T_ITS_ADDITIONS. Use REPLACE function for string
to resolve the single-quote issue when updating a table.
Parameters:
------------------------------------------------------------------
Sub AddRec (strEmpnoVal, strTitle, strItemType)
strTitle = Replace(strTitle,"","")
Set Cmd = Server.CreateObject("ADODB.Command")
Cmd.ActiveConnection = oConnect
SET rsGrid = Server.CreateObject("ADODB.RecordSet")
strParameters = "{call SP_ITS_ADDITIONS_ADD("&""&strEmpnoVal&","&UCase(strTitle)&","&strItemType&")}"
response.write strParameters
Cmd.CommandText = strParameters
SET rsGrid = Cmd.Execute
End Sub
</Script> |
Previous Message
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
