% ' SWITCH BACK TO vrmgr WHEN ALL IS SAID AND DONE set VRMdbConn = Application("vrmgr") SQLQuery = "cbc_dev.pagetext_get 10" Set field = VRMdbConn.Execute(SQLQuery) Do While Not field.EOF text_id = field("text_id") session("text_id") = text_id url = field("url") session("url") = url text = field("text") session("text") = text main_text = field("main_text") session("main_text") = main_text bullet_text = field("bullet_text") session("bullet_text") = bullet_text field.MoveNext Loop field.Close Set field = Nothing %>
| |||||||||||||||||||