..--..--..

Boa tarde sou novo no fórum, estou com um problema em um site

1º na hora de fazer o cadastro para enviar a cotação ele aparece o erro:
error '80020009'
/confirmaPedido.asp, line 107



segue o código e a linha que ele fala que esta marcada com a seta na frente


se alguém puder ajudar, agradeço.

if Session("IDUSER") = "ANM" then

sqluser = "SELECT * FROM T_Pedidos WHERE id_pedido = "&Session("Pedido")
Set rspp = Server.CreateObject("ADODB.Recordset")
rspp.ActiveConnection = MM_Multiport_DB_String
rspp.CursorType = 3
rspp.CursorLocation = 1
rspp.LockType = 1
rspp.Source = sqluser
rspp.Open()

html = html& "Nome: <b>"&rspp("nome")&"</b><br />"  <------------------erro aqui>
html = html& "Empresa: <b>"&rspp("empresa")&"</b><br />"
html = html& "Telefone: <b>"&rspp("tel")&"</b><br />"
html = html& "E-mail: <b>"&rspp("email")&"</b><br />"
html = html& "CEP: <b>"&rspp("cep")&"</b><br />"
html = html& "Cidade: <b>"&rspp("cidade")&"</b><br />"
email = rspp("email")
else
email = rsu("email")
html = html& "Nome: <b>"&rsu("nome_completo")&"</b><br />"
html = html& "Telefone: <b>"&rsu("tel")&"</b><br />"
html = html& "E-mail: <b>"&rsu("email")&"</b><br />"
html = html& "CNPJ / CPF: <b>"&rsu("cnpj")&"</b><br />"
html = html& "Razão Social: <b>"&rsu("razao")&"</b><br />"
html = html& "Nome fantasia: <b>"&rsu("fantasia")&"</b><br />"
html = html& "CEP: <b>"&rsu("cep")&"</b><br />"
html = html& "Endereço: <b>"&rsu("endereco")&"</b><br />"
html = html& "Bairro: <b>"&rsu("bairro")&"</b><br />"
html = html& "Cidade: <b>"&rsu("cidade")&"</b><br />"
html = html& "UF: <b>"&rsu("uf")&"</b><br />"
end if