plussa

nån som kan förbättra koden?

<%if recset.eof then
response.write "0"
else
if not recset("1") = "" then
counter = counter +1
end if
if not recset("2") = "" then
counter = counter +1
end if
if not recset("3") = "" then
counter = counter +1
end if
if not recset("4") = "" then
counter = counter +1
end if
if not recset("5") = "" then
counter = counter +1
end if
if not recset("6") = "" then
counter = counter +1
end if
if not recset("7") = "" then
counter = counter +1
end if
if not recset("8") = "" then
counter = counter +1
end if
if not recset("9") = "" then
counter = counter +1
end if
if not recset("10") = "" then
counter = counter +1
end if
response.write counter
end if
%>

ehm. Vad vill du göra?

det ska plussas på +1 om man fältet är tomt annars +0

Kanske...

<%
if recset.eof then
counter = 0
else
For I = 1 to 10
if recset(I) <> "" then
counter = counter +1
end if
Next
end if
response.write counter
%>

får det här
Kompileringsfel i Microsoft VBScript (0x800A040E)
'loop' utan 'do'
/krypin_main.asp, line 1095
Loop

Aj som attans, det skall givetvis stå: Next och inte Loop.

Ändrat i mitt tidigare inlägg.

får konstiga siffror?

antar skrev:

får konstiga siffror?

Hur menar du ?

Visa mer omgivande kod (SQL-sats och så..).

kopplingen ser ut så här:

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/Counter.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * FROM Counter where counter1 = '1'"
RecSet.Open Addera, Connect, 3, 3

På vilket sätt får du konstiga siffror???

asså det står 4 istället för 3

Re: plussa

antar skrev:

plussa
nån som kan förbättra koden?

Klart det blir fel om man "plussar"...du måste lära dig att "plussar" är en ogiltlig operator..använd "plus" istället ! :e

Du är helt säker på att det inte finns 4 poster som uppfyller villkoret?
Står counter på 0 vid start?

Pröva att lägg in en till rad i scriptbiten:

<%
if recset.eof then
counter = 0
else
counter = 0
For I = 1 to 10
if recset(I) <> "" then
counter = counter +1
end if
Next
end if
response.write counter
%>

Då kanske iofs detta fungerar:

<%
counter = 0
if NOT recset.eof then
For I = 1 to 10
if recset(I) <> "" then
counter = counter +1
end if
Next
end if
response.write counter
%>