Fourth pass at adding key files

2024-06-17 22:30:36 +10:00
parent 08eb7b7da2
commit 67ccdbcc34
132 changed files with 11416 additions and 0 deletions
--- a/site/slowtwitch.com/www/secure/database/TableList.asp
+++ b/site/slowtwitch.com/www/secure/database/TableList.asp
@@ -0,0 +1,94 @@
+<%@ LANGUAGE="vbscript" %>
+<%Option Explicit%>
+<%
+'-------------------------------------------------------------------------------
+'Aawsom Technologies
+'Created By: Steve Hunsader
+'Created On: 2/8/02
+'-------------------------------------------------------------------------------
+'Defining Objects
+Dim sTableName
+Dim Products, rsProducts 'These should be renamed for each project
+Dim sQuery, cmdTemp, nFields, ThisRecord, i
+
+'insert table name
+sTableName = "Products"
+
+'If a Query String item "T" exists, then display that table instead.
+If trim(Request.QueryString("T")) <> "" then
+	sTableName  = trim(Request.QueryString("T"))
+End If
+
+sQuery = "SELECT * FROM " & sTableName
+ 
+	'Connection Object to database
+	Set Products=Server.CreateObject("ADODB.Connection")
+	Products.ConnectionTimeout = Session("ConnectionTimeout")
+	Products.CommandTimeout = Session("CommandTimeout")
+	Products.Open Session("ConnectString"), Session("RuntimeUser"), Session("RuntimePass")
+	Set cmdTemp = Server.CreateObject("ADODB.Command")
+	Set rsProducts = Server.CreateObject("ADODB.Recordset")
+	cmdTemp.CommandText = sQuery
+	cmdTemp.CommandType = 1
+	Set cmdTemp.ActiveConnection = Products
+	rsProducts.Open cmdTemp, , 0, 1
+'Response.Write sQuery
+%>
+<html>
+
+<head>
+<title>Table <%=sTableName%></title>
+
+</head>
+
+<body>
+<div align="left">
+
+  <table border="0" cellpadding="6" align="center" width="90%">
+    <tr> 
+      <td> 
+      </td>
+    </tr>
+    <tr> 
+      <td> 
+        <div align="center"> 
+          <table border="0" cellspacing="4" cellpadding="5" width="90%">
+            <tr> 
+              <td> 
+                <div align="center"><font size="3"><b>Table <%=sTableName%></b></font></div>
+              </td>
+            </tr>
+          </table>
+          <br>
+          <table border=0 align="center" cellpadding="0" cellspacing="5" width="50%">
+            <tr>
+              <%'Header On The Table of Field Names%>
+              <%nFields=rsProducts.fields.count -1%>
+		  <%For i=0 to nFields%>
+              <td><b><%=rsProducts(i).name%></b></td>
+              <%Next%>
+            </tr>
+		<%' Loop through the records%>
+		<%Do While NOT rsProducts.EOF%>
+            <tr> 
+		  <%For i = 0 to nFields
+				ThisRecord = rsProducts(i)
+				If IsNull(ThisRecord) Then
+					ThisRecord = "&nbsp;"
+				End If%>
+              <td valign=top> 
+                <div align="left"><%=ThisRecord%></div>
+              </td>
+			<%Next%> 
+</tr>
+			<%rsProducts.movenext%>
+		<%Loop%>
+</table>
+        </div>
+      </td>
+    </tr>
+  </table>
+</div>
+
+</body>
+</html>
--- a/site/slowtwitch.com/www/secure/database/global.asa
+++ b/site/slowtwitch.com/www/secure/database/global.asa
@@ -0,0 +1,14 @@
+<SCRIPT LANGUAGE=VBScript RUNAT=Server>
+Sub Session_OnStart
+
+	'NOTE: The database name must be assigned at the end of the line below.
+       Session("ConnectString") = "DRIVER={SQL Server};SERVER=SQL2;UID=Webuser;APP=Microsoft(R) Windows NT(TM) Operating System;WSID=P150;DATABASE=****YourDatabase****"
+       Session("ConnectionTimeout") = 15
+       Session("CommandTimeout") = 30
+       Session("RuntimeUser") = "Webuser"
+       Session("RuntimePass") = "Webuser"
+
+End Sub
+</SCRIPT>
+
+