<% kategori="start" Set Conn = Server.CreateObject("ADODB.Connection") Drv = "Driver={MySQL ODBC 3.51 Driver};SERVER=10.0.0.134;DATABASE=alsensh_db;UID=alsensh_usr;PASSWORD=NiXej9f3" Conn.open Drv Set RS=Server.CreateObject("ADODB.Recordset") SQL="SELECT * from `1` where kategori='"& kategori &"' " Set RS = Conn.Execute(SQL) %> Alsens Hotell