<%
	Set Conn = Server.CreateObject("ADODB.Connection")

	login="DSN=Cust; UID=Cust; PWD=Cust"
	Conn.Open login

	cmd = Request.QueryString("cmd")
	fields = Request.QueryString("fields")
	sepchar = Request.QueryString("sepchar")

	Set RS = Conn.Execute(cmd)

	While Not RS.EOF

		Buf = ""
		For Lp = 0 to (fields - 1)

			Buf = Buf & Trim(RS(Lp)) & sepchar

		Next

		Response.Write Buf + Chr(10)

		RS.MoveNext

	WEnd

	Response.Write "******" + Chr(10)

	RS.Close
	Conn.Close
%>