webForumDet fria alternativet
Logga in / Bli medlem

ASP forum

ASP

22 svar · 382 visningar · startad av nybörjare

nybörjareMedlem sedan nov. 200178 inlägg
Frågan#1

Kompileringsfel i Microsoft VBScript fel '800a03f6'

'End' förväntas.

/Default.asp, rad 75

Har några enkla men ändå jobbigt probelm kan ni titta på det första här?

<%

'Databasen
file = Server.MapPath("databasen.mdb")

'Öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file

'Öppnar tabellen forum
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM forum ORDER BY ID DESC"

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

If RecSet("reid") = 0 Then
id = RecSet("id")

Do until Recset.EOF
%>

</font>
<tr>
<td height="21" colspan="4">
<div align="center"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
</font></div>
</td>
</tr>
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif">
<table cellspacing=1 cellpadding=1 border=0>
<tbody>
<tr>
<td width=200 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> <b><a href="post.asp?id=<%=id%>"><%=RStemp("rubrik")%></a></b></font></td>
<td align=right width=140 bgcolor=#dbdbdb><font face="Verdana, Arial, Helvetica, sans-serif" size="-2">
<%IF (Rstemp("Namn")) = "4545" THEN
Response.write "<b>Figg3</b>" %>
<%Else%>
<% Response.write(Server.HTMLEncode(Rstemp("Namn"))) %>
<font color="#000000">
<%End IF%>
</font></font></td>
</tr>
</tbody>
</table>
<table cellspacing=1 cellpadding=1 border=0>
<tbody>
<tr>
<td width=280 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> <%=RStemp("datum")%>
<% IF RStemp("datum") > date - 1 THEN %>
- <font color="red"> nytt </font>
<% END IF %>
</font></td>
<td align=right width=60 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Svar:</font>
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=RStemp("svar")%> </font></td>
</tr>
<tr>
<td width=280> </td>
<td align=right width=60> </td>
</tr>
</tbody>
</table>
</font> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
<%

recset.movenext
Loop
recset.close
Set recset = nothing
%>

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Det finns inget end if som matchar denna rad

If RecSet("reid") = 0 Then

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

nybörjareMedlem sedan nov. 200178 inlägg
#3

He he ja vet men när ja sätter in den så blir det ändå fel så ja vet ej var ja ska ha in den

LarsGMedlem sedan dec. 200012 464 inlägg
#4

ser väl ut som om den borde ligga där.

Loop
[b]end if[/b]
recset.close
Set recset = nothing
%>

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

nybörjareMedlem sedan nov. 200178 inlägg
#5

Tackar men nu får ja detta fel medelandet...

ADODB.Recordset fel '800a0bb9'

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt.

/Default.asp, rad 19

nybörjareMedlem sedan nov. 200178 inlägg
#6

Jag läöste det men nu så vissas inget på sidan fast där är saker i databasen?????

LarsGMedlem sedan dec. 200012 464 inlägg
#7

Det beror på att du inte har inkluderat adovbs.inc
Den innehåller definitioner av olika konstanter, som t.ex. adOpenStatic

Det är i och för sig gansak onödigt att ha med den. Du kan skriva så här i stället.


Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file

'Öppnar tabellen forum
SQL = "SELECT * FROM forum ORDER BY ID DESC"

set recset = connect.execute(sql)

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

LarsGMedlem sedan dec. 200012 464 inlägg
#8

Det kanske var jag som tänkte fel med end if. (Jag vet ju inte exakt vad du vill göra.)

Om du flyttar den hit i stället

If RecSet("reid") = 0 Then
id = RecSet("id")
[b]end if[/b]

I och för sig så borde du skriva den som

if not recset.eof then
If RecSet("reid") = 0 Then
id = RecSet("id")
end if
end if

annars så kommer du att få ett fel om databasen är tom.

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

nybörjareMedlem sedan nov. 200178 inlägg
#9

Tack larsG kom på det men nu så syns inget alls på sidan fast att jag har info i databasen

nybörjareMedlem sedan nov. 200178 inlägg
#10

Du var snabbar än jag ska testa det...

nybörjareMedlem sedan nov. 200178 inlägg
#11

Lars nu när ja skriver

if not recset.eof then
If RecSet("reid") = 0 Then
id = RecSet("id")
end if
end if

