Connection error

[skw8966]

When accessing my main page, I receive this error:

Microsoft VBScript runtime error '800a01ad'
ActiveX component can't create object
/Intranet/Fast/tblReprintProdlist.asp, line 435

The error appears to relate to the line:
Set conn=Server.CreateObject("ADODB.Connection&quot

Here's the code:
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader &quot;pragma&quot;, &quot;no-cache&quot;
Response.addHeader &quot;cache-control&quot;, &quot;private&quot;
Response.CacheControl = &quot;no-cache&quot;
%>
<!--#include file=&quot;db.asp&quot;-->
<!--#include file=&quot;aspmkrfn.asp&quot;-->
<%
displayRecs = 20
recRange = 10
%>
<%
dbwhere = &quot;&quot;
masterdetailwhere = &quot;&quot;
searchwhere = &quot;&quot;
a_search = &quot;&quot;
b_search = &quot;&quot;
whereClause = &quot;&quot;
%>
<%
' Get search criteria for advance search
x_pkAuto = Request.QueryString(&quot;x_pkAuto&quot
z_pkAuto = Request.QueryString(&quot;z_pkAuto&quot
arrfieldopr = Split(z_pkAuto,&quot;,&quot
If x_pkAuto <> &quot;&quot; Then
x_pkAuto = Replace(x_pkAuto,&quot;'&quot;,&quot;''&quot
x_pkAuto = Replace(x_pkAuto,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[pkAuto] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_pkAuto 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_Name = Request.QueryString(&quot;x_Name&quot
z_Name = Request.QueryString(&quot;z_Name&quot
arrfieldopr = Split(z_Name,&quot;,&quot
If x_Name <> &quot;&quot; Then
x_Name = Replace(x_Name,&quot;'&quot;,&quot;''&quot
x_Name = Replace(x_Name,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[Name] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_Name 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_dtDate = Request.QueryString(&quot;x_dtDate&quot
z_dtDate = Request.QueryString(&quot;z_dtDate&quot
arrfieldopr = Split(z_dtDate,&quot;,&quot
If x_dtDate <> &quot;&quot; Then
x_dtDate = Replace(x_dtDate,&quot;'&quot;,&quot;''&quot
x_dtDate = Replace(x_dtDate,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[dtDate] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_dtDate 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotCbOrders1 = Request.QueryString(&quot;x_TotCbOrders1&quot
z_TotCbOrders1 = Request.QueryString(&quot;z_TotCbOrders1&quot
arrfieldopr = Split(z_TotCbOrders1,&quot;,&quot
If x_TotCbOrders1 <> &quot;&quot; Then
x_TotCbOrders1 = Replace(x_TotCbOrders1,&quot;'&quot;,&quot;''&quot
x_TotCbOrders1 = Replace(x_TotCbOrders1,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotCbOrders1] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotCbOrders1 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotPhOrders1 = Request.QueryString(&quot;x_TotPhOrders1&quot
z_TotPhOrders1 = Request.QueryString(&quot;z_TotPhOrders1&quot
arrfieldopr = Split(z_TotPhOrders1,&quot;,&quot
If x_TotPhOrders1 <> &quot;&quot; Then
x_TotPhOrders1 = Replace(x_TotPhOrders1,&quot;'&quot;,&quot;''&quot
x_TotPhOrders1 = Replace(x_TotPhOrders1,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotPhOrders1] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotPhOrders1 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotItOrders1 = Request.QueryString(&quot;x_TotItOrders1&quot
z_TotItOrders1 = Request.QueryString(&quot;z_TotItOrders1&quot
arrfieldopr = Split(z_TotItOrders1,&quot;,&quot
If x_TotItOrders1 <> &quot;&quot; Then
x_TotItOrders1 = Replace(x_TotItOrders1,&quot;'&quot;,&quot;''&quot
x_TotItOrders1 = Replace(x_TotItOrders1,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotItOrders1] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotItOrders1 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotFxOrders1 = Request.QueryString(&quot;x_TotFxOrders1&quot
z_TotFxOrders1 = Request.QueryString(&quot;z_TotFxOrders1&quot
arrfieldopr = Split(z_TotFxOrders1,&quot;,&quot
If x_TotFxOrders1 <> &quot;&quot; Then
x_TotFxOrders1 = Replace(x_TotFxOrders1,&quot;'&quot;,&quot;''&quot
x_TotFxOrders1 = Replace(x_TotFxOrders1,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotFxOrders1] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotFxOrders1 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotRpOrders1 = Request.QueryString(&quot;x_TotRpOrders1&quot
z_TotRpOrders1 = Request.QueryString(&quot;z_TotRpOrders1&quot
arrfieldopr = Split(z_TotRpOrders1,&quot;,&quot
If x_TotRpOrders1 <> &quot;&quot; Then
x_TotRpOrders1 = Replace(x_TotRpOrders1,&quot;'&quot;,&quot;''&quot
x_TotRpOrders1 = Replace(x_TotRpOrders1,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotRpOrders1] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotRpOrders1 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotCbOrders2 = Request.QueryString(&quot;x_TotCbOrders2&quot
z_TotCbOrders2 = Request.QueryString(&quot;z_TotCbOrders2&quot
arrfieldopr = Split(z_TotCbOrders2,&quot;,&quot
If x_TotCbOrders2 <> &quot;&quot; Then
x_TotCbOrders2 = Replace(x_TotCbOrders2,&quot;'&quot;,&quot;''&quot
x_TotCbOrders2 = Replace(x_TotCbOrders2,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotCbOrders2] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotCbOrders2 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotPhOrders2 = Request.QueryString(&quot;x_TotPhOrders2&quot
z_TotPhOrders2 = Request.QueryString(&quot;z_TotPhOrders2&quot
arrfieldopr = Split(z_TotPhOrders2,&quot;,&quot
If x_TotPhOrders2 <> &quot;&quot; Then
x_TotPhOrders2 = Replace(x_TotPhOrders2,&quot;'&quot;,&quot;''&quot
x_TotPhOrders2 = Replace(x_TotPhOrders2,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotPhOrders2] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotPhOrders2 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotItOrders2 = Request.QueryString(&quot;x_TotItOrders2&quot
z_TotItOrders2 = Request.QueryString(&quot;z_TotItOrders2&quot
arrfieldopr = Split(z_TotItOrders2,&quot;,&quot
If x_TotItOrders2 <> &quot;&quot; Then
x_TotItOrders2 = Replace(x_TotItOrders2,&quot;'&quot;,&quot;''&quot
x_TotItOrders2 = Replace(x_TotItOrders2,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotItOrders2] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotItOrders2 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotFxOrders2 = Request.QueryString(&quot;x_TotFxOrders2&quot
z_TotFxOrders2 = Request.QueryString(&quot;z_TotFxOrders2&quot
arrfieldopr = Split(z_TotFxOrders2,&quot;,&quot
If x_TotFxOrders2 <> &quot;&quot; Then
x_TotFxOrders2 = Replace(x_TotFxOrders2,&quot;'&quot;,&quot;''&quot
x_TotFxOrders2 = Replace(x_TotFxOrders2,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotFxOrders2] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotFxOrders2 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotRpOrders2 = Request.QueryString(&quot;x_TotRpOrders2&quot
z_TotRpOrders2 = Request.QueryString(&quot;z_TotRpOrders2&quot
arrfieldopr = Split(z_TotRpOrders2,&quot;,&quot
If x_TotRpOrders2 <> &quot;&quot; Then
x_TotRpOrders2 = Replace(x_TotRpOrders2,&quot;'&quot;,&quot;''&quot
x_TotRpOrders2 = Replace(x_TotRpOrders2,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotRpOrders2] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotRpOrders2 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotCbOrders3 = Request.QueryString(&quot;x_TotCbOrders3&quot
z_TotCbOrders3 = Request.QueryString(&quot;z_TotCbOrders3&quot
arrfieldopr = Split(z_TotCbOrders3,&quot;,&quot
If x_TotCbOrders3 <> &quot;&quot; Then
x_TotCbOrders3 = Replace(x_TotCbOrders3,&quot;'&quot;,&quot;''&quot
x_TotCbOrders3 = Replace(x_TotCbOrders3,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotCbOrders3] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotCbOrders3 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotPhOrders3 = Request.QueryString(&quot;x_TotPhOrders3&quot
z_TotPhOrders3 = Request.QueryString(&quot;z_TotPhOrders3&quot
arrfieldopr = Split(z_TotPhOrders3,&quot;,&quot
If x_TotPhOrders3 <> &quot;&quot; Then
x_TotPhOrders3 = Replace(x_TotPhOrders3,&quot;'&quot;,&quot;''&quot
x_TotPhOrders3 = Replace(x_TotPhOrders3,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotPhOrders3] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotPhOrders3 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotItOrders3 = Request.QueryString(&quot;x_TotItOrders3&quot
z_TotItOrders3 = Request.QueryString(&quot;z_TotItOrders3&quot
arrfieldopr = Split(z_TotItOrders3,&quot;,&quot
If x_TotItOrders3 <> &quot;&quot; Then
x_TotItOrders3 = Replace(x_TotItOrders3,&quot;'&quot;,&quot;''&quot
x_TotItOrders3 = Replace(x_TotItOrders3,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotItOrders3] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotItOrders3 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotFxOrders3 = Request.QueryString(&quot;x_TotFxOrders3&quot
z_TotFxOrders3 = Request.QueryString(&quot;z_TotFxOrders3&quot
arrfieldopr = Split(z_TotFxOrders3,&quot;,&quot
If x_TotFxOrders3 <> &quot;&quot; Then
x_TotFxOrders3 = Replace(x_TotFxOrders3,&quot;'&quot;,&quot;''&quot
x_TotFxOrders3 = Replace(x_TotFxOrders3,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotFxOrders3] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotFxOrders3 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
x_TotRpOrders3 = Request.QueryString(&quot;x_TotRpOrders3&quot
z_TotRpOrders3 = Request.QueryString(&quot;z_TotRpOrders3&quot
arrfieldopr = Split(z_TotRpOrders3,&quot;,&quot
If x_TotRpOrders3 <> &quot;&quot; Then
x_TotRpOrders3 = Replace(x_TotRpOrders3,&quot;'&quot;,&quot;''&quot
x_TotRpOrders3 = Replace(x_TotRpOrders3,&quot;[&quot;,&quot;[[]&quot
a_search = a_search & &quot;[TotRpOrders3] &quot; 'add field
a_search = a_search & arrfieldopr(0) & &quot; &quot; ' add operator
If Ubound(arrfieldopr) >= 1 Then
a_search = a_search & arrfieldopr(1) 'add search prefix
End If
a_search = a_search & x_TotRpOrders3 'add input parameter
If Ubound(arrfieldopr) >=2 Then
a_search = a_search & arrfieldopr(2) 'add search suffix
End If
a_search = a_search & &quot; AND &quot;
End If
If Len(a_search) > 4 Then
a_search = Mid(a_search,1,Len(a_search)-4)
End If
%>
<%
' Get search criteria for basic search
pSearch = Request.QueryString(&quot;psearch&quot
pSearchType = Request.QueryString(&quot;psearchType&quot
If pSearch <> &quot;&quot; Then
pSearch = Replace(pSearch,&quot;'&quot;,&quot;''&quot
pSearch = Replace(pSearch,&quot;[&quot;,&quot;[[]&quot
If pSearchType <> &quot;&quot; Then
While InStr(pSearch, &quot; &quot > 0
pSearch = Replace(pSearch, &quot; &quot;, &quot; &quot
Wend
arpSearch = Split(Trim(pSearch), &quot; &quot
For Each kw In arpSearch
b_search = b_search & &quot;(&quot;
b_search = b_search & &quot;[Name] LIKE '%&quot; & Trim(kw) & &quot;%' OR &quot;
If Right(b_search, 4)=&quot; OR &quot; Then b_search = Left(b_search, Len(b_search)-4)
b_search = b_search & &quot &quot; & pSearchType & &quot; &quot;
Next
Else
b_search = b_search & &quot;[Name] LIKE '%&quot; & pSearch & &quot;%' OR &quot;
End If
End If
If Right(b_search, 4)=&quot; OR &quot; Then b_search = Left(b_search, Len(b_search)-4)
If Right(b_search, 5)=&quot; AND &quot; Then b_search = Left(b_search, Len(b_search)-5)
%>
<%
'Build search criteria
If a_search <> &quot;&quot; Then
searchwhere = a_search 'advance search
ElseIf b_search <> &quot;&quot; Then
searchwhere = b_search 'basic search
End If
'Save search criteria
If searchwhere <> &quot;&quot; Then
Session(&quot;tblReprintProd_searchwhere&quot = searchwhere
'reset start record counter (new search)
startRec = 1
Session(&quot;tblReprintProd_REC&quot = startRec
Else
searchwhere = Session(&quot;tblReprintProd_searchwhere&quot
End If
%>
<%
'Get clear search cmd
If Request.QueryString(&quot;cmd&quot.Count > 0 Then
cmd = Request.QueryString(&quot;cmd&quot
If UCase(cmd) = &quot;RESET&quot; Then
'reset search criteria
searchwhere = &quot;&quot;
Session(&quot;tblReprintProd_searchwhere&quot =searchwhere
ElseIf UCase(cmd) = &quot;RESETALL&quot; Then
'reset search criteria
searchwhere = &quot;&quot;
Session(&quot;tblReprintProd_searchwhere&quot =searchwhere
End If
'reset start record counter (reset command)
startRec = 1
Session(&quot;tblReprintProd_REC&quot = startRec
End If
'construct dbwhere
If masterdetailwhere <> &quot;&quot; Then
dbwhere = dbwhere & &quot;(&quot; & masterdetailwhere & &quot AND &quot;
End If
If searchwhere <> &quot;&quot; Then
dbwhere = dbwhere & &quot;(&quot; & searchwhere & &quot AND &quot;
End If
If Len(dbwhere) > 5 Then
dbwhere = Mid(dbwhere, 1, Len(dbwhere)-5) 'trim right most AND
End If
%>
<%
' Load Default Order
DefaultOrder = &quot;&quot;
DefaultOrderType = &quot;&quot;
'No Default Filter
DefaultFilter = &quot;&quot;
' Check for an Order parameter
OrderBy = &quot;&quot;
If Request.QueryString(&quot;order&quot.Count > 0 Then
OrderBy = Request.QueryString(&quot;order&quot
' Check If an ASC/DESC toggle is required
If Session(&quot;tblReprintProd_OB&quot = OrderBy Then
If Session(&quot;tblReprintProd_OT&quot = &quot;ASC&quot; Then
Session(&quot;tblReprintProd_OT&quot = &quot;DESC&quot;
Else
Session(&quot;tblReprintProd_OT&quot = &quot;ASC&quot;
End if
Else
Session(&quot;tblReprintProd_OT&quot = &quot;ASC&quot;
End If
Session(&quot;tblReprintProd_OB&quot = OrderBy
Session(&quot;tblReprintProd_REC&quot = 1
Else
OrderBy = Session(&quot;tblReprintProd_OB&quot
If OrderBy = &quot;&quot; Then
OrderBy = DefaultOrder
Session(&quot;tblReprintProd_OB&quot = OrderBy
Session(&quot;tblReprintProd_OT&quot = DefaultOrderType
End If
End If
' Open Connection to the database
Set conn = Server.CreateObject(&quot;ADODB.Connection&quot
conn.Open xDb_Conn_Str
' Build SQL
strsql = &quot;SELECT * FROM [tblReprintProd]&quot;
If DefaultFilter <> &quot;&quot; Then
whereClause = whereClause & &quot;(&quot; & DefaultFilter & &quot AND &quot;
End If
If dbwhere <> &quot;&quot; Then
whereClause = whereClause & &quot;(&quot; & dbwhere & &quot AND &quot;
End If
If Right(whereClause, 5)=&quot; AND &quot; Then whereClause = Left(whereClause, Len(whereClause)-5)
If whereClause <> &quot;&quot; Then
strsql = strsql & &quot; WHERE &quot; & whereClause
End If
If OrderBy <> &quot;&quot; Then
strsql = strsql & &quot; ORDER BY [&quot; & OrderBy & &quot;] &quot; & Session(&quot;tblReprintProd_OT&quot
End If
'Response.Write strsql
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot
rs.cursorlocation = 3
rs.Open strsql, conn, 1, 2
totalRecs = rs.RecordCount
' Check for a START parameter
If Request.QueryString(&quot;start&quot.Count > 0 Then
startRec = Request.QueryString(&quot;start&quot
Session(&quot;tblReprintProd_REC&quot = startRec
ElseIf Request.QueryString(&quot;pageno&quot.Count > 0 Then
pageno = Request.QueryString(&quot;pageno&quot
If IsNumeric(pageno) Then
startRec = (pageno-1)*displayRecs+1
If startRec <= 0 Then
startRec = 1
ElseIf startRec >= ((totalRecs-1)\displayRecs)*displayRecs+1 Then
startRec = ((totalRecs-1)\displayRecs)*displayRecs+1
End If
Session(&quot;tblReprintProd_REC&quot = startRec
Else
startRec = Session(&quot;tblReprintProd_REC&quot
If Not IsNumeric(startRec) Or startRec = &quot;&quot; Then
'reset start record counter
startRec = 1
Session(&quot;tblReprintProd_REC&quot = startRec
End If
End If
Else
startRec = Session(&quot;tblReprintProd_REC&quot
If Not IsNumeric(startRec) Or startRec = &quot;&quot; Then
'reSet start record counter
startRec = 1
Session(&quot;tblReprintProd_REC&quot = startRec
End If
End If
%>
<!--#include file=&quot;header.asp&quot;-->
<form action=&quot;tblReprintProdlist.asp&quot;>
<table border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;4&quot;>
<tr>
<td><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Quick Search (*)</font></td>
<td>
<input type=&quot;text&quot; name=&quot;psearch&quot; size=&quot;20&quot;>
<input type=&quot;Submit&quot; name=&quot;Submit&quot; value=&quot;GO&quot;>
  <a href=&quot;tblReprintProdlist.asp?cmd=reset&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Show all</font></a>
  <a href=&quot;tblReprintProdsrch.asp&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Advanced Search</font></a>
</td>
</tr>
<tr><td> </td><td><input type=&quot;radio&quot; name=&quot;psearchtype&quot; value=&quot;&quot; checked><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Exact phrase</font>  <input type=&quot;radio&quot; name=&quot;psearchtype&quot; value=&quot;AND&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>All words</font>  <input type=&quot;radio&quot; name=&quot;psearchtype&quot; value=&quot;OR&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Any word</font></td></tr>
</table>
</form>
<table border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;4&quot;>
<tr>
<td><a href=&quot;tblReprintProdadd.asp&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Add</font></a></td>
</tr>
</table>
<p>
<%
' Display page numbers
If totalRecs > 0 Then
rsEof = (totalRecs < (startRec + displayRecs))
' Find out if there should be Backward or Forward Buttons on the table.
If startRec = 1 Then
isPrev = False
Else
isPrev = True
PrevStart = startRec - displayRecs
If PrevStart < 1 Then PrevStart = 1 %>
<a href=&quot;tblReprintProdlist.asp?start=<%=PrevStart%>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;><b>Prev</b></font></a>
<%
End If
If (isPrev OR (NOT rsEof)) Then
x = 1
y = 1
dx1 = ((startRec-1)\(displayRecs*recRange))*displayRecs*recRange+1
dy1 = ((startRec-1)\(displayRecs*recRange))*recRange+1
If (dx1+displayRecs*recRange-1) > totalRecs Then
dx2 = (totalRecs\displayRecs)*displayRecs+1
dy2 = (totalRecs\displayRecs)+1
Else
dx2 = dx1+displayRecs*recRange-1
dy2 = dy1+recRange-1
End If
While x <= totalRecs
If x >= dx1 AND x <= dx2 Then
If CLng(startRec) = CLng(x) Then %>
<font face=&quot;Book Antiqua&quot; size=&quot;2&quot;><b><%=y%></b></font>
<% Else %>
<a href=&quot;tblReprintProdlist.asp?start=<%=x%>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;><b><%=y%></b></font></A>
<% End If
x = x + displayRecs
y = y + 1
ElseIf x >= (dx1-displayRecs*recRange) AND x <= (dx2+displayRecs*recRange) Then
If x+recRange*displayRecs < totalRecs Then %>
<a href=&quot;tblReprintProdlist.asp?start=<%=x%>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;><b><%=y%>-<%=y+recRange-1%></b></font></a>
<% Else
ny=(totalRecs-1)\displayRecs+1
If ny = y Then %>
<a href=&quot;tblReprintProdlist.asp?start=<%=x%>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;><b><%=y%></b></font></a>
<% Else %>
<a href=&quot;tblReprintProdlist.asp?start=<%=x%>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;><b><%=y%>-<%=ny%></b></font></a>
<% End If
End If
x=x+recRange*displayRecs
y=y+recRange
Else
x=x+recRange*displayRecs
y=y+recRange
End If
Wend
End If
' Next link
If NOT rsEof Then
NextStart = startRec + displayRecs
isMore = True %>
<a href=&quot;tblReprintProdlist.asp?start=<%=NextStart%>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;><b>Next</b></font></a>
<% Else
isMore = False
End If %>
<br>
<% If CLng(startRec) > CLng(totalRecs) Then startRec = totalRecs
stopRec = startRec + displayRecs - 1
recCount = totalRecs - 1
If rsEOF Then recCount = totalRecs
If stopRec > recCount Then stopRec = recCount %>
<font face=&quot;Book Antiqua&quot; size=&quot;2&quot;> Records <%= startRec %> to <%= stopRec %> of <%= totalRecs %></font>
<% Else %>
<font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>No records found</font>
<% End If %>
<form method=&quot;post&quot;>
<table border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;5&quot; bgcolor=&quot;#CCCCCC&quot;>
<tr bgcolor=&quot;#0099CC&quot;>
<td width=&quot;150&quot;> <a href=&quot;tblReprintProdlist.asp?order=<%= Server.URLEncode(&quot;pkAuto&quot %>&quot;><font color=&quot;#FFFFFF&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>ID </font>
<% If OrderBy = &quot;pkAuto&quot; Then %>
<font face=&quot;Webdings&quot;>
<% If Session(&quot;tblReprintProd_OT&quot = &quot;ASC&quot; Then %>
5
<% ElseIf Session(&quot;tblReprintProd_OT&quot = &quot;DESC&quot; Then %>
6
<% End If %>
</font>
<% End If %>
</font></a> </td>
<td width=&quot;171&quot;> <a href=&quot;tblReprintProdlist.asp?order=<%= Server.URLEncode(&quot;Name&quot %>&quot;><font color=&quot;#FFFFFF&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Name </font>
<% If OrderBy = &quot;Name&quot; Then %>
<font face=&quot;Webdings&quot;>
<% If Session(&quot;tblReprintProd_OT&quot = &quot;ASC&quot; Then %>
5
<% ElseIf Session(&quot;tblReprintProd_OT&quot = &quot;DESC&quot; Then %>
6
<% End If %>
</font>
<% End If %>
</font></a> </td>
<td width=&quot;163&quot;> <a href=&quot;tblReprintProdlist.asp?order=<%= Server.URLEncode(&quot;dtDate&quot %>&quot;><font color=&quot;#FFFFFF&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Date </font>
<% If OrderBy = &quot;dtDate&quot; Then %>
<font face=&quot;Webdings&quot;>
<% If Session(&quot;tblReprintProd_OT&quot = &quot;ASC&quot; Then %>
5
<% ElseIf Session(&quot;tblReprintProd_OT&quot = &quot;DESC&quot; Then %>
6
<% End If %>
</font>
<% End If %>
</font></a> </td>
<td width=&quot;30&quot;> </td>
<td width=&quot;24&quot;> </td>
<td width=&quot;57&quot;> </td>
<td width=&quot;33&quot;> </td>
<td width=&quot;45&quot;> </td>
<td width=&quot;37&quot;> </td>
<td width=&quot;46&quot;> </td>
</tr>
<%
'Avoid starting record > total records
If CLng(startRec) > CLng(totalRecs) Then
startRec = totalRecs
End If
'Set the last record to display
stopRec = startRec + displayRecs - 1
'Move to first record directly for performance reason
recCount = startRec - 1
If NOT rs.EOF Then
rs.MoveFirst
rs.Move startRec - 1
End If
recActual = 0
Do While (NOT rs.EOF) AND (recCount < stopRec)
recCount = recCount + 1
If CLng(recCount) >= CLng(startRec) Then
recActual = recActual + 1 %>
<%
'Set row color
bgcolor=&quot;#FFFF00&quot;
%>
<%
' Display alternate color for rows
If recCount Mod 2 <> 0 Then
bgcolor=&quot;#CCFFFF&quot;
End If
%>
<%
'Load Key for record
key = rs(&quot;pkAuto&quot
x_pkAuto = rs(&quot;pkAuto&quot
x_Name = rs(&quot;Name&quot
x_dtDate = rs(&quot;dtDate&quot
x_TotOrd = rs(&quot;TotOrd&quot
x_TotParts = rs(&quot;TotParts&quot
x_MinPerOrd = rs(&quot;MinPerOrd&quot
x_PhParts = rs(&quot;PhParts&quot
x_PhMinPerOrd = rs(&quot;PhMinPerOrd&quot
x_FaxParts = rs(&quot;FaxParts&quot
x_FaxMinPerOrd = rs(&quot;FaxMinPerOrd&quot
x_IntParts = rs(&quot;IntParts&quot
x_IntMinPerOrd = rs(&quot;IntMinPerOrd&quot
x_CbParts = rs(&quot;CbParts&quot
x_CbMinPerOrd = rs(&quot;CbMinPerOrd&quot
x_RpParts = rs(&quot;RpParts&quot
x_RpMinPerOrd = rs(&quot;RpMinPerOrd&quot
x_TotHrs = rs(&quot;TotHrs&quot
x_PhOrd = rs(&quot;PhOrd&quot
x_PhHrs = rs(&quot;PhHrs&quot
x_FaxOrd = rs(&quot;FaxOrd&quot
x_FaxHrs = rs(&quot;FaxHrs&quot
x_IntOrd = rs(&quot;IntOrd&quot
x_IntHrs = rs(&quot;IntHrs&quot
x_CbOrd = rs(&quot;CbOrd&quot
x_CbHrs = rs(&quot;CbHrs&quot
x_RpOrd = rs(&quot;RpOrd&quot
x_RpHrs = rs(&quot;RpHrs&quot
x_TotCbOrders1 = rs(&quot;TotCbOrders1&quot
x_TotPhOrders1 = rs(&quot;TotPhOrders1&quot
x_TotItOrders1 = rs(&quot;TotItOrders1&quot
x_TotFxOrders1 = rs(&quot;TotFxOrders1&quot
x_TotRpOrders1 = rs(&quot;TotRpOrders1&quot
x_TotCbOrders2 = rs(&quot;TotCbOrders2&quot
x_TotPhOrders2 = rs(&quot;TotPhOrders2&quot
x_TotItOrders2 = rs(&quot;TotItOrders2&quot
x_TotFxOrders2 = rs(&quot;TotFxOrders2&quot
x_TotRpOrders2 = rs(&quot;TotRpOrders2&quot
x_TotCbOrders3 = rs(&quot;TotCbOrders3&quot
x_TotPhOrders3 = rs(&quot;TotPhOrders3&quot
x_TotItOrders3 = rs(&quot;TotItOrders3&quot
x_TotFxOrders3 = rs(&quot;TotFxOrders3&quot
x_TotRpOrders3 = rs(&quot;TotRpOrders3&quot
%>
<tr bgcolor=&quot;<%= bgcolor %>&quot;>
<td><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;><%= x_pkAuto %> </font></td>
<td><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>
<%
Select Case x_Name
Case &quot;Mary Sue&quot; response.write &quot;Mary Sue&quot;
Case &quot;Jina&quot; response.write &quot;Jina&quot;
Case &quot;Barb&quot; response.write &quot;Barb&quot;
Case &quot;Blanca&quot; response.write &quot;Blanca&quot;
Case &quot;Karen&quot; response.write &quot;Karen&quot;
Case &quot;Debbie&quot; response.write &quot;Debbie&quot;
Case &quot;Melissa&quot; response.write &quot;Melissa&quot;
Case &quot;Kam&quot; response.write &quot;Kam&quot;
Case &quot;Sherry&quot; response.write &quot;Sherry&quot;
End Select
%>
 </font></td>
<td><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>
<% if isdate(x_dtDate) then response.write EW_FormatDateTime(x_dtDate,2) else response.write x_dtDate end if %>
 </font></td>
<td><a href=&quot;<% key = rs(&quot;pkAuto&quot : If not isnull(key) Then response.write &quot;tblReprintProdview.asp?key=&quot; & Server.URLEncode(key) Else response.write &quot;javascript:alert('Invalid Record! Key is null');&quot; End If %>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>View</font></a></td>
<td><a href=&quot;<% key = rs(&quot;pkAuto&quot : If not isnull(key) Then response.write &quot;tblReprintProdedit.asp?key=&quot; & Server.URLEncode(key) Else response.write &quot;javascript:alert('Invalid Record! Key is null');&quot; End If %>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Edit</font></a></td>
<td><a href=&quot;tblCallbackMainlist.asp?key_m=<%= x_pkAuto %>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Callbacks</font></a></td>
<td><a href=&quot;tblFaxMainlist.asp?key_m=<%= x_pkAuto %>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Faxes</font></a></td>
<td><a href=&quot;tblInternetMainlist.asp?key_m=<%= x_pkAuto %>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Internet</font></a></td>
<td><a href=&quot;tblPhoneMainlist.asp?key_m=<%= x_pkAuto %>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Phone</font></a></td>
<td><a href=&quot;tblReprintMainlist.asp?key_m=<%= x_pkAuto %>&quot;><font face=&quot;Book Antiqua&quot; size=&quot;2&quot;>Reprint</font></a></td>
</tr>
<%
End If
rs.MoveNext
Loop
%>
</table>
</form>
<%
' Close recordSet and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>
<!--#include file=&quot;footer.asp&quot;-->

 

[shaddow]

You need to check if you have rights to create ActiveX objects on the server or Check for Antiviruses.

I saw somewhere(i think in Visual basic forum) that Symatec can block script access.

________
George, M

 

[YNOTU]

reading this may help you find a solution:

http://aspfaq.com/show.asp?id=2134