hur får m.. — webForum

JonasTMedlem sedan dec. 2001148 inlägg

Frågan5 feb. 2002 16:29#1

Hej.
Vet ngn hur ja får paging på den här sidan?
har testat med alla guider o allt..men de funkar itne på dne här koden..har ngn tid att hjälpa mig?

<html>
<head>
<title></title>
</head>
<body topmargin="0" background="bilder/bg2.gif">
<table width="62%" border="0" cellspacing="4" cellpadding="0">
<tr> 
<td height="199"> 
<table cellspacing=0 cellpadding=0 border=0 width="733" height="30">
<tr> 
<td valign="top" width="488" height="156"> 
<table width="91%" border="0" cellspacing="0" cellpadding="0" background="http://webcom.dns2go.com/jonas/db/bilder/mainloggabg.gif" align="left">
<tr> 
<td><img src="http://webcom.dns2go.com/24u.nu/db/bilder/gastboken/mainlogga.gif" width="476" height="14"></td>
</tr>
<tr> 
<td height="32"> 
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td height="2"><a href="profil.asp?se=<%=request.querystring("se")%>"><img src="bilder/presentation.gif" width="84" height="12" border="0"></a><a href="dagbok.asp?se=<%=request.querystring("se")%>"><img src="bilder/dagboken.gif" width="67" height="12" border="0"></a><a href="gb.asp?se=<%=request.querystring("se")%>"><img src="bilder/gastbokenvanlig.gif" width="67" height="12" border="0"></a><img src="bilder/vannervanlig.gif" width="67" height="12" border="0"><a href="skapamail.asp?till=<%=request.querystring("se")%>"><img src="bilder/messa.gif" width="81" height="12" border="0"></a></td>
</tr>
<tr> 
<td> 
<table width="94%" border="0" cellspacing="3" cellpadding="0">
<tr> 
<td height="119"> 
<table width="98%" border="0" cellspacing="3" cellpadding="0">
<tr> 
<td height="129"> 
<div align="center"><font face="verdana, sans-serif" size="1" color="#FFFF00"><%
se=request("se")
if se="" then
se=username
end if
%> <b><a href="profil.asp?se=<%=se%>"><%=se%>'s</a></b></font><font face="verdana, sans-serif" size="1"><b> 
Gästbok</b><br>
</font> </div>
<table width="461">
<%

SQL="SELECT * FROM gb WHERE till='" & se & "' ORDER BY skickat DESC"
Conn.execute(SQL)

Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open SQL, Conn, 3,3

if NOT Rs.EOF Then

Do until rs.eof

