<% 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) Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM E3_Post ORDER BY Post_ID ASC", GetDBConn, 1 ListCount = List.RecordCount %>

Àüü¼±ÅÃ(Ctrl+A)ÇÏ½Ã°í º¹»çÇÏ¿© ¸Þ¸ðÀå¿¡ ºÙÇô³Ö±â ÇϽðųª ÀúÀåÇϱâ¹öÆ°À» Ŭ¸¯ÇÏ¿© ÅؽºÆ®ÆÄÀÏ·Î ÀúÀåÇϽñ⠹ٶø´Ï´Ù.

<% For i=1 To ListCount SQL=SQL & "UPDATE E3_Post SET " SQL=SQL & "Category_CD='" & List("Category_CD") & "'," SQL=SQL & "Title='" & List("Title") & "'," SQL=SQL & "Login_GUID='" & List("Login_GUID") & "'," SQL=SQL & "Author='" & List("Author") & "'," SQL=SQL & "Author_ID='" & List("Author_ID") & "'," SQL=SQL & "Description='" & List("Description") & "'," SQL=SQL & "Upload_Path='" & List("Upload_Path") & "'," SQL=SQL & "Upload_File='" & List("Upload_File") & "'," SQL=SQL & "Thumb_Img='" & List("Thumb_Img") & "'" SQL=SQL & " where Post_ID =" & List("Post_ID") SQL = SQL & Chr(10) List.MoveNext Next %> <%=SQL%> <% For j=1 To 15 %> <% Next %>