Notifikationer

Markér alle som læst Log ud

quak.dk Nybegynder

27. februar 2001 - 02:09 Der er 10 kommentarer og
4 løsninger

EOF og BOF Fejl :(

Hejsa hvorfor får jeg en EOF BOF fejl når database en er tom, der har jeg da lavet en fejlmeddelse, men den ignorere den
Se evt. http://www.fuglevig.dk/x-web/freeguestbook/default.asp?user=597

Kode
<%@ Language=VBScript %>

<%
ID = Request(\"user\")
Session(\"Book_ID\") = Request(\"user\")
If Session(\"Book_ID\") = \"\" then
Response.Write \"There is no ID in the request, please mail the webmaster for help\"
Else

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../data/dbguestbook.mdb\")
SQL = \"Select * From Books Where ID =\" & Session(\"Book_ID\")
Set RS = Conn.Execute(SQL)

If RS.BOF Then
Response.write \"Sorry, but the guestbook ID do not exist!<br><b>Go to <a href=\'http://www.quak.dk/guestbook\' target=\'_top\'>http://www.quak.dk/guestbook</a> to create your own one!\"
Else
If RS.EOF Then
Response.write \"Sorry, but the guestbook ID do not exist!<br><b>Go to <a href=\'http://www.quak.dk/guestbook\' target=\'_top\'>http://www.quak.dk/guestbook</a> to create your own one!\"
Else
%>
<html>
<head>
<title><% = RS(\"S_Name\")%>\'s guestbook</title>
</head>
<body>
<style type=\"text/css\">


</style>
<center>
<font Face=\"verdana, verdana, arial, helvetica, helvetica\" Size=\"2\"><H2><% = RS(\"S_Name\")%>\'s guestbook</H2></font>
<table border=\"0\" cellpadding=\"5\" Cellspacing=\"0\" Width=\"640\" >
<tr>
<td bgColor=\"#96E1FF\">
<table cellpadding=\"0\" cellspacing=\"0\" Border=\"0\" Width=\"100%\">
<tr>
<td>
<font Face=\"verdana, arial, helvetica\" Size=\"2\"><B>Back to <a href=\"<% = RS(\"URL\")%>\" target=\"_top\"><% = RS(\"S_Name\")%></a></b></font>
</td>

<%
Dim RS
Dim sql
Dim strCount
Dim GuestBookID
Dim TotalPages
Dim TotalRecords
Dim startNumber
Dim CurrentPage

SQL = \"SELECT * FROM guest WHERE(Book_ID = \" & Session(\"Book_ID\") & \") Order by entry_date desc\"
Call OpenDataConnection

Set RS = Server.CreateObject(\"ADODB.RecordSet\")

RS.PageSize = Int(strPageSize)
RS.CacheSize = Int(strPageSize)

IF Request(\"p\") = \"\" THEN
CurrentPage = 1
ELSE
CurrentPage = Cint(Request(\"p\"))
END IF

RS.Open SQL, gbConn, adOpenKeyset , adLockOptimistic
TotalPages = RS.PageCount
TotalRecords = RS.RecordCount

\' flyt \"pageobjekt\" til den absolutte side
RS.AbsolutePage = CurrentPage

startNumber = TotalRecords - (strPagesize * (Currentpage -1))

IF RS.EOF THEN
Response.Write \"\"
END IF
IF RS.BOF THEN
Response.Write \"\"
END IF

%>

<td Align=\"center\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\">Total Guests: <B><%=TotalRecords%></b></font>
</td>
<td Align=\"right\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><B><a href=\"sign_guestbook.asp?user=<% =ID %>\">Sign Our Guestbook</a></b></font>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<Br></font>
<%
IF RS.EOF THEN
Response.Write \"Sorry there are no records to display.\"
Else
End IF
IF RS.BOF THEN
Response.Write \"\"
Else
End If

strCount = Int(0)

Do while strCount < strPageSize And NOT RS.EOF
strcount = strcount + 1

%>
Resten af koden klippet væk

Synes godt om

seider Nybegynder

27. februar 2001 - 03:02 #1

fordi du først kontrolere på om den id. der ikke er der er er i databasen. ville være et godt bud. hvis du er ved eof inden der er nogle data skal den ikke kontrolere om der er data der i.

prøv med:

If RS.BOF Then

=

if not (RS.EOF) and rs.bof then

sådan ca.
er dog ikke helt sikker, da jeg ikke gad læse mere :)

/* seider */

Synes godt om

quak.dk Nybegynder

27. februar 2001 - 03:04 #2

>fordi du først kontrolere på om den id. der ikke >er der er er i databasen. ville være et godt >bud. hvis du er ved eof inden der er nogle data >skal den ikke kontrolere om der er data der i.

Det bliver da også kontroleret

Synes godt om

tdaugaard Nybegynder

27. februar 2001 - 03:23 #3

Dit problem er linie 88: RS.AbsolutePage = CurrentPage

Den skal stå EFTER et Rs.EOF/.BOF check!
Flg. kode burde gerne virke :

<%@ Language=VBScript %>

<%
ID = Request(\"user\")
Session(\"Book_ID\") = Request(\"user\")
If Session(\"Book_ID\") = \"\" then
Response.Write \"There is no ID in the request, please mail the webmaster for help\"
Else

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../data/dbguestbook.mdb\")
SQL = \"Select * From Books Where ID =\" & Session(\"Book_ID\")
Set RS = Conn.Execute(SQL)

If RS.BOF Then
Response.write \"Sorry, but the guestbook ID do not exist!<br><b>Go to <a href=\'http://www.quak.dk/guestbook\' target=\'_top\'>http://www.quak.dk/guestbook</a>; to create your own one!\"
Else
If RS.EOF Then
Response.write \"Sorry, but the guestbook ID do not exist!<br><b>Go to <a href=\'http://www.quak.dk/guestbook\' target=\'_top\'>http://www.quak.dk/guestbook</a>; to create your own one!\"
Else
%>
<html>
<head>
<title><% = RS(\"S_Name\")%>\'s guestbook</title>
</head>
<body>
<style type=\"text/css\">


</style>
<center>
<font Face=\"verdana, verdana, arial, helvetica, helvetica\" Size=\"2\"><H2><% = RS(\"S_Name\")%>\'s guestbook</H2></font>
<table border=\"0\" cellpadding=\"5\" Cellspacing=\"0\" Width=\"640\" >
<tr>
<td bgColor=\"#96E1FF\">
<table cellpadding=\"0\" cellspacing=\"0\" Border=\"0\" Width=\"100%\">
<tr>
<td>
<font Face=\"verdana, arial, helvetica\" Size=\"2\"><B>Back to <a href=\"<% = RS(\"URL\")%>\" target=\"_top\"><% = RS(\"S_Name\")%></a></b></font>
</td>

<%
Dim RS
Dim sql
Dim strCount
Dim GuestBookID
Dim TotalPages
Dim TotalRecords
Dim startNumber
Dim CurrentPage

SQL = \"SELECT * FROM guest WHERE(Book_ID = \" & Session(\"Book_ID\") & \") Order by entry_date desc\"
Call OpenDataConnection

Set RS = Server.CreateObject(\"ADODB.RecordSet\")

RS.PageSize = Int(strPageSize)
RS.CacheSize = Int(strPageSize)

IF Request(\"p\") = \"\" THEN
CurrentPage = 1
ELSE
CurrentPage = Cint(Request(\"p\"))
END IF

RS.Open SQL, gbConn, adOpenKeyset , adLockOptimistic

TotalPages = RS.PageCount
TotalRecords = RS.RecordCount

If Not Rs.BOF And Not Rs.EOF Then
\' flyt \"pageobjekt\" til den absolutte side
RS.AbsolutePage = CurrentPage

startNumber = TotalRecords - (strPagesize * (Currentpage -1))
Else
Response.Write \"\"
End If
%>

<td Align=\"center\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\">Total Guests: <B><%=TotalRecords%></b></font>
</td>
<td Align=\"right\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><B><a href=\"sign_guestbook.asp?user=<% =ID %>\">Sign Our Guestbook</a></b></font>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<Br></font>
<%
IF RS.EOF THEN
Response.Write \"Sorry there are no records to display.\"
Else
End IF
IF RS.BOF THEN
Response.Write \"\"
Else
End If

strCount = Int(0)

Do while strCount < strPageSize And NOT RS.EOF
strcount = strcount + 1

%>

Synes godt om

quak.dk Nybegynder

27. februar 2001 - 03:35 #4

Når jeg bruger din kode, så kommer der istedet for en ny fejl.. Der siger at left er ugyldig, men kun igen når der ingen poster er. Jeg poster hele koden nu
Se evt på http://www.fuglevig.dk/x-web/freeguestbook/default2.asp?user=597

<%@ Language=VBScript %>

<%
ID = Request(\"user\")
Session(\"Book_ID\") = Request(\"user\")
If Session(\"Book_ID\") = \"\" then
Response.Write \"There is no ID in the request, please mail the webmaster for help\"
Else

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../data/dbguestbook.mdb\")
SQL = \"Select * From Books Where ID =\" & Session(\"Book_ID\")
Set RS = Conn.Execute(SQL)

If RS.BOF Then
Response.write \"Sorry, but the guestbook ID do not exist!<br><b>Go to <a

href=\'http://www.quak.dk/guestbook\' target=\'_top\'>http://www.quak.dk/guestbook</a>;; to create your own one!\"
Else
If RS.EOF Then
Response.write \"Sorry, but the guestbook ID do not exist!<br><b>Go to <a

href=\'http://www.quak.dk/guestbook\' target=\'_top\'>http://www.quak.dk/guestbook</a>;; to create your own one!\"
Else
%>
<html>
<head>
<title><% = RS(\"S_Name\")%>\'s guestbook</title>
</head>
<body>
<style type=\"text/css\">


</style>
<center>
<font Face=\"verdana, verdana, arial, helvetica, helvetica\" Size=\"2\"><H2><% = RS(\"S_Name\")%>\'s guestbook</H2></font>
<table border=\"0\" cellpadding=\"5\" Cellspacing=\"0\" Width=\"640\" >
<tr>
<td bgColor=\"#96E1FF\">
<table cellpadding=\"0\" cellspacing=\"0\" Border=\"0\" Width=\"100%\">
<tr>
<td>
<font Face=\"verdana, arial, helvetica\" Size=\"2\"><B>Back to <a href=\"<% = RS(\"URL\")%>\"

target=\"_top\"><% = RS(\"S_Name\")%></a></b></font>
</td>

<%
Dim RS
Dim sql
Dim strCount
Dim GuestBookID
Dim TotalPages
Dim TotalRecords
Dim startNumber
Dim CurrentPage

SQL = \"SELECT * FROM guest WHERE(Book_ID = \" & Session(\"Book_ID\") & \") Order by entry_date desc\"
Call OpenDataConnection

Set RS = Server.CreateObject(\"ADODB.RecordSet\")

RS.PageSize = Int(strPageSize)
RS.CacheSize = Int(strPageSize)

IF Request(\"p\") = \"\" THEN
CurrentPage = 1
ELSE
CurrentPage = Cint(Request(\"p\"))
END IF

RS.Open SQL, gbConn, adOpenKeyset , adLockOptimistic

TotalPages = RS.PageCount
TotalRecords = RS.RecordCount

If Not Rs.BOF And Not Rs.EOF Then
\' flyt \"pageobjekt\" til den absolutte side
RS.AbsolutePage = CurrentPage

startNumber = TotalRecords - (strPagesize * (Currentpage -1))
Else
Response.Write \"\"
End If
%>

<td Align=\"center\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\">Total Guests: <B><%=TotalRecords%></b></font>
</td>
<td Align=\"right\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><B><a href=\"sign_guestbook.asp?user=<% =ID %>\">Sign

Our Guestbook</a></b></font>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<Br></font>
<%
IF RS.EOF THEN
Response.Write \"Sorry there are no records to display.\"
Else
End IF
IF RS.BOF THEN
Response.Write \"\"
Else
End If

strCount = Int(0)

Do while strCount < strPageSize And NOT RS.EOF
strcount = strcount + 1

%>
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\">
<B>Guest:</b>  <%=startNumber%><br>
<b>Name:</b> <a href=\"mailto:<%=RS(\"Email\")%>\"><%=RS(\"Name\")%></a><br>
<B>From:</b> <%=RS(\"Country\")%><br>
<B>Website:</b> <%if not rs(\"URL\") = \"\" then %><a href=\"<%=RS(\"URL\")%>\"

target=\"top\"><%=RS(\"Title\")%></a><%END IF%><br>
<B>ICQ:</b> <%if not rs(\"icq\") = \"\" then %><a

href=\"http://wwp.mirabilis.com/scripts/Search.dll?to=<%=RS(\"icq\")%>\" target=\"top\"><%=RS(\"icq\")%></a><%end if%><br>
<b>Referred By:</b> <%=RS(\"reference\")%><br>
<B>Time:</b> <%=RS(\"entry_date\")%><br>
<B>Rating:</b> <%=RS(\"rating\")%><br>
<B>Comments:</b> 
<center></font>

<table width=\"600\" border=\"0\" cellpadding=\"5\" cellspacing=\"0\">
<tr>
<td>
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><%=RS(\"comments\")%>
</td></font>
</tr>
</table>
</center>
<br>
<hr width=\"400\" color=\"Green\" height=\"1\">
<P>
<%
startNumber = startNumber -1
RS.MoveNext
Loop
%>
<center>
<table>
<tr><td>
<%
\' page navigator
dim naviStr
naviStr = \"\"
for x = 1 to TotalPages
if x = currentPage then
naviStr = naviStr & \"<b>\" & x & \"</b> | \"
else
naviStr = naviStr & \"<b><a href=\'default.asp?p=\" & x & \"&user=\" &

session(\"book_id\") & \"\'>\" & x & \"</a></b> | \"
end if
next
response.write \"Choose your page : \" & left(naviStr, len(naviStr)-3)
%>
</td></tr></table>

</center>
</td>
</tr>
<tr>
<td bgColor=\"#96E1FF\">
<table cellpadding=\"0\" cellspacing=\"0\" Border=\"0\" Width=\"100%\">
<tr>
<td>
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><B><a href=\"http://www.quak.dk/guestbook\">Get

your own free guestbook</a></b></font>
</td>
<td>
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><a target=\'_blank\'

href=\'http://www.chart.dk/ref.asp?id=6135\'><img alt=\'chart.dk\' border=\'0\'

src=\'http://www.chart.dk/chart.asp?id=6135\'></a><a target=\"_blank\"

href=\"http://www.peak.dk/cgi-bin/peakcounter/toplist.cgi\"><img TITLE=\"PeakCounter\" border=\"0\"

src=\"http://www.peak.dk/grafik/peakcounter2.gif\"></a><img TITLE=\"PeakCounter\" border=\"0\"

src=\"http://www.peak.dk/cgi-bin/peakcounter/peakcounter2.cgi?id=222\"></font>
</td>
<td Align=\"right\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><B>Average Rating:
<%
set rating = Server.CreateObject(\"ADODB.Recordset\")
rating.Open \"SELECT * FROM guest WHERE(Book_ID = \" & Session(\"Book_ID\") & \")\", gbConn, 1, 3
IF RS.BOF THEN
Response.Write \"N/A\"
Else
do while not rating.EOF
tal = CInt(tal + rating(\"rating\"))
rating.MoveNext
loop
Response.Write Round(tal / rating.RecordCount, 1)
End if
Conn.Close
End if
End iF
End If

%>

</a></b></font>
</td>
</tr>
</table>
</td>
</tr>

</table>
</BODY>
</HTML>

Synes godt om

tdaugaard Nybegynder

27. februar 2001 - 03:42 #5

Du har mere end den ene fejl kan jeg se, men jeg har ikke tid til at sidde med så stor en kode i Notepad lige nu ..

Synes godt om

quak.dk Nybegynder

27. februar 2001 - 03:43 #6

Okay, men hvis jeg giver dig 200 points.. vil du så rette den for mig?

Kan du evt, fange mig på ICQ 4633819

Synes godt om

quak.dk Nybegynder

27. februar 2001 - 03:48 #7

Ikk nødvendig vis lige nu, men inden imorgen aften

Synes godt om

tdaugaard Nybegynder

27. februar 2001 - 03:54 #8

Tjoo ... jeg kan da prøve .. jeg skal lige have installeret Visual Studio først...

Synes godt om

eagleeye Praktikant

27. februar 2001 - 14:11 #9

Linien:
response.write \"Choose your page : \" & left(naviStr, len(naviStr)-3)
Skal ikke udskrives hvis RS er tom.

Prøv at lave dette tjek inden:

if len(naviStr) >= 1 then
response.write \"Choose your page : \" & left(naviStr, len(naviStr)-3)
end if

Synes godt om

eagleeye Praktikant

27. februar 2001 - 14:12 #10

1 bør nok endda være 4 da du trækker 3 fra længden i left(..)

Synes godt om

quak.dk Nybegynder

27. februar 2001 - 15:01 #11

Kan du ikk skrive hele ´koden ?

Synes godt om

jonax Nybegynder

28. februar 2001 - 00:23 #12

Jeg fatter ikke helt hvorfor du / I checker for .bof og .eof separat, da hvis og kun hvis begge er true er et rs tomt...

Mit forslag:

\'begyndelse af side
if NOT (rs.bof AND rs.eof) then
\'udskriv poster
else
response.write \"sorry, there are no records to display!\"
end if
\'resten af siden

---

det har den ulempe at du først kan lukke og slukke for dit rs og din conn efter end if, alternativt kan du:

\'begyndelse af side
if rs.bof AND rs.eof the Fail \"NoData\"
\'visning af data
rs.close
set rs=nothing
conn.close
set conn=nothing
outputfoot

sub Fail(strReason)
select case strReason
case \"NoData\"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write \"sorry, no data!\"
outputfoot
\'her kan du indsætte yderligere fejlmeddelelser om nødv.
case else
response.write \"unknown error\"
end sub

sub outputfoot
\'her skriver du den del af html\'en der er uafhængig af om der findes poster
end sub

Synes godt om

eagleeye Praktikant

28. februar 2001 - 08:31 #13

<%@ Language=VBScript %>

<%
ID = Request(\"user\")
Session(\"Book_ID\") = Request(\"user\")
If Session(\"Book_ID\") = \"\" then
Response.Write \"There is no ID in the request, please mail the webmaster for help\"
Else

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../../data/dbguestbook.mdb\")
SQL = \"Select * From Books Where ID =\" & Session(\"Book_ID\")
Set RS = Conn.Execute(SQL)

If RS.BOF Then
Response.write \"Sorry, but the guestbook ID do not exist!<br><b>Go to <a

href=\'http://www.quak.dk/guestbook\' target=\'_top\'>\" target=_blankhttp://www.quak.dk/guestbook</a> to create your own one!\"
Else
If RS.EOF Then
Response.write \"Sorry, but the guestbook ID do not exist!<br><b>Go to <a

href=\'http://www.quak.dk/guestbook\' target=\'_top\'>\" target=_blankhttp://www.quak.dk/guestbook</a> to create your own one!\"
Else
%>
<html>
<head>
<title><% = RS(\"S_Name\")%>\'s guestbook</title>
</head>
<body>
<style type=\"text/css\">


</style>
<center>
<font Face=\"verdana, verdana, arial, helvetica, helvetica\" Size=\"2\"><H2><% = RS(\"S_Name\")%>\'s guestbook</H2></font>
<table border=\"0\" cellpadding=\"5\" Cellspacing=\"0\" Width=\"640\" >
<tr>
<td bgColor=\"#96E1FF\">
<table cellpadding=\"0\" cellspacing=\"0\" Border=\"0\" Width=\"100%\">
<tr>
<td>
<font Face=\"verdana, arial, helvetica\" Size=\"2\"><B>Back to <a href=\"<% = RS(\"URL\")%>\"

target=\"_top\"><% = RS(\"S_Name\")%></a></b></font>
</td>

<%
Dim RS
Dim sql
Dim strCount
Dim GuestBookID
Dim TotalPages
Dim TotalRecords
Dim startNumber
Dim CurrentPage

SQL = \"SELECT * FROM guest WHERE(Book_ID = \" & Session(\"Book_ID\") & \") Order by entry_date desc\"
Call OpenDataConnection

Set RS = Server.CreateObject(\"ADODB.RecordSet\")

RS.PageSize = Int(strPageSize)
RS.CacheSize = Int(strPageSize)

IF Request(\"p\") = \"\" THEN
CurrentPage = 1
ELSE
CurrentPage = Cint(Request(\"p\"))
END IF

RS.Open SQL, gbConn, adOpenKeyset , adLockOptimistic

TotalPages = RS.PageCount
TotalRecords = RS.RecordCount

If Not Rs.BOF And Not Rs.EOF Then
\' flyt \"pageobjekt\" til den absolutte side
RS.AbsolutePage = CurrentPage

startNumber = TotalRecords - (strPagesize * (Currentpage -1))
Else
Response.Write \"\"
End If
%>

<td Align=\"center\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\">Total Guests: <B><%=TotalRecords%></b></font>
</td>
<td Align=\"right\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><B><a href=\"sign_guestbook.asp?user=<% =ID %>\">Sign

Our Guestbook</a></b></font>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<Br></font>
<%
IF RS.EOF THEN
Response.Write \"Sorry there are no records to display.\"
Else
End IF
IF RS.BOF THEN
Response.Write \"\"
Else
End If

strCount = Int(0)

Do while strCount < strPageSize And NOT RS.EOF
strcount = strcount + 1

%>
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\">
<B>Guest:</b>  <%=startNumber%><br>
<b>Name:</b> <a href=\"mailto:<%=RS(\"Email\")%>\"><%=RS(\"Name\")%></a><br>
<B>From:</b> <%=RS(\"Country\")%><br>
<B>Website:</b> <%if not rs(\"URL\") = \"\" then %><a href=\"<%=RS(\"URL\")%>\"

target=\"top\"><%=RS(\"Title\")%></a><%END IF%><br>
<B>ICQ:</b> <%if not rs(\"icq\") = \"\" then %><a

href=\"http://wwp.mirabilis.com/scripts/Search.dll?to=<;%=RS(\"icq\")%>\" target=\"top\"><%=RS(\"icq\")%></a><%end if%><br>
<b>Referred By:</b> <%=RS(\"reference\")%><br>
<B>Time:</b> <%=RS(\"entry_date\")%><br>
<B>Rating:</b> <%=RS(\"rating\")%><br>
<B>Comments:</b> 
<center></font>

<table width=\"600\" border=\"0\" cellpadding=\"5\" cellspacing=\"0\">
<tr>
<td>
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><%=RS(\"comments\")%>
</td></font>
</tr>
</table>
</center>
<br>
<hr width=\"400\" color=\"Green\" height=\"1\">
<P>
<%
startNumber = startNumber -1
RS.MoveNext
Loop
%>
<center>
<table>
<tr><td>
<%
\' page navigator
dim naviStr
naviStr = \"\"
for x = 1 to TotalPages
if x = currentPage then
naviStr = naviStr & \"<b>\" & x & \"</b> | \"
else
naviStr = naviStr & \"<b><a href=\'default.asp?p=\" & x & \"&user=\" &

session(\"book_id\") & \"\'>\" & x & \"</a></b> | \"
end if
next
if len(naviStr) >= 4 then
response.write \"Choose your page : \" & left(naviStr, len(naviStr)-3)
end if
%>
</td></tr></table>

</center>
</td>
</tr>
<tr>
<td bgColor=\"#96E1FF\">
<table cellpadding=\"0\" cellspacing=\"0\" Border=\"0\" Width=\"100%\">
<tr>
<td>
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><B><a href=\"http://www.quak.dk/guestbook\">Get

your own free guestbook</a></b></font>
</td>
<td>
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><a target=\'_blank\'

href=\'http://www.chart.dk/ref.asp?id=6135\'><img alt=\'chart.dk\' border=\'0\'

src=\'http://www.chart.dk/chart.asp?id=6135\'></a><a target=\"_blank\"

href=\"http://www.peak.dk/cgi-bin/peakcounter/toplist.cgi\"><img TITLE=\"PeakCounter\" border=\"0\"

src=\"http://www.peak.dk/grafik/peakcounter2.gif\"></a><img TITLE=\"PeakCounter\" border=\"0\"

src=\"http://www.peak.dk/cgi-bin/peakcounter/peakcounter2.cgi?id=222\"></font>;
</td>
<td Align=\"right\">
<font SIZE=\"2\" FACE=\"verdana, arial, helvetica\"><B>Average Rating:
<%
set rating = Server.CreateObject(\"ADODB.Recordset\")
rating.Open \"SELECT * FROM guest WHERE(Book_ID = \" & Session(\"Book_ID\") & \")\", gbConn, 1, 3
IF RS.BOF THEN
Response.Write \"N/A\"
Else
do while not rating.EOF
tal = CInt(tal + rating(\"rating\"))
rating.MoveNext
loop
if rating.RecordCount >= 1 then
Response.Write Round(tal / rating.RecordCount, 1)
Else
Response.Write Round \"N/A\"
End if
End if
Conn.Close
End if
End iF
End If

%>

</a></b></font>
</td>
</tr>
</table>
</td>
</tr>

</table>
</BODY>
</HTML>

Synes godt om

quak.dk Nybegynder

28. februar 2001 - 11:35 #14

Jeg fandt selv ud af det, da jeg ikk lige få jeres til at virke, men jeg spitter de 200 points som tak for hjælpen :)

Håber det ok... Ellers skriv lige :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

20:36

Microsoft: Vi har fundet årsagen til kæmpenedbrud - her er den

15:20

En AI-revolution er på vej til din pc: Sådan kommer den til at ændre fremtidens computere radikalt

14:30

Nørgaard: Om genopdragelsen af ofrene for noget grimt - der er deres egen skyld

13/11

Peter Kruse: Derfor blev Microsoft ramt af kæmpe-nedbrud

13/11

Efter blot fem måneder: Tidligere Nvidia-chef forlader selskabet bag Danmarks AI-supercomputer

13/11

Danske it-virksomheder tynges af compliance-krav: Regler og love står i vejen for vores fremskridt

13/11

Ny status fra Microsoft: Europa ved at være oppe at køre igen

13/11

Efter klage: Varsler særligt tilsyn med tjeneste, som anvendes af mange danske børn

13/11

AI æder sig ind på søgemaskinernes trafik - men Boozt har fundet en smart metode til at fastholde sine kunder på sitet

13/11

Danske Outlook-installationer på benene igen

13/11

Disse navne er i spil: En af ni personer kan blive Nvidias nye topchef

Vis flere artikler

IT-JOB

Forsvarsministeriets Materiel- og Indkøbsstyrelse

IT-supporterelev søges til Cyberdivisionen – Start din karriere hos Forsvaret

Banedanmark

Compliance Manager til samfundskritisk infrastruktur

Politiets Efterretningstjeneste

Vi søger en Microsoft Infrastrukturspecialist, der vil arbejde i kernen af PET's IT-infrastruktur

Roskilde Universitet

Roskilde Universitet søger to erfarne IT-arkitekter

Politiets Efterretningstjeneste

Data Engineer til at udvikle PET's dataplatform

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 08:39	Produktnøgle Af hkv i Office & Kontorpakker
I går 16:59	Bitlocker Af nico i Windows
12/1116:30	Wlan i windows 11 home Af dcedata1977 i Windows
11/1121:19	Irriterende ikon på proceslinjen Af ErikHg i Windows
11/1116:33	Kan man slippe af med "msn" ? Af Ikke-ekspert i Windows

White papers

De spørgsmål 200+ danske virksomheder stiller om print – samlet i én guide
Konica Minolta
Er det tid til at pensionere printserveren?
Konica Minolta

Flere white papers »