<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Access = "User" : Nav3 = "1" %> <% thisPage = Mid(request.servervariables("SCRIPT_NAME"), InstrRev(request.servervariables("SCRIPT_NAME"), "/") + 1) response.buffer = true server.scripttimeout = 2 varNumResults = 500 varFriendly = "Y" numFields = 1 if request("action") = "go" then onRec = 0 varGo = true varFields = "" varError = "" varOldQuery = request("varOldQuery") if (request("varFriendly") = "Y") then varFriendly = "Y" else varFriendly = "N" varQuery = request("varQuery") if IsNumeric(request("varNumResults")) then varNumResults = CLng(request("varNumResults")) else varNumResults = 500 if varFriendly = "Y" then on error resume next else on error goto 0 end if for each item in request("varFields") if item <> "" then if varFields = "" then varFields = item else varFields = varFields & vbTab & item end if end if next if varOldQuery <> varQuery then varFields = "" end if if lcase(left(varQuery, 6)) <> "select" then varError = "Your SQL Query must begin with SELECT" else set sqlQuery = server.createobject("ADODB.Recordset") sqlQuery.activeconnection = mlConn sqlQuery.source = varQuery sqlQuery.cursortype = 3 sqlQuery.open() if err.number <> 0 then varError = err.description else numFields = sqlQuery.fields.count -1 if NOT sqlQuery.EOF then numRecords = sqlQuery.recordcount else numRecords = 0 end if end if end if end if function showField(fieldName, varFields) showField = false if varFields = "" then showField = true else if instr(1, varFields, fieldName) <> 0 then showField = true else showField = false end if end if end function %> <%=ListName%> - Spd E-Letter Administration

SQL Recordset Query

<% if varGo AND varError <> "" then %> <% elseif varGo AND varError = "" then %> <% end if %> <% if varGo AND varError = "" then %> <% end if %>

Enter the SQL Recordset Query you wish to execute.


Not sure what tables or columns exist? Click Here.
> Show Friendly Errors
Show the first Records
Query Result:
ERROR:
<%=varError%>
Query Result:
[ <%=varQuery%> ]
Show Fields:
<% for each item in sqlQuery.fields fieldName = item.name if showField(fieldName, varFields) then %> <%=fieldName%>
<% else %> <%=fieldName%>
<% end if next %>

<%=numRecords%> records found. Showing the first <%=varNumResults%> results.

<% for each item in sqlQuery.fields numFields = numFields + 1 fieldName = item.name if showField(fieldName, varFields) then %> <% end if next %> <% stopLoop = false while (NOT sqlQuery.EOF) AND (NOT stopLoop) onRec = onRec + 1 if onRec mod 2 then bgColor = "#FFFFFF" else bgColor = "#CCCCCC" end if %> <% for each item in sqlQuery.fields fieldName = item.name if showField(fieldName, varFields) then %> <% end if next response.flush() if onRec >= varNumResults then stopLoop = true end if sqlQuery.movenext wend if onRec = 0 then %> <% end if %>
#<%=fieldName%>
<%=onRec%><%=item%> 
No records were returned based on your criteria.

<% if (IsObject(sqlQuery)) then set sqlQuery = nothing %>