Dim Fields : Fields = "e_name,e_duty,e_phone,e_email,e_join,e_retire,e_hold_office"
  Dim arrField : arrField = SPLIT(Fields, ",")
  Dim i
  For i = 0 To UBOUND(arrField)
    Execute("Dim "&arrField(i)&" : " &arrField(i) & " = Request("""&arrField(i)&""")")
  Next

--------------------------------

writeok나 editok페이지에서 폼에서 전송된 값을 Request할때 한번에 하기..

다른식으로 응용할수 있을거 같아서 기대됨.

Execute("DIM a ") 를 하면 a변수가 선언됨. a에 해당되는 변수를 배열로 저장해서 사용하면

편할듯..

Eval 은 javascript에서의 eval과 같다. ASP 3.0에 추가됬다고 하는것 같던데..

위에 사용예이서 eval을 사용할 경우 아래와 같이 쓸수 있다.

e_name변수가 execute에 의해 만들어 져서

Response.Write e_name 하면 e_name에 저장된 값이 나오고

Response.Write Eval(arrField(0)) 해도 역시 e_name에 저장된 값이 출력된다.

폼에서 전송된 값을 Request 하는 소스가 조금은 줄어 들지도..