Stored Procedure Problem

[ClayD]

Hello All,

I have recently been handed this HUGE SQL Server database and been told to make it a web application. The database operates with many stored procedures, so nailing down how to work with one should give way for the rest. What I have done here is pass the form values to a page that will take those values and use them in the Stored Procedure for the save, but I am getting an http error when the page runs. Can someone please tell me where I am going wrong?

Thank You In Advance

<%@LANGUAGE=&quot;VBSCRIPT&quot;%>
<!--#include file=&quot;../Connections/connPSR.asp&quot; -->

<%
Dim EventDate
EventDate=Request.Form(&quot;EventDate&quot
Dim EventTime
EventTime=Request.Form(&quot;EventTime&quot
Dim EventTypeCode
EventTypeCode=Request.Form(&quot;EventTypeCode&quot
Dim PersonReporting
PersonReporting=Request.Form(&quot;PersonReporting&quot
Dim TitleCode
TitleCode=Request.Form(&quot;TitleCode&quot
Dim LocationCode
LocationCode=Request.Form(&quot;LocationCode&quot
Dim PhysicianNameCode
PhysicianNameCode=Request.Form(&quot;PhysicianNameCode&quot
Dim SubjectTypeCode
SubjectTypeCode=Request.Form(&quot;SubjectTypeCode&quot
Dim SubjectGenderCode
SubjectGenderCode=Request.Form(&quot;SubjectGenderCode&quot
Dim SubjectFirstName
SubjectFirstName=Request.Form(&quot;SubjectFirstName&quot
Dim SubjectMiddleName
SubjectMiddleName=Request.Form(&quot;SubjectMiddleName&quot
Dim SubjectLastName
SubjectLastName=Request.Form(&quot;SubjectLastName&quot
Dim SubjectSuffixCode
SubjectSuffixCode=Request.Form(&quot;SubjectSuffixCode&quot
Dim SubjectAge
SubjectAge=Request.Form(&quot;SubjectAge&quot
Dim bSubjectAgeInMonths
bSubjectAgeInMonths=Request.Form(&quot;bSubjectAgeInMonths&quot
Dim AccountNumber
AccountNumber=Request.Form(&quot;AccountNumber&quot
%>

<%

Dim cmdFallOne__EventDate
cmdFallOne__EventDate = &quot;&quot;
if(Request(&quot;EventDate&quot <> &quot;&quot then cmdFallOne__EventDate = Request(&quot;EventDate&quot

Dim cmdFallOne__EventTime
cmdFallOne__EventTime = &quot;&quot;
if(Request(&quot;EventTime&quot <> &quot;&quot then cmdFallOne__EventTime = Request(&quot;EventTime&quot

Dim cmdFallOne__PersonReporting
cmdFallOne__PersonReporting = &quot;&quot;
if(Request(&quot;PersonReporting&quot <> &quot;&quot then cmdFallOne__PersonReporting = Request(&quot;PersonReporting&quot

Dim cmdFallOne__TitleCode
cmdFallOne__TitleCode = &quot;&quot;
if(Request(&quot;TitleCode&quot <> &quot;&quot then cmdFallOne__TitleCode = Request(&quot;TitleCode&quot

Dim cmdFallOne__LocationCode
cmdFallOne__LocationCode = &quot;&quot;
if(Request(&quot;LocationCode&quot <> &quot;&quot then cmdFallOne__LocationCode = Request(&quot;LocationCode&quot

Dim cmdFallOne__PhysicianNameCode
cmdFallOne__PhysicianNameCode = &quot;&quot;
if(Request(&quot;PhysicianNameCode&quot <> &quot;&quot then cmdFallOne__PhysicianNameCode = Request(&quot;PhysicianNameCode&quot

Dim cmdFallOne__SubjectTypeCode
cmdFallOne__SubjectTypeCode = &quot;&quot;
if(Request(&quot;SubjectTypeCode&quot <> &quot;&quot then cmdFallOne__SubjectTypeCode = Request(&quot;SubjectTypeCode&quot

Dim cmdFallOne__SubjectFirstName
cmdFallOne__SubjectFirstName = &quot;&quot;
if(Request(&quot;SubjectFirstName&quot <> &quot;&quot then cmdFallOne__SubjectFirstName = Request(&quot;SubjectFirstName&quot

Dim cmdFallOne__SubjectMiddleName
cmdFallOne__SubjectMiddleName = &quot;&quot;
if(Request(&quot;SubjectMiddleName&quot <> &quot;&quot then cmdFallOne__SubjectMiddleName = Request(&quot;SubjectMiddleName&quot

Dim cmdFallOne__SubjectLastName
cmdFallOne__SubjectLastName = &quot;&quot;
if(Request(&quot;SubjectLastName&quot <> &quot;&quot then cmdFallOne__SubjectLastName = Request(&quot;SubjectLastName&quot

Dim cmdFallOne__SubjectSuffixCode
cmdFallOne__SubjectSuffixCode = &quot;&quot;
if(Request(&quot;SubjectSuffixCode&quot <> &quot;&quot then cmdFallOne__SubjectSuffixCode = Request(&quot;SubjectSuffixCode&quot

Dim cmdFallOne__SubjectGenderCode
cmdFallOne__SubjectGenderCode = &quot;&quot;
if(Request(&quot;SubjectGenderCode&quot <> &quot;&quot then cmdFallOne__SubjectGenderCode = Request(&quot;SubjectGenderCode&quot

Dim cmdFallOne__bSubjectAgeInMonths
cmdFallOne__bSubjectAgeInMonths = &quot;&quot;
if(Request(&quot;bSubjectAgeInMonths&quot <> &quot;&quot then cmdFallOne__bSubjectAgeInMonths = Request(&quot;bSubjectAgeInMonths&quot

Dim cmdFallOne__SubjectAge
cmdFallOne__SubjectAge = &quot;&quot;
if(Request(&quot;SubjectAge&quot <> &quot;&quot then cmdFallOne__SubjectAge = Request(&quot;SubjectAge&quot

Dim cmdFallOne__AccountNumber
cmdFallOne__AccountNumber = &quot;&quot;
if(Request(&quot;AccountNumber&quot <> &quot;&quot then cmdFallOne__AccountNumber = Request(&quot;AccountNumber&quot

Dim cmdFallOne__EventTypeCode
cmdFallOne__EventTypeCode = &quot;&quot;
if(Request(&quot;EventTypeCode&quot <> &quot;&quot then cmdFallOne__EventTypeCode = Request(&quot;EventTypeCode&quot

%>
<%

set cmdFallOne = Server.CreateObject(&quot;ADODB.Command&quot
cmdFallOne.ActiveConnection = MM_connPSR_STRING
cmdFallOne.CommandText = &quot;dbo.spSav_Event_UserMain&quot;
cmdFallOne.CommandType = 4
cmdFallOne.CommandTimeout = 0
cmdFallOne.Prepared = true
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@RETURN_VALUE&quot;, 3, 4)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@UEID&quot;, 3, 2)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@EventDate&quot;, 135, 1,4,cmdFallOne__EventDate)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@EventTime&quot;, 135, 1,4,cmdFallOne__EventTime)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@PersonReporting&quot;, 200, 1,60,cmdFallOne__PersonReporting)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@TitleCode&quot;, 3, 1,4,cmdFallOne__TitleCode)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@LocationCode&quot;, 3, 1,4,cmdFallOne__LocationCode)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@PhysicianNameCode&quot;, 3, 1,4,cmdFallOne__PhysicianNameCode)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@SubjectTypeCode&quot;, 3, 1,4,cmdFallOne__SubjectTypeCode)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@SubjectFirstName&quot;, 200, 1,30,cmdFallOne__SubjectFirstName)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@SubjectMiddleName&quot;, 200, 1,30,cmdFallOne__SubjectMiddleName)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@SubjectLastName&quot;, 200, 1,30,cmdFallOne__SubjectLastName)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@SubjectSuffixCode&quot;, 16, 1,1,cmdFallOne__SubjectSuffixCode)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@SubjectGenderCode&quot;, 16, 1,1,cmdFallOne__SubjectGenderCode)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@bSubjectAgeInMonths&quot;, 901, 1,1,cmdFallOne__bSubjectAgeInMonths)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@SubjectAge&quot;, 16, 1,1,cmdFallOne__SubjectAge)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@AccountNumber&quot;, 131, 1,9(10,0),cmdFallOne__AccountNumber)
cmdFallOne.Parameters.Append cmdFallOne.CreateParameter(&quot;@EventTypeCode&quot;, 16, 1,1,cmdFallOne__EventTypeCode)
cmdFallOne.Execute()

%>

<html>
<head>
</head>
<body>
</body>
</html>

 

[codestorm]

Knowing the error always helps debugging.. <insert witticism here>
codestorm