JakeMAN's Chunks-O-Code!

JakeMAN's Chunks-O-Code!
(Database-Driven, then stored and displayed from a dynamic array. Why? Because I rock.)

Code
Generic Code for .asp pages!
Note Pad
Encryption / Decryption
Table Builder
Color Wheel
Window Pop-Up Maker
Convert HTML to ASP
Convert HTML to JavaScript
View any SQL database table!
JMail Manual

- - - V i e w C o d e - - -

	> • > • > • >
V • V • V • V	------------------ Create a Dynamically Colored HTML Table Box ------------------ '--- BOX SYNTAX 'Call Box(n,c,w,h,fc,bc,a,vh,va) '--- BOX PROPERTIES: ' n = Heading (Ex. "<font color=#FFFFFF>:: Heading</font>") ' c = Content filename (Ex. "content/file.htm") ' w = Width (Ex. 420) ' h = Height (Ex. 0) NOTE: Box will vertically stretch to match lentgh of content. ' fc = Box Forground Color (Ex. "#A6012C") ' bc = Box Background Color (Ex. "#DEDEDE") ' a = Box Alignment (Ex. "center") ' vh = Header height (Ex. 30) ' va = Header valign (Ex. "middle", "top", etc.) Function Box(n,c,w,h,fc,bc,a,vh,va) Dim HTML boxProp(0) = n '---Heading if InStr(1,LCASE(c),".asp")>0 then boxProp(1) = false '--- Content filename (.asp page) else boxProp(1) = getmyfile(c) '---Content filename end if if InStr(1,w,"%")>1 then boxProp(2) = CStr(Int(Trim(Replace(w,"%","")))-5) & "%" '---Width elseif isNumeric(w) = true then if w > 20 then boxProp(2) = (w-20) '---Width else boxProp(2) = w '---Width end if else boxProp(2) = 300 '---Default Width if passed width is bogus - shouldn't happen. end if boxProp(3) = h '---Global Height boxProp(4) = fc '---Box Forground Color boxProp(5) = bc '---Box Background Color boxProp(6) = "align=" & a '---Box Global Alignment if Len(va)>0 then boxProp(7) = vh '--- Heading Vertical Height else boxProp(7) =10 '--- Default Heading Vertical Height end if boxProp(8) = va '--- Heading Vertical Alignment if InStr(1,w,"%")>1 then Response.Write "<TABLE " & boxProp(6) & " WIDTH=""" & boxProp(2) & """ BORDER=0 CELLPADDING=0 CELLSPACING=0 ID=""Box"">" boxProp(2) = "100%" else Response.Write "<TABLE " & boxProp(6) & " BORDER=0 CELLPADDING=0 CELLSPACING=0 ID=""Box"">" end if %> <TR><TD valign="top" COLSPAN=2 bgcolor="<%=boxProp(4)%>" WIDTH=10 HEIGHT=<%=boxProp(7) %>> <%BoxCorner(1) '--- TOP LEFT CORNER%></TD> <TD WIDTH=<%=boxProp(2)%> HEIGHT=<%=boxProp(7) %> valign="<%=boxProp(8)%>" BGCOLOR=<%=boxProp(4)%> id="TOP_COLUMN"> <font face="verdana,arial,helvetica" size=2> <B><nobr><%=boxProp(0)) '---HEADING%></nobr></B></font></TD> <TD valign="top" COLSPAN=2 bgcolor="<%=boxProp(4)%>" WIDTH=10 HEIGHT=<%=boxProp(7) %>> <%BoxCorner(2) '--- TOP RIGHT CORNER%></TD> </TR><TR> <TD bgcolor="<%=boxProp(4)%>"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=<%=boxProp(3)%> ALT=""></TD> <TD WIDTH=9 HEIGHT=<%=boxProp(3)%> VALIGN=top BGCOLOR=<%=boxProp(5)%> id="LEFT_COLUMN"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=<%=boxProp(3)%> ALT=""></TD> <TD WIDTH=<%=boxProp(2)%> HEIGHT=<%=boxProp(3)%> VALIGN=top BGCOLOR=<%=boxProp(5)%>> <!--<font face="verdana,arial,helvetica" size=2>--> <%'--- MAIN CONTENT if boxProp(1) = false then '--- .asp page Server.Execute(c) else '--- text or html page Response.Write "<BR>" & boxProp(1) end if %> <!--</font>--></TD> <TD WIDTH=9 HEIGHT=<%=boxProp(3)%> VALIGN=top BGCOLOR=<%=boxProp(5)%> id="RIGHT_COLUMN"> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=<%=boxProp(3)%> ALT=""></TD> <TD BGCOLOR=<%=boxProp(4)%>><IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=<%=boxProp(3)%> ALT=""></TD> </TR><TR> <TD COLSPAN=2 ROWSPAN=2 WIDTH=10 HEIGHT=10> <%BoxCorner(3) '--- BOTTOM LEFT CORNER%></TD> <TD WIDTH=<%=boxProp(2)%> HEIGHT=9 BGCOLOR=<%=boxProp(5)) '--- BOTTOM%> id="BOTTOM_COLUMN"><IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=9 ALT=""></TD> <TD COLSPAN=2 ROWSPAN=2 WIDTH=10 HEIGHT=10> <%BoxCorner(4) '--- BOTTOM RIGHT CORNER%></TD> </TR><TR> <TD BGCOLOR=<%=boxProp(4)%>> <IMG SRC="images/spacer.gif" WIDTH=<%=boxProp(2)%> HEIGHT=1 ALT=""></TD> </TR></TABLE> <% End Function ------------------------------------------------- ------------------ Create a Dynamically Colored HTML Table Box Corner ------------------ Function BoxCorner(i) '--- BoxCorner Function for: Function Box(n,c,w,h,fc,bc,a) '--- MUST BE CALLED FROM: Function Box(n,c,w,h,fc,bc,a) Const A = 10 Const B = 11 Const C = 12 Const D = 13 Const E = 14 Const F = 15 Dim Red(5), Green(5), Blue(5), temp Red(0) = Mid(boxProp(4),2,2) '--- fg (hex) Red(1) = Mid(boxProp(5),2,2) '--- bg (hex) Red(2) = CInt(Eval(Mid(Red(0),1,1))16) + CInt(Eval(Mid(Red(0),2,1))) '--- (numeric - base 10) temp = Int(Int(255-Red(2))/3) Red(3) = Int(Int(Red(2))+temp) Red(4) = Int(Red(3)+temp) Red(3) = Hex(Red(3)) Red(4) = Hex(Red(4)) If LEN(Red(3)) = 1 then Red(3) = "0" & Red(3) End If If LEN(Red(4)) = 1 then Red(4) = "0" & Red(4) End If Green(0) = Mid(boxProp(4),4,2) '--- fg (hex) Green(1) = Mid(boxProp(5),4,2) '--- bg (hex) Green(2) = CInt(Eval(Mid(Green(0),1,1))16) + CInt(Eval(Mid(Green(0),2,1))) '--- (numeric - base 10) temp = Int(Int(255-Green(2))/3) Green(3) = Int(Int(Green(2))+temp) Green(4) = Int(Green(3)+temp) Green(3) = Hex(Green(3)) Green(4) = Hex(Green(4)) If LEN(Green(3)) = 1 then Green(3) = "0" & Green(3) End If If LEN(Green(4)) = 1 then Green(4) = "0" & Green(4) End If Blue(0) = Mid(boxProp(4),6,2) '--- fg (hex) Blue(1) = Mid(boxProp(5),6,2) '--- bg (hex) Blue(2) = CInt(Eval(Mid(Blue(0),1,1))16) + CInt(Eval(Mid(Blue(0),2,1))) '--- (numeric - base 10) temp = Int(Int(255-Blue(2))/3) Blue(3) = Int(Int(Blue(2))+temp) Blue(4) = Int(Blue(3)+temp) Blue(3) = Hex(Blue(3)) Blue(4) = Hex(Blue(4)) If LEN(Blue(3)) = 1 then Blue(3) = "0" & Blue(3) End If If LEN(Blue(4)) = 1 then Blue(4) = "0" & Blue(4) End If '--- TOP CORNER COLORS cColor(0) = "#000000" '--- Black cColor(1) = "#FFFFFF" '--- White cColor(2) = "#" & Red(4) & Green(4) & Blue(4) '--- Light - part 1 of fade cColor(3) = "#" & Red(3) & Green(3) & Blue(3) '--- Med Light - center anti-aliasing cColor(4) = "#" & Red(3) & Green(3) & Blue(3) '--- Dark - part 2 of fade cColor(5) = boxProp(4) '--- Foreground color '--------------------------------------------------------------- Red(0) = Mid(boxProp(4),2,2) '--- fg (hex) Red(1) = Mid(boxProp(5),2,2) '--- bg (hex) Red(2) = CInt(Eval(Mid(Red(0),1,1))16) + CInt(Eval(Mid(Red(0),2,1))) '--- (numeric - base 10) temp = Int(Int(255-Red(2))/4) Red(3) = Int(Int(Red(2))+temp) Red(4) = Int(Red(3)+temp) Red(5) = Int(Red(4)+temp) Red(3) = Hex(Red(3)) Red(4) = Hex(Red(4)) Red(5) = Hex(Red(5)) If LEN(Red(3)) = 1 then Red(3) = "0" & Red(3) End If If LEN(Red(4)) = 1 then Red(4) = "0" & Red(4) End If If LEN(Red(5)) = 1 then Red(5) = "0" & Red(5) End If Green(0) = Mid(boxProp(4),4,2) '--- fg (hex) Green(1) = Mid(boxProp(5),4,2) '--- bg (hex) Green(2) = CInt(Eval(Mid(Green(0),1,1))16) + CInt(Eval(Mid(Green(0),2,1))) '--- (numeric - base 10) temp = Int(Int(255-Green(2))/4) Green(3) = Int(Int(Green(2))+temp) Green(4) = Int(Green(3)+temp) Green(5) = Int(Green(4)+temp) Green(3) = Hex(Green(3)) Green(4) = Hex(Green(4)) Green(5) = Hex(Green(5)) If LEN(Green(3)) = 1 then Green(3) = "0" & Green(3) End If If LEN(Green(4)) = 1 then Green(4) = "0" & Green(4) End If If LEN(Green(5)) = 1 then Green(5) = "0" & Green(5) End If Blue(0) = Mid(boxProp(4),6,2) '--- fg (hex) Blue(1) = Mid(boxProp(5),6,2) '--- bg (hex) Blue(2) = CInt(Eval(Mid(Blue(0),1,1))16) + CInt(Eval(Mid(Blue(0),2,1))) '--- (numeric - base 10) temp = Int(Int(255-Blue(2))/4) Blue(3) = Int(Int(Blue(2))+temp) Blue(4) = Int(Blue(3)+temp) Blue(5) = Int(Blue(4)+temp) Blue(3) = Hex(Blue(3)) Blue(4) = Hex(Blue(4)) Blue(5) = Hex(Blue(5)) If LEN(Blue(3)) = 1 then Blue(3) = "0" & Blue(3) End If If LEN(Blue(4)) = 1 then Blue(4) = "0" & Blue(4) End If If LEN(Blue(5)) = 1 then Blue(5) = "0" & Blue(5) End If '--- ADD CODE LATER TO BLEND THE FOREGROUND COLOR ' WITH THE BACKGROUND COLOR TO SIMULATE ANTI-ALIASING '--- NOTE: CURRENT CODE IS CLOSE ENOUGH TO FAKE IT, ' HOWEVER, IF BACKGROUND COLOR IS DARKER THAN ' FORGROUND COLOR, IT WILL LOOK EVER-SO-SLIGHTLY OFF. ' (2 PIXELS WILL BE LIGHT WHEN THEY SHOULD BE DARK) -Jake '--- BOTTOM CORNER COLORS cColor(6) = "#FFFFFF" '--- cColor(7) = "#" & Red(3) & Green(3) & Blue(3) '--- cColor(8) = boxProp(4) '--- cColor(9) = "#" & Red(4) & Green(4) & Blue(4) '--- cColor(10) = "#" & Red(5) & Green(5) & Blue(5) '--- cColor(11) = boxProp(4) '--- cColor(12) = "#" & Red(5) & Green(5) & Blue(5) '--- cColor(13) = "#" & Red(5) & Green(5) & Blue(5) '--- '------------------------------------------------------------ Select Case i Case 1 %> <!-- TOP LEFT --> <TABLE WIDTH=10 BORDER=0 CELLPADDING=0 CELLSPACING=0 ID="Table5"> <TR> <TD BGCOLOR=<%=cColor(1)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(1)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(2)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(4)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD ROWSPAN=5 BGCOLOR=<%=cColor(5)%>> <IMG SRC="images/spacer.gif" WIDTH=6 HEIGHT=10 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(1)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(3)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD COLSPAN=2 ROWSPAN=4 BGCOLOR=<%=cColor(5)%>> <IMG SRC="images/spacer.gif" WIDTH=2 HEIGHT=9 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(2)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD ROWSPAN=3 BGCOLOR=<%=cColor(5)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=8 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(4)%> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(5)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=6 ALT=""></TD> </TR> </TABLE> <% Case 2 %> <!-- TOP RIGHT --> <TABLE WIDTH=10 BORDER=0 CELLPADDING=0 CELLSPACING=0 ID="Table6"> <TR> <TD BGCOLOR=<%=cColor(5)%>> <IMG SRC="images/spacer.gif" WIDTH=6 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(4)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(2)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(1)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(1)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD COLSPAN=3 BGCOLOR=<%=cColor(5)%>> <IMG SRC="images/spacer.gif" WIDTH=8 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(4)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(1)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD COLSPAN=4 ROWSPAN=2 BGCOLOR=<%=cColor(5)%>> <IMG SRC="images/spacer.gif" WIDTH=9 HEIGHT=2 ALT=""></TD> <TD BGCOLOR=<%=cColor(2)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(4)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD COLSPAN=5 BGCOLOR=<%=cColor(5)%>> <IMG SRC="images/spacer.gif" WIDTH=10 HEIGHT=6 ALT=""></TD> </TR> </TABLE> <% Case 3 %> <!-- BOTTOM LEFT --> <TABLE WIDTH=10 BORDER=0 CELLPADDING=0 CELLSPACING=0 ID="Table7"> <TR> <TD BGCOLOR=<%=cColor(11)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=5 ALT=""></TD> <TD COLSPAN=5 BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=9 HEIGHT=5 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(7)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD COLSPAN=4 ROWSPAN=2 BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=8 HEIGHT=2 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(9)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(13)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(10)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(7)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD COLSPAN=3 BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=7 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(6)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(9)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(7)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(13)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=5 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD COLSPAN=2 BGCOLOR=<%=cColor(6)%>> <IMG SRC="images/spacer.gif" WIDTH=2 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(10)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(9)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(7)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(11)%>> <IMG SRC="images/spacer.gif" WIDTH=5 HEIGHT=1 ALT=""></TD> </TR> </TABLE> <% Case 4 %> <!-- BOTTOM RIGHT --> <TABLE WIDTH=10 BORDER=0 CELLPADDING=0 CELLSPACING=0 ID="Table8"> <TR> <TD ROWSPAN=5 BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=5 HEIGHT=9 ALT=""></TD> <TD COLSPAN=2 ROWSPAN=4 BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=2 HEIGHT=8 ALT=""></TD> <TD ROWSPAN=3 BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=7 ALT=""></TD> <TD BGCOLOR=<%=boxProp(5)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=5 ALT=""></TD> <TD BGCOLOR=<%=cColor(11)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=5 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(12)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(7)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(13)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(9)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(12)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(7)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(10)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(12)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(13)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(7)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(9)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD ROWSPAN=2 BGCOLOR=<%=cColor(6)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=2 ALT=""></TD> </TR> <TR> <TD BGCOLOR=<%=cColor(11)%>> <IMG SRC="images/spacer.gif" WIDTH=5 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(7)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(9)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(10)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> <TD BGCOLOR=<%=cColor(6)%>> <IMG SRC="images/spacer.gif" WIDTH=1 HEIGHT=1 ALT=""></TD> </TR> </TABLE> <% Case Else End Select End Function ------------------------------------------------- ------------------ IsNumeric function (javascript) ------------------ function IsNumeric(x){ if(/\D/g.test(x)){ alert('Please enter only numbers in this field!'); return false; } } ------------------------------------------------- ------------------ loads and returns any file via a QueryString ------------------ If LEN(Request.QueryString("file")) > 0 then Response.AddHeader "content-disposition","attachment; filename=" & Server.MapPath(Request.QueryString("file")) Response.BinaryWrite(getmyfile(Request.QueryString("file"))) Response.End End If Function getmyfile(myfile) Dim mfo, mfc, mf SET mfo = Server.CreateObject("Scripting.FileSystemObject") mfc = mfo.FileExists(Server.MapPath(myfile)) If mfc = true then SET mf = mfo.GetFile(myfile) getmyfile = mf mf.Close SET mf = nothing SET mfo = nothing Else getmyfile = "ERROR: The file """ & myfile & """ does not exist on this server." End If End Function ------------------------------------------------- ------------------ Select Case ------------------ function selectcase(whichOne) { switch(whichOne) { case 1: // Code goes here! break; case 2: // Code goes here! break; case 3: // Code goes here! break; } } ------------------------------------------------- ------------------ Disable Right-Click Menu ------------------ <BODY oncontextmenu="return false"> ------------------------------------------------- ------------------ Trim function for javascript! ------------------ function trim(inputStringTrim) { fixedTrim = ""; lastCh = " "; for (x=0; x < inputStringTrim.length; x++) { ch = inputStringTrim.charAt(x); if ((ch != " ") \|\| (lastCh != " ")) { fixedTrim += ch; } lastCh = ch; } if (fixedTrim.charAt(fixedTrim.length - 1) == " ") { fixedTrim = fixedTrim.substring(0, fixedTrim.length - 1); } return fixedTrim } ------------------------------------------------- ------------------ Display Image from database ------------------ <%@ Language=VBScript %> <% 'Note: To use this page, copy it to your website. 'You can name it what you like, but for this example, we'll name this page 'img.asp'. 'Next, on any other page of your site, just use the standard <img src=""> tag, 'but point the img src to this page with a querystring. 'Ex. <img src="img.asp?name=IMAGE_NAME"> Dim db, rs, SQL Const DSN = "Provider=SQLOLEDB.1;Password=PASSWORD;Persist Security Info=True;User ID=USER;Initial Catalog=DATABASE;Data Source=DATASOURCE" SQL = "SELECT * FROM DATABASE_TABLE where FileName = '" & Request.QueryString("name") & "'" Set db = Server.CreateObject("ADODB.Connection") db.Open DSN Set rs = db.Execute(SQL) If isNull(rs("FileName")) = False or NOT rs.eof then Response.ContentType = "application/octet-stream" Response.AddHeader "Content-Disposition", "attachment;filename=" & Trim(rs("FileName")) Response.AddHeader "Content-Length", rs("filesize") Response.BinaryWrite rs("image_blob") End If Set rs = nothing %> ------------------------------------------------- ------------------ Kill spaces in a string ------------------ function killspace(el){ myitem = el.value; myitem = myitem.replace(/\r/g, ""); //remove all spaces myitem = myitem.replace(/[^ A-Za-z0-9`~!@#\$%\^&\\(\)-_=\+\\\\|\]\[\}\{'";:\?\/\.>,<]/g, ""); myitem = myitem.replace(/'/g, ""); myitem = myitem.replace(/ +/g, ""); //remove all spaces myitem = myitem.replace(/^\s/g, ""); myitem = myitem.replace(/\s$/g, ""); if (myitem == ' '){ myitem = ''; } return myitem; } ------------------------------------------------- ------------------ Page transistion ------------------ <meta http-equiv="Page-Enter" content="blendTrans(Duration=1.0)"> ------------------------------------------------- ------------------ More JMail stuff ------------------ Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp.mail.com" JMail.Sender = Senderemail JMail.Subject = Subject JMail.AddRecipient Recipient JMail.Body = Body JMail.Priority = 3 JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") JMail.Logging = True JMail.Execute ------------------------------------------------- ------------------ JMail Email ------------------ Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.Silent = True JMail.ServerAddress = "mail.mailserver.com" JMail.Sender = "email@email.com" JMail.Subject = "subject" JMail.AddRecipient "email@email.com" JMail.HTMLBody = "" JMail.Execute ------------------------------------------------- ------------------ Velocity Conversion (from javascript.com) ------------------ <HTML> <HEAD> <SCRIPT LANGUAGE="JavaScript"> <!-- function initArray() { this.length = initArray.arguments.length; for (var i = 0; i < this.length; i++) { this[i] = initArray.arguments[i]; } } var isn07 = new initArray("4b","5b","8b","8b"); isn07[0] = "~01~10.01~20.6~30.036~40.03281~51.9685~60.02237~70.01944~8"; isn07[1] = "~0100~11~260~33.6~43.281~5196.85~62.237~71.944~8"; isn07[2] = "~01.66667~10.016667~21~30.06~40.05468~53.281~60.03728~70.03240~8"; isn07[3] = "~027.78~10.2778~216.6667~31~40.9113~554.68~60.6214~70.53996~8"; isn07[4] = "~030.48~10.3048~218.29~31.097~41~560~60.68181818~70.59248~8"; isn07[5] = "~00.5080~10.00508~20.3048~30.01829~40.016667~51~60.01136~70.00987~8"; isn07[6] = "~044.7~10.447~226.82~31.609~41.467~588~61~70.86898~8"; isn07[7] = "~051.44~10.5144~230.87~31.852~41.688~5101.3~61.151~71~8"; function velCon() { for (var i = 0; i < 8; i++) { if (document.isnform07.veli[i].checked) { veli = i; velinm = document.isnform07.veli[i].value; } } for (var i = 0; i < 8; i++) { if (document.isnform07.velo[i].checked) { velo = i; velonm = document.isnform07.velo[i].value; } } useri = document.isnform07.velinp.value; if (useri == 0) { useri = 1; document.isnform07.velinp.value = useri; } mulstr = isn07[veli]; picker = "~" + velo; ps = mulstr.indexOf(picker); velo++; picker = "~" + velo; ps1 = mulstr.indexOf(picker); mulstr = mulstr.substring((ps + 2),ps1); ps = (useri mulstr); picker = ""; picker += ps ps1 = picker.indexOf("."); if (ps1 > -1) { ps = ps + .000001; picker = ""; picker += ps; ps2 = picker.indexOf("e"); if (ps2 < 0) { picker = picker.substring(0,(ps1 + 6)); } if (ps2 == 0 \|\| ps2 > 0) { ps3 = picker.indexOf("00000"); if (ps3 > 0) { picker = picker.substring(0,ps3 + 1) + picker.substring(ps2,picker.length); } } } picker = useri + " " + velinm + " = " + picker + " " + velonm document.isnform07.velout.value = picker; } // End --> </SCRIPT> </HEAD> <BODY> <CENTER> <TABLE BORDER=1 WIDTH=486> <tr><TD COLSPAN=10 ALIGN=CENTER><FORM NAME="isnform07"><FONT COLOR="blue"><B>Velocity Equivalents</B></TD></tr> <tr><TD COLSPAN=10 VALIGN=TOP><FONT SIZE=1><B>First, type the number you wish converted here: </B> <INPUT TYPE="text" NAME="velinp" SIZE=30 VALUE="" onChange="velCon();"><BR> <B>Then, click radio buttons for desired conversion:</FONT></TD></tr> <tr><TD ALIGN=CENTER><FONT COLOR="red" SIZE=1><B>Fm:</B></FONT></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>cm/sec<BR> <INPUT TYPE="radio" NAME="veli" VALUE="cm/sec" CHECKED onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>m/sec<BR> <INPUT TYPE="radio" NAME="veli" VALUE="m/sec" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>m/min<BR> <INPUT TYPE="radio" NAME="veli" VALUE="m/min" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>km/hr<BR> <INPUT TYPE="radio" NAME="veli" VALUE="km/hr" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>ft/sec<BR> <INPUT TYPE="radio" NAME="veli" VALUE="ft/sec" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>ft/min<BR> <INPUT TYPE="radio" NAME="veli" VALUE="ft/min" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>mi/hr<BR> <INPUT TYPE="radio" NAME="veli" VALUE="mi/hr" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>Knots<BR> <INPUT TYPE="radio" NAME="veli" VALUE="Knots" onClick = ""></TD> <tr><TD ALIGN=CENTER><FONT COLOR="red" SIZE=1><B>To:</B></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>cm/sec<BR> <INPUT TYPE="radio" NAME="velo" VALUE="cm/sec" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>m/sec<BR> <INPUT TYPE="radio" NAME="velo" VALUE="m/sec" CHECKED onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>m/min<BR> <INPUT TYPE="radio" NAME="velo" VALUE="m/min" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>km/hr<BR> <INPUT TYPE="radio" NAME="velo" VALUE="km/hr" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>ft/sec<BR> <INPUT TYPE="radio" NAME="velo" VALUE="ft/sec" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>ft/min<BR> <INPUT TYPE="radio" NAME="velo" VALUE="ft/min" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>mi/hr<BR> <INPUT TYPE="radio" NAME="velo" VALUE="mi/hr" onClick = ""></TD> <TD ALIGN=CENTER VALIGN=TOP><FONT SIZE=1>Knots<BR> <INPUT TYPE="radio" NAME="velo" VALUE="Knots" onClick = ""></TD> <tr><TD COLSPAN=10 ALIGN=CENTER VALIGN=TOP><FONT SIZE=1> <INPUT TYPE="button" VALUE=" Click for Conversion " onClick="velCon();"> <INPUT TYPE="reset" VALUE=" Reset Values "><BR> <INPUT TYPE="text" NAME="velout" SIZE=60 VALUE="" onClick="velCon();"> </FONT></TD></tr> </TABLE></FORM> </CENTER> </BODY> </HTML> ------------------------------------------------- ------------------ Makes XP-style form elements look like standard ones ------------------ <META HTTP-EQUIV="MSThemeCompatible" Content="Yes"> ------------------------------------------------- ------------------ Using TOP statement with a var in a stored proc ------------------ @QTY DECLARE @vari INT DECLARE @sql VARCHAR(1000) SET @vari = @QTY SET @sql = 'SELECT TOP ' + CAST(@vari AS VARCHAR) + ' field1, field2 FROM table1' EXEC(@sql) ------------------------------------------------- ------------------ CDONTS Email ------------------ Set sendmail = Server.CreateObject("CDONTS.NewMail") sendmail.From = "email@email.com" sendmail.To = "email@email.com" sendmail.CC = "email@email.com" sendmail.BCC = "email@email.com" sendmail.Subject = "Email Subject" sendmail.Value("Reply-To") = "Some dude<email@email.com>" sendmail.Body = vbcrlf & "Email Body Text" & vbcrlf sendmail.BodyFormat = 1 '0=HTML, 1=plain text (default) sendmail.AttachFile("D:\file.jpg") sendmail.MailFormat = 1 '0=MIME, 1=uniterrupted plain text (default) sendmail.Importance = 1 '0=low, 1=normal (default), 2=high priority sendmail.Send Set sendmail = Nothing ------------------------------------------------- ------------------ Embed Flash Streaming Audio! ------------------ <SCRIPT> var fname = filename() // document.write("<OBJECT classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\" codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0\" WIDTH=75 HEIGHT=26> <PARAM NAME=movie VALUE=\"",fname,"\"> <PARAM NAME=loop VALUE=false> <PARAM NAME=quality VALUE=high> <PARAM NAME=bgcolor VALUE=#FFFFFF> <EMBED src=\"",fname,"\" loop=false quality=high bgcolor=#FFFFFF WIDTH=75 HEIGHT=26 TYPE=\"application/x-shockwave-flash\" PLUGINSPAGE=\"http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash\"> </EMBED> </OBJECT>") </SCRIPT> ------------------------------------------------- ------------------ load text file into a variable ------------------ Function getfile(myfile) Dim mfo, mfc, mf SET mfo = Server.CreateObject("Scripting.FileSystemObject") mfc = mfo.FileExists(Server.MapPath(myfile)) If mfc = true then SET mf = mfo.OpenTextFile(Server.MapPath(myfile),1,0) getfile = mf.ReadAll mf.Close SET mf = nothing SET mfo = nothing Else getfile = "ERROR: The file """ & myfile & """ does not exist on this server." End If End Function ------------------------------------------------- ------------------ Another Way of Sending Email ------------------ <%@ Import Namespace="System.Web.Mail" %> <script language="c#" runat="server"> private void Page_Load(object sender, System.EventArgs e) { String lcNaam = Request.Form["name"]; String lcMail = Request.Form["email"]; String lcMessage = Request.Form["message"]; string Tabel = "<table><tr><td><img src='http://www.Xolutions.be/oim/images/Efront.jpg'></td></tr>"; Tabel += "<tr><td valign=top width=343 height=257 Background='http://www.Xolutions.be/oim/images/Eback.jpg'><table cellpadding=5>"; Tabel += "<td width=170 valign=top><font face=Verdana Size=2><b>" + lcMessage + "</b></font></td><td> </td></table></td></tr></table>"; MailMessage msg = new MailMessage(); msg.To = lcMail; msg.From = lcNaam; msg.Subject = "You have received an Ecard from " + lcNaam; msg.Body = Tabel; msg.BodyFormat = MailFormat.Html; SmtpMail.Send(msg); } </script> ------------------------------------------------- ------------------ Make text go back and forth - marquee ------------------ <marquee align="middle" behavior="alternate" scrolldelay="0">TEXT</marquee> ------------------------------------------------- ------------------ MySQL Connect String ------------------ driver={MySQL};server=localhost;database=;uid=;pwd=; ------------------------------------------------- ------------------ Connection Tips ------------------ ADO lets you use ActiveX scripting to connect to your datasource. You also can use ActiveX scripting to customize the properties and methods of an ActiveX Data Object. ADO supports transactions, cursors, error handling, and the use of stored procedures. When using ADO, be sure to keep these three tips in mind: 1. Create the recordset object if you are executing a single command once. 2. Create the command object if you are executing the same command multiple times. 3. Create the connection object if you are executing multiple commands. ------------------------------------------------- ------------------ Cache Control ------------------ By default, IIS sends web pages with headers that tell proxy servers not to cache their documents. If you need to change this, you can by placing the following line of code at the top of your ASP page: <% Response.CacheControl="Public" %> This will allow all proxy servers that retrieve the page to save it in their local memory and improve the speed at which it can be retrieved. ------------------------------------------------- ------------------ Generic asp form ------------------ <form name="" onSubmit="" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>"> <input type="text" name="" value="" size="20"> <input type="submit" value=""> </form> ------------------------------------------------- ------------------ List All Tables in Database (SQL 6.5 and up) ------------------ sp_MSforeachtable @command1 = "PRINT REPLICATE('',DATALENGTH('?'))", @command2 = "SELECT '?' = COUNT() FROM ?" ------------------------------------------------- ------------------ Timed Bring-To-Front ------------------ <SCRIPT LANGUAGE="JavaScript"> <!-- setTimeout('self.focus()',30000); //--> </SCRIPT> ------------------------------------------------- ------------------ Chars used in binhex ------------------ !"#$%&'()+,- 012345689@ABCDEFGHIJKLMNPQRSTUVXYZ[`abcdefhijklmpqr ------------------------------------------------- ------------------ Auto Number Format ------------------ // Auto Number Format function currencyFormat(fld, milSep, decSep, e) { var sep = 0; var key = ''; var i = j = 0; var len = len2 = 0; var strCheck = '0123456789'; var aux = aux2 = ''; var whichCode = (window.Event) ? e.which : e.keyCode; if (whichCode == 13) return true; // Enter key = String.fromCharCode(whichCode); // Get key value from key code if (strCheck.indexOf(key) == -1) return false; // Not a valid key len = fld.value.length; for(i = 0; i < len; i++) if ((fld.value.charAt(i) != '0') && (fld.value.charAt(i) != decSep)) break; aux = ''; for(; i < len; i++) if (strCheck.indexOf(fld.value.charAt(i))!=-1) aux += fld.value.charAt(i); aux += key; len = aux.length; if (len == 0) fld.value = ''; if (len == 1) fld.value = '0'+ decSep + '0' + aux; if (len == 2) fld.value = '0'+ decSep + aux; if (len > 2) { aux2 = ''; for (j = 0, i = len - 3; i >= 0; i--) { if (j == 3) { aux2 += milSep; j = 0; } aux2 += aux.charAt(i); j++; } fld.value = ''; len2 = aux2.length; for (i = len2 - 1; i >= 0; i--) fld.value += aux2.charAt(i); fld.value += decSep + aux.substr(len - 2, len); } return false; } <form> Enter Value: <input type=text name=test length=15 onKeyPress="return(currencyFormat(this,',','.',event))"> </form> ------------------------------------------------- ------------------ Secret Word ------------------ // Type the secret word and be transfered to a new URL var SpecialWord = "jakeman", SpecialUrl = "http://www.jakeman.com", SpecialLetter = 0; function getKey(keyStroke) { var isNetscape=(document.layers); var eventChooser = (isNetscape) ? keyStroke.which : event.keyCode; var which = String.fromCharCode(eventChooser).toLowerCase(); if (which == SpecialWord.charAt(SpecialLetter)) { SpecialLetter++; if (SpecialLetter == SpecialWord.length) window.location = SpecialUrl; } else SpecialLetter = 0; } document.onkeypress = getKey; ------------------------------------------------- ------------------ only allows numbers to be typed ------------------ function numbersonly() { if (event.keyCode < 48 \|\| event.keyCode > 57) return false; } <input type=text value="0" name="mynumber" onkeypress="return numbersonly()"> ------------------------------------------------- ------------------ Simple Password Protection ------------------ 'Copy this to your Global.asa file located in the root dir. 'Be sure to set Application("password") equal to a real password! '----------------------------------------------------------- <SCRIPT LANGUAGE=VBScript RUNAT=Server> SUB Application_OnStart Application("password") = "secret" END SUB </SCRIPT> 'Copy this to begining of any page you'd like to password protect. '----------------------------------------------------------------------- <% Dim password password = Application("password") If TRIM(Request.Form("pass")) = password then Session("Login") = "yes" Else If Session("Login") <> "yes" then If Cint(Request.Form("counter")) = 3 then Response.Redirect("../index.asp") End If %> <form name="topteam" method="post" action=""> <input type="hidden" name="pass" value=""> <input type="hidden" name="counter" value="<% If Request.Form("counter") = "" then Response.Write "1" Else Response.Write Request.Form("counter") End If %>"> </form> <script language="javascript"> <!-- var result, mycount mycount = document.topteam.counter.value; if (mycount > 1){ result = window.prompt("\nPlease enter the password. (Attempt " + mycount + " of 3)",""); }else { result = window.prompt("\nPlease enter the password.",""); } document.topteam.pass.value = result; document.topteam.counter.value = parseInt(document.topteam.counter.value) + 1; document.topteam.submit(); //--> </script> <% Response.End End If End If %> ------------------------------------------------- ------------------ Cam Image updater ------------------ <script language="javascript"> <!-- var x = 30 var y = 1 var campic = new Image(); var now = new Date(); var nocache = parseInt(now.getTime() / 1000); delete now; function webcam() { if (document.images['chillcam']) { campic.src = './DIR/IMAGE.jpg?' + nocache; //YOU MUST EDIT THIS LINE window.status = 'New cam image in ' + x + ' seconds'; if (x==0){ //Swap new cam pic document.images['chillcam'].src = campic.src; window.status = 'New cam image loaded!'; nocache += 1; x = 30; x = x - y; timerID = setTimeout("webcam()", 1000); } } //--> </script> ------------------------------------------------- ------------------ Browser & Platform Checker ------------------ <SCRIPT LANGUAGE="JavaScript"> <!-- NS4 = (document.layers) ? 1 : 0; IE4 = (document.all) ? 1 : 0; ver4 = (NS4 \|\| IE4) ? 1 : 0; isMac = (navigator.appVersion.indexOf("Mac") != -1) ? 1 : 0; isMenu = (NS4 \|\| (IE4 && !isMac)) ? 1 : 0; function popUp(){return}; function popDown(){return}; if (!ver4) event = null; //--> </SCRIPT> ------------------------------------------------- ------------------ A Href Title ------------------ <a href="" title="This shows up like an ALT tag for an image">word</a> ------------------------------------------------- ------------------ OnMouseOver for buttons! ------------------ function change(color){ var el=event.srcElement if (el.tagName=="INPUT"&&el.type=="submit") event.srcElement.style.backgroundColor=color } function buttonchange(color){ var el=event.srcElement if (el.tagName=="INPUT"&&el.type=="button") event.srcElement.style.backgroundColor=color } <input type="Submit" value="Submit" onMouseover="change('#FFFFFF')" onMouseout="change('#CCCCCC')"> ------------------------------------------------- ------------------ Misc Tags ------------------ <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta http-equiv="Content-Language" content="en-us"> <meta content="text/html; charset=windows-1252" http-equiv="Content-Type"> <meta NAME="description" CONTENT=""> <meta NAME="robots" content="index, follow"> <meta NAME="Mission" CONTENT=""> <meta NAME="rating" CONTENT="general"> <meta NAME="URL" content="http://www.jakeman.com"> <meta NAME="store" content=""> <meta NAME="storename" content=""> <meta NAME="classification" content=""> <meta NAME="dept" content=""> <meta NAME="resource-type" CONTENT="document"> <meta NAME="distribution" CONTENT="global"> <meta NAME="revisit" CONTENT="15 days"> <meta NAME="Site Design" CONTENT=""> <meta NAME="Author" Content="JakeMAN�"> ------------------------------------------------- ------------------ colorize dropdown list ------------------ body {scrollbar-face-color: #FFFFFF; scrollbar-shadow-color: #FFFFFF; scrollbar-highlight-color: #FFFFFF; scrollbar-3dlight-color: #FFFFFF; scrollbar-darkshadow-color:#FFFFFF; scrollbar-track-color: #FFFFFF; scrollbar-arrow-color: #0066CC;} ------------------------------------------------- ------------------ background table img ------------------ TABLE {Background-image: url(image.jpg); Background-repeat: no-repeat} ------------------------------------------------- ------------------ Standard table ------------------ <table cellpadding=0 cellspacing=0 border=0> <tr> <td valign="top" align="center" bgcolor="#FFFFFF"> <font face="verdana,arial,helvetica" size=2> </font></td> </tr> </table> ------------------------------------------------- ------------------ Random number ------------------ //-- Generate a random number between 0 and max. function randomNum(max) { var rNum=NaN while (isNaN(rNum)) { rNum=Math.floor(Math.random()(max)) } return rNum } ------------------------------------------------- ------------------ generic asp form ------------------ <form name="" action="<%= Request.ServerVariables("SCRIPT_NAME") %>" method="post"> </form> ------------------------------------------------- ------------------ Replaces ADOVBS.inc file (add to global.asa) ------------------ <!-- METADATA TYPE="typelib" UUID="00000200-0000-0010-8000-00AA006D2EA4" NAME="ADO Type Library" --> ------------------------------------------------- ------------------ Displays image directly from database - BLOB ------------------ ID = Request.QueryString("ID") Response.Expires = 0 Response.Buffer = TRUE Response.Clear Response.ContentType = "image/gif" Set conn = Server.CreateObject("ADODB.Connection") connPubs.Open "DSN=pubsSQL;UID=pubsuser;PWD=;DATABASE=Pubs" SQLstr = "SELECT logo FROM pub_info WHERE pub_id = '" & ID & "'" Set rsLogo = connPubs.Execute(SQLstr) Response.BinaryWrite rsLogo("logo") rsLogo.Close Set rsLogo = Nothing connPubs.Close Set connPubs = Nothing Response.End ------------------------------------------------- ------------------ Displays data-type requirements of a stored proc ------------------ <%@ LANGUAGE = VBScript %> <!-- #INCLUDE VIRTUAL="http://www.jakeman.com/ADOVBS.INC" --> <HTML> <HEAD><TITLE>Stored Proc Example</TITLE></HEAD> <BODY> <% Set Conn = Server.CreateObject("ADODB.Connection") ' The following line must be changed to reflect your data source info Conn.Open "data source name", "user id", "password" set cmd = Server.CreateObject("ADODB.Command") set cmd.ActiveConnection = Conn ' Specify the name of the stored procedure you wish to call cmd.CommandText = "sp_MyStoredProc" cmd.CommandType = adCmdStoredProc ' Query the server for what the parameters are cmd.Parameters.Refresh %> <Table Border=1> <TR> <TD><B>PARAMETER NAME</B></TD> <TD><B>DATA-TYPE</B></TD> <TD><B>DIRECTION</B></TD> <TD><B>DATA-SIZE</B></TD> </TR> <% For Each param In cmd.Parameters %> <TR> <TD><%= param.name %></TD> <TD><%= param.type %></TD> <TD><%= param.direction %></TD> <TD><%= param.size %></TD> </TR> <% Next Conn.Close %> </TABLE> </BODY> </HTML> ------------------------------------------------- ------------------ Misc Symbols ------------------ & nbsp; = space & #149; = dot & #151; = long hyphen ------------------------------------------------- ------------------ List All Tables in Database (SQL 6.0 only) ------------------ SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE' ORDER BY TABLE_NAME ------------------------------------------------- ------------------ Generic Database Functions ------------------ <script LANGUAGE="VBScript" RUNAT="Server"> Function FUNCTION_NAME() ' Dimension Variables Dim strDSN Dim objParam Dim objCmd strDSN = "DRIVER=SQL Server;UID=JakeMAN;PWD=secret;Address=sql.arc.net,1433;Network=DBMSSOCN;DATABASE=JakeMAN;SERVER=sql.arc.net" ' Create the command object Set objCmd = Server.CreateObject("ADODB.Command") objCmd.ActiveConnection = strDSN objCmd.CommandText = "SQL_GOES_HERE" objCmd.CommandType = adCmdText Set FUNCTION_NAME = objCmd.Execute End Function Function FUNCTION_NAME_STORED_PROC(ITEM1,ITEM2,ITEM3) ' Dimension Variables Dim strDSN Dim objParam Dim objCmd strDSN = "DRIVER=SQL Server;UID=JakeMAN;PWD=secret;Address=sql.arc.net,1433;Network=DBMSSOCN;DATABASE=JakeMAN;SERVER=sql.arc.net" ' Create the command object Set objCmd = Server.CreateObject("ADODB.Command") objCmd.ActiveConnection = strDSN objCmd.CommandText = "STORED_PROC_NAME_GOES_HERE" objCmd.CommandType = adCmdStoredProc Set objParam = objCmd.CreateParameter("@strVarName1", adInteger, adParamInput, 4, ITEM1) 'Integer objCmd.Parameters.Append objParam Set objParam = objCmd.CreateParameter("@strVarName2", adVarChar, adParamInput, 255, ITEM2) 'STRING - VarChar objCmd.Parameters.Append objParam Set objParam = objCmd.CreateParameter("@strVarName3", adLongVarChar, adParamInput, len(ITEM3), ITEM3) 'TEXT/IMAGE Data Type objCmd.Parameters.Append objParam Set FUNCTION_NAME_STORED_PROC = objCmd.Execute End Function Function FUNCTION_NAME_CURSORS(page,pagesize) ' Dimension Variables Dim strDSN Dim objParam Dim objCmd Dim rs strDSN = "DRIVER=SQL Server;UID=JakeMAN;PWD=secret;Address=sql.arc.net,1433;Network=DBMSSOCN;DATABASE=JakeMAN;SERVER=sql.arc.net" ' Create the command object Set objCmd = Server.CreateObject("ADODB.Connection") objCmd.Open strDSN Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic rs.PageSize = pagesize rs.Open "SQL_GOES_HERE",strDSN,1,2 rs.AbsolutePage = page Set FUNCTION_NAME_CURSORS = rs End Function </script> ------------------------------------------------- ------------------ Bulk Copy of one table to another ------------------ *** Here's how to copy the guts from one table to another INSERT INTO MyTable (Column1, Column2) SELECT ForeignKey, Description FROM SomeTable ------------------------------------------------- ------------------ SP - List Table Info ------------------ create PROCEDURE dbo.usp_TableInfo @TableName varchar(255) as print "Table: " + @TableName print "--------------------------" SELECT syscolumns.colorder ColumnID, LEFT(syscolumns.name,20) "Column Name", LEFT(systypes.name, 20) Type, syscolumns.length FROM sysobjects, syscolumns, systypes WHERE sysobjects.id = syscolumns.id AND systypes.xtype = syscolumns.xtype AND sysobjects.name = @TableName ORDER BY syscolumns.colorder go ------------------------------------------------- ------------------ SP - List All Tables in Database ------------------ CREATE PROCEDURE dbo.usp_Tables AS SELECT LEFT(sysobjects.name, 20) "Table Name" , LEFT(sysusers.name, 12) Owner, crdate "Create Date", refdate "Last Used Date" FROM sysobjects, sysusers WHERE xtype = 'U' AND sysusers.uid = sysobjects.uid go ------------------------------------------------- ------------------ GetString Method ------------------ String = recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 'Establish connection to DB Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open "SQL Server;UID=JakeMANuser;PWD=secret;Address=mssql.arc.net,1433;Network=DBMSSOCN;DATABASE=JakeMAN;SERVER=mssql.arc.net" 'Create a recordset Dim rs Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM table1", conn 'Store our one big string Dim strTable strTable = rs.GetString(,,"</td><td>","</td></tr><tr><td>"," ") ------------------------------------------------- ------------------ Favorite's Icon ------------------ <link REL="SHORTCUT ICON" HREF="http://www.mydomain.com/myicon.ico"> <!-- Or, just name the ico file: 'favicon.ico' --> ------------------------------------------------- ------------------ Redirect ------------------ <html> <head> <script language="JavaScript1.1"> <!-- location.replace("http://www.URL_GOES_HERE!.com"); //--> </script> <noscript> <meta http-equiv="Refresh" content="0; URL=http://www.URL_GOES_HERE!.com"> </noscript> </head> <body></body> </html> ------------------------------------------------- ------------------ Date (Formatted) ------------------ <script LANGUAGE="JavaScript"> <!-- function showdate() { d = new Array( "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" ); m = new Array( "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" ); today = new Date(); day = today.getDate(); year = today.getYear(); if (year < 2000) year = year + 1900; end = "th"; if (day==1 \|\| day==21 \|\| day==31) end="st"; if (day==2 \|\| day==22) end="nd"; if (day==3 \|\| day==23) end="rd"; day+=end; var PleaseShowDate = (d[today.getDay()]+", "+m[today.getMonth()]+" "+day+", " + year); document.write(PleaseShowDate); } // --> </script> ------------------------------------------------- ------------------ Background colorizer ------------------ function setColor(el, bg) { if (el.style) el.style.backgroundColor = bg; } setColor(FORM_ELEMENT, COLOR); ------------------------------------------------- ------------------ Add Commas to number ------------------ function AddCommas(s) { var position; var newString; var offset; var mylen; var chker; var trailer; trailer = ""; s = parseInt(s,10); s = s.toString(); chker = s.indexOf("."); if (chker != -1){ trailer = s.substr(chker); s = s.substring(0,chker); } mylen = s.length; if (mylen > 3){ offset = mylen % 3; if (offset > 0){ newString = s.substr(0,offset); } while (offset < mylen){ if (offset == 0){ newString = ""; }else{ newString += ","; } newString += s.substr(offset,3); offset += 3; } //newString += ".00"; newString += trailer; }else{ //easy situation newString = s; newString += trailer; //newString += ".00"; } return newString; } ------------------------------------------------- ------------------ Set Default Home Page ------------------ this.style.behavior='url(#default#homepage)'; this.setHomePage('http://www.jakeman.com/'); ------------------------------------------------- ------------------ Misc Math ------------------ (NUMBER(Math.pow(NUMBER,3))) - (NUMBER NUMBER to the power of 3) ------------------------------------------------- ------------------ Always On Top ------------------ <body onBlur="javascript:window.focus()"> ------------------------------------------------- ------------------ Download File Box ------------------ Response.AddHeader "content-disposition","attachment; filename=fname.ext" ------------------------------------------------- ------------------ Server-Side Image Map ------------------ <html> <body> <% Response.Write "You clicked on x = " & Request("ImageMap.x") _ & ", y = " & Request("ImageMap.y") & "<hr>" & vbNewLine %> <form> <input Name="ImageMap" Type="Image" Src="ImageMap.jpg" Alt="Click Anywhere"> </form> </body> </html> Just replace the ImageMap.jpg with your own .jpg image. Save this as an .asp file and put it somewhere on your page. The values will show up as a querystring in the URL. So just grab those values: ImageMap.x = <%=Request("ImageMap.x")%> ImageMap.y = <%=Request("ImageMap.y")%> and away you go. ------------------------------------------------- ------------------ Include File ------------------ <!--#INCLUDE FILE="./adovbs.inc" --> <!--#INCLUDE FILE="./Functions.asp" --> ------------------------------------------------- ------------------ Body Tag ------------------ <body bgcolor="#FFFFFF" background="./" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" vlink="#000000" alink="#000000" link="#000000" text="#000000"> ------------------------------------------------- ------------------ Standard Tags ------------------ <meta HTTP-EQUIV="Expires" CONTENT="Tue, 04 Dec 1996 04:20:00 GMT"> <meta HTTP-EQUIV="Pragma" CONTENT="no-cache"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <meta name="description" content=""> <meta name="keywords" content=""> ------------------------------------------------- ------------------ Coloring href links ------------------ <link rel="STYLESHEET" href="./jakeman.css" Type="text/css"> <style TYPE="text/css"> <!-- A:link.test1 { color: blue } A:hover.test1 { color: red } A:link.test2 { color: blue } A:hover.test2 { font-size: 18px } A:link.test3 { color: blue } A:hover.test3 { font-weight: bold; font-style: italic } A:link.test4 { color: blue } A:hover.test4 { background: #66ff33 } A:link.test5 { color: blue } A:hover.test5 { font-family: Courier, "Courier New" } A:link.test6 { color: blue; text-decoration: none } A:visited.test6 { text-decoration: none } A:hover.test6 { text-decoration: underline } A:link.test7 { color: blue } A:hover.test7 { color: red; font-weight: bold; background: #CCFF66 } A:link.a1 { color: blue; text-decoration: none} A:visited.a1 { color: blue; text-decoration: none } A:hover.a1 { color: black; text-decoration: none; background: #66ff33 } A:link.a2 { color: red text-decoration: none} A:visited.a2 { color: red; text-decoration: none } A:hover.a2 { color: black; text-decoration: none; background: #66ff33} A:link.a3 { color: green text-decoration: none} A:visited.a3 { color: green; text-decoration: none } A:hover.a3 { color: black; text-decoration: none; background: #66ff33} DIV.b { position: absolute; top: 130px; left: 50px; width: 150px; font-family: Times, "Times New Roman", serif; } DIV.a { position: absolute; top: 130px; left: 300px; width: 150px; clip: rect(8px 110px 70px 3px); font-family: Times, "Times New Roman", serif; } --> </style> <ul> <li><a HREF="#"" CLASS="test5">Typeface</a> <li><a HREF="#" CLASS="test2">Text size</a> <li><a HREF="#" CLASS="test3">Text styles</a> <li><a HREF="#" CLASS="test6">Underlining</a> <li><a HREF="#" CLASS="test4">Background color</a> <li><a HREF="#" CLASS="test7">Any combination thereof</a> </ul> <p> This is a test. <br> <a href="#" class="a1" ONMOUSEOVER="window.status=''; return true;" ONMOUSEOUT="window.status=''; return true;">This is also a test.</a> <br> <a href="#" class="a2" ONMOUSEOVER="window.status=''; return true;" ONMOUSEOUT="window.status=''; return true;">This is also a test.</a> <br> <a href="#" class="a3" ONMOUSEOVER="window.status=''; return true;" ONMOUSEOUT="window.status=''; return true;">This is also a test.</a> -------------------------------------------------

Operation Time: 0.7666016 second(s).

- - - A d d C o d e - - -

	> • > • > • > Name:
V • V • V • V

Operation Time: 0.7666016 second(s).

�� Flyer & Graphics Info ��
Home • Chat • 'The Drawing Board' • Shopping Cart System • : : CODE : : • Contact
WebCam • Cool Shat • Links • Note Pad • Private • Admin

My Resume • My Wish List • Useless Facts • yooo... I'm Chillin'!!!