<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open (Server.Mappath("db1.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Titlu, Continut, OnAir FROM Special" rs.Open sql, conn %>
<%for each x in rs.Fields response.write("
" & x.name & "
") next%>
<%do until rs.EOF%>
<%for each x in rs.Fields%>
<%Response.Write(x.value)%>
<%next rs.MoveNext%>
<%loop rs.close conn.close %>
Titlu :
Continut:
OnAir
<% titlu=Request.QueryString("titlul") Continut=Request.QueryString("Continutul") %>
<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open (Server.Mappath("db1.mdb")) sql="INSERT INTO Special (Titlu,Continut)" sql=sql & " VALUES " sql=sql & "('" & Titlu & "'," sql=sql & "'" & Continut & "')" on error resume next conn.Execute sql,recaffected if err<>0 then Response.Write("No update permissions!") else Response.Write("
" & recaffected & " record added
") end if conn.close %>