Rs. absoluteposition = Rs. absoluteposition + 2 + (ABS (wzpage)-1) * wzrep) add 2 ??

Rs. Open SQL, check_conn, 1, 3
Dim wzcount, wzrep, wzpage, wzpagecount, wzpagerep, boardstr
Wzrep = 10
Wzcount = check_conn.execute (sqlc, 0, 1) (0)
Wzpagecount = ABS (INT (-ABS (wzcount/wzrep )))
Wzpage = request ("page ")
If Len (wzpage) = 0 or wzpage = 0 then wzpage = 1%>
<! -- # Include file = "../includepage/page_dir_news.asp" -->
<%
If Rs. recordcount <> 0 then
Rs. absoluteposition = Rs. absoluteposition + 2 + (ABS (wzpage)-1) * wzrep)
End if
Dim I
For I = 0 to wzrep-1
If Rs. EOF then exit
%>

<Tr <% if I mod 2 <> 0 then response. write "bgcolor = '# cccccc'" %> <TD> <% = RS ("news_id") %> </TD> <TD>
<% Set RSS = server. Createobject ("ADODB. recordset ")
RSS. Open "select top 1 news_class_name from news_class", check_conn, 3,3
Response. Write RSS ("news_class_name ")
RSS. Close
Set RSS = nothing %> </TD> <% = RS ("title") %> </TD> <% = RS ("news_time ") %> </TD> <a href = "editnews. asp? News_id = <% = RS ("news_id") %> & brands = <% = trim (RS ("brand_id ")) %> & manufacturers = <% = trim (RS ("manufacturer_id") %> & models = <% = trim (RS ("model_id ")) %> & on_market_years = <% = trim (RS ("on_market_year") %> & auto_engines = <% = trim (RS ("auto_engine ")) %> & auto_ids = <% = trim (RS ("auto_id") %> & country_ids = <% = trim (RS ("country_id ")) %> & region_ids = <% = trim (RS ("region_id") %> & newsclass = <% = RS ("news_class_id ") %> & Title = <% = RS ("title") %> & n Ewscontent = <% = RS ("content") %> "target =" _ blank "> edit </a> & nbsp; <a onclick =" return window. confirm ('Are you sure you want to delete? '); "Href = "? Act = del & newsclass = <% = request ("newsclass") %> & news_id = <% = RS ("news_id ") %> "> Delete </a> </TD> </tr>
<% Rs. movenext
Next
Rs. Close %>
<Tr> <TD align = "center" colspan = "5"> <% = pagination (wzpagecount, newsclass) %> </TD> </tr>

 

 

 

 

Rs. absoluteposition = Rs. absoluteposition + 2 + (ABS (wzpage)-1) * wzrep)
An error occurred while displaying the Homepage without adding 2

ADODB. recordset (0x800a0bb9)
The parameter type is incorrect, is not within the acceptable range, or is in conflict with other parameters.