TECHNIQUE # 1  -- Creating a textbox so that 
1. when the textbox contains n characters, the cursor moves to the next textbox for entry
2. hitting enter will be equivalant to clicking submit

 
The javascript part

function loginwithpasscode()   -- must be onsubmit="return **"   ,submits occurs when **=TRUE
{var str,str1,str2;
 str1=trim(document.all.passcode1.value);
 str2=trim(document.all.passcode2.value);
 str="";
 str=str1+str2;
 if (str.length!=8) {alert(str +"\nEntry must be 8 characters in total.");return false;}
return true;
}

function part1()
{var str;
  str=frmpass.passcode1.value;
  if (str.length==4) frmpass.passcode2.focus();  -- focus goes to next entry
}


<form name="frmpass"  onsubmit="return loginwithpasscode()" method="GET" action="login.asp">  --can be POST/GET
Enter PassCode: <input type="text" name="passcode1" onkeyup="part1()" size="6" maxlength="4">  --onkeyup, not onchange
<input type="text" name="passcode2" size="6" maxlength="4">
<input type="image" src="images/Basic Green Enter Site button .gif">  --can be type=submit/image


TECHNIQUE # 2  -- Server Variables
<%@ Language=VBScript%> 
<table border=1 cellpadding=0 cellspacing=0>
<%
for each item in request.servervariables
response.write "<tr><td>" & item & "</td><td>&nbsp;" & request.servervariables(item) & "</td></tr>" & VbCrLf
next 

%> 
 </table>
---- BOTH get//post

   for each i in Request.Form
	Response.Write i & " F: " & Request.Form(i) & "<BR>"
   next
   for each i in Request.QueryString
	Response.Write i & " Q: " & Request.QueryString(i) & "<BR>"
   next

----


TECHNIQUE # 3  -- Elements in a FORM with POST
<%@ Language=VBScript%> 
<%if request.querystring("action")="send" then%>
<table border=1 cellpadding=0 cellspacing=0>
<%
for each item in request.form
response.write "<tr><td>" & item & "</td><td>&nbsp;" & request.form(item) & "</td></tr>" & VbCrLf
next 
end if
%> 
 </table>
 
 <form method="POST" action="test.asp?action=send">
 <input type="text" name="name"><br>
 <input type="text" name="id">
 <input type=submit value="send">
 </form>


TECHNIQUE # 4  -- GET
<%@ Language=VBScript%> 
 <table border=1 cellpadding=0 cellspacing=0>
<%
response.write "ACTION=" & request.querystring("action")
for each item in request.querystring
response.write "<tr><td>" & item & "</td><td>&nbsp;" & request.querystring(item) & "</td></tr>" & VbCrLf
next  
%> 
 </table>
 GET-- can not see action in ?action=send
 <form method="GET" action="test.asp?action=send">
 <input type="hidden" value="kill" name="action">
 <input type="text" name="name"><br>
 <input type="text" name="id">
 <input type=submit value="send">
 </form>


TECHNIQUE # 5  -- OPENING a new window

 function openwindowno(x,y,xfile)
{ var nn, xx,yy; 
//kill the previous window if present by windowname.close()
//a window is closed if windowname.closed=true
//check first if windowname was previously created
if (myNew && myNew.open && !myNew.closed) myNew.close();  
 xx=(screen.width-x)/2; yy=(screen.height-y)/2; 
 myNew = window.open(xfile, '_blank', 'width='+x+',height='+y+',left='+xx+', top='+yy+',status=yes,toolbar=no,location=no,scrollbars=no,windowpart=yes,resizable=yes')
myNew.focus();
}

TECHNIQUE # 6  -- CHECK valid EMAIL

function validEmail(email)
 { if ((email.indexOf("@")==-1) || (email.indexOf(".")==-1))
       {alert("INVALID email address: \""+email+"\""); return false;}
    else
       return true;
 }

TECHNIQUE # 7  -- Javascript TRIM

