v1. Excluir registros
opendataconn 'Abrir conexão com banco de dados
xxlb=RtnReplaceInt(Trim(request(xxlb)),0) 'De dentro para fora, a variável xxlb é recebida e os espaços em ambas as extremidades da variável são removidos. A camada mais externa é uma função personalizada, que é. provavelmente relacionado à substituição.
id=changechr(request(id)) 'Recebe o id e converte-o em uma string
ids=split(id,,) 'Divida o id por e salve-o no array ids
for i=0 to ubound(ids) 'Use um loop for para percorrer o array
tt=trim(ids(i)) 'Remova os espaços em ambas as extremidades dos elementos do array e atribua-os a tt
conn.executedelete from house where id=&tt& 'Excluir o registro da variável id=tt na tabela de dados
próximo 'fim do loop
response.redirect house.asp?xxlb=&xxlb& 'Vá para a página inicial e use o método get para passar o parâmetro xxlb, o valor é o valor da variável xxlb.
closedataconn fecha a conexão com o banco de dados
2. Conecte-se ao banco de dados
dim conn 'Definir variáveis
dim char_str(20) 'Definir array
sub OpenDataConn() 'Processo personalizado, localização do banco de dados de link de usuário
dim connstr define variáveis
connstr = Provider=Microsoft.Jet.OLEDB.4.0;Fonte de dados=
connstr = connstr & Server.MapPath(../../data/fyhouse_free.mdb) 'String do driver de banco de dados
'response.write connstr gera o valor da variável connstr
set conn=Server.CreateObject(AdoDb.Connection) 'Criar objeto de conexão
conn.Open connstr 'Vincular banco de dados
end sub Esta frase é o fim do processo, mas a julgar pelo código que você postou, não há começo.