An array index is out of range.
Hejsa..Jeg har lavet en side hvor jeg loader nogle checkbox'es, deres navn er et id fra en db.. Når jeg så prøver at hente dem igen med denne kode:
request.form(rs("id")) siger den fejl.. Fejlen er:
Request object error 'ASP 0105 : 80004005'
Index out of range
/admin/godkend_artikel_nu.asp, line 69
An array index is out of range.
I kan lige få min kode:
<%
if session("login") <> "yes mate" then
response.redirect "http://www.case-modding.dk"
else
end if
if session("status") = "Bruger" then
response.redirect "http://www.case-modding.dk"
else
end if
session("menu") = "Forum"
%>
<!-- #INCLUDE FILE="../top.asp" -->
<hr color="#CCCCCC" size="1">
<center>
<%
if request.form("sub") = "Accepter valgte artikler" then
'Vi skal acceptere de valgte artikler
strSQL = "SELECT * FROM cw_artikel_ind WHERE godkendt = 'Nej'"
set rs = Conn.Execute(strSQL)
Do While NOT rs.EOF
if request.form((rs("id"))) = "on" then
strSQL = "UPDATE cw_artikel_ind SET godkendt = 'Ja' WHERE id = " & (rs("id"))
Conn.Execute(strSQL)
strSQL = "SELECT * FROM cw_brugere WHERE nick = '" & (rs("forfatter")) & "'"
set us = Conn.Execute(strSQL)
<meta name="Generator" content="Stone's WebWriter 4">
Mail = "<html><head><style type=""text/css""><!-- body,td,th { font-family: Verdana; font-size: 8pt; color: 666666; } a { font-family: Verdana; font-size: 8pt; color: 666666; } a:link { text-decoration: none; } a:visited { text-decoration: none; color: 666666; } a:hover { text-decoration: none; color: 000000; } a:active { text-decoration: none; color: 666666; } --></style><title>Artikel Godkendt!</title></head><body bgcolor=""#CCCCCC""><div align=""center""><br> <table border=""1"" width=""400"" id=""table1"" cellspacing=""0"" cellpadding=""0"" style=""border-collapse: collapse; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; border-bottom-width: 1px"" bordercolor=""#000000""><tr><td style=""border-left-style: none; border-left-width: medium; border-right: medium none #000000; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium""><img border=""0"" src=""" & BilledeSti & "arg.gif"" width=""400"" height=""75""></td></tr><tr><td style=""border-left-color: #000000; border-left-width: 1px; border-right: 1px solid #000000; border-top-style: none; border-top-width: medium; border-bottom-style: solid; border-bottom-width: 1px"" bgcolor=""#FFFFFF""><p align=""center""><br>Artikel godkendt!<br><br>Din artikel er blevet godkendt.<br>Tryk på dette link for at se din artikel:<br><br><a href=""http://www.case-modding.dk/artikel/vis.asp?id=" & (rs("id")) & """>Vis artikel!</a><br><br>God fornøjelse med siden!<br><br>Med Venlig Hilsen:<br><font color=""#000000"">Team Case-modding.dk</font><br> <hr color=""#E1E1E1"" size=""1""><p align=""center""><i><b>Bemærk</b>: At denne email er noreply- email!.<br>Hvis der opstår problemer bedes du kontakte<br><a href=""mailto:support@case-modding.dk"">support@case-modding.dk</a></i><br> </td></tr></table></div></body></html>"
Set msg = Server.CreateObject("SMTPsvg.Mailer")
msg.RemoteHost = "pasmtp.tele.dk"
msg.CharSet = 2
msg.EncodeHeader "8bit"
msg.ContentType = "text/html"
msg.FromName = "Case-Modding.dk"
msg.FromAddress = "noreply@case-modding.dk"
msg.AddRecipient (us("nick")), (us("email"))
msg.Subject = "Artikel godkendt!"
msg.BodyText = Mail
if not msg.SendMail then
Response.Write "Fejl i mail-afsendelse... Prøv igen senere<br>"
'response.Write msg.Response
else
'emailen er afsendt uden problemer!
end if
else
end if
rs.movenext
loop
else
'Vi skal ikke acceptere de valgte artikler
strSQL = "SELECT * FROM cw_artikel_ind WHERE godkendt = 'Nej'"
set rs = Conn.Execute(strSQL)
Do While NOT rs.EOF
if request.form(rs("id")) = "on" then <-- HER SKER FEJLEN
strSQL = "DELETE FROM cw_artikel_ind WHERE id = " & (rs("id"))
Conn.Execute(strSQL)
Mail = "<html><head><style type=""text/css""><!-- body,td,th { font-family: Verdana; font-size: 8pt; color: 666666; } a { font-family: Verdana; font-size: 8pt; color: 666666; } a:link { text-decoration: none; } a:visited { text-decoration: none; color: 666666; } a:hover { text-decoration: none; color: 000000; } a:active { text-decoration: none; color: 666666; } --></style><title>Artikel Afvist!</title></head><body bgcolor=""#CCCCCC""><div align=""center""><br> <table border=""1"" width=""400"" id=""table1"" cellspacing=""0"" cellpadding=""0"" style=""border-collapse: collapse; border-left-width: 0px; border-right-width: 0px; border-top-width: 0px; border-bottom-width: 1px"" bordercolor=""#000000""><tr><td style=""border-left-style: none; border-left-width: medium; border-right: medium none #000000; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium""><img border=""0"" src=""" & BilledeSti & "ara.gif"" width=""400"" height=""75""></td></tr><tr><td style=""border-left-color: #000000; border-left-width: 1px; border-right: 1px solid #000000; border-top-style: none; border-top-width: medium; border-bottom-style: solid; border-bottom-width: 1px"" bgcolor=""#FFFFFF""><p align=""center""><br>Artikel afvist!<br><br>Din artikel er desværre blevet afvist.<br><br>Ellers må du have en god fornøjelse med siden!<br><br>Med Venlig Hilsen:<br><font color=""#000000"">Team Case-modding.dk</font><br> <hr color=""#E1E1E1"" size=""1""><p align=""center""><i><b>Bemærk</b>: At denne email er noreply- email!.<br>Hvis der opstår problemer bedes du kontakte<br><a href=""mailto:support@case-modding.dk"">support@case-modding.dk</a></i><br> </td></tr></table></div></body></html>"
Set msg = Server.CreateObject("SMTPsvg.Mailer")
msg.RemoteHost = "pasmtp.tele.dk"
msg.CharSet = 2
msg.EncodeHeader "8bit"
msg.ContentType = "text/html"
msg.FromName = "Case-Modding.dk"
msg.FromAddress = "noreply@case-modding.dk"
msg.AddRecipient (us("nick")), (us("email"))
msg.Subject = "Artikel Afvist!"
msg.BodyText = Mail
if not msg.SendMail then
Response.Write "Fejl i mail-afsendelse... Prøv igen senere<br>"
'response.Write msg.Response
else
'emailen er afsendt uden problemer!
end if
else
end if
rs.movenext
loop
end if
if error <> "" then
response.write "<h3>Der er sket en fejl!!!</h3>"
else
response.write "<h3>Artikler accepteret!!!</h3>"
end if
%>
</center>
</td>
<!-- #INCLUDE FILE="../bund.asp" -->
