<%
If session("UserID") = "" then
response.redirect "Logon.asp"
End if%>
Bangkoksite Video Clips
Edit form for Webmaster
<% Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/database/bkkvideo.mdb")%>
<% If Request.ServerVariables("Content_Length") > 0 Then %>
<% If (len(request.form("name")) < 1 or request.form("name") = " " or isnull(request.form("name"))) Then %>
Please check input you must enter name !!!
<% Else%>
<% Dim sql
sql = "select * from bkkvideo where id =" & session("txtrecord") %>
<% Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn, 1, 3 %>
<% if request("cmdSubmit") = "Update" then %>
<% rs("name") = request.form("name")
rs("link") = request.form("link")
rs("idprovince") = request.form("province")
rs("time") = request.form("time")
rs("kb") = request.form("kb")
rs.Update %>
Back
<% End If %>
<% End If %>
<% End If %>
<% Else %>
<% Dim sql1
session("txtrecord") = Request.QueryString("paraID")
sql1 = "select * from bkkvideo where id =" & session("txtrecord") %>
<% Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql1, Conn, 1, 3 %>
Back
<% End If %>
<% rs.close
conn.close
set conn = nothing %>
