% if ( request("action") = "save" ) then book_save() end if %>
![]() |
|
![]() |
![]() |
![]() |
|
|
|
<% function book_save() Nom = Replace(Mid(LTrim(request("Nom")),1,100),"'","''") Autor = Replace( Mid(LTrim(request("Autor")),1,100),"'","''") Titol = Replace( Mid(LTrim(request("Titol")),1,100),"'","''") Opinio = Replace( Mid(LTrim(request("Opinio")),1,1000,"'","''") call OpenDB if ( Nom ="" ) then Nom = "Anonim" end if dim sql sql = " INSERT into mll_stJordi2001( stj_Nom, stj_Autor, stj_Titol, stj_Opinio) values " sql = sql + " ( '"+Nom+"','"+Autor+"','"+Titol+"','"+Opinio+"')" if ( Autor<>"" and Titol<>"" ) then g_conn.execute(sql) end if CloseDB end function %>