sql = "SELECT * FROM reg WHERE lcase(username) = '"& lcase(rs("fran")) &"'"
set rs2 = conn.execute(sql)
%> 
<tr bgcolor="#006699"> 
<td height="8"> 
<div align="center"><font face="verdana, sans-serif" size="1"> 
<a href="profil.asp?se=<%=rs("fran")%>"><font color="#000000"><%=rs("fran")%></font></a> 
<font color="#000000"><%=rs("skickat")%></font></font></div>
</td>
</tr>
<tr bgcolor="#00FFFF"> 
<td height="27"> 
<div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
</font>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr> 
<td width="15%">
<table width="30%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000">
<tr>
<td>
<table width="65%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td><img src="<%=rs2("bild")%> " width="50" height="50"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="85%"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%
Response.Write Strang(rs("message"))
%></font></td>
</tr>
</table>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1"> 
</font></div>
</td>
</tr>
<tr> 
<td height="8"> 
<div align="center"><font face="verdana, sans-serif" size="1"> 
<%
if se = username OR username = "Jonas" then
response.write("<a href=""delgb.asp?se=" & username & "&gbid=" & rs("gbid") & """>ta bort</a>" & _
" <a href=""gb.asp?se=" & rs("fran") & """>svara</a>")
else if rs("fran")=username then
response.write("<a href=""delgb.asp?se=" & rs("till") & "&gbid=" & rs("gbid") & """>ta bort</a>")
end if
end if
%> <%
if username=test then
response.write("<a href=""delgb.asp?se=" & username & "&gbid=" & rs("gbid") & """>ta bort</a>")
end if
%> </font></div>
</td>
</tr>
<tr> 
<td height="8"><img src="black.gif" height="1" width="100%" border="0"></td>
</tr>
<%
if se=username then

read=request("read")
rs("read")=read
rs.update

end if

rs.movenext
loop
else
response.write("<tr>" & vbcrlf & "<td valign=""top"">" & vbcrlf & _
"<font face=""verdana, sans-serif"" size=""1"">" & _
se & " har inga gästboksinlägg</font>" & vbcrlf & "</td>" & vbcrlf & "</tr>")
end if
%> 
<tr> 
<td height="2"> <br>
<font face="verdana, sans-serif" size="1"><%
Function Strang(ByVal OriginalString)
OriginalString = "" & OriginalString

intMaxLength = 45
arrString = Split(OriginalString, " ")

For intIndex = 0 To UBound(arrString)
If Len(arrString(intIndex)) > intMaxLength Then
intSIndex = 0
While intSIndex < (Len(arrString(intIndex)) / intMaxLength)
splittOrd = splittOrd & Mid(arrString(intIndex), (1 + intSIndex * intMaxLength), intMaxLength) & "<br>"
intSIndex = intSIndex + 1
Wend
arrString(intIndex) = splittOrd
End If

strNewString = strNewString & arrString(intIndex) & " "
Next

Strang = strNewString
End Function
%> </font> </td>
</tr>
</table>
<font face="verdana, sans-serif" size="1"><br>
</font></td>
</tr>
</table>
<font face="verdana, sans-serif" size="1"> </font> 
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr> 
<td height="2"><img src="bilder/mainlogganere.gif" width="476" height="10"></td>
</tr>
</table>
<p> </p>
<p> </p>
</td>
<td width="36" height="156"> 
<table cellspacing=0 cellpadding=0 border=0 width=5 height=10>
<tr> 
<td></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 border=0 height=10>
<tr> 
<td> 
<table cellspacing=0 cellpadding=0 border=0>
<tr> 
<td></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td valign="top" align="left" width="209" height="156"> 
<table width="5%" border="0" cellspacing="0" cellpadding="0" background="http://webcom.dns2go.com/jonas/db/bilder/hogerloggabg.gif">
<tr> 
<td><img src="http://webcom.dns2go.com/24u.nu/db/bilder/gastboken/hogerlogga.gif" width="197" height="14"></td>
</tr>
<tr> 
<td height="18"> 
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<tr> 
<td height="2"><font face="verdana, sans-serif" size="1"> 
<form method="post" action="gbskriv.asp">
<center>
<textarea name="gbmessage"></textarea>
</center>
<input type="hidden" name="se" value="<%=se%>">
<br>
<center>
<input type="submit" name="gbsubmit" value="Skriv" class="smallbutton">
</center>
</form>
</font></td>
</tr>
</table>
</td>
</tr>
<tr> 
<td height="2"><img src="bilder/hogerlogganere.gif" width="197" height="10"></td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 border=0 height=10>
<tr> 
<td> 
<table cellspacing=0 cellpadding=0 border=0>
<tr> 
<td></td>
</tr>
</table>
</td>
</tr>
</table>
<table cellspacing=0 cellpadding=0 border=0 height=10>
<tr> 
<td> 
<table cellspacing=0 cellpadding=0 border=0>
<tr> 
<td></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<p> </p>
</body>
</html>

Tacksam för svar

[Redigerat av JonasT den 05 feb 2002]

crisse6Medlem sedan dec. 20002 526 inlägg

5 feb. 2002 17:37#2

Hej.

Det finns massor av pagingskript, jag rekommenderar Vides pagingskript som finns på webeye.nu. Ladda hem det, ändra i db-koppling och sql och dina utskrivningar.
Är all denna kod nödvändig? Kanske du kan korta av den lite? Det ser väldigt rörigt ut, och om du ändrar den till lite snyggare så kan nog fler hjälpa dig.
Ta steg för steg och skriv vid problem.

------------------
My name is Chris - Chris dangerous!