"ASP Diskussionsliste fuer Anfaenger" <[EMAIL PROTECTED]> schrieb am
18.10.02 10:40:28:
> 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.
>
______________________________________________________________________
Hallo,
Ich habe C++ Grunlagen und m�chte mit ASP anfangen zu programmieren.
habe aber keine Materialien aus diesem Bereich bzw. C# usw. kann mir bitte jemanden
ebooks aus diesem Bereich Emailen.
ich w�re sehr dankbar f�r diese Unterst�tzung.
ich habe zur Zeit Zeit und m�chte mich mit diesem Themen besch�ftigen.
Vilen Dank
[EMAIL PROTECTED]
> ___________
> 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
________________________________________________________________
Keine verlorenen Lotto-Quittungen, keine vergessenen Gewinne mehr!
Beim WEB.DE Lottoservice: http://tippen2.web.de/?x=13
| 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
