<% timeout(1) set con = server.createobject("ADODB.Connection") con.open Application("CString") if request.ServerVariables("REQUEST_METHOD") = "POST" then set rsPage = server.createobject("ADODB.Recordset") rsPage.open "SELECT * FROM CMS_Menu_Auxiliary Where ID = 1", con, 1, 3 rsPage("title1") = request("title1") rsPage("url1") = request("url1") rsPage("title2") = request("title2") rsPage("url2") = request("url2") rsPage("title3") = request("title3") rsPage("url3") = request("url3") rsPage("title4") = request("title4") rsPage("url4") = request("url4") rsPage.Update() set rsPage= nothing end if set rsPage = server.createobject("ADODB.Recordset") rsPage.open "SELECT * FROM CMS_Menu_Auxiliary", con, 3, 1 if not rsPage.EOF then s_title1 = rsPage("title1") s_url1 = rsPage("url1") s_title2 = rsPage("title2") s_url2 = rsPage("url2") s_title3 = rsPage("title3") s_url3 = rsPage("url3") s_title4 = rsPage("title4") s_url4 = rsPage("url4") end if set rsPage= nothing %>

Auxiliary Menu

Enter first link title : Enter first link url : Enter second link title : Enter second link url : Enter third link title : Enter third link url : Enter fourth link title : Enter fourth link url :

"> ">

<% Set con = Nothing %>