An array index is out of range. What does that mean?
19 is in bold:Request object error 'ASP 0105 : 80004005'
Index out of range
/kjvresp_action.asp, line 19
An array index is out of range.
Code:<%@ LANGUAGE="VBSCRIPT" %> <% Response.buffer = TRUE= true %> <!--#include file="adovbs.inc"--> <!--#include file="isadmin.inc"--> <% if isAdmin then set outpostDB = Server.CreateObject("ADODB.Connection") Private Function GetConnectionString() GetConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & Server.MapPath("kjv") & ";" & _ "UID=;PWD=;" End Function outpostDB = GetConnectionString() set deleteSet = Server.CreateObject("ADODB.RecordSet") deleteSet.Open "select * from results order by res_id", outpostDB, adOpenDynamic, adLockPessimistic, adCmdText p_thisDelete = 1 while not deleteSet.EOF if cint(deleteSet("res_id")) = cint(Request.form("p_delete").item(p_thisDelete)) then deleteSet.Delete deleteSet.Update if p_thisDelete < Request.form("p_delete").Count then p_thisDelete = p_thisDelete + 1 end if end if deleteSet.MoveNext wend deleteSet.Close set deleteSet = Nothing set outpostDB = Nothing Response.Clear Response.Redirect "http://127.0.0.1/kjvresp.asp" else Response.Write "You do not have access to this page." end if %> </BODY> </HTML>






Bookmarks