% if not blnLogin then if session("admin") = "" then response.redirect "default.asp" end if function CheckString(s) CheckString = replace(s,"'","''") end function function CheckBit(b) if b = "on" then CheckBit = 1 else CheckBit = 0 end if end function function SetChecked(b) if b = 1 then SetChecked = " checked" else SetChecked = "" end if end function function CheckNumber(n) if isnull(n) then n = 0 if CStr(n) = "" then n = 0 CheckNumber = n end function sub d(t) response.write ">>" & t response.end end sub sub w(t) response.write ">>" & t & "
" end sub function FormatDT(dt) if isdate(dt) then tm = formatdatetime(dt,4) mm = Right("0" & datepart("m",dt),2) dd = Right("0" & datepart("d",dt),2) yy = datepart("yyyy",dt) dt = yy & mm & dd & " " & tm else dt = "0000-00-00 00:00:00" end if FormatDT = dt end function function Pad(n) n = CStr(n) n = "00000000" & n n = Right(n,8) Pad = n end function Set conn = Server.CreateObject("ADODB.Connection") conn.ConnectionTimeout = 15 conn.CommandTimeout = 30 Conn.Open "Driver={MySQL ODBC 3.51 Driver};" & _ "Database=thomas;" & _ "Uid=thomas;" & _ "Pwd=maxxwebs" %>
![]() |
![]() |
![]() |
|||
|
|
|||||
Home |