% dim dbconn,strConn openDB() action=Request.querystring("action") if lcase(action) = "submit" then 'response.write request.form pSurname = trim(Request.form("pSurname")) pFirstname=trim(Request.form("pFirstname")) pOccupation = trim(Request.form("pOccupation")) pIDno = trim(Request.form("pIDno")) pNhif = trim(Request.form("pNhif")) pPostaddress = trim(Request.form("pPostaddress")) pcode = trim(Request.form("pcode")) sPostalcode = trim(Request.form("postalcode")) pAddress = trim(Request.form("pAddress")) pemail = trim(Request.form("pemail")) pTeloff = trim(Request.form("pTeloff")) pTelmob = trim(Request.form("pTelmob")) pMobile=trim(Request.form("pMobile")) strSQL = "insert into courses (courseTitle,targetParticipant,courseDescription,createdBy,creationDate,lastupdatedon,courseSummary) VALUES ('" & sTitle & "','" & sParticipants &"','"& sDescription & "','"& createdby &"','"& sCreatedon & "','"& sLastupdatedon & "', '" & sSummary & "' )" 'response.Write strSQL 'response.End() dbconn.execute(strSQL) end if %>