<% ConnectionString = "Provider=SQLOLEDB;Data Source=sql60.enterhost.com;Initial Catalog=BA321;user ID=BA321;password=walkerhilladm90 ;" Set GetDBConn = Server.CreateObject("ADODB.Connection") GetDBConn.Open(ConnectionString) content=request("content") %> <% If Left(content,6) = "UPDATE" Then %> <% content=request("content") SQL=Replace(SQL, "
", chr(13)) response.write content sql=content Set memberinsert=GetDBConn.execute(sql) 'response.end %>
<% Else %> <% End If %>