ASP forum

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
%>

Det finns inget end if som matchar denna rad

If RecSet("reid") = 0 Then

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

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

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

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

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

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

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

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

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

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?

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

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

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

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 
%>

Vilken rad är rad 84?

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

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 
%>

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

Mvh,

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

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

Connect.Close 
Set Connect = Nothing

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

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 
%>