function trim(strin)
{var str,j,len,i;
 len=strin.length;
 j=0;  i=0;
 do {
     str=strin.substr(j,1);	 j++;
	 if (str==" ") i++;
	} while (str==" " && j<len)
//get the substring chopping off the blanks starting from i=>up to end of string
 if (i) strin=strin.substr(i);
 //test starting from the last position, one character
 //REMOVE 10/13/blanks
 len=strin.length; j=len-1;
 do {
    str=strin.charCodeAt(j);
	//alert(str);
    if (str==10||str==13||str==32) j--;
    } while (str==10||str==13||str==32 && j>0)
//get the substring chopping off the blanks
 if (j<len-1) strin=strin.substr(0,j+1);
return strin;
}
TECHNIQUE # 8  --  ASP Send Email
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
'xxx  CODE TO SEND EMAILS   xx
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
function sendMail(toemail,subject,message,fromname,fromemail )
  dim Mailer
  if NOT Request.ServerVariables("REMOTE_ADDR")="127.0.0.1" then
      Set Mailer= Server.CreateObject("Persits.MailSender")  '---PERSITS
      Mailer.From = fromemail
      Mailer.FromName = fromname
      Mailer.Host = "localhost"
      Mailer.AddAddress toemail
      Mailer.Subject = subject
      Mailer.Body = message
      Mailer.IsHTML = true
      Mailer.Send

      Set Mailer= Nothing
      on error goto 0

      if Err.number <> 0 then
         Response.write "error in email<br>"
		 sendMail=false
      else
		  response.write "-------> Sending email to:" & toemail & "<br>"
		 sendMail=true
      end if
  else
      response.write "LOCAL host,pseudo sent to: " & toemail & "<br>"
	  sendMail=true
  end if
end function

