Notifikationer

Markér alle som læst Log ud

autohh Nybegynder

25. august 2004 - 14:56 Der er 20 kommentarer og
1 løsning

Fejl i mit news system

Heysa Eksperter :)
har fejl i min kode til mit news system :(
er igang med at lave det sådan at det osse viser et billed men får den her fejl: Microsoft VBScript compilation error '800a03f6'

Expected 'End'

vise.asp, line 53

Synes godt om

autohh Nybegynder

25. august 2004 - 14:56 #1

Ups min kode ser sådan her ud:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database.mdb")
Conn.Open DSN

strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)
%>
<%
dim id, SQL
'Tjek om der skal slettes en post.
if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) and LCase(Request.QueryString("mode"))="slet" then
id = replace(Request.Querystring("id"),"'","")
SQL = "delete from news where id = " & id
conn.execute(SQL)
end if
%>

rs.MoveNext
LOOP
<%
Do While not rs.eof

Conn.Close
Set Conn = Nothing %></table>
<% if side = "nyhed" then
Set rs = Conn.Execute("select * from news where id = " & Request.QueryString("id"))
%>
<table border="0" width="100%">
<tr>
<td rowspan="3" valign="top" width="18"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><a href="news.asp">Tilbage</a> - Skrevet af: <%=rs("navn")%></td>
</tr>
</table>
<%

rs.close
set rs = nothing

Conn.Close
Set Conn = Nothing
%>

Synes godt om

and_ Nybegynder

25. august 2004 - 14:57 #2

denne if er ikke afsluttet:

<% if side = "nyhed" then

Synes godt om

and_ Nybegynder

25. august 2004 - 14:58 #3

<% if side = "nyhed" then
Set rs = Conn.Execute("select * from news where id = " & Request.QueryString("id"))
%>
<table border="0" width="100%">
<tr>
<td rowspan="3" valign="top" width="18"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><a href="news.asp">Tilbage</a> - Skrevet af: <%=rs("navn")%></td>
</tr>
</table>
<%

rs.close
set rs = nothing
end if

Synes godt om

eagleeye Praktikant

25. august 2004 - 14:59 #4

Der mangler også et loop til do while not rs.eof

Synes godt om

autohh Nybegynder

25. august 2004 - 15:00 #5

:) lidt rodet kode Eagleeye kan du lave den der loop ?

Synes godt om

eagleeye Praktikant

25. august 2004 - 15:02 #6

Ja din kode er en smule rodet :)
Det ser også ud som om du overskriver dit recordset, skal du liste alle nyheder elle kun en bestemt?

Synes godt om

and_ Nybegynder

25. august 2004 - 15:02 #7

Do While not rs.eof

Conn.Close
Set Conn = Nothing %></table>
<% if side = "nyhed" then
Set rs = Conn.Execute("select * from news where id = " & Request.QueryString("id"))
%>
<table border="0" width="100%">
<tr>
<td rowspan="3" valign="top" width="18"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><a href="news.asp">Tilbage</a> - Skrevet af: <%=rs("navn")%></td>
</tr>
</table>
<%
end if
loop
rs.close
set rs = nothing

Synes godt om

eagleeye Praktikant

25. august 2004 - 15:04 #8

hvis du vil liste alle nyheder så prøv:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database.mdb")
Conn.Open DSN

dim id, SQL
'Tjek om der skal slettes en post.
if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) and LCase(Request.QueryString("mode"))="slet" then
id = replace(Request.Querystring("id"),"'","")
SQL = "delete from news where id = " & id
conn.execute(SQL)
end if

strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)
%>

<%
Do While not rs.eof
%>
<table border="0" width="100%">
<tr>
<td rowspan="3" valign="top" width="18"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><a href="news.asp">Tilbage</a> - Skrevet af: <%=rs("navn")%></td>
</tr>
</table>
<%
rs.Movenext
loop

rs.close
set rs = nothing
Conn.Close
Set Conn = Nothing
%>

Synes godt om

autohh Nybegynder

25. august 2004 - 15:06 #9

