<% '----------------------------------------------------------------- '--Page info '----------------------------------------------------------------- PAGE_NAME = "Category" PAGE_NAME_S = "Categories" '----------------------------------------------------------------- '--Page code '----------------------------------------------------------------- If Request.ServerVariables("REQUEST_METHOD")="POST" Then ID = Request.Form("ID") '------------------------------------ '--save it in the database '------------------------------------ Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME , DATABASE_USERNAME , DATABASE_PASSWORD DB.OpenRecord "tsv_categories" , ID DB.SetField "name" , Request.Form("name") DB.CloseRecord() Set DB = Nothing Response.Redirect "index.asp" Else ID=Request.QueryString("ID") End If Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME , DATABASE_USERNAME , DATABASE_PASSWORD numOfRecords = DB.RunQuery("SELECT * FROM tsv_categories WHERE id=" & ID) If numOfRecords > -1 Then RecordData = DB.GetLastResults() Else Call myError("Invalid " & PAGE_NAME & " ID") End If Set DB = Nothing %>

Editing <%=RecordData(1,0)%>