Stored procs i ASP - en lang omgang

Jeg bruger nedenstående til at køre en SP via ASP.
Det virker fint, men jeg synes det er en lang omgang. Da jeg brugte MS Access, var det nemmere at sende variabler ind i databasen. Kan det gøres kortere eller er det bare sådan med MSSQL?

<%
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "NavnAdresseInsert"
cmd.Parameters.Append(cmd.CreateParameter("@navn", adVarChar, adParamInput,50))
cmd.Parameters.Append(cmd.CreateParameter("@adresse", adVarChar, adParamInput,50))
cmd.Parameters.Append(cmd.CreateParameter("@telefon", adVarChar, adParamInput,50))
cmd.Parameters.Append(cmd.CreateParameter("@email", adVarChar, adParamInput,50))
cmd.Parameters.Append(cmd.CreateParameter("@postnr", adVarChar, adParamInput,50))
cmd.Parameters.Append(cmd.CreateParameter("@bynavn", adVarChar, adParamInput,50))
cmd.Parameters.Append(cmd.CreateParameter("@stat", adVarChar, adParamInput,50))
cmd.Parameters.Append(cmd.CreateParameter("@land", adInteger, adParamInput))
cmd.Parameters.Append(cmd.CreateParameter("@betalingstype", adInteger, adParamInput))
cmd.Parameters.Append(cmd.CreateParameter("@sessionID", adVarChar, adParamInput,50))
cmd.Parameters.Append(cmd.CreateParameter("@ipadresse", adVarChar, adParamInput,50))
cmd.Parameters.Append(cmd.CreateParameter("@notat", adVarChar, adParamInput,50))

cmd.Parameters("@navn")="jesper"
cmd.Parameters("@adresse")="hansen"
cmd.Parameters("@telefon")="26555592"
cmd.Parameters("@email")="jesperhansen@gmail.com"
cmd.Parameters("@postnr")="8800"
cmd.Parameters("@bynavn")="Viborg"
cmd.Parameters("@stat")="ca"
cmd.Parameters("@land")=1
cmd.Parameters("@betalingstype")=1
cmd.Parameters("@sessionID")="234545674"
cmd.Parameters("@ipadresse")="123.345.55.66"
cmd.Parameters("@notat")="dddd"
cmd.Execute
%>