Fall Conference 2008 Information Posted Here


<% MdbFilePath = "F:\hshome\aapccent\aapccentralregion.org\aapcnews.mdb" Set MyConn = Server.CreateObject("ADODB.Connection") MyConn.Mode = 3 MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" fYear = DatePart("yyyy", Now()) fMonth = DatePart("m", Now()) fDay = DatePart("d", Now()) DateStr = fYear & "-" & fMonth & "-" & fDay SQL_query = "SELECT * FROM ArticleTable WHERE Active = TRUE AND (Expires IS NULL OR Expires > #" & DateStr &"#) ORDER BY ArtDate DESC ; " Set RS = MyConn.Execute(SQL_query) If not RS.EOF Then Response.write "Latest Newsletter:
" Response.write "" & RS("title") & "
" Response.write "

" End if RS.Close %>

Contact Us

<% If Len(Request.Querystring("sendit")) > 1 Then dim subkey 'define array to hold raw input. dim values() 'define counter variable to increment array. dim i i=0 'loop through form collection and grab all name/value pairs. for each subkey in Request.Form 'increment array ubound by 1 for each new name key. redim preserve values(i) values(i)=Request.Form.Key(i+1) 'add +1 because form keys start counting @ 1 not 0. 'increment counter variable by 1. i=i+1 next 'define left-most counter variable. dim cnt cnt=0 'define right-most counter variable. dim x x=0 'define 2D array to hold name/value pairs. dim keyPair() 'redimension array. redim keypair(i,1) 'loop through values and extract pairs. do until cnt=i 'write pairs to array keyPair(cnt,x)=values(cnt) x=x+1 keyPair(cnt,x)=trim(Request.Form(values(cnt))) if(x=0)then x=1 else: x=0 end if cnt=cnt+1 loop Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") ' This code assumes the above CDO 'instantiation code is included objCDO.To = "ehaight@still-waters.info" objCDO.From = "aapccentral@aapccentralregion.org" Dim txtBody 'txtSubject = "Hello Scott! We were wanting your advice on some programming issues. Please come to Redmond at your earliest convenience for a very fat check!" cnt=1 do until cnt=i-1 txtBody = txtBody & keypair(cnt,0) & ": " & keypair(cnt,1) & vbCrLf & vbcrlf cnt=cnt+1 loop 'Response.write txtBody objCDO.Subject = "AAPC Central Region Online Contact Form" objCDO.Body = txtBody objCDO.Send Response.write "

Thank you, your message has been sent to Emily Haight, Central Region Vice-Chair, at emhaight@aol.com.

" End If %>

Your Name:
Phone:
Address:
City:
State:
Zip:
Email:
Subject:
Message: