Algum valor não deve estar sendo resgatado, faça assim: <%
dim peso,nome,lista, num, altura, tr, ab , si,strsql, rstsearch, conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DBQ=C:\Inetpub\wwwroot\contato.mdb;Driver={Microsoft Access Driver (*.mdb)}"
peso=Request.Form("txt_peso")
nome=request.Form("lista")
altura=Request.Form("txt_altura")
tr=request.Form("txt_tr")
ab=request.Form("txt_ab")
si=request.Form("txt_si")
lista=request.Form("lista")
strSQL = "INSERT INTO keep (peso,altura,tr,ab,si) VALUES ("&peso&","&altura&","&tr&","&ab&","&si&")"
response.Write strsql
response.end
Set rstSearch = Conexao.Execute(strSQL)
%> como que imprime a SQL ? Todos os valores estão aparecendo?