matrix fejl asp?
Skal til eksamen her snart, så hurtige svar belønnes :)Den skriver der er en Matrix fejl!!! MEN HVAD ER DET!
HJÆLP
det sker nede ved <--valgt_side = valgt_side(0) + 1-->??
<%
sidevll = Request.querystring("sidevll")
offset=request.form("offset")
if sidevll = "ja" then
response.redirect("default.asp?side=test&offset="&offset&"")
end if
offset = Cint(Request.QueryString("offset"))
if offset<>0 then
offset = Cint(Request.QueryString("offset"))
else
offset = 0
end if
%>
<form method="post" action="default.asp?side=test&valgt=ja">
<input type="submit" value="vis pr side" />
<select name="bruger_visprside">
<option value="1">1</option>
<option value="3">3</option>
<option value="5">5</option>
<option value="7">7</option>
</select>
</form>
<%
valgt=Request.QueryString("valgt")
bruger_visprside = Request.Form("bruger_visprside")
id = 67
if valgt="ja" then
rediger_bruger_visprside = "UPDATE bruger SET bruger_visprside="&bruger_visprside&" WHERE bruger_id="&id&""
set rsrediger_bruger_visprside = conn.Execute(rediger_bruger_visprside)
end if
udskriv_bruger_visprside = "SELECT * FROM bruger WHERE bruger_id="&id&""
Set rsudskriv_bruger_visprside = conn.Execute(udskriv_bruger_visprside)
limit = rsudskriv_bruger_visprside("bruger_visprside")
limit = Cint(limit)
udskriv_brugere = "SELECT * FROM bruger LIMIT "&limit&" OFFSET "&offset&""
Set rsudskriv_brugere = conn.Execute(udskriv_brugere)
Do until rsudskriv_brugere.EOF
Response.Write(rsudskriv_brugere("bruger_id")&"<br />")
rsudskriv_brugere.movenext
loop
find_antal_brugere = "SELECT * FROM bruger"
Set rsfind_antal_brugere = conn.Execute(find_antal_brugere)
antal_brugere = 0
if antal_brugere<>0 then
antal_brugere = antal_brugere
else
antal_brugere = 0
end if
Do until rsfind_antal_brugere.EOF
antal_brugere = antal_brugere + 1
rsfind_antal_brugere.movenext
loop
%><br /><%
if offset>0 then
Response.Write("<a href='default.asp?side=test&offset="&offset-limit&"'>Tilbage</a>")
end if
naeste = antal_brugere - offset
if naeste<=limit then
else
Response.Write("<a href='default.asp?side=test&offset="&offset+limit&"'>Naeste</a>")
end if
%><br /><%
Response.Write("Antal Brugere"&" "&antal_brugere)
%><br /><%
viser_start = Cint(offset) + 1
viser_slut = Cint(offset) + limit
if viser_slut>antal_brugere then
viser_slut = antal_brugere
end if
Response.Write("Viser nu bruger nr"&" "&viser_start&"-"&viser_slut)
%><br /><%
valgt_side = Cint(offset)+1
valgt_side = Cint(valgt_side) / limit
valgt_side = CDbl(valgt_side)
if instr(valgt_side, ",") then
valgt_side = split(valgt_side, ",")
valgt_side = valgt_side(0) + 1
else
valgt_side = valgt_side
end if
Response.Write("Side nr"&" "&valgt_side)
%><br /><%
sider_i_alt = antal_brugere / limit
sider_i_alt = CDbl(sider_i_alt)
if instr(sider_i_alt, ",") then
sider_i_alt = split(sider_i_alt, ",")
sider_i_alt = sider_i_alt(0) + 1
else
sider_i_alt = sider_i_alt
end if
Response.Write("Sider I alt"&" "&sider_i_alt)
siderne=0
%>
<form method="post" action="default.asp?side=test&sidevll=ja">
<input type="submit" value="Gå til side" />
<select name="offset">
<%
do until siderne = Cint(sider_i_alt)
side_tallet = cint(siderne) + 1
offset = Cint(siderne) * limit
'if side_tallet=valgt_side2 then
'Response.Write("<a href='default.asp?side=test&offset="&offset&"'><b>"&side_tallet&"</b></a>")
'else
'Response.Write("<a href='default.asp?side=test&offset="&offset&"'>"&tallet&"</a>")
'end if
%>
<option value="<%=offset%>"<%if side_tallet=valgt_side then%> selected="selected"<%end if%>><%=side_tallet%></option>
<%
'if side_tallet=Cint(sider_ialt2) then
'else
%>-<%
'end if
siderne=siderne+1
loop
%>
</select>
</form>