webForumDet fria alternativet
Logga in / Bli medlem

Vad kan detta vara för fel?

ASP

13 svar · 173 visningar · startad av Emilo

EmiloMedlem sedan dec. 200096 inlägg
Frågan#1

Varför funkar inte detta:

<% SQL = "SELECT Count(*) From inlagg WHERE forum LIKE '" & Request.Querystring("forum")& "%' AND forum_id LIKE '" & rstemp("forum_id")& "%' AND orginal LIKE '" & request.querystring("org2")& "%' AND inlagg_id LIKE '" & rstemp("inlagg_id")& "%'"
Set rs1 = db.Execute(SQL) %>
    <td width="134" bgcolor="#D7FFD7" height="30" align="center"><font face="Verdana" size="2">&nbsp;<%=rs1.Fields(0) %></font></td>

Jag får detta felmeddelande:

Körningsfel i Microsoft VBScript fel '800a01a8'
Objekt krävs.: ''

/forum_bra/visa.asp, rad 68

Någon som vet vad det kan vara?

WibergMedlem sedan juni 20003 169 inlägg
#2

Glömt databaskopplingen...? :e

------------------
¤ WIBERG ¤

EmiloMedlem sedan dec. 200096 inlägg
#3

nejdå det har jag inte här kommer koden till hela sida men det är på det som står i mitt förra inlägg som det är fel på.

<html>

<head>
<title>Forum</title>
<LINK REL="stylesheet" TYPE="text/css" HREF="index.css">
</head>

<body topmargin="1" leftmargin="1">
<table border="0" width="555" cellspacing="1" bgcolor="#000000">
  <tr>
    <td width="270" bgcolor="#D7FFD7">
<a href="skriv.asp?forum=<%=Request.Querystring("forum") %>&org=JA&forum_id=<%=Request.Querystring("forum_id") %>">Starta
ny tråd</a>

    </td>
    
    <td width="271" bgcolor="#D7FFD7">
      <p><a href="sok.asp?forum=<%=Request.Querystring("forum") %>&org=JA&forum_id=<%=Request.Querystring("forum_id") %>">Sök</a> - <a href="default.asp">Alla forum</a> --> <%=Request.Querystring("forum") %></td>
  </tr>
</table>&nbsp;

<table border="0" width="555" cellspacing="1" bgcolor="#000000" height="69">
  <tr>
    <td width="142" bgcolor="#D7FFD7" height="30" bordercolor="#000000"><img border="0" src="../bilder/rubrik.gif"></td>
    <td width="82" bgcolor="#D7FFD7" height="30"><img border="0" src="../bilder/forfattare.gif"></td>
    <td width="134" bgcolor="#D7FFD7" height="30"><img border="0" src="../bilder/antalsvar.gif"></td>
    <td width="171" bgcolor="#D7FFD7" height="30"><img border="0" src="../bilder/senasteinlagget.gif"></td>
  </tr>

<%
mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 5

SQL = "SELECT * From Inlagg Where forum LIKE '" & Request.Querystring("forum")& "%' AND orginal LIKE '" & Request.Querystring("org")& "%' ORDER BY senaste DESC"

Set rstemp = Server.Createobject("ADODB.Recordset")
rstemp.cursorlocation = 3
rstemp.cachesize = 5
MdbFilePath = Server.MapPath("forum.mdb")
rstemp.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
If rstemp.EOF then
   Response.write "Där fanns det ju inget... " & sok
Else
   rstemp.movefirst
   rstemp.pagesize = mypagesize
   maxcount = Cint(rstemp.pagecount)
   rstemp.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rstemp.fields.count -1
   Do While Not RStemp.EOF AND howmanyrecs < rstemp.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "CCCC99"
   Else
      color = "CCCC66"
   End If %>
  <tr>
    <td width="142" bgcolor="#D7FFD7" height="30"><font face="Verdana" size="2">&nbsp;<a href="las.asp?forum=<%=rstemp("forum") %>&inlagg=<%=rstemp("ID") %>&forum_id=<%=rstemp("forum_id") %>&inlagg_id=<%=rstemp("inlagg_id") %>"><% =rstemp("rubrik") %></a></font></td>
    <td width="82" bgcolor="#D7FFD7" height="30" align="center"><font face="Verdana" size="2">&nbsp;<%=rstemp("namn") %></font></td>
    <% SQL = "SELECT Count(*) From inlagg WHERE forum LIKE '" & Request.Querystring("forum")& "%' AND forum_id LIKE '" & rstemp("forum_id")& "%' AND orginal LIKE '" & request.querystring("org2")& "%' AND inlagg_id LIKE '" & rstemp("inlagg_id")& "%'"
