<% 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 email_list order BY num ASC", GetDBConn, 1 ListCount = List.RecordCount %>

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

<% For i=1 To ListCount SQL=SQL & "UPDATE email_list SET " SQL=SQL & "writer='" & List("writer") & "'," SQL=SQL & "tel='" & List("tel") & "'," SQL=SQL & "hp='" & List("hp") & "'," SQL=SQL & "reg_time='" & List("reg_time") & "'," SQL=SQL & "email='" & List("email") & "'," SQL=SQL & "subject='" & List("subject") & "'," SQL=SQL & "content='" & List("content") & "' " SQL=SQL & " where num =" & List("num") SQL=SQL & Chr(10) List.MoveNext Next %> <%=SQL%> <% For j=1 To 15 %> <% Next %>