TECHNIQUE # 9  -- CREATING an OBJECT in Javascript, see events_edit.asp
<script LANGUAGE="JavaScript">
var  newWindow;
 <%
    sqlstr="SELECT * FROM tbl_events WHERE  att_month=" & mymonth & " AND att_year=" & myyear & " AND ResellerAuto=" & session("ResellerAuto")
    set Rs=server.CreateObject("adodb.recordset")
    Rs.open sqlstr, Con, 3, 2  
    if NOT Rs.EOF then
         
         response.write "var myevents=new MakeArray(" & Rs.RecordCount & ");" & VbCrLf
         i=0
         Rs.MoveFirst
         while NOT Rs.EOF
              response.write "myevents[" & i & "]= new event(""" & Rs("id") & """,""" & Rs("att_eventname") & """,""" & Rs("att_deliverymethod") & ""","""   & Rs("att_day") & """,""" & Rs("att_month") & """,""" & Rs("att_year") & """,""" & Rs("att_starttime") & """,""" & Rs("att_endtime") & """,""" & Rs("att_cost") & """,""" & Rs("att_notes") & """);" & VbCrLf
             i=i+1
             Rs.MoveNext
        wend
    else
        response.write  "var myevents=new MakeArray(0);"  & VbCrLf
    end if
    Rs.Close
%>
function MakeArray(n)
{ var i;
   for (i=0;i<=n;i++)
      this[i]=0;
  this.length=n;
  return this;
}

function event(id,eventname,dmethod,myday,mymonth,myyear,starttime,endtime,cost,notes)
{ 
   this.ID=id;
   this.eventName=eventname;
   this.dmethod=dmethod;
   this.myDay=myday;
   this.myMonth=mymonth;
   this.myYear=myyear;
   this.startTime=starttime;
   this.endTime=endtime;
   this.Cost=cost;
   this.Notes=notes;
}




TECHNIQUE # 10  -- 

 // 
//NOTES to Remember
//alert, prompt, confirm                          loadImages();
//<a href="javascript:void(null))" onclick="">  during refresh, the browser puts you back in the same place</a>
//<a href="#" onclick="">  during refresh, the browser puts you at start of page</a>
//

TECHNIQUE # 11  --  INCLUDE CODER  <!--#include file="email.asp"--> 
TECHNIQUE # 12  --  CSS FONT on TABLE
<table width="450" border="0" cellpadding="2" cellspacing="2" style="font-family:Verdana,arial;font-size:12px;">


TECHNIQUE # 13  --   ALWAYS Viewable Layer
  layername.style.top= document.body.scrollTop+150;

TECHNIQUE # 14  --  SCROLL TO a specied location in a page
<a name="mytop">
much text here
  <a href="#mytop">back to top</a>
TECHNIQUE # 15  --  DIV TAG



<div id="alertme" style="position:absolute; display:none;left:100px;top:300px;width:350;height:155px;background:#778899;border:1px solid #0000ff;overflow:auto;z-index:1;">
 <table bgcolor="#000033" cellpadding=0 width="348" cellspacing=0 border=0 style="font-family:Verdana,arial;font-size:18px;">
      <tr><td height="35" style="padding-left:35px">
                      <b><font color="#FFFFCC">Notice
           </td>
          </td><td align=right><img style="cursor:hand" onclick="alertme.style.display='none';" alt="Close Alert"  src="http://www.99url.com/webb/images/xx.jpg">
          &nbsp; &nbsp;
         </td></tr>
</table>

<table cellpadding=0   cellspacing=0 border=0  style="font-family:Verdana,arial;font-size:12px;">
<tr><td    valign=top style="padding-left:10px;padding-top:8px;padding-right:10px">
   This window will close after server update. <p>
   To edit the page, click the link in the Site Builder and go back to this page and click Item 5 button .
</td></tr>
<tr><td style="padding-left:200px;padding-top:15px;padding-bottom:10px">
<input  style="height:19px;width:65px" type="button" value="Continue" onclick=""></td></tr>
</table>
 </div>


TECHNIQUE # 16  -- CONVERTING textarea with enter keys (newline) to <br>

function stringtohtml(str)
{var str2,c,c1;

  //CONVERT  10/13/  as <BR>
 str2="";
 
 for (i=0;i<str.length;i++)
  {
    c=str.charCodeAt(i);
    c1=str.charAt(i);
	//alert(str);
   if (c!=13)
      {
       if (c==10)
          {str2+="<br>";}
       else
          {str2+=c1}
      }
  }
 return str2;
}

TECHNIQUE # 17  -- Showing a paragraph in a TEXTAREA where <BR> must be a linefeed.
 This is the opposite of TECHNIQUE # 16 

function stringtotext(str)
{var c,c1,len1,len2;
 len1=1;
 len2=0;

  do {
   len2=len1
   str=str.replace("<br>",String.fromCharCode(13,10))
   len1=str.length;
    }while ( len1!=len2)
   return str;
 }
 

TECHNIQUE # 18  --  Submitting to a form in an IFRAME or executing a page with querystring
The iframe must be in a main page as hidden
<iframe style="display:none;scroll:no" height="30" width="400" id="idContent"></iframe> 

The call to execute a page
  str="validatepasscode.asp?id=<%=Request.QueryString("DocumentID")%>&passcode="+str+"&loginname="+str2;
   document.all.idContent.src=str;

Inside validatepasscode  use parent.function() to execute the javascript function of the main page

TECHNIQUE # 19  -- HANDLING yes/no in ACCESS dBase

THE javascript
function tosubmit()
{  var str;
    if (document.all.privacy[0].checked) frmPrivacy.showprivacy.value="yes";
    if (document.all.privacy[1].checked) frmPrivacy.showprivacy.value="no"; 
    frmPrivacy.submit();
}


THE real FORM
<font size="3"><b>Privacy Note</b></font> &nbsp;  
Display <input type="radio" name="privacy" value="on" 
<%IF fshowprivacy THEN response.write "CHECKED"%> > ON
 &nbsp; &nbsp; <input type="radio" name="privacy" value="off" 
<%IF NOT fshowprivacy THEN response.write "CHECKED"%> >  OFF<p>


THE  hidden form
<form name="frmPrivacy" method="post"  action="">
<input type="hidden" name="showprivacy" value="">
<input type="hidden" name="textprivacy" value="">
</form>

THE ASP PART
        IF Request.Form("showprivacy")="yes" THEN
               ors("showprivacy")=true
        ELSE
              ors("showprivacy")=false
        END IF

TECHNIQUE # 20  -- TEXT that is multiline
   <textarea rows="1" cols="20" name="subject"  style="overflow:hidden">
    A nice website I Found</textarea>



TECHNIQUE # 21  -- CSS & FONT SIZE of the button
   <input type="button"  onclick="self.close()" value="page editor" style="background:#FFD700;width:550px;height:20px; font-size:10; font-family:verdana" >
  

TECHNIQUE # 22  -- To disable a radio button
<input type="radio" name=" e" value="2" onClick="Div('106')" DISABLED>Guest Book Web Page</td>


TECHNIQUE # 23  -- Screen size
if (document.all) {
   width=document.body.clientWidth
   height=document.body.clientHeight
} else {
   width=window.innerWidth
   height=window.innerHeight
} 

TECHNIQUE # 24  -- DOLLAR.CENTS
// general number formating function
// arguments: expr - number
//            decplaces - # of decimal places
function format (expr, decplaces) {
    var str ='' + Math.round(eval(expr) * Math.pow(10,decplaces))
    while (str.length <= decplaces) {
        str = "0" + str
    }
    var decpoint = str.length - decplaces
    return ((str.substring(0,decpoint) == '-')? "-0" : str.substring(0,decpoint)) + '.' + str.substring(decpoint,str.length);
}


TECHNIQUE # 25  -- RANDOM
<!--
// generate random number
random.m=714025; random.a=4096; random.c=150889;
        random.seed = (new Date()).getTime()%random.m;

var num = (Math.round((random() * 16)))+1;
vbot_pic = new Image();           
vbot_pic.src = eval('"template/rotate/image0" + num + ".jpg"');  
   
// function to return random number
function random() {
     random.seed = (random.seed*random.a + random.c) % random.m;
     return random.seed / random.m;
     }

 Rs("caption")=replace(replace(replace(Request.Form("imagecaption"),chr(34),"&#34;"),chr(39),"&#39;"), vbcrlf, "<BR>")


TECHNIQUE # 26  --- MDB Opening
  strSQL  = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &  Server.MapPath("/") & "\webb\database\document.mdb"
    set Con = Server.CreateObject("ADODB.Connection")
    Con.Open strSQL 
    set oRs=server.CreateObject("adodb.recordset")
  sql="SELECT * FROM templateFavTitle WHERE linkId = " & Request.Form("page")
  ors.open sql, Con, 3, 2
  IF ors.EOF THEN
     ors.addnew
     ors("linkId") = Request.QueryString("page")
     ors.fields("uid") = session("uid")
  END IF
     ors("visitorshownotshow")=Request.Form("visitorshownotshow")
     ors.Update
   oRs.Close
   Con.Close
   SET oRs=NOTHING
   SET Con=NOTHING



TECHNIQUE # 27  -- scrollTop
//NOTES to Remember
//alert, prompt, confirm
//<a href="javascript:void(null))" onclick="">  during refresh, the browser puts you back in the same place</a>
//<a href="#" onclick="">  during refresh, the browser puts you at start of page</a>


document.body.scrollTop*1+30

 bottomcolor.style.background="#" + color; -->> for <td id="bottomcolor">




TECHNIQUE # 27 -- show form and querystring


IF (0) THEN
  FOR each i in Request.Form
     Response.write i &  "  (f)= "  & Request.Form(i) & "<br>" & VbCrLf
   Next
 FOR each i in Request.QueryString
     Response.write i &  "  (q)= "  & Request.QueryString(i) & "<br>" & VbCrLf
   Next
 Response.End
END IF

TECHNIQUE # 28  -  REFRESHING THE CALLER WINDOW

//Refreshing the caller window by an new window
	try {
		//window.opener.location.reload(true); - sometimes does not work
                                  window.opener.navigate(window.opener.document.location.href);
		window.opener.focus();
	} catch (e) {
		//do nothing
	}
	window.close();

TECHNIQUE # 29 --  CSS  and how to CALL using CLASS
<STYLE type="text/css">  
td {  font: 8pt Verdana}
.tny {  font-size: 8pt}  
.joe {font: 8pt Verdana;color:Blue;background:#CCCCFF;height:20px;}
.BlueScrolls {
scrollbar-base-color:Black;
scrollbar-face-color:#0099ff;
scrollbar-shadow-color:#0099ff;
scrollbar-highlight-color:Black;
scrollbar-3dlight-color:SteelBlue;
scrollbar-darkshadow-color:DarkBlue;
scrollbar-track-color:Black;
scrollbar-arrow-color:#ffffff;
}

<td   class="joe">



TECHNIQUE # 30  -- ASP REFRESH

    'GOOD CODE for server refresh of a page
    'Response.Expires = -1
    'Response.AddHeader "Pragma", "no-cache"
    'Response.AddHeader "cache-control", "no-store"



TECHNIQUE # 31 -- CALLING A MODAL WINDOW



window.showModalDialog()
window.showModalDialog
("SMD_target.htm","Dialog Box Arguments # 1","dialogHeight: 250px; 
dialogWidth: 250px; dialogTop: 150px; dialogLeft: 150px; 
edge: Raised; center: Yes; help: Yes; resizable: Yes; status: Yes;");


sURL Required. String that specifies the URL of the document to load and display. 
vArguments Optional. Variant that specifies the arguments to use when displaying the document. Use this parameter to pass a value of any type, including an array of values. The dialog box can extract the values passed by the caller from the dialogArguments property of the window object. 
sFeatures Optional. String that specifies the window ornaments for the dialog box, using one or more of the following semicolon-delimited values: dialogHeight:sHeight Sets the height of the dialog window (see Remarks for default unit of measure). 

dialogLeft:sXPos Sets the left position of the dialog window relative to the upper-left corner of the desktop. 

dialogTop:sYPos Sets the top position of the dialog window relative to the upper-left corner of the desktop. 

dialogWidth:sWidth Sets the width of the dialog window (see Remarks for default unit of measure). 

center:{ yes | no | 1 | 0 | on | off } Specifies whether to center the dialog window within the desktop. The default is yes. 
dialogHide:{ yes | no | 1 | 0 | on | off } Specifies whether the dialog window is hidden when printing or using print preview. This feature is only available when a dialog box is opened from a trusted application. The default is no. 

edge:{ sunken | raised } Specifies the edge style of the dialog window. The default is raised. 
help:{ yes | no | 1 | 0 | on | off } Specifies whether the dialog window displays the context-sensitive Help icon. The default is yes. 
resizable:{ yes | no | 1 | 0 | on | off } Specifies whether the dialog window has fixed dimensions. The default is no. 
scroll:{ yes | no | 1 | 0 | on | off } Specifies whether the dialog window displays scrollbars. The default is yes. 
status:{ yes | no | 1 | 0 | on | off } Specifies whether the dialog window displays a status bar. The default is yes for untrusted dialog windows and no for trusted dialog windows. 
unadorned:{ yes | no | 1 | 0 | on | off } Specifies whether the dialog window displays the border window chrome. This feature is only available when a dialog box is opened from a trusted application. The default is no. 
 
style='TABLE-LAYOUT: fixed'




LINKS


http://developer.netscape.com/docs/manuals/js/core/jsref/index.htm
http://msdn.microsoft.com/library/default.asp?url=/workshop/author/dhtml/reference/dhtml_reference_entry.asp
http://www.datadosen.se/jalbum/quickstart.jsp
http://www.jesus-is-lord.com/




http://www.kanadaimmobilien.ca/
http://dorisschreiber.point2homes.biz/Homes.aspx?tabid=116255

TECHNIQUE # 32 -- CHECKING for hex

< scri pt Language="javascript"> 
function checkHEX(hexstring)
{var i,decvalue,ok,error
 error=false
 for (i=0;i<hexstring.length;i++)
     {decvalue=hexstring.charCodeAt(i);
      ok=((decvalue>47 && decvalue<58)||(decvalue>64 && decvalue<71)|| (decvalue>96 && decvalue<103))
      if(!ok) {alert("ERROR in hex code");error=true;}
     } 
}	
< /sc ript>
< h ea d< / head>

< b od y>
#< i nput type="text" name="hex" size="6" maxlength="6"
<p<in p ut type="button" onclick="checkHEX(document.all.hex.value)" value="go"


TECHNIQUE # 32 -- REFRESHING THE CALLER

window.opener.location.reload();
 window.opener.focus();

TECHNIQUE # 33 -- ONLY numbers float
function submit()
{var i,amount;
  amount=trim(ecc.Amount.value);
 for (i=0;i<amount.length;i++)
    {
    code=amount.charCodeAt(i);
    chara=amount.charAt(i);
   //=alert("i="+i+"  code="+code+"  char="+chara); 
//Check for 1234567890 and .
    if (!( chara=="0"|| chara=="1"|| chara=="2"|| chara=="3"|| chara=="4"|| chara=="5"|| chara=="6"|| chara=="7"|| chara=="8"|| chara=="9"|| chara=="0"|| chara=="."))
       { alert("Please enter numbers only\nin the Amount Box\n e.g.  10.00");return false;}
   }
}

function checkNUMBER(hstring)  //for telephone   604-722-8791
{var i,decvalue,ok,error
 error=false
 //604-777-1234
 for (i=0;i<hstring.length;i++)
     {decvalue=hstring.charCodeAt(i);
      ok=((decvalue==45)||(decvalue>47 && decvalue<58))
	  if(!ok) error=true
     }   
	return error 
}	

TECHNIQUE # 34 -- BORDERLESS IFRAME
The page in <IFRAME src="page.asp"> must caontain a style.
<style>
	body {border:lightgrey 0px solid;}
</style>

TECHNIQUE # 35 -- CONNECTION STRING
Q: connection string should look like to connect to a database without using a DSN
 Access ::
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\InetPub\wwwroot\database\guestbook.mdb"

SQL Server 6.5 ::
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver=SQL Server;server=yourServerName;uid=someUID;pwd=somePWD;database=someDatabase;"
 
TECHNIQUE # 36 -- CONNECTION STRING
<A href="http://www.namabc.org/mapuaworld/privacy.asp" target=_blank style="TEXT-DECORATION:none">  
is equal to
<span style="cursor:hand" onclick="">


TECHNIQUE # 37 -- Get just the FILENAME from a full path

'=strFile = Right(strFileName, Len(strFileName) - InStrRev(strFileName,"\"))

TECHNIQUE # 38 -- FORMAT NUMBER
function formatnumber(mynumber,decplaces)
{ var str,i,len;
  str=""+mynumber;
   i=str.indexOf(".")
   len=str.length-i-1
   if (len>decplaces)
      return str.substr(0,i+decplaces+1)
   else
      return str
}
var a=0.02
  document.write(formatnumber(a,4))

TECHNIQUE # 38 -- REMOVE HTML TAGS

Function processhtml(html)
Dim starting As Integer, ending As Integer
Dim finished As Boolean
Dim leftstr As String, rightstr As String
finished = False
If InStr(html, "<") Then
    While Not finished
        starting = InStr(html, "<")
        ending = InStr(html, ">")
        If starting > 1 Then
           leftstr = Mid(html, 1, starting - 1)
        Else
           leftstr = ""
        End If
        rightstr = Mid(html, ending + 1)
        If Len(rightstr) = 0 Then finished = True
        html = leftstr & rightstr
    Wend
End If
processhtml = html
End Function


TECHNIQUE # 39 -- MULTIMEDIA

<body bgcolor="#90CFCF" leftmargin=0 topmargin=0>
   <EMBED src="dotnet.wmv"></EMBED>
</body>


TECHNIQUE # 40 -- INSERT A ROW AND GET the  row id
FUNCTION CreateTemplateLink(Cn)
  Dim sql
  sql = "INSERT INTO templateLink(uid, name,pagetype) VALUES ('" & Session("uid") & "', 'EmailMe',230)"
  Cn.execute sql

   sql = "SELECT TOP 1 id FROM templateLink ORDER BY id DESC"
   SET Rs=Cn.execute(sql)
   CreateTemplateLink=Rs("id")
END FUNCTION

 SET Cn = Server.CreateObject("ADODB.Connection")
  Cn.Open Application("dbDocument")  

'==CHECK if linkID=0 == coming from gold package // FIRST PASS
  IF idebug THEN Response.write "R.Q id=" &   Request.querystring("id") & "<br>"
  IF  Request.querystring("id")=0 THEN
     SET Rs = Server.CreateObject("ADODB.Recordset") 
     mysql="SELECT * From templatePopupLayer WHERE uid='" &  session("uid")  & "'"
     IF idebug THEN Response.write "mysql=" & mysql & "<br>"
     Rs.Open mysql, Cn ,3,2  
     IF Rs.EOF THEN
'==CREATE a row in template link AND a row in  templatePopupLayer
        Rs.Close
        mylinkID=CreateTemplateLink(Cn)
        IF idebug THEN Response.write "EOF CreateTemplateLink mylinkID=" & mylinkID & "<br>"
        sql = "INSERT INTO templatePopupLayer(uid, linkID) VALUES ('" & Session("uid") & "'," & mylinkID & ")"
        Cn.execute sql
     ELSE
'=GET linkID
        mylinkID=Rs("linkID")
        IF idebug THEN Response.write "NOT EOF CreateTemplateLink mylinkID=" & mylinkID & "<br>"
        Rs.Close
     END IF
     sql = "SELECT * From templatePopupLayer WHERE linkId=" & mylinkID
  END IF 

TECHNIQUE # 40 -- AN IFRAME without borders, seamlessly joins the page 
 The page must have the same background color as the iframe source  
<iframe noborder style="width:445px;height:265px;position:relative;border:0px;" src="dollar.asp">
</IFRAME>
WHERE dollar.asp has body like:
<body bgcolor="#778899" style="border:0px;">


TECHNIQUE # 40 -- Getting the FILE from a string with path
               dLink = ors.fields("file")
                IF Instr(dLink)>1 THEN
                    for i=Len(dLink) to 1 step -1
                         IF mid(dLink,i,1)="/" THEN exit for
                    next
                    dLink=Right(dLink,Len(dLink)-i)
                    dFileToDownload=dLink
                ELSE
                   dFileToDownload="none"
                END IF

TECHNIQUE # 41 DIV TAG

<div id="divhelpme" style="display:block;position:absolute;left:50px;top:5px; width:400px;height:140px;background:#ABABAB;border:1px solid #000033;overflow:no;z-index:1;">
<table bgcolor="#000033" width="100%" cellspacing=0 cellpadding=0 border=0>
<tr><td height="35" width="200" style="padding-left:20px;color:#FFFFcc;font-family:verdana;font-size:18px;font-weight:bold">
 
Notice </td>
<td align=right><img src="../../images/xx.jpg" border=0 style="cursor:hand" onclick="divhelpme.style.display='none'"> &nbsp; &nbsp; </td></tr>
</table>

<table style="font-family:verdana;font-size:11px">
<tr><td style="padding-left:15px;padding-right:15px;padding-bottom:10px;padding-top:10px">
<b>some here </b><br>
</td></tr></table>
</div>

TECHNIQUE # 40   -- RemoveHTMLTags

FUNCTION RemoveHTMLTags(html)
Dim starting, ending, finished, leftstr, rightstr
finished = false
html=trim(html)
IF InStr(html, "<") THEN
    WHILE NOT finished
        starting = InStr(html, "<")
        ending = InStr(html, ">")
        If starting > 1 Then
           leftstr = Mid(html, 1, starting - 1)   
'== Some text<font> some more here <and more> -- will get "Some text"
        Else
           leftstr = ""
        End If
        rightstr = Mid(html, ending + 1)   
'== Some text<font> some more here <and more> -- will get "some more here <and more>"
        If Len(rightstr) = 0 Then finished = True
        IF  starting =0 AND ending =0 THEN finished = True
        html = leftstr & rightstr
'==RESULT "Some text some more here <and more>"
    WEND
End If
RemoveHTMLTags= html
END FUNCTION





TECHNIQUE # 41   -- TEMPLATE for a source that occupies an IFRAME 100% of the space with no scroll bar


THE PARENT===
function DoorKnobAdCodes()
{
   document.all.frmLayer.src="e_DoorKnobAdCodes.asp";
   document.all.frmLayer.style.left=80;
   document.all.frmLayer.style.top=document.body.scrollTop+40;
   document.all.frmLayer.style.width=600;
   document.all.frmLayer.style.height=420;
   OpenFrame();
}

function OpenFrame()
{
   document.all.frmLayer.style.display="block";
}


function CloseFrame()
{
     document.all.frmLayer.style.display="none";
}

<iframe scrolling=no  id="frmLayer" style="scroll:no;position:absolute;top:550px;display:none;width:500px;height:100px"></iframe>
<iframe  id="frmLayer2" style="scroll:yes;position:absolute;top:550px;display:none;width:500px;height:100px"></iframe>
 
THE IFRAME====


<BODY onload="alertmessage()"  bgcolor="#d6cfa3"  topmargin=0 leftmargin=0 style="border:0px" >  

<form name="frmAction" method="post" action="e_doorknob.asp?action=register">
 
<table width="100%" height="100%" border=3 bordercolor="#aa0000" cellspacing=0 cellpadding=0 >
<tr><td valign=top>
      <table style="font-family:verdana;font-size:12px" width="100%" height="100%" border=0 bordercolor="green" cellspacing=0 cellpadding=0 >
      <tr><td valign=top>

             <table bgcolor="#0b216b" width="100%" cellspacing=0 cellpadding=0 border=0 bordercolor="red">
             <tr><td width="85%" style="padding-left:20px; padding-top:8px; padding-bottom:8px;font-family:verdana;font-size:16px;color:#FFFFCC"><b>
              DOOR KNOB ADS Free Offer Registration CODES</b>
             </td>
               <td align=right style="padding-top:8px" >
             <img ALT="Close this layer" src="GoldDemo/xx.jpg" border=0 style="cursor:hand" onclick="parent.CloseFrame()">  &nbsp; </td>
            </tr></table>

       </td></tr>

       <tr><td height="99%" valign=top>

                  MM
       </td></tr>
        <tr><td>
                <table width="100%" bgcolor="#0b216b" style="font-family:verdana;font-size:11px">
                <tr  style="padding-top:5px; padding-bottom:5px"><td align=right width="85%">
                <span style="cursor:hand" onclick="parent.CloseFrame()"><u><font color=white>Close This Layer</font></u></span> 
                </td><td align="right" style="padding-top:5px;">
                  <img ALT="Close this Layer" src="GoldDemo/xx.jpg" border=0 style="cursor:hand" onclick="parent.CloseFrame()"> &nbsp; </td>
                </tr></table>

       </td></tr></table>

</td></tr></table>  
  
  
</form>

</body></html>  


TECHNIQUE # 42   -- USE OF STYLE


<style type="text/css">
<!--
   .btn {width:140px;height:19px;font-family:verdana;font-size:11px;}
-->
</style>


    <input type="button" value="Generate 20 Codes" class=btn> &nbsp; 
================-----------------------------------------------------------------------=================

http://www.city.vancouver.bc.ca/vanmap/vanmappub.htm
http://www.sagehill.net/docbookxsl/
http://www.rogers.com/english/wireless/sendpcs.html