8 svar · 409 visningar · startad av cobraeyes
Håller på med ett medborgarforum, men jag får ett konstigt felmeddelande på följande rad:
Set.Conn=Server.CreateObject("ADODB.Connection")
Här är felmeddelandet:
Körningsfel i Microsoft VBScript (0x800A01F9)
Ogiltig eller okvalificerad referens
/forum/Fsupp_1.asp, line 19
Kan någon hjälpa mig?
MVH/
------------------
.:cobraeyes:.
du skall inte ha någon punkt mellan set och conn, utan endast ett mellanslag.
mvh
------------------
<A HREF="http://www.cartman.nu" TARGET=_blank>
det man inte minns har inte hänt.
hit med en berka!</A>
Du är ju en klippa @nders! :e
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"
------------------
.:cobraeyes:.
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.
------------------
<A HREF="http://www.cartman.nu" TARGET=_blank>
det man inte minns har inte hänt.
hit med en berka!</A>
Ok, men om jag vill göra en dsn-less connection mot support.mdb.
Hur gör jag då?
------------------
.:cobraeyes:.
vad använder du för databas då?
kör du access?
------------------
<A HREF="http://www.cartman.nu" TARGET=_blank>
det man inte minns har inte hänt.
hit med en berka!</A>
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
------------------
.:cobraeyes:.
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
------------------
Kom hem till mig...
[Redigerat av Vide den 22 sep 2000]
[Redigerat av Vide den 22 sep 2000]