Så loppar den ut samma inlägg om och om igen men ja vill ha det som t.ex i ett vanlig forum att det loppas en gång bara fattar du?

LarsGMedlem sedan dec. 200012 464 inlägg
#12

Alla dina utskrifter verkar komma från ett recordset som heter RStemp men jag ser aldrig att du gör movenext på det.

Kan du beskriva lite mer hur det ser ut?

Varför gör du denna fråga t.ex.?

SQL = "SELECT * FROM forum ORDER BY ID DESC"

och vilken fråga hänger ihop med rstemp?

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

nybörjareMedlem sedan nov. 200178 inlägg
#13

Hmm kan du förklara vad du menar med kod??? som du märker är ja en newbe när det kommer till asp...

LarsGMedlem sedan dec. 200012 464 inlägg
#14

Att det står kod: är bara ett sätt att markera viss text. (Det sker automatiskt om man använder [wftag] text [/wftag]) Om du klickar på länken till vänsten där det står WF-kod så kan du se vilka taggar som finns.)

Det verkar ju som om det du har visat här bara är en del av det skript som du använder och därför är det svårt att säga vad som är fel.

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

nybörjareMedlem sedan nov. 200178 inlägg
#15

Hejsan igen ändrade lite i min kod men nu får ja detta fel medelandet:

Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: ''

/Default.asp, rad 84

<%

' Variabel
count = 0

'Databasen
file = Server.MapPath("databasen.mdb")

'Öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file

'Öppnar tabellen forum
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL =  "SELECT * FROM forum ORDER BY ID DESC"

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

If RecSet("reid") = 0 Then
id = RecSet("id")
end if
 
Do While Not RecSet.EOF And Count < 0
%>

 

</font> 
<tr> 
  <td height="21" colspan="4"> 
    <div align="center"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
      </font></div>
  </td>
</tr>
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif">
<table cellspacing=1 cellpadding=1 border=0>
  <tbody> 
  <tr> 
    <td width=200 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<b><a href="post.asp?id=<%=Recset("id")%>"><%=Recset("rubrik")%></a></b></font></td>
    <td align=right width=140 bgcolor=#dbdbdb><font face="Verdana, Arial, Helvetica, sans-serif" size="-2"> 
      <%IF (Recset("Namn")) = "4545" THEN 
      Response.write "<b></b>" %>
      <%Else%>
      <% Response.write(Server.HTMLEncode(Recset("Namn"))) %>
      <font color="#000000"> 
      <%End IF%>
      </font></font></td>
  </tr>
  </tbody> 
</table>
<table cellspacing=1 cellpadding=1 border=0>
  <tbody> 
  <tr> 
    <td width=280 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=Recset("datum")%> 
      <%  IF Recset("datum") > datum - 1 THEN %>
      - <font color="red"> nytt </font> 
      <%  END IF                             %>
      </font></td>
    <td align=right width=60 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Svar:</font> 
      <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=Recset("svar")%>&nbsp;</font></td>
  </tr>
  </tbody> 
</table>
</font> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
<% 
RecSet.MoveNext 
Loop 
RecSet.Close 
Set RecSet = Nothing 
%>
LarsGMedlem sedan dec. 200012 464 inlägg
#16

Vilken rad är rad 84?

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

nybörjareMedlem sedan nov. 200178 inlägg
#17

Jag glömde lite kod men längst nere så är rad 84 allså denna

<% 
Con.Close 
Set Con = Nothing 
%>

Hela koden:

<%

' Variabel
count = 0

'Databasen
file = Server.MapPath("databasen.mdb")

'Öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file

'Öppnar tabellen forum
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL =  "SELECT * FROM forum ORDER BY ID DESC"

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

If RecSet("reid") = 0 Then
id = RecSet("id")
end if
 
Do While Not RecSet.EOF And Count < 0
%>

 

</font> 
<tr> 
  <td height="21" colspan="4"> 
    <div align="center"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
      </font></div>
  </td>
