ngt felmeddelande? beskriv vad det är som inte funkar så kanske vi kan hjälpa till att lösa problemet.
cya,
PatrikB
Frågan#1
Varför funkar inte gästbok nummer 152 och uppåt när jag använder denna kod??? Alltså ca 140 st fungerar men sen funkar det ej!
<%Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.Createobject("ADODB.Recordset")
Conn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/databas.mdb")
Sidan = Request.QueryString("sida")
If Sidan = "" then
sida = 1
Else
sida = Sidan
End If
RecSet.CursorLocation = 3
SQL = "Select anvandare.*, gastbok.* From anvandare Left Join gastbok On anvandare.id = gastbok.anvId Where anvandare.id=" & Request.QueryString("id") & " Order By gastbok.id desc"
RecSet.Open SQL , Conn%>
<!--#include file="delaText.asp" -->
<html>
<head>
<title><%=RecSet("titel")%></title>
<style type="text/css">
<!--
a:link {color: <%=RecSet("link")%>; text-decoration: none}
a:visited {color: <%=RecSet("vlink")%>; text-decoration: none}
a:active {color: <%=RecSet("alink")%>; text-decoration: none}
a:hover {color: <%=RecSet("hover")%>; text-decoration: underline}
body {letter-spacing:0.05em; font-family:<%=RecSet("typsnitt")%>; font-size:<%=RecSet("textstorlek")%>; color:<%=RecSet("textfarg")%> }
table {letter-spacing:0.05em; font-family:<%=RecSet("typsnitt")%>; font-size:<%=RecSet("textstorlek")%>}
tr {letter-spacing:0.05em; font-family:<%=RecSet("typsnitt")%>; font-size:<%=RecSet("textstorlek")%>}
td {letter-spacing:0.05em; font-family:<%=RecSet("typsnitt")%>; font-size:<%=RecSet("textstorlek")%>}
form {font-family:<%=RecSet("typsnitt")%>; font-size:<%=RecSet("textstorlek")%>; font-weight:bold; letter-spacing:0.05em; border-width: 1px ; border-color: Black; background-color:<%=RecSet("formbg")%>}
input {font-family:<%=RecSet("typsnitt")%>; font-size:<%=RecSet("textstorlek")%>; font-weight:bold; letter-spacing:0.05em; border-width: 1px ; border-color: Black; background-color:<%=RecSet("formbg")%>}
textarea {font-family:<%=RecSet("typsnitt")%>; font-size:<%=RecSet("textstorlek")%>; font-weight:bold; letter-spacing:0.05em; border-width: 1px ; border-color: Black; background-color:<%=RecSet("formbg")%>}
select {font-family:<%=RecSet("typsnitt")%>; font-size:<%=RecSet("textstorlek")%>; font-weight:bold; letter-spacing:0.05em; border-width: 1px ; border-color: Black; background-color:<%=RecSet("formbg")%>}
img {border-color="#000000"}
.rubrik {letter-spacing:0.05em; font-family:<%=RecSet("typsnitt")%>; font-size:<%=RecSet("rubrikstorlek")%>}
-->
</style>
<script src="js/gastbok.js"></script>
</head>
<body bgcolor="<%=RecSet("bg")%>" background="<%=RecSet("background")%>">
<table border="0" width="<%=RecSet("bredd")%>" align="<%=RecSet("align")%>">
<form method="post" action="gastbok.asp?do=add&id=<%=Request.QueryString("id")%>" name="gastbok" onSubmit="return kolla()">
<tr>
<td class="rubrik"><b><%=RecSet("rubrik")%></b></td><td class="rubrik" align="right"><b><a href="<%=RecSet("hemsidan")%>" target="<%=RecSet("target")%>"><%=RecSet("hem")%></a></b></td>
</tr>
<tr>
<td colspan="2"><hr color="<%=RecSet("color")%>" noshade></td>
</tr>
<tr>
<td colspan="2">
<table border="0" width="350">
<tr>
<td><b><%=RecSet("ntext")%></b><br><input type="text" name="namn" size="<%=RecSet("nbredd")%>"></td>
<td><b><%=RecSet("etext")%></b><br><input type="text" name="email" size="<%=RecSet("ebredd")%>">
</td>
</tr>
<tr>
<td><b><%=RecSet("htext")%><br><input type="text" name="hemsida" size="<%=RecSet("hbredd")%>"></td>
<td><b><%=RecSet("itext")%></b><br><input type="text" name="icq" size="<%=RecSet("ibredd")%>"></td>
</tr>
<tr>
<td colspan="2"><b><%=RecSet("ttext")%></b><br><textarea name="inlagg" cols="<%=RecSet("tbredd")%>" rows="<%=RecSet("thojd")%>"></textarea><input type="hidden" name="ip" value="<%=Request.Servervariables("REMOTE_ADDR")%>">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2"><hr color="<%=RecSet("color")%>" noshade></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="submit" value="<%=RecSet("knapp")%>"></td>
</tr>
</form>
<tr>
<td colspan="2"><hr color="<%=RecSet("color")%>" noshade></td>
</tr>
<tr>
<td colspan="2" class="rubrik"><b><%=RecSet("inlaggIgastbok")%> </b></td>
</tr>
<tr>
<td colspan="2"><hr color="<%=RecSet("color")%>" noshade></td>
</tr>
<%If RecSet.EOF Then
Response.Write "<tr><td colspan='2'>" & RecSet("ingainlagg") & "</td></tr>"
Else
RecSet.PageSize = RecSet("persida")
Sidor = RecSet.PageCount
RecSet.AbsolutePage = sida
X = 0
Do While Not RecSet.EOF And X < RecSet.PageSize
If RecSet("email") \<\> "" Then
Response.Write "\<tr\>\<td colspan='2'\>\<b\>" & FormatDateTime(RecSet("datum"),2) & " \| \<b\>\<a href='mailto:" & RecSet("email") & "'\>" & RecSet("namn") & "\</a\>\</b\>\</td\>\</tr\>"
Else
Response.Write "\<tr\>\<td colspan='2'\>\<b\>" & FormatDateTime(RecSet("datum"),2) & " \| \<b\>" & RecSet("namn") & "\</b\>\</td\>\</tr\>"
End If
Response.Write "\<tr\>\<td colspan='2'\>" & DelaText(RecSet("inlagg")) & "\</td\>\</tr\>"
Response.Write "\<tr\>\<td colspan='2'\>\<b\>"
If RecSet("hemsida") \<\> "" Then
Response.Write "\<a href='" & RecSet("hemsida") & "' target=\_blank\>" & RecSet("linkhemsida") & "\</a\> "
End If
If RecSet("icq") \<\> "" Then
Response.Write "\<a href='http://wwp.icq.com/scripts/search.dll?to=" & RecSet("icq") & "'\>" & RecSet("linkicq") & "\</a\>"
End If
Response.Write "\</b\>\</td\>\</tr\>"
Response.Write "\<tr\>\<td colspan='2'\>\<hr color='" & RecSet("color") & "' noshade\>\</td\>\</tr\>"
X=X + 1
RecSet.MoveNext
Loop
End If
RecSet.MoveFirst %>
<tr>
<td colspan="2">
<%If Sidor <> 1 Then%>
<%If (Int(sida)) <> 1 Then%>
<a href="gastbok.asp?id=<%=Request.QueryString("id")%>&sida=<%=(Int(sida)-1)%>"><b><%=RecSet("bak")%></b></a>
<%Else%>
<%End If%>
<%For Sid = 1 To Sidor%>
<%If (Int(Sid)) = (Int(sida)) Then%><%=Sid%><%Else%> <a href="gastbok.asp?id=<%=Request.QueryString("id")%>&sida=<%=Sid%>"><%=Sid%></a> <%End If%>
<%Next%>
<%If (Int(sida)) <> (Int(Sidor)) Then%>
<a href="gastbok.asp?id=<%=Request.QueryString("id")%>&sida=<%=(Int(sida)+1)%>"><b><%=RecSet("fram")%></b></a>
<%Else%>
<%End If%>
<%End If%>
</td>
</tr>
<tr>
<td colspan="2"><hr color="<%=RecSet("color")%>" noshade></td>
</tr>
<%Set XX=Conn.Execute("Select Count(*) As Tot From gastbok Where anvid=" & Request.QueryString("id"))
Response.Write "<tr><td colspan='2'><b><i>" & RecSet("antalinlagg") & " " & XX("Tot") & "</i></td></tr>"
Response.Write "<tr><td colspan='2'><hr color=" & RecSet("color") & " noshade></td></tr>"
Response.Write "<tr><td colspan='2'><b>"
Response.Write "<a href='" & Home & "index.asp?do=login'>" & RecSet("andraGB") & "</a> <a href='" & Home & "index.asp?do=regga' target=_blank>" & RecSet("skaffaGB") & "</a>"
Response.Write "</b></td></tr></table>"%>
</body>
</html>