Chyba v propojení ASP.NET (ver.11) a VBScribt

Filip Holub

5. 3. 2014 14:24:50

Ahoj, při opravení jednoho intranetového systému v naší firmě mi vyskakuje tato chyba :

Microsoft OLE DB Provider for SQL Server chyba 80040e10'

Procedure 'VUBP_Os_INSERT' expects parameter '@d_funkceID', which was not supplied.

/vubp_central/admin_insert_os_submit.asp, line 52

Díky za veškeré nápady nebo připomínky!

Kód vypadá takto:

<% @ language="vbscript" %>
<% option explicit %>

<%
response.expires=0
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol="private"
Response.AddHeader "pragma", "no-cache"
%>

<%
dim cn, cm, rs_pom, EMAIL_SUFFIX, FOTO_PATH, FOTO_SUFFIX, fotoStr, pom

EMAIL_SUFFIX="@vubp-praha.cz"
FOTO_PATH="http://ml570/images/foto/"
FOTO_SUFFIX=".jpg"

if trim(request.form("foto"))<>"" then
	fotoStr=FOTO_PATH & request.form("foto") & FOTO_SUFFIX
else
	fotoStr=""
end if

open_db "VUBPcentral", cn

set cm=server.createObject("ADODB.command")
cm.activeConnection=cn
cm.commandType=adCmdStoredProc

if trim(request.form("os_cislo"))="" then
	pom=null
else
	pom=trim(request.form("os_cislo"))
end if

cm.commandText="VUBP_Os_INSERT"
	cm.parameters.append cm.createParameter("mistnostId", adInteger, adParamInput, , request.form("telefon")) 
	cm.parameters.append cm.createParameter("fceOdd", adInteger, adParamInput, , request.form("oddeleni_funkce"))
	cm.parameters.append cm.createParameter("oddId", adInteger, adParamInput, , request.form("oddeleni"))
	cm.parameters.append cm.createParameter("os_cis", adInteger, adParamInput, , pom)
	cm.parameters.append cm.createParameter("titul_pred", adVarChar, adParamInput, 20, request.form("titul_pred"))
	cm.parameters.append cm.createParameter("jmeno", adVarChar, adParamInput, 30, request.form("jmeno"))    
        cm.parameters.append cm.createParameter("druhe_jmeno", adVarChar, adParamInput, 30, request.form("druhe_jmeno"))
	cm.parameters.append cm.createParameter("prijmeni", adVarChar, adParamInput, 30, request.form("prijmeni"))
	cm.parameters.append cm.createParameter("titul_za", adVarChar, adParamInput, 20, request.form("titul_za"))
	cm.parameters.append cm.createParameter("email", adVarChar, adParamInput, 30, request.form("email") & EMAIL_SUFFIX)
	cm.parameters.append cm.createParameter("foto", adVarChar, adParamInput, 50, fotoStr)
	cm.parameters.append cm.createParameter("zivotopis", adVarChar, adParamInput, 2000, request.form("zivotopis"))
	cm.parameters.append cm.createParameter("hubId", adInteger, adParamInput, , request.form("hub"))
cm.execute

cn.close

response.redirect "admin_insert_new_os.asp"
%>

a druhá část takto :

<% @ language="vbscript" %>
<% option explicit %>

<%
dim  cn, rs_pom, rs_huby_all, txt

open_db "VUBPcentral", cn
%>

<html>
<head>
<title>vubp central</title>
<meta http-equiv="Content-Type" content="text/html; charset=Windows-1250">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">

for (i=0; ret.charAt(i)==" "; i++)
	{
		zleva++;
	}

for (i=ret.length-1; ret.charAt(i)==" "; i--)
	{
		zprava++;
	}
	
	finalStr=ret.slice(zleva, ret.length-zprava);
	return finalStr;
}

function kontrola(form) {
	//pokud se nejedna o brigadnika, kontroluje se, zda je vyplneno os. cislo
	if (form.oddeleni_funkce.options.value!=7) {
		if (trim(form.os_cislo.value)=="") {
			alert("Je nutné vyplnit povinný údaj - osobní číslo");
			form.os_cislo.focus();
			return false;
		}

if (isNaN(form.os_cislo.value)) {
			alert("Vámi zadaná hodnota v poli OSOBNÍ ČÍSLO není platným číslem");
			form.os_cislo.focus();
			return false;
		}
	}

if (trim(form.prijmeni.value)=="") {
		alert("Je nutné vyplnit povinný údaj - příjmení");
		form.prijmeni.focus();
		return false;
	}

return true;
}

//-->
</script>

</head>

<b>nová osoba</b>
<form name="insertForm" method="post" action="admin_insert_os_submit.asp" onSubmit="return kontrola(this);">
<table border=0 cellpadding=4 cellspacing=0 bgcolor="#F4F4F4">
<tr>
	<th class="requiredField">osobní číslo</th>
	<td><input type="text" name="os_cislo" value="" maxlength=10 size=15><span style="color: #E10000;"> - není nutné vyplňovat u brigádníků</span></td>

<td rowspan=14 valign="top">
		<table>
		<tr>
			<th>životopis</th>
		</tr>
		<tr>
			<td><textarea name="zivotopis" value="" cols=59 rows=26>

titul před jménem

titul za jménem

jméno

druhé jméno

příjmení

e-mail

@vubp-praha.cz

fotografie

http://ml570/images/foto/ .jpg

telefon

fax

připojen na hub