Hmm eagleeye havde tænkt mig at der skulle være alle nyhederne på en side :)
min kode r rodet fordi jeg havde et nyheds system så tog jeg noget kode fra et andet og puttet over i og prøvet at se om det virket :)

Synes godt om

eagleeye Praktikant

25. august 2004 - 15:07 #10

så prøv: 25/08-2004 15:04:57

Synes godt om

autohh Nybegynder

25. august 2004 - 15:13 #11

Tak for hjælpen vender lige tilbage når jeg har fået rettet resten af koden

Synes godt om

autohh Nybegynder

25. august 2004 - 15:17 #12

så har jeg fået det hele rettet til men den kommer med den her fejl:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/freak/pokz/pokz/news/vise.asp, line 25

og koden ser nu sådan her ud:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database.mdb")
Conn.Open DSN

dim id, SQL
'Tjek om der skal slettes en post.
if (Request.Servervariables("REMOTE_ADDR") = adminIP1 or Request.Servervariables("REMOTE_ADDR") = adminIP2) and LCase(Request.QueryString("mode"))="slet" then
id = replace(Request.Querystring("id"),"'","")
SQL = "delete from news where id = " & id
conn.execute(SQL)
end if

strSQL = "Select * from news order by ID desc"
set rs = Conn.Execute(strSQL)
%>

<%
Do While not rs.eof
%>
<table border="0" width="100%">
<tr>
<td rowspan="3" valign="top" width="18"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("overskrift")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><a href="news.asp">Tilbage</a> - Skrevet af: <%=rs("navn")%></td>
</tr>
</table>
<%
rs.Movenext
loop

rs.close
set rs = nothing
Conn.Close
Set Conn = Nothing
%>

Synes godt om

autohh Nybegynder

25. august 2004 - 15:20 #13

Hmm nu siger den ikke nogen fejl den viser bare ikke noget billed :S

Synes godt om

and_ Nybegynder

25. august 2004 - 15:21 #14

Har du en kolonne der hedder= billede

Den kan ihvertfald ikke finde den...

Synes godt om

and_ Nybegynder

25. august 2004 - 15:21 #15

Hvordan ser image-tagget ud?

Synes godt om

autohh Nybegynder

25. august 2004 - 15:24 #16

Nu virker det :) tak for hjælpen hvis d vil tjene 100 mere så bare lav en fed opsætning til det den her ser nemlig lidt dum ud : http://frip.dk/freak/pokz/pokz/news/vise.asp

Synes godt om

eagleeye Praktikant

25. august 2004 - 15:27 #17

Grunden til billed ikke vises kan måske være stien ikke passer. Hvis det kun er filnanvet du har gemt i databasen.

Synes godt om

autohh Nybegynder

25. august 2004 - 15:29 #18

Alt r lavet nu mangler bare en opstilling til den

Synes godt om

eagleeye Praktikant

25. august 2004 - 15:39 #19

Det blive nok lidt svære jeg er ikke haj til design, du kunne evt. center tabellen og sætte en fast brede på tabellen og flyette lidt på et par ting, vil du havde smart design må du nok spørge nogle andre end mig:)

<%
Do While not rs.eof
%>
<center>
<table border="0" width="400">
<tr>
<td rowspan="2" valign="top" width="18"><font size="1" face="Verdana"><img border="0" src="<%=rs("billede")%>"></font></td>
<td width="100%" valign="top"><font size="2" face="Verdana"><%=rs("overskrift")%></font></td>
</tr>
<tr>
<td width="100%" valign="top"><font size="1" face="Verdana"><%=rs("nyhed")%></font></td>
</tr>
<tr>
<td width="100%" colspan="2" valign="top"><font size="1" face="Verdana">Skrevet af: <%=rs("navn")%></td>
</tr>
</table>
</center>
<%
rs.Movenext
loop
%>
<center><a href="news.asp">Tilbage</a></center>

Synes godt om

autohh Nybegynder

25. august 2004 - 15:55 #20

Tak for hjælpen læg lige et svar :)

Synes godt om

eagleeye Praktikant

25. august 2004 - 16:08 #21

Ok :)

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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