14 svar · 210 visningar · startad av Asp Ny
Jag har laddat hem: http://www.idg.se/mikrodatorn/webbmastern/md9808/md8-98.zip
Och den jag får inte den att funka...jag får upp detta:
Microsoft OLE DB Provider for ODBC Drivers fel '80004005'
[Microsoft][ODBC Driver Manager] Datakällan hittades inte och ingen standarddrivrutin är angiven
/webroot/index.asp, rad 5
PÅ rad 5 står det:
Connection.Open Application("NewsDatabasePath")
[Redigerat av Asp Ny den 13 maj 2000]
Någon som vet???
Byt ut den raden mot:
Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet
MdbFilePath = Server.MapPath("news.mdb") 'Specifierar sökvägen till databasen
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen
Nu Kommer jag in i index.asp "lite"
det kommer upp en text med detta:
Körningsfel i Microsoft VBScript fel '800a000d'
Inkompatibla typer: 'UBOUND'
/nyhet/index.asp, rad 24
På rad 24 står det:
For i = 0 To UBOUND(Session("MyArray"),2)
Någon som vet vad som e fel??
Ersätt från <html> till bott med:
<html>
<head>
<title>Databasbaserad Nyhetsdatabas...</title>
</head>
<body background="images/rodbakgrund.gif" bgcolor="#FFFFFF" text="#000000" vlink="#0000FF">
<table border="0" width="642" cellspacing="0">
<tr>
<td width="139"></td>
<td width="326"><img src="images/nyheter.gif" WIDTH="354" HEIGHT="75"><br>
<% Do until RS.EOF
Datum = FormatDateTime(RS("Datum"),2)%> <font face="Verdana"><small><p><%=Datum%></small><br>
</font></p>
<p></p>
<p align="center"><strong><font face="Verdana"><%= RS("Rubrik")%></font></strong></p>
<p><font face="Verdana"><small><%=RS ("Artikel")%></small></font></p>
<p align="right"><small><em><small><font face="Verdana">Skrivet av : <%
If RS("Skribent")="" Then
Response.write("Okänd")
Else
Response.write(RS("Skribent"))
End If
%></font></small></em></small></p>
<hr size="1">
<p><br>
<%
RS.Execute
%> </td>
<td width="1"></td>
<td width="144" valign="top" align="left"><table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#0080C0"><p align="center"><font face="Verdana" color="#FFFFFF"><small>Sök
nyheter</small></font></td>
</tr>
<tr>
<td width="100%"><form method="POST" action="search.asp">
<div align="center"><center><p><input type="text" name="search" size="15"></p>
</center></div>
</form>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
Andreas
detta kom fram
Kompileringsfel i Microsoft VBScript fel '800a03fb'
'Loop' förväntas.
/nyhet/index.asp, rad 33
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\nyhet\news.mdb"
SQL = "SELECT * FROM Nyheter Order by Id Desc"
Set RS = Connection.Execute(SQL)
Datum=FormatDateTime(Now,2)
%>
<html>
<head>
<title>Databasbaserad Nyhetsdatabas...</title>
</head>
<body background="images/rodbakgrund.gif" bgcolor="#FFFFFF" text="#000000" vlink="#0000FF">
<table border="0" width="642" cellspacing="0">
<tr>
<td width="139"></td>
<td width="326"><img src="images/nyheter.gif" WIDTH="354" HEIGHT="75"><br>
<% Do until RS.EOF
Datum = FormatDateTime(RS("Datum"),2)%> <font face="Verdana"><small><p><%=Datum%></small><br>
</font></p>
<p></p>
<p align="center"><strong><font face="Verdana"><%= RS("Rubrik")%></font></strong></p>
<p><font face="Verdana"><small><%=RS ("Artikel")%></small></font></p>
<p align="right"><small><em><small><font face="Verdana">Skrivet av : <%
If RS("Skribent")="" Then
Response.write("Okänd")
Else
Response.write(RS("Skribent"))
End If
%></font></small></em></small></p>
<hr size="1">
<p><br>
<%
RS.Execute
%> </td>
<td width="1"></td>
<td width="144" valign="top" align="left"><table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#0080C0"><p align="center"><font face="Verdana" color="#FFFFFF"><small>Sök
nyheter</small></font></td>
</tr>
<tr>
<td width="100%"><form method="POST" action="search.asp">
<div align="center"><center><p><input type="text" name="search" size="15"></p>
</center></div>
</form>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
Nu funkar det, har en fråga till på detta området.
Jag ska skapa en ny sida, (ny.asp)
Där ska man kunna se det 5 senaste nyheterna som man har lagt in i databasen.
Hur gör man det??
[Redigerat av Asp Ny den 14 maj 2000]
Spara filen som ny.asp bara:
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\nyhet\news.mdb"
SQL = "SELECT TOP 5 * FROM Nyheter Order by Id Desc"
Set RS = Connection.Execute(SQL)
Datum=FormatDateTime(Now,2)
%>
<html>
<head>
<title>Databasbaserad Nyhetsdatabas...</title>
</head>
<body background="images/rodbakgrund.gif" bgcolor="#FFFFFF" text="#000000" vlink="#0000FF">
<table border="0" width="642" cellspacing="0">
<tr>
<td width="139"></td>
<td width="326"><img src="images/nyheter.gif" WIDTH="354" HEIGHT="75"><br>
<% Do until RS.EOF
Datum = FormatDateTime(RS("Datum"),2)%> <font face="Verdana"><small><p><%=Datum%></small><br>
</font></p>
<p></p>
<p align="center"><strong><font face="Verdana"><%= RS("Rubrik")%></font></strong></p>
<p><font face="Verdana"><small><%=RS ("Artikel")%></small></font></p>
<p align="right"><small><em><small><font face="Verdana">Skrivet av : <%
If RS("Skribent")="" Then
Response.write("Okänd")
Else
Response.write(RS("Skribent"))
End If
%></font></small></em></small></p>
<hr size="1">
<p><br>
<%
RS.MoveNext
Loop
%></td>
<td width="1"></td>
<td width="144" valign="top" align="left"><table border="0" width="100%">
<tr>
<td width="100%" bgcolor="#0080C0"><p align="center"><font face="Verdana" color="#FFFFFF"><small>Sök
nyheter</small></font></td>
</tr>
<tr>
<td width="100%"><form method="POST" action="search.asp">
<div align="center"><center><p><input type="text" name="search" size="15"></p>
</center></div>
</form>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
<tr>
<td width="100%" bgcolor="#0080C0"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
Koden är nästan samma som den tidigare bara att top 5 har lagts till i select satsen.
Andreas
Jag tackar så mycket för det!!!
Undrar en grej,
Om jag vill visa 40 tecken i nyheten, sen vill jag att det ska finns en länk till hela nyheten.
Hur gör man då?
Det stod: Om du skriver in ex, Compaq så ska den bli länkad direkt utan att du ska behöva göra något. Jag har lagt in den i databasen. Men inget händer när jag skriv compaq i en nyhet... vad har jag gjort för fel?
Sedan en extra funktion, om man vill ha ett script som både kan ändra i nyheten, och ta bort hela nyheten...
Hur blir koden då?
[Redigerat av Asp Ny den 14 maj 2000]
Om jag vill visa 40 tecken i nyheten, sen vill jag att det ska finns en länk till hela nyheten.
Hur gör man då?
Använd t.ex funktionen Left, som returnerar en delsträng på x antal tecken:
Dim art
art = Rs("Artikel")
If Len(art) > 40 Then
Response.Write Left(art, 40) & "..."
Else
Response.Write art
End If
------------------
per@svanstrom.nu
www.svanstrom.nu
Jag vill oxå få reda på det som Asp Ny skrev i sitt senaste inlägg...
Ingen som vet hur man gör det?
Gå in på http://www.idg.se/webmastern/asp där står det om databaser hur man lägger till och tar bort m.m
------------------
// David
När man skriver:
<%
Dim art
art = Rs("Artikel")
If Len(art) > 100 Then
Response.Write Left(art, 100) & "..."
Else
Response.Write art
End If
%>
Så blir resultatet:
1998-05-13
USA-domstol tillåter Microsoft att leverera Windows 98 som planerat. En appellationsdomstol ...
Windows 98 levereras enligt tidsplan
Skrivet av : Michael
-----------------------------
Det ska blir:
1998-05-13
Windows 98 levereras enligt tidsplan
USA-domstol tillåter Microsoft att leverera Windows 98 som planerat. En appellationsdomstol befriar Microsoft från ett föreläggande om att separera webbläsare och operativsystem. Det innebär att Windows 98 levereras till pc-leverantörer nu på fredag den 15 maj. Den officiella lanseringen är den 25 juni.
Skrivet av : Michael
------------
Alltså rubriken hoppar ner...och det ska den inte göra.
[Redigerat av fredrik99 den 17 jun 2000]