<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% response.expires = -1 dim rs, conn, sql dsn = "DSN=satman;UID=platuser;PWD=mypassword" set conn = Server.CreateObject("ADODB.Connection") conn.open dsn ' FUNCTIONS ' --------- function killquotes(var) killquotes = replace(var,"'","''") end function Function isAlpha(str) Dim iPos, bolValid iPos = 1 bolValid = True While iPos <= Len(str) and bolValid if Asc(UCase(Mid(str,iPos,1))) < Asc("A") or _ Asc(UCase(Mid(str,iPos,1))) > Asc("Z") then _ bolValid = False iPos = iPos + 1 Wend isAlpha = bolValid End Function Private Function IsAlphaNumeric(byVal string) dim regExp, match, i, spec For i = 1 to Len( string ) spec = Mid(string, i, 1) Set regExp = New RegExp regExp.Global = True regExp.IgnoreCase = True regExp.Pattern = "[A-Z]|[a-z]|\s|[_]|[0-9]|[.]" set match = regExp.Execute(spec) If match.count = 0 then IsAlphaNumeric = False Exit Function End If Set regExp = Nothing Next IsAlphaNumeric = True End Function %> What is Bright Star?

For more information, call:
(866) 367-4728


***Current BrightStar Customers Please Login For an Important Update.***


Superior customer service and technical support
 
Be on the cutting edge of technology, with the satisfaction of using reliable, affordable products
 
You'll spend less time waiting and more time enjoying all the world wide web has to offer
 
An exceptional on-line experience
 
Bright Star Main : What Is Bright Star? : Service Plans : How Can We Help? : Bright Star Members
---
(c) 2004 Bright Star Internet, Inc., All Rights Reserved