Notifikationer

Markér alle som læst Log ud

technodance.dk Nybegynder

06. maj 2003 - 22:28 Der er 5 kommentarer og
2 løsninger

asp virker ikke???

Hej læser

Jeg probem. med min asp side

Hvor den skal lave sider ved 10 poster

den skriver det her i exploreren:

Fejltype:
ADODB.Recordset (0x800A0CB3)
Den ønskede handling understøttes ikke af objektet eller provideren.

Synes godt om

mm12010 Nybegynder

06. maj 2003 - 22:34 #1

kode?

Synes godt om

technodance.dk Nybegynder

06. maj 2003 - 22:35 #2

<% response.buffer = true %>
<html>

<head>
<LINK REL="stylesheet" HREF="styles.css" TYPE="text/css">
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta name="robots" content="NOINDEX">
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">

<title>Gæstebog med sider</title>
</head>

<body bgcolor="#0080C0" topmargin="10" leftmargin="0"
rightmargin="0">
<center>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)
%>
<HR WIDTH="450" SIZE="1" color="#000000">
Fra: <%=RS("Navn")%>   <%=RS("Dato")%><br>
Emne:  <%=RS("Hjemmeside")%><br>
<%=RS("Besked")%>
<HR WIDTH="450" SIZE="1" color="#000000">

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.absolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
Response.Write rs("LinkURL") & "<br>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=default2.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=default2.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default2.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

<%
'RS.MoveNext
'Loop
'end if

'Conn.Close
'Set Conn = Nothing

%>
<form action="gem" method="POST">
<table border="0" cellpadding="2"
cellspacing="0" width="450">
<tr>
<td align="left" width="" valign="top"><font size="3"
face="Arial">Navn: </font></td>
<td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Navn"></td>
</tr>
<tr>
<td align="left" width="" valign="top"><font size="3"
face="Arial">E-mail: </font></td>
<td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Email"></td>
</tr>
<tr>
<td align="left" width="" valign="top"><font size="3"
face="Arial">Hjemmeside:<br> </font></td>
<td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Hjemmeside"><br></td>
</tr>
<tr>
<td align="Left" valign="top" width=""><font
size="3" face="Arial">Besked:</font></td>
<td valign="top" width="">
<textarea id="test" name="Besked" rows="8"
cols="40"></textarea></td>
</tr>
<tr>
<td width="20%"></td>
<td colspan="2" width=""><input id="test2" type="submit"
name="B1" value="Tilføj"> <INPUT id="test2" TYPE="reset" NAME="Slet"></td>
</tr>
</table>
</form>
</body>
</center>
</html>

Synes godt om

eagleeye Praktikant

06. maj 2003 - 22:43 #3

Du skal bruge metoden rs.Open SQL,... og ikke Set rs = Conn .. for paging virker, så prøv at rette disse linjer:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs = Conn.execute(strSQL)

Til disse bemærk der er komme en ny linje med Set rs = Sever.CreadteObject("ADODB.recordset") for at undgå fejl ukendt Object '' i linjen rs.Open:

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
rs.Open strSQL, Conn, 1

Synes godt om

technodance.dk Nybegynder

06. maj 2003 - 23:12 #4

den vil ikke vise posterene når man kliker på sidere??

her er koden:

<% response.buffer = true %>
<html>

<head>
<LINK REL="stylesheet" HREF="styles.css" TYPE="text/css">
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<meta name="robots" content="NOINDEX">
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">

<title>Gæstebog med sider</title>
</head>

<body bgcolor="#0080C0" topmargin="10" leftmargin="0"
rightmargin="0">
<center>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
set rs2 = Conn.execute(strSQL)
%>

<HR WIDTH="450" SIZE="1" color="#000000">
Fra: <%=RS("Navn")%>   <%=RS("Dato")%><br>
Emne:  <%=RS("Hjemmeside")%><br>
<%=RS("Besked")%>
<HR WIDTH="450" SIZE="1" color="#000000">
<%

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/database.mdb")
strSQL = "select* from gaestebogen ORDER BY ID DESC"
rs.Open strSQL, Conn, 1

intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 2
rs.absolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=default.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=default.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

<form action="send.asp" method="POST">
<table border="0" cellpadding="2"
cellspacing="0" width="450">
<tr>
<td align="left" width="" valign="top"><font size="3"
face="Arial">Navn: </font></td>
<td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Navn"></td>
</tr>
<tr>
<td align="left" width="" valign="top"><font size="3"
face="Arial">E-mail: </font></td>
<td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Email"></td>
</tr>
<tr>
<td align="left" width="" valign="top"><font size="3"
face="Arial">Hjemmeside:<br> </font></td>
<td colspan="2" width=""><INPUT id="test" TYPE="text" NAME="Hjemmeside"><br></td>
</tr>
<tr>
<td align="Left" valign="top" width=""><font
size="3" face="Arial">Besked:</font></td>
<td valign="top" width="">
<textarea id="test" name="Besked" rows="8"
cols="40"></textarea></td>
</tr>
<tr>
<td width="20%"></td>
<td colspan="2" width=""><input id="test2" type="submit"
name="B1" value="Tilføj"> <INPUT id="test2" TYPE="reset" NAME="Slet"></td>
</tr>
</table>
</form>
</body>
</center>
</html>

/rene

Synes godt om

technodance.dk Nybegynder

06. maj 2003 - 23:30 #5

jeg har selv funde ud af det med sider du få halv delen vis det er okay??

/rene

Synes godt om

eagleeye Praktikant

06. maj 2003 - 23:46 #6

Ja det er det.

Synes godt om

technodance.dk Nybegynder

07. maj 2003 - 00:28 #7

mange Tak for hjælpen

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
Persits.Upload Af bsn i ASP	7	17/09/202611:37	I går 15:45
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
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

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