The following asp page is designed
to provide an adhoc SQL format function.
(using Client-side
VBScript and cookies)
http://www.*-*-*.com/
It works but I feel that there must be
a better way to do this.
Thanks in advance for any comments/suggestions.
:(Sorry for the long listing.
adhocSearch2.asp
~~~~~~~~~~~~~~~
<html>
<head>
<title>adhocSearch2.asp</title>
</head>
<script language="VBSCRIPT">
<!--
sub FieldList_OnDblClick()
set frm = Document.MyAdhocForm
tmpFLD = frm.FieldList.value
if frm.SelectOrderByASCDESC.value = "Select" then
if len(frm.rdjSelectList.value) > 0 then
varComma = "," & vbcrlf
else
varComma = ""
end if
frm.rdjSelectList.value = frm.rdjSelectList.value & varComma &
left(replace(tmpFLD ,"["," "),999)
mpos = instr(1,tmpFLD ,"[") + 1
frm.rdjSelectListUser.value = frm.rdjSelectListUser.value & vbcrlf &
trim(mid(tmpFLD , mpos,999))
frm.rdjSelectListUserDisplay.value = frm.rdjSelectListUser.value
exit sub
elseif frm.SelectOrderByASCDESC.value = "Order By ASC" then
tASCDESC = " ASC "
else
tASCDESC = " DESC "
end if
if len(frm.rdjOrderByList.value) > 0 then
varComma = "," & vbcrlf
else
varComma = ""
end if
mpos = instr(1,tmpFLD ,"[") - 2
frm.rdjOrderByList.value = frm.rdjOrderByList.value & varComma &
trim(left(tmpFLD , mpos)) & tASCDESC
mpos = mpos + 3
frm.rdjOrderByListUser.value = frm.rdjOrderByListUser.value & vbcrlf &
trim(mid(tmpFLD , mpos,999)) & tASCDESC
frm.rdjOrderByListUserDisplay.value = frm.rdjOrderByListUser.value
end sub
sub btnClearSelectList_OnClick()
set frm = Document.MyAdhocForm
frm.rdjSelectList.value = ""
frm.rdjSelectListUser.value = ""
frm.rdjSelectListUserDisplay.value = ""
end sub
sub btnClearOrderByList_OnClick()
set frm = Document.MyAdhocForm
frm.rdjOrderByList.value = ""
frm.rdjOrderByListUser.value = ""
frm.rdjOrderByListUserDisplay.value = ""
end sub
-->
</script>
<body bgcolor="#FFFFFF" topmargin="1" leftmargin="1">
<%
FL=Request.Cookies("rdjadhocSearch2")("rdjSelectList")
FLU=Request.Cookies("rdjadhocSearch2")("rdjSelectListUser")
OL=Request.Cookies("rdjadhocSearch2")("rdjOrderByList")
OLU=Request.Cookies("rdjadhocSearch2")("rdjOrderByListUser")
%>
<form name="MyAdhocForm" action="adhocSearch2Response.asp" method="post">
<input type="hidden" name="rdjSelectList" value="<% = FL %>"><input
type="hidden"
name="rdjSelectListUser" value="<% = FLU %>"><input type="hidden"
name="rdjOrderByList"
value="<% = OL %>"><input type="hidden" name="rdjOrderByListUser" value="<%
= OLU %>"><!-- -->
<table
align="center" border="1">
<caption align="left"><font size="5"><b>Adhoc Query
Form</b></font></caption>
<tr>
<td align="left" colspan="4"><i><b>DblClick to select Fields</b></i></td>
</tr>
<tr>
<td align="center" valign="top">Field List<br>
<select name="FieldList" size="12">
<option value="INTERNAL_NAME1 [UserName1 "> UserName1 </option>
<option value="INTERNAL_NAME2 [UserName2 "> UserName2 </option>
<option value="INTERNAL_NAME3 [UserName3 "> UserName3 </option>
<option value="INTERNAL_NAME4 [UserName4 "> UserName4 </option>
<option value="INTERNAL_NAME5 [UserName5 "> UserName5 </option>
<option value="INTERNAL_NAME6 [UserName6 "> UserName6 </option>
<option value="INTERNAL_NAME7 [UserName7 "> UserName7 </option>
<option value="INTERNAL_NAME8 [UserName8 "> UserName8 </option>
<option value="INTERNAL_NAME9 [UserName9 "> UserName9 </option>
<option value="INTERNAL_NAME10 [UserName10 "> UserName10 </option>
</select></td>
<td align="Center">DblClick Mode<br>
<select name="SelectOrderByASCDESC" size="4">
<option selected value="Select"> Select </option>
<option value="Order By ASC"> Order By ASC</option>
<option value="Order By DESC"> Order By DESC</option>
</select></td>
<td>Select <button name="btnClearSelectList">Clear
List</button><br>
<textarea NAME="rdjSelectListUserDisplay" rows="12" cols="20"><%= FLU
%></textarea> </td>
<td>Order by <button name="btnClearOrderByList">Clear
List</button><br>
<textarea NAME="rdjOrderByListUserDisplay" rows="7" cols="20"><%= OLU
%></textarea> </td>
</tr>
<tr>
<td><input TYPE="submit"></td>
</tr>
</table>
</form>
</body>
</html>
Response
~~~~~~~~
<html>
<head>
<title>adhocSearch2Response.asp</title>
</head>
<%
Response.Cookies("rdjadhocSearch2")("rdjSelectList") =
request("rdjSelectList")
Response.Cookies("rdjadhocSearch2")("rdjSelectListUser") =
request("rdjSelectListUser")
Response.Cookies("rdjadhocSearch2")("rdjOrderByList") =
request("rdjOrderByList")
Response.Cookies("rdjadhocSearch2")("rdjOrderByListUser") =
request("rdjOrderByListUser")
Response.Cookies("rdjadhocSearch2").Expires = date + 365
Response.Cookies("rdjadhocSearch2").Domain = ".www.clis.com"
Response.Cookies("rdjadhocSearch2").Path = "/jonesrd"
%>
<body bgcolor="#FFFFFF" topmargin="1" leftmargin="1">
<%
'
response.write("Cookies have been set.")
response.write("<hr><b>rdjSelectList</b><br>")
Response.write (request.Cookies("rdjadhocSearch2")("rdjSelectList"))
response.write("<hr><b>rdjSelectListUser</b><br>")
Response.write (request.Cookies("rdjadhocSearch2")("rdjSelectListUser"))
response.write("<hr><b>rdjOrderByList</b><br>")
Response.write (request.Cookies("rdjadhocSearch2")("rdjOrderByList"))
response.write("<hr><b>rdjOrderByListUser</b><br>")
Response.write (request.Cookies("rdjadhocSearch2")("rdjOrderByListUser"))
response.write("<hr>")
%>
</body>
</html>
Adhoc Query Form - but not very user friendly