Como simplificar este codigo para calculadora direta.

[Nando Leads 0]

tenho o seguinte codigo para calculadora...ele puxa o dados de uma tabela, e faz a soma...ex:::Codigo = 1 Valor1 = 100Codigo = 2 Valor1 = 101Codigo = 3 Valor1 = 102Codigo = 4 Valor1 = 103ele faz a soma da mesma coluna(Valor1), mas de codigos diferentes.quero simplificar este codigo pq ele muitos SELECT,...se pudere me ajudar...ae vai o codigo..............<%Dim ConnSet Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb") set rsquery = conn.execute("select * from Calculo where Codigo = 1 ")varCodigo1 = rsquery("Valor1")set rsquery = conn.execute("select * from Calculo where Codigo = 2 ")varCodigo2 = rsquery("Valor1")set rsquery = conn.execute("select * from Calculo where Codigo = 3 ")varCodigo3 = rsquery("Valor1")set rsquery = conn.execute("select * from Calculo where Codigo = 4 ")varCodigo4 = rsquery("Valor1")resultado = CSng(varCodigo1) + CSng(varCodigo2) + CSng(varCodigo3) + CSng(varCodigo4) response.write(resultado)Conn.Close%>

[Filipe_Moraes 15]

Ola amigo, tente assim:

 

<%Dim ConnSet Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bd.mdb") var1=1FOR 1 TO 4set rsquery = conn.execute("select * from Calculo where Codigo = '&var1&' ")resultado= rsquery("Valor1")resultado2 = resultado2 + resultadovar1 = var1 + 1Nextresponse.write resultado2Conn.Close%>

Pode ser que resulte, ve ai e diga, nao tenho o asp instalado no meu pc neste momento.