% VARidProdukte = Request.QueryString("idProdukte") strCN = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=C:\Inetpub\vhosts\blasius.com\database\db_blasius.mdb" Set Verbindung = Server.CreateObject("ADODB.Connection") Verbindung.Open strCN strSQL = "select * From produkte WHERE idProdukte = " & CSTR(VARidProdukte) & " " set rs = Verbindung.execute(strSQL) %>