<% 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 E_Product ORDER BY idx_prod ASC", GetDBConn, 1 ListCount = List.RecordCount %>

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

<% For i=1 To ListCount SQL=SQL & "UPDATE E_Product SET " SQL=SQL & "old_price='" & List("old_price") & "'," SQL=SQL & "curr_price='" & List("curr_price") & "'," SQL=SQL & "origin='" & List("origin") & "'," SQL=SQL & "icon_img_type='" & List("icon_img_type") & "'," SQL=SQL & "image_s='" & List("image_s") & "'," SQL=SQL & "image_m='" & List("image_m") & "'," SQL=SQL & "image_l_1='" & List("image_l_1") & "'," SQL=SQL & "image_l_2='" & List("image_l_2") & "'," SQL=SQL & "image_l_3='" & List("image_l_3") & "'," SQL=SQL & "image_l_4='" & List("image_l_4") & "'," SQL=SQL & "image_l_5='" & List("image_l_5") & "'," SQL=SQL & "image_path='" & List("image_path") & "'," SQL=SQL & "best_YN='" & List("best_YN") & "'," SQL=SQL & "onsale_YN='" & List("onsale_YN") & "'," SQL=SQL & "new_YN='" & List("new_YN") & "'," SQL=SQL & "active_YN='" & List("active_YN") & "'," SQL=SQL & "order_by='" & List("order_by") & "'," SQL=SQL & "read_cnt='" & List("read_cnt") & "'," SQL=SQL&" order_cnt='" & List("order_cnt") & "'" SQL=SQL & " where idx_prod =" & List("idx_prod") SQL = SQL & Chr(10) List.MoveNext Next %> <%=SQL%> <% For j=1 To 15 %> <% Next %>