Set rs1 = db.Execute(SQL) %>
    <td width="134" bgcolor="#D7FFD7" height="30" align="center"><font face="Verdana" size="2">&nbsp;<%=rs1.Fields(0) %></font></td>
    <td width="171" bgcolor="#D7FFD7" height="30" align="center"><font face="Verdana" size="2">&nbsp;<%=rstemp("senaste") %></font></td>
  </tr>
  
<%
rstemp.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rstemp.close
   Set rstemp = nothing
   %>
   <tr bgcolor="#FFFFFF"><td bgcolor="#FFFFFF">
   <%
   If maxcount <> 0 then
   response.write "sida " & mypage & " av " & maxcount & "<br>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "&forum="& request.querystring("forum") &"&org=JA&org2=NEJ&forum_id="& request.querystring("forum_id") &"'>" & pad & counter & "</a>"
   response.write ref & " "
   if counter mod 10 = 0 then
      response.write "<br>"
   End If
   Next
   End If
End If
%>
</td>
<td bgcolor="#FFFFFF">&nbsp;</td><td bgcolor="#FFFFFF">&nbsp;</td><td bgcolor="#FFFFFF">&nbsp;</td></tr>
</table>

</body>

</html>

------------------
EmilOhman.cjb.net

LarsGMedlem sedan dec. 200012 464 inlägg
#4
Set rs1 = db.Execute(SQL) %>

Du skapar inget objekt som heter db på denna sida

------------------
essentitia preter non sans multiplicandum

EmiloMedlem sedan dec. 200096 inlägg
#5

vadå,
förstod inte riktigt vad du menade?

------------------
EmilOhman.cjb.net

EmiloMedlem sedan dec. 200096 inlägg
#6

Snälla kan någon hjälpa mig!!!

------------------
EmilOhman.cjb.net

LarsGMedlem sedan dec. 200012 464 inlägg
#7

God morgon.

För att använda metoden execute så behövs ett connectionobjekt.

cstr = _
"Driver={Microsoft Access Driver(*.mdb)}; DBQ=" & _
MdbFilePath & ";"

   set db = server.CreateObject("ADODB.Connection")
   db.open cstr

efter det så kan du lägga din


set rstemp = db.execute (sql)

Du kan också använda dbobjektet när du öppnar ditt recordset. Istället för att skriva


   rstemp.open sql,"Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"

så kan du skriva


rstemp.open sql,db

------------------
essentitia preter non sans multiplicandum

LarsGMedlem sedan dec. 200012 464 inlägg
#8

En sak till. När man har gjort alla operationer mot databasen så stänger man det så här.

  db.close
  set db = nothing

------------------
essentitia preter non sans multiplicandum

EmiloMedlem sedan dec. 200096 inlägg
#9

Tack så mycket det gjorde susen! ;)

------------------
EmilOhman.cjb.net

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#10

att: larsg.

menar du att du kan skapa variabler med namnet cstr? det hade jag nog inte gett mig på...

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

LarsGMedlem sedan dec. 200012 464 inlägg
#11

Tänkte inte på det. Det är inte så bra namn, vet faktiskt inte om det går.

------------------
essentitia preter non sans multiplicandum

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#12

det borde inte göra det, fast jag vet inte heller.

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

Vides avatarVideMedlem sedan dec. 19998 577 inlägg
#13

Och vi kan konstatera att det inte går, och testar man kommer man att få felmeddelandet: Illegal assignment

:)

------------------
webEye.nu SweQuake.com

EmiloMedlem sedan dec. 200096 inlägg
#14

Det jag gjorde var att jag la in en till databas koppling över den andra SQL satsen och då funkade det super bra. :)

------------------
EmilOhman.cjb.net

275 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849
127 ms — deklarationer (db)
0 ms — hämta statistik (cache)
141 ms — hämta tråd, inlägg och bilagor (db)
130 ms — ändringar (db)