</tr>
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif">
<table cellspacing=1 cellpadding=1 border=0>
  <tbody> 
  <tr> 
    <td width=200 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<b><a href="post.asp?id=<%=Recset("id")%>"><%=Recset("rubrik")%></a></b></font></td>
    <td align=right width=140 bgcolor=#dbdbdb><font face="Verdana, Arial, Helvetica, sans-serif" size="-2"> 
      <%IF (Recset("Namn")) = "4545" THEN 
      Response.write "<b>Figg3</b>" %>
      <%Else%>
      <% Response.write(Server.HTMLEncode(Recset("Namn"))) %>
      <font color="#000000"> 
      <%End IF%>
      </font></font></td>
  </tr>
  </tbody> 
</table>
<table cellspacing=1 cellpadding=1 border=0>
  <tbody> 
  <tr> 
    <td width=280 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=Recset("datum")%> 
      <%  IF Recset("datum") > datum - 1 THEN %>
      - <font color="red"> nytt </font> 
      <%  END IF                             %>
      </font></td>
    <td align=right width=60 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Svar:</font> 
      <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=Recset("svar")%>&nbsp;</font></td>
  </tr>
  </tbody> 
</table>
</font> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
<% 
RecSet.MoveNext 
Loop 
RecSet.Close 
Set RecSet = Nothing 
%>
<b><a href="skriva.asp">Skriv nytt inlägg</a></b></font> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
</font> 
<p>&nbsp;</p>
<p><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Copyright &copy; 
  2001 . Alla r&auml;ttigheter reserverade.</font></p>

<% 
Con.Close 
Set Con = Nothing 
%>
@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#18

Du har skrivit fel på namnet på ditt connectionobjekt, byt Con till Connect på de raderna.

Mvh,

------------------
All your base are belong to me.

LarsGMedlem sedan dec. 200012 464 inlägg
#19

Det skall vara samma namn som du använder när du öppnar databasen.

Connect.Close 
Set Connect = Nothing

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

nybörjareMedlem sedan nov. 200178 inlägg
#20

Har försökt få rätt på det men nu fr ja inget fel medelande så jag har allså
kört fast... Men nu vissas inget alls fast det finns saker i databasen...
Kan någon titta lite på koden???

<%

' Variabel
count = 100

'Databasen
file = Server.MapPath("databasen.mdb")

'Öppnar databasen
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file

'Öppnar tabellen forum
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL =  "SELECT * FROM forum ORDER BY ID DESC"

RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic

If RecSet("reid") = 0 Then
id = RecSet("id")
end if
 
Do until RecSet.EOF or Count
%>

 

</font> 
<tr> 
  <td height="21" colspan="4"> 
    <div align="center"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
      </font></div>
  </td>
</tr>
<font size="-2" face="Verdana, Arial, Helvetica, sans-serif">
<table cellspacing=1 cellpadding=1 border=0>
  <tbody> 
  <tr> 
    <td width=200 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<b><a href="post.asp?id=<%=Recset("id")%>"><%=Recset("rubrik")%></a></b></font></td>
    <td align=right width=140 bgcolor=#dbdbdb><font face="Verdana, Arial, Helvetica, sans-serif" size="-2"> 
      <%IF (Recset("Namn")) = "4545" THEN 
      Response.write "<b>kl</b>" %>
      <%Else%>
      <% Response.write(Server.HTMLEncode(Recset("Namn"))) %>
      <font color="#000000"> 
      <%End IF%>
      </font></font></td>
  </tr>
  </tbody> 
</table>
<table cellspacing=1 cellpadding=1 border=0>
  <tbody> 
  <tr> 
    <td width=280 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;<%=Recset("datum")%> 
      <%  IF Recset("datum") > datum - 1 THEN %>
      - <font color="red"> nytt </font> 
      <%  END IF                             %>
      </font></td>
    <td align=right width=60 bgcolor=#dbdbdb><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Svar:</font> 
      <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><%=Recset("svar")%>&nbsp;</font></td>
  </tr>
  </tbody> 
</table>
</font> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
<% 
RecSet.MoveNext 
Loop 
RecSet.Close 
Set RecSet = Nothing 
%>
<b><a href="skriva.asp">Skriv nytt inlägg</a></b></font> <font size="-2" face="Verdana, Arial, Helvetica, sans-serif"><br>
</font> 
<p>&nbsp;</p>
<p><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Copyright &copy; 
  2001. Alla r&auml;ttigheter reserverade.</font></p>

<% 
Connect.Close 
Set Connect = Nothing 
%>
268 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
139 ms — hämta tråd, inlägg och bilagor (db)
122 ms — ändringar (db)