<% 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 & "prod_cd='" & List("prod_cd") & "'," SQL=SQL & "prod_type='" & List("prod_type") & "'," SQL=SQL & "inter_cd='" & List("inter_cd") & "'," SQL=SQL & "category='" & List("category") & "'," SQL=SQL & "prod_name='" & List("prod_name") & "'," SQL=SQL & "price_YN='" & List("price_YN") & "'," SQL=SQL & "period='" & List("period") & "'," SQL=SQL & "departure='" & List("departure") & "'," SQL=SQL & "minimun_capacity='" & List("minimun_capacity") & "'," SQL=SQL & "txt_keyword='" & List("txt_keyword") & "'," SQL=SQL & "txt_description='" & List("txt_description") & "'," SQL=SQL & "txt_optional1='" & List("txt_optional1") & "'," SQL=SQL & "txt_optional2='" & List("txt_optional2") & "'," SQL=SQL & "txt_optional3='" & List("txt_optional3") & "'" SQL=SQL & " where idx_prod =" & List("idx_prod") 'SQL=Replace(SQL, "&", "&") 'SQL=Replace(SQL, "<", "<") 'SQL=Replace(SQL, ">", ">") 'SQL=Replace(SQL, chr(13), " ") SQL = SQL & Chr(10) 'response.write SQL & " " 'SQL="" List.MoveNext Next %> <%=SQL%> <% For j=1 To 15 %> <% Next %>