konstigt felmeddelande

du skall inte ha någon punkt mellan set och conn, utan endast ett mellanslag.

mvh

Du är ju en klippa @nders!
Men nu får jag följande felmeddelande

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Datakällan hittades inte och ingen standarddrivrutin är angiven
/forum/Fsupp_1.asp, line 10

Vad beror det på?
Line 10 är följande:

Conn.Open "suppo"

odbc-drivisen är feluppsatt skulle jag gissa på.

gå till din odbc driver manager och kolla så du verkligen kallat odbcn för suppo, kolla så filen ligger på rätt plats.

Ok, men om jag vill göra en dsn-less connection mot support.mdb.
Hur gör jag då?

vad använder du för databas då?
kör du access?

Jepp!

Här är hela koden:

<!-- include file="Adovbs.Inc" -->

<html>
<head>
<title>Medborgarforum</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body bgcolor="#FFFFFF">
<%
Dim Conn, Provider, ConnectionString

Dim sql, RS, adCmdText

Set Conn = Server.CreateObject("ADODB.Connection")
With Conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Server.MapPath("support.mdb")
Conn.Open
End With
sql="SELECT * FROM Supp1 WHERE orig=TRUE"
sql=sql & "ORDER BY Supp1.Did, Supp1.IID"
Set RS=Conn.Execute (sql,,adCmdText)
%>

<p>
<font size="2" face="arial"><a href="Fsupp_3.asp">Nytt inlägg</a></font><br>
</p>

<table bordercolor="#000000" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" border="1">
  <thead> 
  <tr>
<th><font size="2" face="arial">Ämne</font></th>
<th><font size="2" face="arial">Startad av</font></th>
<th><font size="2" face="arial">E-post</font></th>
<th><font size="2" face="arial">Startad</font></th>
<th><font size="2" face="arial">Antal svar</font></th>
<th><font size="2" face="arial">Senaste inlägg</font></th>
</tr>
</thead>
<tbody>
<%
On Error Resume Next
RS.MoveFirst
Do While Not RS.EOF
%>
<tr valign="top">
<td>
<a href="fsupp_2.asp?did=<%=rs("iid")%>">
<%=Server.HTMLEncode(RS.Fields("Amne").Value)%></a><br></td>
<td><%=Server.HTMLEncode(RS.Fields("Namn").Value)%><br></td>
<td><%=Server.HTMLEncode(RS.Fields("Epost").Value)%><br></td>
<td><%=Server.HTMLEncode(RS.Fields("datum").Value)%><br></td>
<td><%=Server.HTMLEncode(RS.Fields("Antal").Value)%><br></font></td>
<td><%=Server.HTMLEncode(RS.Fields("senaste").Value)%><br></font></td>
</tr>

<%
RS.MoveNext
LOOP
%>

</tbody>
</table>
</body>
</html>
</body>
</html>

Kör jag den som den är nu får jag följande felmeddelande:

Microsoft JET Database Engine (0x80040E14)
Syntaxfel (operator saknas) i frågeuttrycket 'orig=TRUEORDER BY Supp1.Did, Supp1.IID'.
/forum/Fsupp_1.asp, line 22

Dela upp TRUEORDER i två ord: TRUE ORDER så skall det funka bättre:

sql="SELECT * FROM Supp1 WHERE orig=TRUE"
sql=sql & " ORDER BY Supp1.Did, Supp1.IID"

Tips: Läs felmeddelandet!

Mvh, Vide

Missade ett mellanslag där!
Tackar så mkt!