African info

<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")) Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "SELECT * FROM trainfo" RecSet.Open Visa, Connect Dim str1 str1 = RecSet("Text") %>
">
Write the new text (PS: WILL REPLACE THE OLD TEXT!!!)
">
      Back
<% RecSet.Close Connect.Close %> <% End If%>