så nu har vi äntligen löst detta :D Det tog sin lilla tid å komma på vad det va men med --> andyoumaydie <--´s fulla hjälp så fixade det sig, plus att han har lärt mig mkt. Tack och åter tack :D
Men här kommer iaf den slutliga koden
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<% Session.lcid = 1053 %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!-- #include file="admin/DBconn.asp" -->
<!-- #include file="config/config.asp" -->
<!-- #include file="inc/include.asp" -->
<!-- #include file="lang/SE.asp" -->
<!-- #include file="admin/count.asp" -->
<%
Dim meta, css, logo, title2, BadWords, Domain, newFolder, RSScomment, RSStitle, RSSlink, RSSdescription, poweredby, title, comments, bloglinks, calendar, search, slogan
Dim posted, category, recentPosts, recentComments, posted_by, info, category2, weblogArchive, archive, addComment, noBadword, menu, default, about, admin
Dim comment_name, comment_email, comment_email_noshow, comment_url, comment_msg, strCatError, searchString_false, searchString_true, searchStringEmpty, emptyCalendar
Dim emptyComments, emptyPosts, dato, tid, strSQL, SQL, rs, strAntal, strSQLupdate, desc
Dim gotPost
Dim rsWeblog
Dim rsComments
Dim rsCat
Dim rsCategory
Dim rsPrev
Dim v_id
Dim v_weblog
Dim v_headline
Dim v_date
Dim vPrevPost
Dim vNextPost
%>
<head>
<title><%=title2%></title>
<meta name="description" content="<%=desc%>">
<meta name="keywords" content="<%=meta%>">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="revisit-after" content="2 days" />
<meta name="robots" content="all" />
<meta name="generator" content="LBlog" />
<link href="css/styletest.css" rel="stylesheet" type="text/css">
</head>
<body>
<% if request.querystring("showimage") = "" Then
set rsWeblog = ObjConn.execute("SELECT TOP 2 * FROM weblog ORDER BY date DESC")
else
set rsWeblog = ObjConn.execute("SELECT TOP 2 * FROM weblog where id<=" & request.querystring("showimage") & " ORDER BY date DESC")
end if
if rsWeblog.EOF Then
Response.Write(""&emptyPosts&"")
Else
gotPost = false
Do While NOT rsWeblog.EOF
if gotPost = false Then
Set rsComments = objConn.Execute("SELECT Count(comments.blogID) AS antal FROM comments WHERE comments.blogID = " & rsWeblog("id") & ";")
Set rsCategory = ObjConn.Execute("SELECT * FROM category WHERE cat_id = " & rsWeblog("cat_id") & "")
v_id = rsWeblog("id")
v_weblog = rsWeblog("weblog")
v_headline = rsWeblog("headline")
v_date = rsWeblog("date")
set rsPrev = ObjConn.execute("SELECT TOP 1 * FROM weblog WHERE date > #" & v_date & "# ORDER BY date ASC")
if not rsPrev.eof then
vPrevPost = rsPrev("id")
else
vPrevPost = ""
end if
else
vNextPost = rsWeblog("id")
end if
gotPost = true
rsWeblog.MoveNext
loop
rsWeblog.Close
Set rsWeblog = Nothing
End If
%>
<div id="menyen">
<div id="menycontainer">
<!-- #include file="menu2.asp" -->
</div>
<div id="hogerc">
« <a href="default.asp?showimage=<%=vNextpost%>">Föregående</a> |
<a href="default.asp?showimage=<%=vPrevpost%>">Nästa</a> »
<img src="icons/comments.gif"> <a href="comments.asp?id=<%=v_id%>" class="bar"><%=comments%> <b>(<%=rsComments("antal")%>)</b></a>
</div>
</div>
<div id="container">
<div id="body">
<br>
<center>
<table border=0 cellborder=0 cellspacing=0 height=100%>
<td>
<center>
<div id="bildram2">
<div id="bildram">
<!-- BlogbotContentStart --><a href="default.asp?showimage=<%=vNextpost%>" title="previous entry"><%=v_weblog%></a><!-- BlogbotContentEnd -->
</div>
</div>
</center>
</td>
</table>
</center>
<tt><!-- BlogbotTitleStart --><%= v_headline %><!-- BlogbotTitleEnd --></tt>
</div>
</div>
<div id="menyen">
<div id="vansterd">
<div class="date"><%=posted%><!-- BlogbotDateStart --><%=v_date%><!-- BlogbotDateEnd --></div>
</div>
<div id="hoger">
<div id="menycontainer">
<!-- #include file="menu3.asp" -->
</div>
</div>
</div>
</body>
</html>
<%
Call CloseDatabase
%>
