Guten Morgen,
ich habe unter: http://www.aspheute.com/artikel/20010620.htm einen
Artikel gefunden.
Diese Intelligenten Metatags m�chte ich auch auf mein Projekt anwenden.
Leider klappt das nicht richtig. In meinem Quelltext sind keine Metatags
zu finden, bekomme aber auch keine Fehlermeldung.
Mein Web besteht aus einer default.asp und jeder Menge includes,
wahrscheinlich liegt hier das Problem, denn das Beispiel ist ja etwas
anders und hat bei mir auch sofort funktioniert.
Ist Zustand:
- connection.asp
- default.asp
- getmeta.asp
liegen alle in einem verzeichnis und Server.MapPath sollte auch stimmen.
___________
connection.asp
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set objRSMeta = Server.CreateObject("ADODB.Recordset")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
'Conn.Open "c:/inetpub/wwwroot/konzept/MetaDB/meta.mdb"
Conn.Open Server.MapPath("/konzept/MetaDB/meta.mdb")
%>
___________
default.asp
<% DIM Conn, objRSMeta, sFile %>
<!--#include file="connection.asp"-->
<html>
<head>
<title>konzept</title>
<!--#include file="getmeta.asp"-->
.....
___________
getmeta.asp
<%
' Path Info
sFile = Request.ServerVariables("PATH_INFO")
' DB-Abfrage, Auswahl von Meta-Tags zum aktuellen Dokument (anhand
Variable File)
Set objRSMeta = Conn.Execute("SELECT * FROM tMeta WHERE fDocument='" &
sFile & "' ORDER BY fString ASC")
' Meta-Tags in Schleife ausgeben
While Not objRSMeta.EOF
Response.Write "<meta name=""" & objRSMeta("fString") & """
content=""" & objRSMeta("fValue") & """>" & vbCrLf
objRSMeta.MoveNext
Wend
' Aufr�umen
Set objRSMeta = Nothing
Conn.Close
%>
<%
' Vis.Kontr. korr. Pfadausgabe.tmp
Response.Write(sFile)
%>
__________________
tMeta von Meta.mdb
AutoID fString fDocument fValue
3 robots default.asp follow
4 keywords default.asp test test test
5 description default.asp Fischers Fritz fischt
frische Fische
Hab ich etwas �bersehen?
Viele Gr��e
Ingo
+-------------------------------------+
|Ingo Lechner |
| |
|Junkerstrasse 3a |
|65510 Idstein-Walsdorf |
|Phone 06434-905819 |
|Mobile 0160-4466612 |
|Fax 06434-905820 |
|Mail [EMAIL PROTECTED] |
+-------------------------------------+
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
