<%
dim conn,rs
sub opener(byref conn,byref rs)
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open "DSN=localwings;"
end sub
sub closer(byref conn,byref rs)
conn.Close
set conn=nothing
set rs=nothing
end sub
function CSpell(byval word)
if word<>"" then
CSpell=replace(word,"'","''")
end if
end function
function DSpell(byval word)
if word<>"" then
DSpell=replace(word,"<","<")
DSpell=replace(DSpell,">",">")
DSpell=replace(DSpell,"&","&")
DSpell=replace(DSpell,vbcrlf,"<br/>")
end if
end function
function PSpell(byval word)
if word<>"" then
PSpell=replace(word,"<","<")
PSpell=replace(PSpell,">",">")
PSpell=replace(PSpell,"&","&")
PSpell=replace(PSpell,vbcrlf,"<br>")
PSpell=replace(PSpell,"/::","<")
PSpell=replace(PSpell,":/:","</")
PSpell=replace(PSpell,"::/",">")
end if
end function
function PSpell2(byval word)
if word<>"" then
PSpell2=replace(word,"""",""")
PSpell2=replace(PSpell2,"'","'")
end if
end function
dim REQUIRED
REQUIRED="<span class=""required"">*</span>" 'adding before a required field in a form
const MAX_RECORDS=20
%>
Bookmarks