Do Until RS.EOF
For i = 0 to RS.Fields.Count-1 step 1
''''''''''''''''''''''''''''''''''''''''''''
ttt = RS(i).Value
If IsNull(ttt) Then
ttt = ""
End If
fff = replace(ttt,chr(13) & chr(10),"-")
'''''''''''''''''''''''''''''''''''''''''''''
Response.Write fff & chr(9)
Next
Response.Write chr(13) & chr(10)
RS.MoveNext
Loop
END IF
'Lecture > ASP' 카테고리의 다른 글
| Querystring 방식으로 "&" 엠프센드 문자 넘기기 (0) | 2009.01.20 |
|---|---|
| ASP 숫자 자리수 맞추기. (0) | 2008.12.02 |