<% on error resume next dim strSuccess if request("writeme") = "y" then set rstWrite = Server.CreateObject("ADODB.Recordset") sqlqWrite = "SELECT * FROM tblTipsNTricks" rstWrite.Open sqlqWrite, connString, 1, 3 rstWrite.AddNew rstWrite("emailAddress") = request("wf_EmailAddress") rstWrite.Update rstWrite.Close set rstWrite = nothing strSuccess = "Thank you for signing up." else strSuccess = "" end if %>

 

 

Learn IT for your classroom M 0407 873 824 :: T 03 9826 3104:: F 03 8888 9912 stuart@learn-it.com.au © Copyright 2018 LearnIT :: ABN 5134 741 4346