String nach Zahlen durchsuchen

[moflash]

Hallo zusammen,

ich habe folgendes Problem: Ich erstelle so genannte Smart-Tags für ein kleines Content Management System (CMS).

Ein Smart-Tag könnte so aussehen:

[JS:21]

Dabei steht zwischen [ und ] um welchen Tag es sich handelt (JS = JavaScript) und um welche ID (21). Dann soll später über eine Replace-Funktion in der Tabelle nach einem JavaScript mit der ID = 21 gesucht werden, um dies zu ersetzen.

Ein weiterer Smart-Tag könnte aber auch so aussehen:

[CSS:1]

oder:

[PAGETITLE]

Das bedeutet, dass ich prüfen muss, ob es einen SmartTag gibt und dann, ob er eine ID enthält oder nicht... Das ist gar nicht so einfach zu beschreiben Mein erster Versuch lautet so:

SQL = "SELECT * FROM dbSMARTTAGS"
Set smarttagsRS = Con.Execute(SQL)
Do Until smarttagsRS.EOF
	If InStr(templateHTML, smarttagsRS("SmartTag")) > 0 Then
		Response.Write "OK"
	End If
smarttagsRS.MoveNext
Loop

in der Tabelle dbSMARTTAGS sind alle Tags gespeichert, allerdings nur in der Form [js] oder [css] oder [PAGETITLE], also ohne Möglichkeit der ID-Zuweisung.

Ich hoffe, dass mich jemand halbwegs verstanden hat und mir einen guten Tipp mit in die Nacht geben kann

Danke