<% '----------------------------------------------------------------- '--Page info '----------------------------------------------------------------- PAGE_NAME = "Episodes" '----------------------------------------------------------------- '--Page code '----------------------------------------------------------------- If Request.ServerVariables("REQUEST_METHOD")="POST" Then VIDEO_ID = Request.Form("VIDEO_ID") '------------------------------------ '--save it in the database '------------------------------------ Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME, "", "" DB.OpenRecord "tsv_videos_episodes" , 0 DB.SetField "VIDEO_ID" , VIDEO_ID DB.SetField "name" , Request.Form("name") DB.SetField "languages" , Request.Form("languages") DB.CloseRecord() Set DB = Nothing IsSaved = True Else VIDEO_ID = Request.QueryString("VIDEO_ID") IsSaved = False Dim RecordData(6,0) LANGUAGE_LIST = cLANGUAGE_LIST End If Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME, "", "" '------------------------------------ '--get parent information '------------------------------------ numOfRecords = DB.RunQuery("SELECT name FROM tsv_videos WHERE id=" & VIDEO_ID) - 1 If numOfRecords > -1 Then ParentName = DB.GetField("name") Else Call myError("Invalid Video ID") End If Set DB = Nothing %>

Adding a <%=ParentName & " " & PAGE_NAME%>

<%If Not IsSaved Then%> <%Else%> <%End If%>     New <%=PAGE_NAME%> added successfully ! What would you like to do ?