Criar uma Func

[feasso 0]

TEnho este código no ASP (instruções SQL) e gostaria de criar um FUNC.

 

Como devo fazer ???

 

' ATUALIZA PEDIDO - STATUS CANCELADO 
	SQLupdPedido = " UPDATE PEDIDO " &_
		 " SET pedStatus = 5 " & _
		" WHERE pedCodigo = '" & pedCodigo & "' "

	Set rsPedidoupd = Conexao.Execute(SQLupdPedido)
	
	' GERA NOVO PEDIDO (IDENTICO) NA TABELA PEDIDO
	strQuery = "SELECT * FROM PEDIDO WHERE pedCodigo = '" & pedCodigo & "' "
	Set objRs = Conexao.Execute(strQuery)
	
	'PEGANDO OS DADOS DO PEDIDO CANCELADO
	cliCodigo 		= objRs("cliCodigo")
	pedNome		= objRs("pedNome")	
	pedStatus		= 1
	pedEndereco	= objRs("pedEndereco")
	pedNumero	= objRS("pedNumero")
	pedSubTotal 	= objRS("pedSubTotal")
	pedComplemento	= objRS("pedComplemento")
	pedBairro		= objRS("pedBairro")
	pedCEP		= objRS("pedCEP")
	pedCidade		= objRS("pedCidade")
	pedEstado		= objRS("pedEstado")
	pedTelefone	= objRS("pedTelefone")
	pedTelefone2	= objRS("pedTelefone2")
	pedTotalPeso	= objRS("pedTotalPeso")
	pedTipoFrete	= objRS("pedTipoFrete")
	pedTotal		= objRS("pedTotal")
	pedValorFrete	= Replace(objRS("pedValorFrete"), ",", "." ) 
	pedDesconto	= objRS("pedDesconto")
	pedSubTotalDesc	= objRS("pedSubTotalDesc")
	pedPlano		= objRS("pedPlano")
	pedTotalPeso	= objRS("pedTotalPeso")
	pedTotalItens	= objRS("pedTotalItens")
	pedIp		= objRS("pedIp")

[eriva_br 7]

nesse caso o ideal é criar uma stored procedure e não uma function

 

http://forum.imasters.com.br/index.php?showtopic=224858

http://imasters.com.br/artigo/223/sql_...red_procedures/

http://imasters.com.br/artigo/7932/ban...red_procedures/