| Author |
 Topic  |
|
|
Azzur
Starting Member
13 Posts |
 Posted - 25 November 2003 : 15:16:14
|
Hi I would like to ask you a suggestion, I have for one used year your mod link for sniz forum on the forum that I hold active near my firm, everything has been all right up to when I have used instead now the database access from when I are passed beginning to sql to have some serious problems, the fact it is that a po of errors I have found. I have realized that the field Show gave problems with Sql and I has renamed him, and in this way I have resolved the principal errors related to the pages of visualization category, however I don't now succeed in resolving the problem that me from the page link_showall. asp brings me an error to the line 95. This is the error that me from :
Tipo di errore:
ADODB.Recordset (0x800A0CB3)
Il set di record corrente non supporta i segnalibri. Potrebbe trattarsi di una limitazione del provider o del tipo di cursore selezionato.
/forum/links_showall.asp, line 95
The line error in the asp code is:
<%
Response.Write "<center><font color=red size=3>Nessun records Trovato!</font></center>"
Else
#### ERROR HERE LINE 95## objPagingRS.AbsolutePage = iPageCurrent
%>
do you think about being able to help me to resolve the problem? ? ? ?
I attend one email of yours, also if don't succeed in helping me! !
Talk to you soon. .
Mark 
|
|
|
OneWayMule
Dev. Team Member & Support Moderator
Austria
4969 Posts |
|
|
Azzur
Starting Member
13 Posts |
Posted - 26 November 2003 : 14:40:33
|
Hi OneWayMule thanks for the answer!!
Then have checked inside the file. asp it looks like the version seems the 3.1, I attach you the file checks you same!!
Do you think that I/you/he/she am the same version that I find on the site from you signalled?
If it is the same one do you recommend me to pass to the following version? But do I use the forum old thing I have to make to convert the forum to the version 3.4?
Can you tell me what is better to do kindly?? ů
They are in your hands!!
Thanks I attend confident one answer of yours!!
Thanks Mark
This is the code: (sorry but i'dont have a server host to public the file)
<%
'---------------------------------------------------------------------------------------
'Description : Links Manager Mod for Snitz Forum 3.1 sr 4
'Author : Originally link Manager 4 by Ezebox (www.ezebox.com)
' Edited and implemented for snitz forum by frankie
' Re-worked by Alan Le (alanle2000@hotmail.com)
'---------------------------------------------------------------------------------------
%>
<!-- #INCLUDE FILE="config.asp" -->
<!-- #INCLUDE FILE="inc_functions.asp" -->
<!-- #INCLUDE FILE="inc_top.asp" -->
<!-- #INCLUDE FILE="adovbs.inc" -->
<%
cat_name = Request.QueryString("parent_name")
sub_name = Request.QueryString("sub_name")
parent = Request.QueryString("parent_id")
cat = Request.QueryString("cat_id")
if parent = "" or cat = "" then Response.Redirect("links.asp")
%>
<table border="0" width="95%" align="center">
<tr>
<td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<img src="icon_folder_open.gif" height="15" width="15" border="0"> <a href="default.asp">All Forums</a><br>
<img src="icon_bar.gif" height="15" width="15" border="0"><img src="icon_folder_open.gif" height="15" width="15" border="0"> <a href="links.asp">Links Manager</a><br>
<img src="icon_blank.gif" height="15" width="15" border="0"><img src="icon_bar.gif" height="15" width="15" border="0"><img src="icon_folder_open.gif" height="15" width="15" border="0"> <a href="links_showsub.asp?cat_id=<%=parent%>&Cat=<%=cat_name%>"><%=cat_name%></a><br>
<img src="icon_blank.gif" height="15" width="15" border="0"><img src="icon_blank.gif" height="15" width="15" border="0"><img src="icon_bar.gif" height="15" width="15" border="0"><img src="icon_folder_open_topic.gif" height="15" width="15" border="0"> <%=sub_name%>
</font></td>
</tr>
</table>
<%
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim strSQL
Dim objPagingConn
Dim objPagingRS
Dim iRecordsShown
Dim I
iPageSize = 10
'set page size
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
If Request.QueryString("order") = "" Then
strOrderBy = "link_id"
Else
strOrderBy = Request.QueryString("order")
End If
strSQL = "SELECT * From LINKS where Category=" & cat & " and SHOWLINKS = 1 order by LINK_ID"
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open strSQL, my_Conn, adOpenStatic, adLockReadOnly, adCmdText
reccount = objPagingRS.recordcount
iPageCount = objPagingRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
%>
<table border="0" width="95%" cellspacing="1" cellpadding="0" bgcolor="<%= strTableBorderColor %>" align="center">
<tr>
<td bgcolor="<%= strForumCellColor %>" width="100%">
<table border="0" cellpadding="4" cellspacing="0" width="100%">
<tr>
<td align="left" colspan="2" bgcolor="<% =strHeadCellColor %>">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><%=cat_name%></a>: <%=sub_name%> ( 0 siti)</font></b>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<%
Response.Write "<center><font color=red size=3>Nessun records Trovato!</font></center>"
Else
objPagingRS.AbsolutePage = iPageCurrent
%>
<table border="0" width="95%" cellspacing="1" cellpadding="0" bgcolor="<%= strTableBorderColor %>" align="center">
<tr>
<td bgcolor="<%= strForumCellColor %>" width="100%">
<table border="0" cellpadding="4" cellspacing="0" width="100%">
<tr>
<td align="left" colspan="2" bgcolor="<% =strHeadCellColor %>">
<b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><%=cat_name%></a>: <%=sub_name%> ( <%=reccount%><% if reccount = 1 then %> site <% else %> siti<% end if %>)</font></b>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
dagar=DateDiff("d", Date, strtodate(objPagingRS("post_Date")))+7
%>
<table border="0" width="95%" cellspacing="1" cellpadding="6" align="center">
<tr>
<td bgcolor="white" width="100%">
<font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="<%= strDefaultFontColor %>">#149; <b><a href="links_goto.asp?id=<%=objPagingRS("link_ID")%>" target="_blank"><%=objPagingRS("Name")%></a></b><%if dagar >= 0 then response.write "<img src=new.gif>"%>
(Inserito : <%=formatdatetime(strtodate(objPagingRS("post_date")), 2)%> Hits : <%=objPagingRS("Hit")%>)
<a href="JavaScript:openWindow('links_error.asp?id=<%=objPagingRS("link_ID")%>&link=<%=objPagingRS("Name")%>')"> Segnala Errori/Abusi</a><br>
<%=objPagingRS("Description")%>
</font><br>
<% if objPagingRS("banner_url") <> "" then %><a href="links_goto.asp?id=<%=objPagingRS("link_ID")%>" target="_blank"><img src="<%=objPagingRS("Banner_url")%>" border=0></a><%end if%>
</td>
</tr>
</table>
<%
iRecordsShown = iRecordsShown + 1
objPagingRS.MoveNext
Loop
End If
objPagingRS.Close
Set objPagingRS = Nothing
If iPageCurrent <> 1 Then
%>
<a HREF="showlink.asp?page=<%= iPageCurrent - 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&cat_id=<%=cat%>&parent_name=<%=cat_name%>&sub_name=<%=sub_name%>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Previous</font></a>
<%
End If
If iPageCurrent < iPageCount Then
%>
<a HREF="showlink.asp?page=<%= iPageCurrent + 1 %>&order=<%= Server.URLEncode(strOrderBy) %>&cat_id=<%=cat%>&parent_name=<%=cat_name%>&sub_name=<%=sub_name%>"><font size="<%= strDefaultFontSize %>" face="<%= strDefaultFontFace %>"><b>Next</b></font></a>
</center>
<%
End If
if iPagecount = 0 then iPageCount = 1
%>
<br>
<center>
<font face="<%= strDefaultFontFace %>" size="<%= strFooterFontSize %>">Pagina <b><%= iPageCurrent %> di <%= iPageCount %></b> </font>
</font><br><br> <a href="links_add_form.asp?cat_id=<%=cat%>&cat_name=<%=sub_name%>&parent_id=<%=parent%>&parent_name=<%=cat_name%>"><font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>">Add URL</font></a>
</center>
<br>
<!-- #INCLUDE FILE="links_affiliates.asp" -->
<!-- #INCLUDE FILE="inc_footer.asp" --> |
 |
|
|
OneWayMule
Dev. Team Member & Support Moderator
Austria
4969 Posts |
|
|
Azzur
Starting Member
13 Posts |
Posted - 27 November 2003 : 14:37:02
|
therefore I on my local server use Version 3.1 SR4s and all perfectly worked when I used access, then from when are passed the first problems to SQL they are occurred, now as I now find problems with the page that have glued here you above and also with the pages of administration!!
The mod developed for 3.1 with SQL has ever been made a will? To you it works with SQL??
I attend your news
Thanks for the patience!
You greet Mark |
|
|
|
OneWayMule
Dev. Team Member & Support Moderator
Austria
4969 Posts |
|
|
Azzur
Starting Member
13 Posts |
Posted - 05 December 2003 : 09:07:21
|
Hi, have checked the new version of the LINK, but to use should convert them the my old forum and for I don't have indeed now time to put to work me to the conversion!!
The old version in my possession is the Snitz Forums 2000 Version 3.1 SR4s but the mod LINK realized for this version it doesn't work really with SQL. Have you tried to install him/it?? If have patience and help me I send you the file of the forum so try to install him/it you and even cercar to understand what there is of wrong of the old code!! Would be indeed a beautiful thing!! Thing you tell me??? To pass new time to the forum as it now creates me problems..
Can you help me?? Tell me of him!!!!!
I anxiously attend your news!
I use MySql!!!
Marck |
|
|
| |
Topic |
|
Topic Locked
