<% @language=vbscript %>
Korvaa tämä teksti sivun nimellä.
<%
if request.form("sort")<> "" THEN
StrSort=request.form("sort")
ELSE
StrSort="TB1 ASC"
END IF
strQuery="SELECT * FROM SampleDb ORDER BY " &StrSort
'Tietokannan polkulauseke, joka rajoittaa tietokannan tarkastelua.
strProvider="DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("\iisadmin") & "\website\sampledb.mdb;"
'Tietokannan polkulauseke, joka antaa vieraille oikeuden tarkastella tietokantaa.
'strProvider="DRIVER=Microsoft Access Driver (*.mdb); DBQ=" & Server.MapPath("iisadmin") & "\website\sampledb.mdb;"
IF Request("ID") <> "" THEN
strIDNum=Request("ID")
set objConn = server.createobject("ADODB.Connection")
objConn.Open strProvider
set cm = Server.CreateObject("ADODB.Command")
cm.ActiveConnection = objConn
cm.CommandText = "DELETE FROM SampleDb WHERE ID = " &strIDNum
cm.Execute
END IF
Set rst = Server.CreateObject("ADODB.recordset")
rst.Open strQuery, strProvider
%>
Korvaa tämä teksti sivun otsikolla.