här är ett exempel
<%@ LANGUAGE=VBScript %>
<%Response.buffer = true
Dim Connect, conntemp, DSNtemp
Dim rs
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("databas.mdb")
Connect.Open DSNtemp
SQLstmt = "SELECT * From FILM WHERE FIELD1 LIKE '%" & Request.Form("sok")& "%'"
Set RS = Connect.Execute(SQLstmt)
%>
<%
If request.form("sok")="" Then
response.redirect("filmer.asp")
%>