<% Response.Write FormatDateTime(Date, vbLongDate) %>

Contact Jan Williams about Services or Advertising

If you have any questions about services or fees for addictions counseling online or about advertising on this site, email Jan Williams, or call him at 443-610-3569.

Fields marked with * are required.


<% 'Specify your captcha length here, this is the only configuration requirement captchaLength = 5 Function captcha(captchaLength) if captchaLength > 15 then captchaLength = 15 HighestValue = left(100000000000000,captchaLength) lowestValue = left(999999999999999,captchaLength) Randomize intHighestNumber = Int((HighestValue - LowestValue + 1) * Rnd) + LowestValue session("captcha") = Int(intHighestNumber) x = 1 response.write vbcrlf & "" & vbcrlf & vbtab & "" & vbcrlf while x <= captchaLength response.write vbtab & vbtab & "" & vbcrlf x = x + 1 wend response.write vbtab & "" & vbcrlf & "
" & vbcrlf End Function %>


<%captcha(captchaLength)%>