<%
id=Request("id")
kertoja=Request("kertoja")
ika=Request("ika")
kerrottu=Request("kerrottu")
kirjaaja=Request("kirjaaja")
teema=Request("teema")
otsikko2=Request("otsikko")
satu2=Request("satu")
otsikko=Replace(otsikko2, "'", "''")
satu=Replace(satu2, "'", "''")
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "sadut", "satu", "story"
SQL = "UPDATE datat "
SQL = SQL & "SET Kertoja='" & kertoja & "',"
SQL = SQL & "Ika='" & ika & "',"
SQL = SQL & "Kerrottu='" & kerrottu & "',"
SQL = SQL & "Kirjaaja='" & kirjaaja & "',"
SQL = SQL & "Teema='" & teema & "',"
SQL = SQL & "Otsikko='" & otsikko & "',"
SQL = SQL & "Satu='" & satu & "'"
SQL = SQL & " WHERE ID=" & id%>
<%
Set RS = Conn.Execute(SQL)
Conn.Close
%>
<%response.write "Päivitetty!"%>
Muokkauslistaus
Satujen hakeminen