Anropa Sub

jag har denna

[red]
Sub CreateLink(strAlias, strDocument, strParent)
	strSql1 = "INSERT INTO tblContent(fltTarget, fltDocument)VALUES('_blank', '"&strDocument&"')"
	strSql2 = "INSERT INTO tbllinks(parent_page_id, linktext)VALUES("&strParent&", '"&strAlias&"')"
	strSql3 = "SELECT @@IDENTITY"			
	Set objConnect = OpenDB()
	objConnect.Execute(strSql1),,128
	Set objRS2 = objConnect.Execute(strSql3)
	intContentId = objRS2(0)
	objConnect.Close
	objConnect.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& strConnectPath)
	objConnect.Execute(strSql2),,128
	Set objRS3 = objConnect.Execute(strSql3)
	intLinkId = objRS3(0)
	objConnect.Execute("UPDATE tblLinks SET fk_ContentId = "&intContentId&" WHERE page_id = "& intLinkId),,128
	objConnect.Close() : Set objConnect = nothing	
End Sub
[/red]

Som jag anropar på detta vis

[red]
Call CreateLink("isac", "isac.doc", "1")
[/red]

Men jag får

**Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'CreateLink'

loaddocument.asp, line 9**

Rad nio är Call CreateLink("isac", "isac.doc", "1")

Mv icaaq

Det var jag som hade en likadan sub i en annan include med andra argument......

nu funkar det....

Är du säker, jag ser liksom inget fel.

Möjligtvis att du anropar .Open och .Execute på Connection-objektet och använder paranteser i anropet, vilket man väl inte kan göra när man anropar sub:ar och inte använder sig av Call. Dock borde ju felsökaren leta sig in i metoden då istället.

RED. Som sagt. ;)