plussa

14 svar · 335 visningar · startad av antar 23 juli 2002

antarMedlem sedan dec. 2001289 inlägg

Frågan23 juli 2002 23:17#1

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
%>

K++Medlem sedan juli 2002171 inlägg

23 juli 2002 23:21#2

ehm. Vad vill du göra?

antarMedlem sedan dec. 2001289 inlägg

23 juli 2002 23:22#3

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

solbulleMedlem sedan mars 20015 287 inlägg

23 juli 2002 23:45#4

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
%>

antarMedlem sedan dec. 2001289 inlägg

23 juli 2002 23:52#5

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

solbulleMedlem sedan mars 20015 287 inlägg

24 juli 2002 00:18#6

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

Ändrat i mitt tidigare inlägg.

antarMedlem sedan dec. 2001289 inlägg

24 juli 2002 00:30#7

får konstiga siffror?

icaaqMedlem sedan okt. 20005 273 inlägg

24 juli 2002 05:55#8

antar skrev:

får konstiga siffror?

Hur menar du ?

emissionMedlem sedan dec. 19996 721 inlägg

24 juli 2002 08:27#9

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

antarMedlem sedan dec. 2001289 inlägg

24 juli 2002 10:40#10

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

solbulleMedlem sedan mars 20015 287 inlägg

24 juli 2002 10:43#11

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

antarMedlem sedan dec. 2001289 inlägg

24 juli 2002 10:44#12

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

QuazzoMedlem sedan juli 2001324 inlägg

24 juli 2002 11:06#13

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

solbulleMedlem sedan mars 20015 287 inlägg

24 juli 2002 11:22#14

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
%>

solbulleMedlem sedan mars 20015 287 inlägg

24 juli 2002 11:24#15

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
%>