<%@LANGUAGE="VBSCRIPT"%>
<%
Dim dellicms__MMColParam
dellicms__MMColParam = "1"
If (Request.QueryString("kategorie") <> "") Then
dellicms__MMColParam = Request.QueryString("kategorie")
End If
%>
<%
Dim dellicms
Dim dellicms_numRows
Set dellicms = Server.CreateObject("ADODB.Recordset")
dellicms.ActiveConnection = MM_dellicms_STRING
dellicms.Source = "SELECT * FROM dbo.news WHERE kategorie = '" + Replace(dellicms__MMColParam, "'", "''") + "' AND aktiv='ja'"
dellicms.CursorType = 0
dellicms.CursorLocation = 2
dellicms.LockType = 1
dellicms.Open()
dellicms_numRows = 0
%>
Delli's SOFT CAR WASH, Waschen ohne Kratzer
